style: Fix indentation and style in (radix system monitoring)

main
Luis Guilherme Coelho 2024-07-31 17:53:52 -03:00
parent b7eef0302e
commit bd9ca8936e
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 3 additions and 3 deletions

View File

@ -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) <>)