diff options
author | Tom Willemse | 2013-11-03 16:53:22 +0100 |
---|---|---|
committer | Tom Willemse | 2013-11-03 16:53:22 +0100 |
commit | 3b324baa7f506fb8325eb290abbc3a592bc730d1 (patch) | |
tree | 139344605ae14b2056df548be817c35a4688e4da | |
parent | 2196b831f8e062c11e1b711fb63de3a2e819bd92 (diff) | |
download | stumpwm-3b324baa7f506fb8325eb290abbc3a592bc730d1.tar.gz stumpwm-3b324baa7f506fb8325eb290abbc3a592bc730d1.zip |
Update stumpwm config
-rw-r--r-- | .stumpwm.d/desktop.lisp | 12 | ||||
-rw-r--r-- | .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 @@ -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" |