diff options
| author |  Tom Willemsen | 2012-02-07 01:23:07 +0100 |
|---|---|---|
| committer | Tom Willemsen | 2012-02-07 01:23:07 +0100 |
| commit | db354a5b6d501d49ff64cb2a2a368d3cb4132934 (patch) | |
| tree | 2b0bd4d207975c5bc29346400aca7793690e34f1 /.xbindkeysrc.scm | |
| parent | b7dad365c8007263e91bf872c20dc011540567cd (diff) | |
| parent | 4c877f0c7b7bb54e8fc8c55d5da4625772af1dcf (diff) | |
| download | dotfiles-db354a5b6d501d49ff64cb2a2a368d3cb4132934.tar.gz dotfiles-db354a5b6d501d49ff64cb2a2a368d3cb4132934.zip | |
Merge remote-tracking branch 'gitorious/master' into phoenix
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))) |