Make second argument of run-sudo-command optional

2020-03-08 10:41:51 -04:00 · 2020-03-08 10:41:51 -04:00 · 226271860c
commit 226271860c
parent fd819e2bd6
1 changed files with 2 additions and 2 deletions
--- a/stumpwm/.stumpwm.d/init.lisp
+++ b/stumpwm/.stumpwm.d/init.lisp
@ -15,10 +15,10 @@
  "Prompts the user for a password"
  (read-one-line (current-screen) prompt :password t))

-(defmacro run-sudo-command (cmd)
+(defmacro run-sudo-command (cmd &optional collect-output-p)
  `(run-shell-command
    (format nil "SUDO_ASKPASS=~~/bin/stumpwm-sudo.sh sudo -A ~S" ,cmd)
-    t))
+    ,collect-output-p))

 ;; Commands
 (defcommand shutdown () ()