summaryrefslogtreecommitdiff
path: root/.stumpwm.d
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-03-07 01:17:08 +0200
committerThanos Apollo <[email protected]>2024-03-07 01:36:36 +0200
commit5ade92a42a076bd0fe86aeeb85447683ca167691 (patch)
tree224d9619847fd31daa550cf7ee6b918180657ebd /.stumpwm.d
parentdb4c1863340ca9174b721fddaf002344ca57b437 (diff)
stumpwm: Add cpu temp on modeline
Diffstat (limited to '.stumpwm.d')
-rw-r--r--.stumpwm.d/modeline.lisp9
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")