From c7c4a984361b31477b611a60067910d88346a086 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Tue, 7 Feb 2012 00:53:01 +0100 Subject: [PATCH] XBINDKEYS: use system where possible, which block where run-command doesn't --- .xbindkeysrc.scm | 10 ++++------ 1 file 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)))