StumpWM: Include stumptray in modeline

This commit is contained in:
Marcel Kapfer 2017-11-25 23:00:56 +01:00
parent fc8b8604e5
commit 899b074f25

View file

@ -54,6 +54,9 @@
;; loading modeline modules ;; loading modeline modules
(load-module "battery-portable") (load-module "battery-portable")
(load-module "hostname") (load-module "hostname")
(load-module "stumptray")
(stumptray:stumptray)
;; mode-line style ;; mode-line style
(setf *mode-line-background-color* "#333333" (setf *mode-line-background-color* "#333333"
@ -63,7 +66,7 @@
*mode-line-border-width* 3 *mode-line-border-width* 3
*mode-line-pad-x* 3 *mode-line-pad-x* 3
*mode-line-pad-y* 3 *mode-line-pad-y* 3
*screen-mode-line-format* (list "[" '(:eval (RUN-SHELL-COMMAND "date '+%F %H:%M'|tr -d [:cntrl:]" T)) "] [%n] %W ^> [%B] [marcel@%h] ")) *screen-mode-line-format* (list "[" '(:eval (RUN-SHELL-COMMAND "date '+%F %H:%M'|tr -d [:cntrl:]" T)) "] [%n] %w ^> [" '(:eval (RUN-SHELL-COMMAND "hostname -I |tr -d [:cntrl:]" T)) "][%B] [marcel@%h] %T"))
;; customize texts ;; customize texts
(setf *window-format* "^B %n ^b %20t " (setf *window-format* "^B %n ^b %20t "