diff options
Diffstat (limited to '.xbindkeysrc.scm')
| -rw-r--r-- | .xbindkeysrc.scm | 7 |
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)) |