- prevented crash when sending message to command did not worked.

Printing error to command line instead.

src/package.lisp

@@ -1186,6 +1186,7 @@
      :colorized-line->tui-string
      :standard-error-notify-life
      :with-notify-errors
+     :with-print-error-message
      :make-tui-char
      :make-tui-string))
 

src/program-events.lisp

@@ -1384,7 +1384,8 @@
 (defmethod process-event ((object send-to-pipe-event))
   (with-accessors ((data    data)
                    (command command)) object
-    (os-utils:send-to-pipe data command)))
+      (tui:with-print-error-message
+        (os-utils:send-to-pipe data command))))
 
 ;;;; general usage
 

src/tui-utils.lisp

@@ -398,3 +398,11 @@ latter has a length equals to `total-size'"))
                     (ui:notify (format nil (_ "Error: ~a") e)
                                :life     (* (swconf:config-notification-life) 5)
                                :as-error t))))
+
+(defmacro with-print-error-message (&body body)
+  #+debug-mode `(progn ,@body)
+  #-debug-mode `(handler-case
+                    (progn
+                      ,@body)
+                  (error (e)
+                    (ui:error-message (format nil (_ "Error: ~a") e)))))