blob: c96a2e04e98696e0a9fb6765875301d11fd5fa8c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(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)))
|
