ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Stumpwm: Remove window title from mode-line

Browse source 
It makes stumpmw crash with certain window titles from conkeror
This commit is contained in:
Tom Willemse 2013-04-11 15:29:59 +02:00
parent 0a4dc20800
commit f94bccb95b
1 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
.stumpwmrc
View file

@ -9,8 +9,7 @@
"Run BODY through emacsclient." "Run BODY through emacsclient."
`(sb-ext:run-program `(sb-ext:run-program
"/usr/bin/emacsclient" "/usr/bin/emacsclient"
'("-e" '("-e" ,(string-downcase (format nil "~S" (cons 'progn body))))
,(string-downcase (format nil "~S" (cons 'progn body))))
:wait nil)) :wait nil))
;; Naquadah ;; Naquadah
@ -149,7 +148,6 @@ it and run *screen-unlocked-hook* after it has been unlocked."
(setf *mode-line-foreground-color* (colour :lblack)) (setf *mode-line-foreground-color* (colour :lblack))
(setf *shell-program* (getenv "SHELL")) (setf *shell-program* (getenv "SHELL"))
(setf *transient-border-width* 1) (setf *transient-border-width* 1)
(setf *window-format* "%m%50t")
(setf *window-border-style* :thin) (setf *window-border-style* :thin)
(setf *screen-mode-line-format* (setf *screen-mode-line-format*
(list "[%n]" (list "[%n]"
@ -158,10 +156,7 @@ it and run *screen-unlocked-hook* after it has been unlocked."
(get-mail-count "ryuslash.org") (get-mail-count "ryuslash.org")
(get-mail-count "gmail") (get-mail-count "gmail")
(get-mail-count "aethon") (get-mail-count "aethon")
(get-mail-count "ninthfloor"))) (get-mail-count "ninthfloor")))))
'(:eval
(format-expand *window-formatters* *window-format*
(current-window)))))
(add-hook *lock-screen-hook* 'set-jabber-away) (add-hook *lock-screen-hook* 'set-jabber-away)
(add-hook *lock-screen-hook* 'mpd-pause) (add-hook *lock-screen-hook* 'mpd-pause)