diff options
Diffstat (limited to '.xbindkeysrc.scm')
| -rw-r--r-- | .xbindkeysrc.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm index bf5a77d..a58c09a 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))) @@ -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))) |