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

.xbindkeysrc.scm

Browse source
This commit is contained in:
Tom Willemsen 2012-03-11 11:08:03 +01:00
parent 4852b29ca7
commit 978613be50
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
.xbindkeysrc.scm
View file

@ -90,9 +90,11 @@ the command."
(string-append "dmenu_pick -p 'Run:' " dmenu-args))) (string-append "dmenu_pick -p 'Run:' " dmenu-args)))
(prog (read-line file))) (prog (read-line file)))
(close-port file) (close-port file)
(if (string? prog)
(begin
(switch-to-tag prog) (switch-to-tag prog)
(run-command prog)) (run-command prog)))
(reset-main-binding)) (reset-main-binding)))
(define (kill-tag) (define (kill-tag)
"Kill a selected tag" "Kill a selected tag"