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

@ -76,8 +76,6 @@
(use-package rainbow-mode)
(use-package s)
(use-package string-edit-at-point)
(use-package telephone-line) ;; configuration happens outside of use-package
(use-package term-switcher)
(use-package undo-tree
@ -256,7 +254,6 @@
modes
bindings
eshell-setup))
(telephone-line-setup)
(ace-window-display-mode)
;; If a local configuration library exists, it should be loaded.

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)

View file

@ -49,7 +49,7 @@
;; handle that gracefully.
(define-key notmuch-message-mode-map (kbd "C-x C-s") #'ignore)
;; Define a telephone-line segment for displaying the count of unread,
;; Define a mode-line segment for displaying the count of unread,
;; important mails in the last window's mode-line:
(defvar *last-notmuch-count-redraw* 0)
(defvar *current-notmuch-count* nil)
@ -74,10 +74,6 @@
(not (equal *current-notmuch-count* "I: 0; D: 0")))
*current-notmuch-count*))
(telephone-line-defsegment telephone-line-notmuch-counts ()
"This segment displays the count of unread notmuch messages in
the last window's mode-line (if unread messages are present)."
(update-display-notmuch-counts))
;; TODO(tazjin): re-add this segment to the modeline
(provide 'mail-setup)

View file

@ -88,7 +88,6 @@ pkgs.makeOverridable
rust-mode
sly
string-edit-at-point
telephone-line
terraform-mode
undo-tree
uuidgen