Don't use sudo for shutdown command, add prompt

stumpwm/.stumpwm.d/init.lisp

@@ -22,7 +22,11 @@
 
 ;; Commands
 (defcommand shutdown () ()
-  (run-sudo-command "shutdown now"))
+  (when (y-or-n-p (format nil "~@{~a~^~%~}"
+                          "You are about to shut down the computer."
+                          "Really ^1^Bshutdown^b^n?"
+                          "^B^6Confirm?^n "))
+      (run-shell-command "shutdown now")))
 
 (defcommand firefox () ()
   (run-or-raise "firefox" '(:class "firefox")))