style: Fix indentation and style in (radix system monitoring)
parent
b7eef0302e
commit
bd9ca8936e
|
@ -50,15 +50,15 @@
|
|||
(cut string-split <> #\ )
|
||||
string-trim
|
||||
cadr)
|
||||
line)))
|
||||
line)))
|
||||
(cut string-split <> #\:))
|
||||
lines)))
|
||||
|
||||
(define (ram-total)
|
||||
(call-with-input-file "/proc/meminfo"
|
||||
(lambda (port)
|
||||
(read port)
|
||||
(* (read port)))))
|
||||
(let ((_ (read port)))
|
||||
(read port)))))
|
||||
|
||||
(define (current-ram-usage)
|
||||
(apply - (map (cut assoc-ref (current-memory-info) <>)
|
||||
|
|
Loading…
Reference in New Issue