refactor(tazjin/emacs): remove telephone-line

I don't really like this package, it's kinda wonky, and now that part
of my mode line logic is in the tab-bar, it's no longer needed.

Change-Id: I4791a75e5ce2f0c49ef0d239cadf6a4f81c73636
Reviewed-on: https://cl.tvl.fyi/c/depot/+/10171
Reviewed-by: tazjin <tazjin@tvl.su>
Autosubmit: tazjin <tazjin@tvl.su>
Tested-by: BuildkiteCI
This commit is contained in:
Vincent Ambo 2023-11-30 18:58:46 +03:00 committed by clbot
parent dbc17e8c4b
commit dfd93efee0
4 changed files with 5 additions and 31 deletions

View file

@ -23,7 +23,7 @@
(setq default-frame-alist `((font . ,font)))
(set-frame-font font t t))
;; Configure telephone-line
;; Configure the modeline
;; Implements a mode-line warning if there are any logged in TTY
;; sessions apart from the graphical one.
@ -41,6 +41,8 @@
(defvar cached-tty-sessions (cons (time-convert nil 'integer) (list-tty-sessions))
"Cached TTY session value to avoid running the command too often.")
;; TODO(tazjin): add this to the modeline
(defun get-cached-tty-sessions ()
(let ((time ))
(when (< 30
@ -51,26 +53,6 @@
(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 ()
(setq telephone-line-lhs
'((highlight . (telephone-line-warn-tty-session))
(nil . (telephone-line-position-segment))
(accent . (telephone-line-buffer-segment))))
(setq telephone-line-rhs
'((accent . (telephone-line-major-mode-segment))))
(setq telephone-line-primary-left-separator 'telephone-line-tan-left
telephone-line-primary-right-separator 'telephone-line-tan-right
telephone-line-secondary-left-separator 'telephone-line-tan-hollow-left
telephone-line-secondary-right-separator 'telephone-line-tan-hollow-right)
(telephone-line-mode 1))
;; Auto refresh buffers
(global-auto-revert-mode 1)