Restore previous wal command on startup

bash/.bashrc

@@ -28,6 +28,10 @@ if [ -e "$(which virtualenvwrapper.sh)" ]; then
     source "$(which virtualenvwrapper.sh)"
 fi
 
+if [ -d "$HOME/.cache/wal" ]; then
+    (cat "$HOME/.cache/wal/sequences" &)
+fi
+
 if [ -f ~/.bashrc.local ]; then
     source ~/.bashrc.local
 fi

stumpwm/.stumpwm.d/init.lisp

@@ -127,7 +127,7 @@
 (defun run-wal (image &optional light?)
   (run-shell-command
    (concatenate 'string
-		"wal "
+		"wal -n "
 		(when light? "-l ")
 		"-i " (uiop:native-namestring image) " "
 		"-o "
@@ -137,7 +137,7 @@
   (run-wal image))
 
 (defcommand wal-light (image) ((:desktop-image "Set desktop background: "))
-  (run-wal image ))
+  (run-wal image t))
 
 (define-interactive-keymap wal nil
   ((kbd "l") "wal-light" t)
@@ -215,7 +215,10 @@
 (set '*message-window-padding* 4)
 
 ;; Desktop background
-(run-commands "wal-light ~/Dropbox/pictures/desktop/coast.jpg")
+(if (probe-file "~/.cache/wal")
+    (run-shell-command (format nil "wal -R -o \"~A\""
+			       (uiop:native-namestring "~/bin/run-wal-hooks.sh")))
+    (run-wal "~/Dropbox/pictures/desktop/coast.jpg" t))
 
 ;; Notifications via Dunst
 (run-shell-command "/usr/bin/dunst")