dbo/dotfiles
dbo
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

New shortcuts for calling emacsclient from Xmonad

This commit is contained in:
Daniel - 2018-11-24 12:26:18 +01:00
parent c9222a9fef
commit 029d84ddaa
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
xmonad/xmonad.hs
View File

@ -110,7 +110,10 @@ keyMap c = mkKeymap c $
, ("<XF86AudioStop>", 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))