diff --git a/src/uxbox/ui/keyboard.cljs b/src/uxbox/ui/keyboard.cljs
index 56491066e7..c99a429680 100644
--- a/src/uxbox/ui/keyboard.cljs
+++ b/src/uxbox/ui/keyboard.cljs
@@ -5,5 +5,9 @@
   (fn [e]
     (= (.-keyCode e) keycode)))
 
+(defn ctrl?
+  [event]
+  (.-ctrlKey event))
+
 (def esc? (is-keycode? 27))
 (def enter? (is-keycode? 13))