mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(tazjin/emacs): modeline warning if tty sessions are logged in

Browse source 
Change-Id: I88a9ca299f82917fb5b618766aef319aa2e141fa
Reviewed-on: https://cl.tvl.fyi/c/depot/+/8981
Tested-by: BuildkiteCI
Reviewed-by: tazjin <tazjin@tvl.su>
Autosubmit: tazjin <tazjin@tvl.su>
This commit is contained in:
Vincent Ambo 2023-07-22 12:21:54 +03:00 committed by clbot
parent 432222f098
commit 29cc473d59
1 changed files with 31 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
users/tazjin/emacs/config/look-and-feel.el
View file

@ -35,6 +35,35 @@
(when (bottom-right-window-p)
(telephone-line-raw mode-line-misc-info t)))
;; Implements a mode-line warning if there are any logged in TTY
;; sessions apart from the graphical one.
;;
;; The status is only updated once every 30 seconds, as it requires
;; shelling out to some commands (for now).
(defun list-tty-sessions ()
"List all logged in tty sessions, except tty7 (graphical)"
(let ((command "who | awk '{print $2}' | grep -v tty7"))
(-filter (lambda (s) (not (string-empty-p s)))
(s-lines
(s-trim (shell-command-to-string command))))))
(defvar cached-tty-sessions (cons (time-convert nil 'integer) (list-tty-sessions))
"Cached TTY session value to avoid running the command too often.")
(defun get-cached-tty-sessions ()
(let ((time ))
(when (< 30
(- (time-convert nil 'integer)
(car cached-tty-sessions)))
(setq cached-tty-sessions
(cons (time-convert nil 'integer) (list-tty-sessions)))))
(cdr cached-tty-sessions))
(telephone-line-defsegment telephone-line-warn-tty-session ()
(when-let (sessions (get-cached-tty-sessions))
(format "W: [%s]!!" (s-join "," sessions))))
(defun telephone-line-setup ()
(telephone-line-defsegment telephone-line-last-window-segment ()
(telephone-misc-if-last-window))
@ -51,7 +80,8 @@
'(highlight . (special-highlight . special-highlight)))
(setq telephone-line-lhs
'((nil . (telephone-line-position-segment))
'((highlight . (telephone-line-warn-tty-session))
(nil . (telephone-line-position-segment))
(accent . (telephone-line-buffer-segment))))
(setq telephone-line-rhs