stumpwm: notification function and dispay toggling

functions.lisp

(defun notify (msg)
   (run-shell-command (format nil "notify-send 'StumpWM' '~a'" msg)))

(defcommand conditional-restore-layout () ()
   (when (> (list-length (screen-heads (current-screen))) 1)
      (restore-desktop-office)
      (notify "changed to multihead mode"))
   (when (> (list-length (screen-heads (current-screen)) 1)
      (restore-desktop-laptop)
      (notify "changed to laptop mode"))))