diff options
| author | Thanos Apollo <[email protected]> | 2024-03-07 01:17:08 +0200 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-03-07 01:36:36 +0200 |
| commit | 5ade92a42a076bd0fe86aeeb85447683ca167691 (patch) | |
| tree | 224d9619847fd31daa550cf7ee6b918180657ebd | |
| parent | db4c1863340ca9174b721fddaf002344ca57b437 (diff) | |
stumpwm: Add cpu temp on modeline
| -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") |