Re: [STUMP] [PATCH] Visual feedback if the shell couldn't execute a command (SBCL only).

[David Hansen]

On Fri, 2 May 2008 02:47:36 -0700 Shawn Betts wrote:

> It looks like you forgot to attach the patch.

I haven't.  It shows up on gmane.  Maybe some fascist filter in the way
that doesn't like "text/x-patch" inline attachments (hope you are old
enough to look at them)?  (BTW, you are sending html mails, in the good
old times that was a good reason to get stoned to death ;p).

diff --git a/user.lisp b/user.lisp
index 6a0b347..b45cf2d 100644
--- a/user.lisp
+++ b/user.lisp
@@ -571,7 +571,16 @@ careful. If the shell command doesn't return, it will hang 
StumpWM. In
 such a case, kill the shell command to resume StumpWM."
   (if collect-output-p
       (run-prog-collect-output *shell-program* "-c" cmd)
-      (run-prog *shell-program* :args (list "-c" cmd) :wait nil)))
+      (run-prog *shell-program*
+                :args (list "-c" cmd)
+                :wait nil
+                #+sbcl :status-hook
+                #+sbcl #'(lambda (process)
+                           ;; Bash returns with exit code 127 on "command not
+                           ;; found".  XXX: Is this sh or a bash extension?
+                           (and (not (sb-ext:process-alive-p process))
+                                (eq 127 (sb-ext:process-exit-code process))
+                                (message "Command not found: ~a" cmd))))))
 
 (defcommand-alias exec run-shell-command)