[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[STUMP] stumpwm 100% CPU usage and no modeline
From: |
Ted Zlatanov |
Subject: |
[STUMP] stumpwm 100% CPU usage and no modeline |
Date: |
Wed, 21 May 2008 12:04:58 -0500 |
User-agent: |
Gnus/5.110011 (No Gnus v0.11) Emacs/23.0.60 (gnu/linux) |
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)
- [STUMP] stumpwm 100% CPU usage and no modeline,
Ted Zlatanov <=