From c7c4a984361b31477b611a60067910d88346a086 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 7 Feb 2012 00:53:01 +0100
Subject: XBINDKEYS: use system where possible, which block where run-command
 doesn't

---
 .xbindkeysrc.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to '.xbindkeysrc.scm')

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)))
 
-- 
cgit v1.2.3-54-g00ecf