Read wal input file from StumpWM using rofi

stumpwm/.stumpwm.d/init.lisp

@@ -101,6 +101,17 @@
     (format nil "SUDO_ASKPASS=~~/bin/stumpwm-sudo.sh sudo -A ~S" ,cmd)
     ,collect-output-p))
 
+;; Input utilities
+(defun rofi-completing-read (prompt completions)
+  (string-trim '(#\newline)
+   (run-shell-command
+    (concatenate 'string
+		 "echo -e "
+		 "'" (format nil "~{~A~^\\n~}" completions) "' "
+		 "| rofi -dmenu -p "
+		 "'" (string-right-trim ": " prompt) "'")
+    t)))
+
 ;; Commands
 (defvar desktop-images-dir
   (uiop:native-namestring "~/Dropbox/pictures/desktop/"))
@@ -108,10 +119,10 @@
 (define-stumpwm-type :desktop-image (input prompt)
   (or (argument-pop-rest input)
       (concatenate 'string desktop-images-dir
-       (completing-read (current-screen)
-			prompt
-			(mapcar 'file-namestring
-				(uiop:directory-files desktop-images-dir))))))
+		   (rofi-completing-read
+		    prompt
+		    (mapcar 'file-namestring
+			    (uiop:directory-files desktop-images-dir))))))
 
 (defun run-wal (image &optional light?)
   (run-shell-command