diff options
| author | Vincent Ambo <tazjin@tvl.su> | 2023-11-30T15·58+0300 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2023-12-01T16·22+0000 |
| commit | dfd93efee0c918e277765c331bd4e52fef58acf6 (patch) | |
| tree | d831897295deae59b0a9113d63841f19eccf116a /users/tazjin/emacs/config/look-and-feel.el | |
| parent | dbc17e8c4b28e43f6609c571fccdcf7b3819aec9 (diff) | |
refactor(tazjin/emacs): remove telephone-line r/7100
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
Diffstat (limited to 'users/tazjin/emacs/config/look-and-feel.el')
| -rw-r--r-- | users/tazjin/emacs/config/look-and-feel.el | 24 |
1 files changed, 3 insertions, 21 deletions
diff --git a/users/tazjin/emacs/config/look-and-feel.el b/users/tazjin/emacs/config/look-and-feel.el index 119922173bef..b771b4cd03b9 100644 --- a/users/tazjin/emacs/config/look-and-feel.el +++ b/users/tazjin/emacs/config/look-and-feel.el @@ -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) |