(defpackage #:config.modeline
            (:use #:cl #:config #:stumpwm))
(in-package #:config.modeline)

(load-module "cpu")
(load-module "mem")
(load-module "stumptray")

(setf *mode-line-timeout* 2)
(setf *time-modeline-string* "%A, %F - %H:%M")
(setf *window-format* "%n: %30t")

(setf cpu::*cpu-modeline-fmt* "%c")

(setf *screen-mode-line-format*
      (list "[%n] %v ^> %C | %M | %d" (make-string 4 :initial-element #\Space)))