diff options
Diffstat (limited to '.stumpwmrc')
-rw-r--r-- | .stumpwmrc | 21 |
1 files changed, 10 insertions, 11 deletions
@@ -36,7 +36,7 @@ ("Gimp" . "gimp"))) (defvar *conkeror-program* "conkeror" "The executable to run to start Conkeror.") -(defvar *emacs-program* "emacsclient -c -a emacs" +(defvar *emacs-program* "emacsclient -c -a \"\"" "The executable to run to start Emacs.") (defvar *firefox-program* "firefox" "The executable to run to start Firefox.") @@ -48,8 +48,6 @@ "Hook run right before the screen gets locked.") (defvar *screen-unlocked-hook* nil "Hook run right after the screen is unlocked.") -(defvar *mpd-was-playing-p* nil - "Indicator of whether or not MPD was playing when it was paused.") (defun get-mail-count (mailbox &optional (inbox "inbox")) "Check how many new messages there are in MAILBOX." @@ -87,15 +85,16 @@ *jabber-connected*) (jabber-send-default-presence)))) -(defun mpd-pause () - "Pause MPD playback." - (when (setf *mpd-was-playing-p* (mpd-playing-p)) - (sb-ext:run-program "/usr/bin/mpc" '("pause") :wait nil))) +(let (mpd-was-playing) + (defun mpd-pause () + "Pause MPD playback." + (when (setf mpd-was-playing-p (mpd-playing-p)) + (sb-ext:run-program "/usr/bin/mpc" '("pause") :wait nil))) -(defun mpd-play () - "Resume MPD playback." - (when *mpd-was-playing-p* - (sb-ext:run-program "/usr/bin/mpc" '("play") :wait nil))) + (defun mpd-play () + "Resume MPD playback." + (when mpd-was-playing-p + (sb-ext:run-program "/usr/bin/mpc" '("play") :wait nil)))) (defcommand run-emacs () () "Open Emacs" |