ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

XBINDKEYS: use system where possible, which block where run-command doesn't

Browse source
This commit is contained in:
Tom Willemsen 2012-02-07 00:53:01 +01:00
parent 54bbb081a9
commit c7c4a98436
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
.xbindkeysrc.scm
View file

@ -27,10 +27,8 @@
(close-port file) (close-port file)
tags)) tags))
(define (get-tag tags pipe)
(read-line pipe))
(define (choose-tag prompt tags) (define (choose-tag prompt tags)
"Ask to choose a tag"
(let* ((file (open-input-pipe (let* ((file (open-input-pipe
(string-append "echo '" (string-join tags "\n") (string-append "echo '" (string-join tags "\n")
"' | " dmenu-cmd " -p '" prompt ":'"))) "' | " dmenu-cmd " -p '" prompt ":'")))
@ -45,7 +43,7 @@
(if (string? tag) (if (string? tag)
(begin (begin
(if (not (member tag tags)) (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)))) (run-command (string-append "herbstclient use " tag))))
(reset-main-binding))) (reset-main-binding)))
@ -56,7 +54,7 @@
(if (string? tag) (if (string? tag)
(begin (begin
(if (member tag tags) (if (member tag tags)
(run-command (string-append "herbstclient merge_tag " tag))))) (system (string-append "herbstclient merge_tag " tag)))))
(reset-main-binding))) (reset-main-binding)))
(define (move-to-tag) (define (move-to-tag)
@ -66,7 +64,7 @@
(if (string? tag) (if (string? tag)
(begin (begin
(if (not (member tag tags)) (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)))) (run-command (string-append "herbstclient move " tag))))
(reset-main-binding))) (reset-main-binding)))