41 lines
1005 B
Scheme
41 lines
1005 B
Scheme
;; TODO: get info like:
|
|
;; - [ ] is connected to internet
|
|
;; - [ ] is connected using wifi or ethernet
|
|
;; - [ ] if wifi, the netkwork name
|
|
;; - [ ] network usage (speed)
|
|
|
|
(add-to-load-path "..")
|
|
|
|
(use-modules (ice-9 popen)
|
|
(ice-9 textual-ports)
|
|
(org helpers)
|
|
(org format))
|
|
|
|
(define (run-command command-string)
|
|
(let* ((port
|
|
(open-input-pipe command-string))
|
|
(str (get-string-all port)))
|
|
(close-pipe port)
|
|
(string-trim-both str)))
|
|
|
|
(define active-connections-command
|
|
(string-join '("nmcli -t" "con" "show" "--active")))
|
|
|
|
;; TODO: alist is better, fix org-format
|
|
(define (make-connection-list conn)
|
|
(let ((params '("NAME" "UUID" "TYPE" "DEVICE")))
|
|
(map (lambda (x y) `(,x ,y))
|
|
params conn)))
|
|
|
|
(define (split-on-colone str) (string-split str #\:))
|
|
|
|
(define (active-connections)
|
|
(map (lambda (c) (make-connection-list c))
|
|
(map split-on-colon
|
|
(string-split
|
|
(run-command active-connections-command)
|
|
#\nl))))
|
|
|
|
(map org-properties (active-connections))
|
|
|