Stumptray issues - icons visibility and desappearance

[OrionRandD]

Stumptray issues

1. stumptray toggle icons visibility" does not work?
   it says: The value NIL is not of type STUMPTRAY::TRAY

2. stumptray disappears after toggling mode-line

👎

[trev-dev]

Not sure what to do about problem 1, but I have resolved problem 2 with the following:

(defvar *base-mode-line-format* "[%n] %W ^>  %C | %M | %I | %B | %d")

(defun make-mode-line-with-stumptray ()
  (setf *screen-mode-line-format* (concat *base-mode-line-format* " %T"))
  (mode-line)
  (stumptray::stumptray))

(defun destroy-mode-line-with-stumptray ()
  (when-let ((tray (stumptray::current-tray)))
      (stumptray::destroy-tray tray))
  (setf *screen-mode-line-format* *base-mode-line-format*)
  (mode-line))

(defun toggle-mode-line-with-stumptray ()
  (if *mode-lines*
      (destroy-mode-line-with-stumptray)
      (make-mode-line-with-stumptray)))

(defcommand mode-line-with-stumptray () ()
  (toggle-mode-line-with-stumptray))

(define-key *root-map* (kbd "m") "mode-line-with-stumptray")