From 38472674898e803d2c6b28986a4126f983dfb676 Mon Sep 17 00:00:00 2001 From: Steve Lindsay Date: Thu, 28 Jul 2011 22:38:14 +1000 Subject: [PATCH] Add some basic keyboard navigation. --- src/clooj/core.clj | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/clooj/core.clj b/src/clooj/core.clj index 96de125..51b2064 100644 --- a/src/clooj/core.clj +++ b/src/clooj/core.clj @@ -515,7 +515,11 @@ (add-menu menu-bar "Search" ["Find" "cmd F" #(start-find doc)] ["Find next" "cmd G" #(highlight-step doc false)] - ["Find prev" "cmd shift G" #(highlight-step doc true)]))) + ["Find prev" "cmd shift G" #(highlight-step doc true)]) + (add-menu menu-bar "Window" + ["Move to REPL" "alt R" #(.requestFocusInWindow (:repl-in-text-area doc))] + ["Move to Editor" "alt E" #(.requestFocusInWindow (:doc-text-area doc))] + ["Move to Project Tree" "alt P" #(.requestFocusInWindow (:docs-tree doc))]))) ;; startup