;; Modeline configuration
(load "~/.stumpwm.d/colors.lisp")
(load-module "battery-portable")

(setf *mode-line-timeout* 2)
(setf *group-format* "%t")
(setf *window-format* "%n: %30t")

;; set modeline colors and highlight
(setf *mode-line-background-color* thanos-hope
      *mode-line-foreground-color* thanos-hope-fg
      stumpwm:*mode-line-border-color* thanos-hope
      stumpwm:*mode-line-highlight-template* "«~A»")


(setf *mode-line-border-color* thanos-hope1
      *mode-line-border-width* 2)

(setf *time-modeline-string* "%a %d/%m/%Y | %H:%M")

(setf stumpwm:*screen-mode-line-format*
      (list "%g ^>"
	    "RAM:"
	    '(:eval (string-trim '(#\Newline)
		     (stumpwm:run-shell-command
		      "free | awk '/Mem/ { printf(\"%.2f%\"), $3/$2 * 100.0 }'" t)))
	    "% | CPU:"
	    '(:eval (string-trim '(#\Newline)
		     (stumpwm:run-shell-command
		      "grep 'cpu ' /proc/stat | awk '{usage=($2+$4)*100/($2+$4+$5)} END {printf(\"%.2f\", usage)}'" t)))
	    "% | VOL:"
	    '(:eval (string-trim '(#\Newline)
		     (stumpwm:run-shell-command "pamixer --get-volume" t)))
	    "% | "
	    ;; Check when hermes(laptop) t display battery
	    (when (equal (asdf:hostname) "hermes")
	      "BAT:%B |")
	    "%d"))


(when stumpwm:*initializing*
  (mode-line))