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

Allow users to configure the wifi signal quality format

Browse source
This commit is contained in:
Alexander van den Berghe 2023-01-16 13:13:47 +01:00
parent 4613a956ad
commit d56adb8935
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
modeline/wifi/package.lisp
View file

@ -5,5 +5,6 @@
(:export #:*iwconfig-path*
#:*wireless-device*
#:*wifi-modeline-fmt*
#:*wifi-signal-quality-fmt*
#:*wifi-signal-quality-fmt-pc*
#:*use-colors*))

10
modeline/wifi/wifi.lisp
View file

@ -33,6 +33,12 @@ Signal quality (without percentage sign)
@end table
")
(defvar *wifi-signal-quality-fmt* "^[~A~D^]"
"The default formatting of the signal quality")
(defvar *wifi-signal-quality-fmt-pc* "^[~A~D%^]"
"The default formatting of the signal quality as percentage")
(defvar *use-colors* t
"Use colors to indicate signal quality.")
@ -47,11 +53,11 @@ Signal quality (without percentage sign)
(defun wifi-get-signal-quality-pc (pair)
(let ((qual (cdr pair)))
(format nil "^[~A~D%^]" (sig-quality-fmt qual) qual)))
(format nil *wifi-signal-quality-fmt-pc* (sig-quality-fmt qual) qual)))
(defun wifi-get-signal-quality (pair)
(let ((qual (cdr pair)))
(format nil "^[~A~D^]" (sig-quality-fmt qual) qual)))
(format nil *wifi-signal-quality-fmt* (sig-quality-fmt qual) qual)))
(defvar *wifi-formatters-alist*
'((#\e wifi-get-essid)