summaryrefslogtreecommitdiffstats
path: root/.xbindkeysrc.scm
diff options
context:
space:
mode:
authorGravatar Tom Willemsen2012-02-07 20:07:39 +0100
committerGravatar Tom Willemsen2012-02-07 20:07:39 +0100
commit5aa3ec23c5037ac8ab0bd080123760c1b3df81b5 (patch)
treeb613189c374678f9656f0596d0547ecd81c53e40 /.xbindkeysrc.scm
parent5a87ca44b803f6d666593dac1b71c0c400b19f72 (diff)
downloaddotfiles-5aa3ec23c5037ac8ab0bd080123760c1b3df81b5.tar.gz
dotfiles-5aa3ec23c5037ac8ab0bd080123760c1b3df81b5.zip
Cleanup
Diffstat (limited to '.xbindkeysrc.scm')
-rw-r--r--.xbindkeysrc.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm
index 3bea5fe..38d33a1 100644
--- a/.xbindkeysrc.scm
+++ b/.xbindkeysrc.scm
@@ -8,6 +8,8 @@
(define dmenu-cmd "dmenu")
(define dmenu-args
(string-append "-b -nb '#000000' -nf '#15abc3' -sb '#e0c625' -sf '#000000' -fn '" font "'"))
+(define dzen-cmd "dzen2")
+(define dzen-args (string-append " -fn '" font "' -x 5 -y 5 -bg '#000000' -fg '#15abc3'"))
(define dzen-pipe '())
;;; Macros
@@ -26,6 +28,7 @@
(grab-all-keys))
(define (get-tags)
+ "Get a list of tags"
(let* ((file (open-input-pipe
"TAGS=( $(herbstclient tag_status 0 | tr \":\\!.+#\" \" \") ); echo ${TAGS[@]}"))
(tags (string-split (read-line file) #\ )))
@@ -84,8 +87,8 @@
(define (gui-print text)
(let ((width (+ (text-width font text) 10)))
(set! dzen-pipe (open-output-pipe
- (string-append "dzen2 -w " (number->string width)
- " -fn '" font "' -x 5 -y 5 -bg '#000000' -fg '#15abc3'"))))
+ (string-append dzen-cmd " -w " (number->string width)
+ " " dzen-args))))
(display text dzen-pipe)
(newline dzen-pipe))