From 978613be504c170c44ddacc71828bb2f7ceaa725 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 11 Mar 2012 11:08:03 +0100 Subject: [PATCH] .xbindkeysrc.scm --- .xbindkeysrc.scm | 8 +++++--- 1 file 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"