x11-wm/stumpwm.stumpwm-contrib
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm-contrib.git synced 2026-09-10 07:26:25 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix alists

Browse source
This commit is contained in:
Morgan Veyret 2018-06-10 19:08:20 +02:00
parent 27dc56278b
commit e9a105b9eb
5 changed files with 20 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
modeline/cpu/cpu.lisp
View file

@ -132,10 +132,10 @@ utilization."
*cpu-modeline-fmt*))
(defvar *cpu-formatters-alist*
'((#\c . fmt-cpu-usage)
(#\C . fmt-cpu-usage-bar)
(#\f . fmt-cpu-freq)
(#\t . fmt-cpu-temp)))
'((#\c fmt-cpu-usage)
(#\C fmt-cpu-usage-bar)
(#\f fmt-cpu-freq)
(#\t fmt-cpu-temp)))
(defvar *cpu-modeline-fmt* "%c (%f) %t"
"The default value for displaying cpu information on the modeline.

12
modeline/disk/disk.lisp
View file

@ -75,12 +75,12 @@
(format nil "~{~a ~}" fmts)))
(defvar *disk-formatters-alist*
'((#\d disk-get-device)
(#\s disk-get-size)
(#\u disk-get-used)
(#\a disk-get-available)
(#\p disk-get-use-percent)
(#\m disk-get-mount-point)))
'((#\d disk-get-device)
(#\s disk-get-size)
(#\u disk-get-used)
(#\a disk-get-available)
(#\p disk-get-use-percent)
(#\m disk-get-mount-point)))
(defvar *disk-modeline-fmt* "%m: %u/%s"
"The default value for displaying disk usage information on the modeline.

6
modeline/maildir/maildir.lisp
View file

@ -93,9 +93,9 @@
(defvar *maildir-formatters-alist*
'((#\n maildir-get-new)
(#\c maildir-get-cur)
(#\t maildir-get-tmp)))
'((#\n . maildir-get-new)
(#\c . maildir-get-cur)
(#\t . maildir-get-tmp)))
(defvar *maildir-modeline-fmt* "%n %c"
"The default value for displaying maildir information on the modeline.

6
modeline/mem/mem.lisp
View file

@ -63,9 +63,9 @@ total amount of memory, allocated memory, allocated/total ratio"
(mem-usage)))
(defvar *mem-formatters-alist*
'((#\a . fmt-mem-allocated)
(#\p . fmt-mem-percent)
(#\b . fmt-mem-usage-bar)))
'((#\a fmt-mem-allocated)
(#\p fmt-mem-percent)
(#\b fmt-mem-usage-bar)))
(defvar *mem-modeline-fmt* "MEM: %a %p"
"The default value for displaying mem usage information on the modeline.

8
modeline/net/net.lisp
View file

@ -163,10 +163,10 @@ For the second case rescans route table every minute."
*net-modeline-fmt*))
(defvar *net-formatters-alist*
'((#\d . net-device)
(#\u . fmt-net-usage)
(#\i . fmt-ipv4)
(#\I . fmt-ipv6)))
'((#\d net-device)
(#\u fmt-net-usage)
(#\i fmt-ipv4)
(#\I fmt-ipv6)))
(defvar *net-modeline-fmt* "%d: %u"
"The default value for displaying net information on the modeline.