diff options
author | Tom Willemsen | 2012-02-07 00:53:01 +0100 |
---|---|---|
committer | Tom Willemsen | 2012-02-07 00:53:01 +0100 |
commit | c7c4a984361b31477b611a60067910d88346a086 (patch) | |
tree | 1b7021a9708ed2b497bb6c86d1443ca9e90e02d4 | |
parent | 54bbb081a9cbf078188bec90ed6575271348b63d (diff) | |
download | dotfiles-c7c4a984361b31477b611a60067910d88346a086.tar.gz dotfiles-c7c4a984361b31477b611a60067910d88346a086.zip |
XBINDKEYS: use system where possible, which block where run-command doesn't
-rw-r--r-- | .xbindkeysrc.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm index bf5a77d..295fb17 100644 --- a/.xbindkeysrc.scm +++ b/.xbindkeysrc.scm @@ -27,10 +27,8 @@ (close-port file) tags)) -(define (get-tag tags pipe) - (read-line pipe)) - (define (choose-tag prompt tags) + "Ask to choose a tag" (let* ((file (open-input-pipe (string-append "echo '" (string-join tags "\n") "' | " dmenu-cmd " -p '" prompt ":'"))) @@ -45,7 +43,7 @@ (if (string? tag) (begin (if (not (member tag tags)) - (run-command (string-append "herbstclient add " tag))) + (system (string-append "herbstclient add " tag))) (run-command (string-append "herbstclient use " tag)))) (reset-main-binding))) @@ -56,7 +54,7 @@ (if (string? tag) (begin (if (member tag tags) - (run-command (string-append "herbstclient merge_tag " tag))))) + (system (string-append "herbstclient merge_tag " tag))))) (reset-main-binding))) (define (move-to-tag) @@ -66,7 +64,7 @@ (if (string? tag) (begin (if (not (member tag tags)) - (run-command (string-append "herbstclient add " tag))) + (system (string-append "herbstclient add " tag))) (run-command (string-append "herbstclient move " tag)))) (reset-main-binding))) |