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

fix(tazjin/emacs): always list ttys locally

Browse source 
Change-Id: Ic05378013aa327616a822336881d9a76c8a22d58
Reviewed-on: https://cl.tvl.fyi/c/depot/+/9829
Autosubmit: tazjin <tazjin@tvl.su>
Reviewed-by: tazjin <tazjin@tvl.su>
Tested-by: BuildkiteCI
This commit is contained in:
Vincent Ambo 2023-10-25 14:25:15 +03:00 committed by clbot
parent a89695c4c5
commit b916c2d0b1
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -45,7 +45,8 @@
(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))))))
(s-trim (let ((default-directory "/"))
(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.")