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