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:
parent
dbc17e8c4b
commit
dfd93efee0
4 changed files with 5 additions and 31 deletions
|
|
@ -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)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue