diff options
| author | Vincent Ambo <tazjin@tvl.su> | 2023-11-28T12·30+0300 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2023-11-28T12·34+0000 |
| commit | 84a846a3a253160178037996bbd4b3e527be7b4f (patch) | |
| tree | 7c5ec823fc7fa5449e1b4ecc42a793f253c6c510 /users/tazjin/emacs/config/look-and-feel.el | |
| parent | a554531e28e7b21a27504333a7d950492c26c267 (diff) | |
refactor(tazjin/emacs): move global-mode-line info into tab-bar r/7079
This removes the wonky hack with detecting the bottom right window, and gives me saner, unified handling of this display in the tab bar (of which there is only one!) Change-Id: Id21c6b2472d0c89fc4d000a10a9e90d2ddba86b6 Reviewed-on: https://cl.tvl.fyi/c/depot/+/10165 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 | 30 |
1 files changed, 1 insertions, 29 deletions
diff --git a/users/tazjin/emacs/config/look-and-feel.el b/users/tazjin/emacs/config/look-and-feel.el index 6cf2c2a8c100..119922173bef 100644 --- a/users/tazjin/emacs/config/look-and-feel.el +++ b/users/tazjin/emacs/config/look-and-feel.el @@ -24,16 +24,6 @@ (set-frame-font font t t)) ;; Configure telephone-line -(defun telephone-misc-if-last-window () - "Renders the mode-line-misc-info string for display in the - mode-line if the currently active window is the last one in the - frame. - - The idea is to not display information like the current time, - load, battery levels on all buffers." - - (when (bottom-right-window-p) - (telephone-line-raw mode-line-misc-info t))) ;; Implements a mode-line warning if there are any logged in TTY ;; sessions apart from the graphical one. @@ -66,31 +56,13 @@ (format "W: [%s]!!" (s-join "," sessions)))) (defun telephone-line-setup () - (telephone-line-defsegment telephone-line-last-window-segment () - (telephone-misc-if-last-window)) - - ;; Define a highlight font for ~ important ~ information in the last - ;; window. - (defface special-highlight '((t (:foreground "white" :background "#5f627f"))) "") - (add-to-list 'telephone-line-faces - '(highlight . (special-highlight . special-highlight))) - (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)) - (nil . (telephone-line-last-window-segment)) - - ;; TODO(tazjin): lets not do this particular thing while I - ;; don't actually run notmuch, there are too many things - ;; that have a dependency on the modeline drawing correctly - ;; (including randr operations!) - ;; - ;; (highlight . (telephone-line-notmuch-counts)) - )) + '((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 |