From 5c22d5bd88f363feedfca41c1f3e8a44e0c69149 Mon Sep 17 00:00:00 2001 From: Jeremy Dormitzer Date: Tue, 14 Jan 2020 20:45:05 -0500 Subject: [PATCH] Add org-capture StumpWM command --- stumpwm/.stumpwm.d/init.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/stumpwm/.stumpwm.d/init.lisp b/stumpwm/.stumpwm.d/init.lisp index 1dcf185..ef3927a 100644 --- a/stumpwm/.stumpwm.d/init.lisp +++ b/stumpwm/.stumpwm.d/init.lisp @@ -35,6 +35,9 @@ (defcommand caps->escape () () (run-shell-command "setxkbmap -option caps:escape")) +(defcommand org-capture () () + (run-shell-command "emacsclient -a '' -e '(make-orgcapture-frame)'")) + ;; Keybindings (define-key stumpwm:*root-map* (kbd "C-f") "firefox") (define-key stumpwm:*root-map* (kbd "d") "exec rofi -show run") @@ -44,6 +47,7 @@ (define-key stumpwm:*root-map* (kbd "M") "exec ~/bin/monitor_layout.sh") (define-key stumpwm:*root-map* (kbd "L") "lock") (define-key stumpwm:*root-map* (kbd "b") "battery") +(define-key stumpwm:*root-map* (kbd "C-o") "org-capture") (define-key *top-map* (kbd "M-TAB") "pull-hidden-next") (define-key *top-map* (kbd "XF86MonBrightnessDown") "exec light -U 5") (define-key *top-map* (kbd "XF86MonBrightnessUp") "exec light -A 5")