diff options
| author |  Tom Willemsen | 2012-03-11 11:08:03 +0100 |
|---|---|---|
| committer | Tom Willemsen | 2012-03-11 11:08:03 +0100 |
| commit | 978613be504c170c44ddacc71828bb2f7ceaa725 (patch) | |
| tree | a975ad0924824a9a9bf0dd0751e47cc02593cad9 /.xbindkeysrc.scm | |
| parent | 4852b29ca780aa9394e10e939891192032bd68d3 (diff) | |
| download | dotfiles-978613be504c170c44ddacc71828bb2f7ceaa725.tar.gz dotfiles-978613be504c170c44ddacc71828bb2f7ceaa725.zip | |
.xbindkeysrc.scm
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 d1c9479..4567611 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" |