From 226271860ce19de561365e49c253aebe2a168a52 Mon Sep 17 00:00:00 2001
From: Jeremy Dormitzer <jeremy.dormitzer@gmail.com>
Date: Sun, 8 Mar 2020 10:41:51 -0400
Subject: [PATCH] Make second argument of run-sudo-command optional

---
 stumpwm/.stumpwm.d/init.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/stumpwm/.stumpwm.d/init.lisp b/stumpwm/.stumpwm.d/init.lisp
index 8d12ecc..75c19a1 100644
--- 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 () ()