diff options
Diffstat (limited to '.xbindkeysrc.scm')
-rw-r--r-- | .xbindkeysrc.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm index 5149054..2ff2971 100644 --- a/.xbindkeysrc.scm +++ b/.xbindkeysrc.scm @@ -90,9 +90,11 @@ the command." (string-append "dmenu_pick -p 'Run:' " dmenu-args))) (prog (read-line file))) (close-port file) - (switch-to-tag prog) - (run-command prog)) - (reset-main-binding)) + (if (string? prog) + (begin + (switch-to-tag prog) + (run-command prog))) + (reset-main-binding))) (define (kill-tag) "Kill a selected tag" |