From dfd93efee0c918e277765c331bd4e52fef58acf6 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <tazjin@tvl.su>
Date: Thu, 30 Nov 2023 18:58:46 +0300
Subject: 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
---
 users/tazjin/emacs/config/init.el          |  3 ---
 users/tazjin/emacs/config/look-and-feel.el | 24 +++---------------------
 users/tazjin/emacs/config/mail-setup.el    |  8 ++------
 users/tazjin/emacs/default.nix             |  1 -
 4 files changed, 5 insertions(+), 31 deletions(-)

(limited to 'users/tazjin')

diff --git a/users/tazjin/emacs/config/init.el b/users/tazjin/emacs/config/init.el
index 3f9acd8463..7233ec9c6d 100644
--- a/users/tazjin/emacs/config/init.el
+++ b/users/tazjin/emacs/config/init.el
@@ -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.
diff --git a/users/tazjin/emacs/config/look-and-feel.el b/users/tazjin/emacs/config/look-and-feel.el
index 119922173b..b771b4cd03 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)
 
diff --git a/users/tazjin/emacs/config/mail-setup.el b/users/tazjin/emacs/config/mail-setup.el
index 1d7ab6d0b0..7352c8ba10 100644
--- a/users/tazjin/emacs/config/mail-setup.el
+++ b/users/tazjin/emacs/config/mail-setup.el
@@ -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)
diff --git a/users/tazjin/emacs/default.nix b/users/tazjin/emacs/default.nix
index 24068d6869..12f5ac21f9 100644
--- a/users/tazjin/emacs/default.nix
+++ b/users/tazjin/emacs/default.nix
@@ -88,7 +88,6 @@ pkgs.makeOverridable
       rust-mode
       sly
       string-edit-at-point
-      telephone-line
       terraform-mode
       undo-tree
       uuidgen
-- 
cgit 1.4.1