diff options
| -rw-r--r-- | .stumpwm.d/modeline.lisp | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/.stumpwm.d/modeline.lisp b/.stumpwm.d/modeline.lisp index cf9bcc3..308186f 100644 --- a/.stumpwm.d/modeline.lisp +++ b/.stumpwm.d/modeline.lisp @@ -26,9 +26,14 @@ (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 " '(:eval (string-trim '(#\Newline) - (stumpwm:run-shell-command "amixer get Master | awk '/Front Left:/ { print substr($5, 2, length($5)-2) }'" t))) + (stumpwm:run-shell-command + "echo $(($(cat /sys/class/thermal/thermal_zone0/temp) / 1000))C" t))) + "| RAM:%M| VOL:" + '(:eval (string-trim '(#\Newline) + (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") |