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

empty space after mode-line string removed

Browse source
This commit is contained in:
Voob of Doom 2019-01-05 19:19:00 +01:00
parent 41200b2ba0
commit f00d4a78d8
No known key found for this signature in database
GPG key ID: 4F8220F092FB160A
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
modeline/net/net.lisp
View file

@ -141,15 +141,15 @@ For the second case rescans route table every minute."
(defun fmt-net-usage ()
"Returns a string representing the current network activity."
(let ((net (net-usage))
dn up)
dn up)
(defun kbmb (x y)
(if (>= (/ x 1e6) y)
(list (/ x 1e6) "m")
(list (/ x 1e3) "k")))
(list (/ x 1e6) "m")
(list (/ x 1e3) "k")))
(setq dn (kbmb (car net) 0.1)
up (kbmb (cadr net) 0.1))
(format nil "~5,2F~A/~5,2F~A "
(car dn) (cadr dn) (car up) (cadr up))))
up (kbmb (cadr net) 0.1))
(format nil "~5,2F~A/~5,2F~A"
(car dn) (cadr dn) (car up) (cadr up))))
(defun fmt-ipv4 ()
(or *net-ipv4* "noip"))