ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.xbindkeysrc.scm

Browse source
This commit is contained in:
Tom Willemsen 2012-02-07 11:07:38 +01:00
parent 4c877f0c7b
commit 724ce012d4
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
.xbindkeysrc.scm
View file

@ -2,9 +2,10 @@
(use-modules (ice-9 popen) (use-modules (ice-9 popen)
(ice-9 rdelim)) (ice-9 rdelim))
;;; Modkey ;;; Variables
(define modkey 'mod4) (define modkey 'mod4)
(define dmenu-cmd "dmenu -b -nb '#000000' -nf '#15abc3' -sb '#e0c625' -sf '#000000'") (define dmenu-cmd "dmenu")
(define dmenu-args "-b -nb '#000000' -nf '#15abc3' -sb '#e0c625' -sf '#000000'")
;;; Macros ;;; Macros
(define-macro (cmd command) (define-macro (cmd command)
@ -31,7 +32,7 @@
"Ask to choose a tag" "Ask to choose a tag"
(let* ((file (open-input-pipe (let* ((file (open-input-pipe
(string-append "echo '" (string-join tags "\n") (string-append "echo '" (string-join tags "\n")
"' | " dmenu-cmd " -p '" prompt ":'"))) "' | " dmenu-cmd " " dmenu-args " -p '" prompt ":'")))
(tag (read-line file))) (tag (read-line file)))
(close-port file) (close-port file)
tag)) tag))
@ -71,7 +72,7 @@
;;; Maps ;;; Maps
(define (main-binding) (define (main-binding)
"First binding" "First binding"
(xbindkey `(,modkey shift "1") "dmenu_run") (xbindkey `(,modkey shift "1") (string-append "dmenu_run " dmenu-args))
(xbindkey-function `(,modkey x) X-functions) (xbindkey-function `(,modkey x) X-functions)
(xbindkey-function `(,modkey w) W-functions) (xbindkey-function `(,modkey w) W-functions)
(xbindkey-function `(,modkey s) S-functions) (xbindkey-function `(,modkey s) S-functions)