diff --git a/stumpwm/.stumpwm.d/init.lisp b/stumpwm/.stumpwm.d/init.lisp
index 29378ae..8d12ecc 100644
--- a/stumpwm/.stumpwm.d/init.lisp
+++ b/stumpwm/.stumpwm.d/init.lisp
@@ -51,6 +51,12 @@
 (defcommand org-capture () ()
   (run-shell-command "emacsclient -a '' -e '(make-orgcapture-frame)'"))
 
+(defcommand background-random () ()
+  (run-shell-command (concatenate 'string
+				  "feh --bg-scale "
+				  "\"/home/jdormit/Dropbox/pictures/desktop/"
+				  "$(ls /home/jdormit/Dropbox/pictures/desktop | shuf -n 1)\"")))
+
 ;; Keybindings
 (define-key stumpwm:*root-map* (kbd "C-f") "firefox")
 (define-key stumpwm:*root-map* (kbd "d") "exec rofi -show drun")
@@ -82,7 +88,7 @@
 (set '*message-window-padding* 4)
 
 ;; Desktop background
-(run-shell-command "feh --bg-scale \"/home/jdormit/Dropbox/pictures/desktop/$(ls /home/jdormit/Dropbox/pictures/desktop | shuf -n 1)\"")
+(run-commands "background-random")
 
 ;; Notifications via Dunst
 (run-shell-command "/usr/bin/dunst")