From 029d84ddaa9d65334b5331c678baaab540fe71e9 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 24 Nov 2018 12:26:18 +0100 Subject: [PATCH] New shortcuts for calling emacsclient from Xmonad --- xmonad/xmonad.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs index 16c07a1..228c815 100644 --- a/xmonad/xmonad.hs +++ b/xmonad/xmonad.hs @@ -110,7 +110,10 @@ keyMap c = mkKeymap c $ , ("", spawn "exec emacsclient -n -e '(emms-stop)'") ] ++ - [ ("M-a " ++ k, spawn $ "exec emacsclient -ne '(db/emacsclient-key \"" ++ k ++ "\")'") - | k <- ["w", "o", "b", "h", "p", "c", "1", "2", "l", "d"] ] + [ ("M-a w", spawn "exec emacsclient -ne '(db/org-clock-in-work-task)' " ) + , ("M-a h", spawn "exec emacsclient -ne '(db/org-clock-in-home-task)' " ) + , ("M-a b", spawn "exec emacsclient -ne '(db/org-clock-in-break-task)' " ) + , ("M-a o", spawn "exec emacsclient -ne '(db/org-clock-out)' " ) + , ("M-a c", spawn "exec emacsclient -ne '(db/make-org-capture-frame)'")] where layoutMap k l = ("M-l M-" ++ k, sendMessage $ JumpToLayout (l :: String))