diff options
-rw-r--r-- | witch.ml | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -158,7 +158,7 @@ module Comm (Wm : WM) = struct { st with mode = mode' } let cmdmap = - let press k st = Wm.send st.wid k; st in + let press k st = Wm.focus st.wid; Wm.send k; st in let default_cmds = [("up","w"); ("down","s"); ("left","a"); ("right","d"); ("a","u"); ("b","h"); ("l","i"); ("r","o"); ("start","j")] in @@ -180,7 +180,6 @@ module Comm (Wm : WM) = struct let c_handler st0 (cfd, _) = dup2 cfd stdin; dup2 cfd stdout; dup2 cfd stderr; close cfd; - Wm.focus st0.wid; let rec loop st = match st.mode with | Cmd -> |