Initial commit of my stumpwm configuration in vcsh

2 files changed, 261 insertions, 0 deletions

diff --git a/.stumpwm.d/desktop.lisp b/.stumpwm.d/desktop.lisp
new file mode 100644
index 0000000..4e9bd09
--- /dev/null
+++ b/.stumpwm.d/desktop.lisp
@@ -0,0 +1,33 @@
+#S(DDUMP
+   :SCREENS (#S(SDUMP
+                :NUMBER 0
+                :GROUPS (#S(GDUMP
+                            :NUMBER 1
+                            :NAME "Default"
+                            :TREE ((#S(FDUMP
+                                       :NUMBER 0
+                                       :X 0
+                                       :Y 0
+                                       :WIDTH 1030
+                                       :HEIGHT 1080
+                                       :WINDOWS (14680090)
+                                       :CURRENT 14680090)
+                                    #S(FDUMP
+                                       :NUMBER 1
+                                       :X 1030
+                                       :Y 0
+                                       :WIDTH 890
+                                       :HEIGHT 1080
+                                       :WINDOWS (18874375)
+                                       :CURRENT 18874375))
+                                   #S(FDUMP
+                                      :NUMBER 2
+                                      :X 1920
+                                      :Y 0
+                                      :WIDTH 1680
+                                      :HEIGHT 1050
+                                      :WINDOWS NIL
+                                      :CURRENT NIL))
+                            :CURRENT 0))
+                :CURRENT 1))
+   :CURRENT 0)
\ No newline at end of file
diff --git a/.stumpwmrc b/.stumpwmrc
new file mode 100644
index 0000000..b4c2c4b
--- /dev/null
+++ b/.stumpwmrc
@@ -0,0 +1,228 @@
+;; -*- mode: lisp; -*-
+; (require 'swank)
+(require 'cl-ppcre)
+
+(in-package :stumpwm)
+
+(defmacro elisp (&body body)
+  "Run BODY through emacsclient."
+  `(sb-ext:run-program
+   "/usr/bin/emacsclient"
+   '("-e" ,(string-downcase (format nil "~S" (cons 'progn body))))
+   :wait nil))
+
+;; Naquadah
+(defun colour (key)
+  (let ((colours (list :gray1      #x111111
+                       :gray5      #xc2c2c2
+                       :gray6      #xededed
+                       :blue3      #x152e54
+                       :lwhite     #xa5a5a4 :dwhite     #x222224
+                       :lred       #xbf6d6d :dred       #x744a4a
+                       :lorange    #xbfa47d :dorange    #x73634a
+                       :lyellow    #xb2bf6d :dyellow    #x6b734a
+                       :lgreen     #x8abf6d :dgreen     #x52734a
+                       :lturquoise #x7dbf97 :dturquoise #x4a735b
+                       :lcyan      #x7dbfbf :dcyan      #x4a7373
+                       :lblue      #x6d97bf :dblue      #x4a5b73
+                       :lpurple    #x8a7dbf :dpurple    #x524a73
+                       :lmagenta   #xb27dbf :dmagenta   #x6b4a73
+                       :lpink      #xbf6da4 :dpink      #x734a63)))
+    (getf colours key)))
+
+(setf *app-menu* '(("Editor" . "emacs")
+                   ("Browser" . "conkeror")
+                   ("Terminal" . "urxvt")
+                   ("Office" . "libreoffice")
+                   ("Gimp" . "gimp")))
+(defvar *conkeror-program* "conkeror"
+  "The executable to run to start Conkeror.")
+(defvar *emacs-program* "emacsclient -c -a emacs"
+  "The executable to run to start Emacs.")
+(defvar *firefox-program* "firefox"
+  "The executable to run to start Firefox.")
+(defvar *i3lock-program* "i3lock -c 000000"
+  "The executable to run to start i3lock.")
+(defvar *urxvt-program* "urxvt"
+  "The executable to run to start URxvt.")
+(defvar *lock-screen-hook* nil
+  "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."
+  (length
+   (append
+    (directory
+     (format nil "/home/slash/documents/mail/~A/~A/new/*.*"
+             mailbox inbox))
+    (remove-if (lambda (d)
+                 (let ((dir (namestring d)))
+                   (string= dir "S" :start1 (1- (length dir)))))
+               (directory
+                (format nil "/home/slash/documents/mail/~A/~A/cur/*.*"
+                        mailbox inbox))))))
+
+(defun mpd-playing-p ()
+  "Check if MPD is currently in the playing state."
+  (and (cl-ppcre:scan
+        "\\n\\[playing\\]"
+        (with-output-to-string (status)
+          (sb-ext:run-program "/usr/bin/mpc" '() :output status)))
+       t))
+
+(defun set-jabber-away ()
+  "Tell emacs to set jabber to away presence."
+  (elisp
+    (when (and (fboundp 'jabber-send-away-presence)
+               *jabber-connected*)
+      (jabber-send-away-presence))))
+
+(defun set-jabber-online ()
+  "Tel emacs to set jabber to online presence."
+  (elisp
+    (when (and (fboundp 'jabber-send-default-presence)
+               *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)))
+
+(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"
+  (run-shell-command *emacs-program*))
+
+(defcommand raise-emacs () ()
+  "Open or show Emacs"
+  (run-or-raise *emacs-program* '(:class "Emacs")))
+
+(defcommand run-firefox () ()
+  "Open Firefox"
+  (run-shell-command *firefox-program*))
+
+(defcommand raise-firefox () ()
+  "Open or show Firefox"
+  (run-or-raise *firefox-program* '(:class "Firefox")))
+
+(defcommand run-conkeror () ()
+  "Open Conkeror"
+  (run-shell-command *conkeror-program*))
+
+(defcommand raise-conkeror () ()
+  "Open or show Conkeror"
+  (run-or-raise *conkeror-program* '(:class "Conkeror")))
+
+(defcommand run-urxvt () ()
+  "Open URxvt"
+  (run-shell-command *urxvt-program*))
+
+(defcommand raise-urxvt () ()
+  "Open URxvt"
+  (run-or-raise *urxvt-program* '(:class "URxvt")))
+
+(defun run-stumpwm-hook-on-exit (process)
+  "Run `*screen-unlocked-hook*' if PROCESS' status is `:exited'."
+  (when (eq (sb-ext:process-status process) :exited)
+    (run-hook *screen-unlocked-hook*)))
+
+(defcommand lock-screen () ()
+  "Lock the screen using i3lock.
+
+Run `*lock-screen-hook*' before locking it and run
+`*screen-unlocked-hook*' after it has been unlocked."
+  (run-hook *lock-screen-hook*)
+  (sb-ext:run-program
+   "/usr/bin/i3lock" '("-n" "-c" "000000") :wait nil
+   :status-hook #'run-stumpwm-hook-on-exit))
+
+(set-bg-color (colour :dwhite))
+(set-border-color (colour :lwhite))
+(set-fg-color (colour :gray5))
+(set-float-focus-color (colour :lblue))
+(set-float-unfocus-color (colour :dwhite))
+(set-focus-color (colour :lblue))
+(set-font "-*-tamsyn-medium-r-normal-*-17-*-*-*-*-0-iso8859-1")
+(set-unfocus-color (colour :dwhite))
+(set-win-bg-color (colour :gray1))
+
+(setf *colors* (mapcar #'colour '(:lwhite :lred :lgreen :lyellow :lblue
+                                  :lmagenta :lcyan :gray5)))
+(setf *input-window-gravity* :center)
+(setf *message-window-gravity* :top-right)
+(setf *mode-line-background-color* (colour :blue3))
+(setf *mode-line-border-color* (colour :blue3))
+(setf *mode-line-foreground-color* (colour :gray5))
+(setf *shell-program* (getenv "SHELL"))
+(setf *transient-border-width* 1)
+(setf *window-border-style* :thin)
+(setf *screen-mode-line-format*
+      (list "[%n]"
+            '(:eval
+              (format nil " | ryu: ~D | gmail: ~D | aethon: ~D | 9f: ~D | "
+               (get-mail-count "ryuslash.org")
+               (get-mail-count "gmail")
+               (get-mail-count "aethon")
+               (get-mail-count "ninthfloor")))))
+
+(add-hook *lock-screen-hook* 'set-jabber-away)
+(add-hook *lock-screen-hook* 'mpd-pause)
+(add-hook *screen-unlocked-hook* 'set-jabber-online)
+(add-hook *screen-unlocked-hook* 'mpd-play)
+
+(set-prefix-key (kbd "C-z"))
+
+(define-key *top-map* (kbd "C-M-l") "lock-screen")
+(define-key *top-map* (kbd "XF86AudioLowerVolume") "exec mpc volume -5")
+(define-key *top-map* (kbd "XF86AudioMute")
+  "exec amixer sset Master toggle")
+(define-key *top-map* (kbd "XF86AudioNext") "exec mpc next")
+(define-key *top-map* (kbd "XF86AudioPlay") "exec mpc toggle")
+(define-key *top-map* (kbd "XF86AudioPrev") "exec mpc prev")
+(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec mpc volume +5")
+
+(define-key *root-map* (kbd "c") "raise-urxvt")
+(define-key *root-map* (kbd "C") "run-urxvt")
+(define-key *root-map* (kbd "e") "raise-emacs")
+(define-key *root-map* (kbd "E") "run-emacs")
+(define-key *root-map* (kbd "w") "raise-conkeror")
+(define-key *root-map* (kbd "W") "run-conkeror")
+
+(define-key *root-map* (kbd "C-b") "windowlist")
+(define-key *root-map* (kbd "M-b") "move-window left")
+(define-key *root-map* (kbd "M-f") "move-window right")
+(define-key *root-map* (kbd "M-n") "move-window down")
+(define-key *root-map* (kbd "M-p") "move-window up")
+(define-key *root-map* (kbd "b") "move-focus left")
+(define-key *root-map* (kbd "f") "move-focus right")
+(define-key *root-map* (kbd "n") "move-focus down")
+(define-key *root-map* (kbd "p") "move-focus up")
+
+(undefine-key *root-map* (kbd "C-a"))
+(undefine-key *root-map* (kbd "C-c"))
+(undefine-key *root-map* (kbd "C-e"))
+(undefine-key *root-map* (kbd "C-m"))
+
+(define-frame-preference "Default"
+    (0 t nil :class "Emacs")
+  (2 t nil :class "Firefox")
+  (1 t nil :class "URxvt")
+  (2 t nil :class "Conkeror"))
+
+(if (not (head-mode-line (current-head)))
+    (toggle-mode-line (current-screen) (current-head)))
+
+(restore-from-file
+ (concatenate 'string (sb-ext:posix-getenv "HOME")
+              "/.stumpwm.d/desktop.lisp"))
+
+; (swank:create-server)