From 3b324baa7f506fb8325eb290abbc3a592bc730d1 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 3 Nov 2013 16:53:22 +0100
Subject: Update stumpwm config

---
 .stumpwm.d/desktop.lisp | 12 ++++++------
 .stumpwmrc              | 21 ++++++++++-----------
 2 files changed, 16 insertions(+), 17 deletions(-)

diff --git a/.stumpwm.d/desktop.lisp b/.stumpwm.d/desktop.lisp
index 4e9bd09..c180a17 100644
--- a/.stumpwm.d/desktop.lisp
+++ b/.stumpwm.d/desktop.lisp
@@ -8,18 +8,18 @@
                                        :NUMBER 0
                                        :X 0
                                        :Y 0
-                                       :WIDTH 1030
+                                       :WIDTH 1110
                                        :HEIGHT 1080
                                        :WINDOWS (14680090)
                                        :CURRENT 14680090)
                                     #S(FDUMP
                                        :NUMBER 1
-                                       :X 1030
+                                       :X 1110
                                        :Y 0
-                                       :WIDTH 890
+                                       :WIDTH 810
                                        :HEIGHT 1080
-                                       :WINDOWS (18874375)
-                                       :CURRENT 18874375))
+                                       :WINDOWS (20971527)
+                                       :CURRENT 20971527))
                                    #S(FDUMP
                                       :NUMBER 2
                                       :X 1920
@@ -28,6 +28,6 @@
                                       :HEIGHT 1050
                                       :WINDOWS NIL
                                       :CURRENT NIL))
-                            :CURRENT 0))
+                            :CURRENT 1))
                 :CURRENT 1))
    :CURRENT 0)
\ No newline at end of file
diff --git a/.stumpwmrc b/.stumpwmrc
index 44fa117..cfe0c39 100644
--- a/.stumpwmrc
+++ b/.stumpwmrc
@@ -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"
-- 
cgit v1.2.3-54-g00ecf