diff options
| -rw-r--r-- | .stumpwm.d/modeline.lisp | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/.stumpwm.d/modeline.lisp b/.stumpwm.d/modeline.lisp index eee5db2..cf9bcc3 100644 --- a/.stumpwm.d/modeline.lisp +++ b/.stumpwm.d/modeline.lisp @@ -1,8 +1,12 @@ ;; Modeline configuration (load "~/.stumpwm.d/colors.lisp") + +(setf *default-package* :stumpwm) + (load-module "battery-portable") -(stumpwm:load-module "mem") -(stumpwm:load-module "cpu") +;; (stumpwm:load-module "stumptray") +(load-module "mem") +(load-module "cpu") (setf *mode-line-timeout* 2) (setf *group-format* "%t") @@ -22,10 +26,10 @@ (setf *time-modeline-string* "%a %d/%m/%Y | %H:%M") (setf stumpwm:*screen-mode-line-format* - (list "%g ^> %C| RAM: %M | VOL:" + (list "%g ^> %C| RAM:%M| VOL:" '(:eval (string-trim '(#\Newline) - (stumpwm:run-shell-command "pamixer --get-volume" t))) - "% | " + (stumpwm:run-shell-command "amixer get Master | awk '/Front Left:/ { print substr($5, 2, length($5)-2) }'" t))) + " | " ;; Check when hermes(laptop) t display battery (when (equal (asdf:hostname) "hermes") "BAT:%B |") |