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
|
@ -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.
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -88,7 +88,6 @@ pkgs.makeOverridable
|
|||
rust-mode
|
||||
sly
|
||||
string-edit-at-point
|
||||
telephone-line
|
||||
terraform-mode
|
||||
undo-tree
|
||||
uuidgen
|
||||
|
|
Loading…
Reference in a new issue