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

stumpwm/stumpwmrc.lisp

Browse source
This commit is contained in:
Tom Willemsen 2012-08-31 09:52:35 +02:00
parent 74c49fab14
commit e65583e420
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
stumpwm/stumpwmrc.lisp
View file

@ -108,10 +108,11 @@
(setf *screen-mode-line-format* (setf *screen-mode-line-format*
(list "[%n]" (list "[%n]"
'(:eval '(:eval
(format nil " | ryu: ~D | gmail: ~D | aethon: ~D | " (format nil " | ryu: ~D | gmail: ~D | aethon: ~D | 9f: ~D | "
(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")))
'(:eval '(:eval
(format-expand *window-formatters* *window-format* (format-expand *window-formatters* *window-format*
(current-window))))) (current-window)))))
@ -145,7 +146,8 @@
(define-frame-preference "Default" (define-frame-preference "Default"
(0 t nil :class "Emacs") (0 t nil :class "Emacs")
(1 t nil :class "Firefox") (1 t nil :class "Firefox")
(1 t nil :class "URxvt")) (1 t nil :class "URxvt")
(1 t nil :class "Conkeror"))
(if (not (head-mode-line (current-head))) (if (not (head-mode-line (current-head)))
(toggle-mode-line (current-screen) (current-head))) (toggle-mode-line (current-screen) (current-head)))