[STUMP] stumpwm 100% CPU usage and no modeline

[Ted Zlatanov]

stumpwm is taking up 100% CPU on my machine.  What can I do to debug
this?  I'm running under SBCL, and my setup is very unremarkable, the
only slightly questionable piece is the keypress notification at the
end.  I've removed all the define-key calls, and I have 9 groups
(started with gnewbg).

Also, I don't see the modeline all the time.  What do I need to do to
get it permanently displayed?

Thanks
Ted


(in-package :stumpwm)

;; Message window font
(set-font "-misc-fixed-medium-r-normal--20-200-75-75-c-100-iso10646-1")
;; Get rid of cursor
(banish-pointer)

;; Display class in windows list ("C-t w")
(setf stumpwm:*window-format* "%n%s%t %c")

;; Also, set the message and input box to the bottom right so it will
;; overlap the mode-line.
(setf *message-window-gravity* :bottom-right)
(setf *input-window-gravity* :bottom-right)

;; Code by Male
;; Display the keysequence in progress
(defun key-press-hook (key key-seq cmd)
  (declare (ignore key))
  (unless (eq *top-map* *resize-map*)
    (let ((*message-window-gravity* :bottom-right))
      (message "Key sequence: ~A" (print-key-seq (reverse key-seq))))
    (when (stringp cmd)
      ;; Give 'em time to read it.
      (sleep 0.3))))

(defmacro replace-hook (hook fn)
 `(remove-hook ,hook ,fn)
 `(add-hook ,hook ,fn))

(replace-hook *key-press-hook* 'key-press-hook)