feat(look-and-feel): Display unread mail telephone line segment
Defines a new highlight face and configures the telephone line segments to display the unread count if there are unread mails.
This commit is contained in:
parent
e543ddff2e
commit
454cb9e506
2 changed files with 11 additions and 5 deletions
2
init.el
2
init.el
|
@ -27,6 +27,7 @@
|
|||
;; After initialisation, proceed to load configuration that requires packages:
|
||||
(defun load-other-settings ()
|
||||
(mapc 'require '(nixos
|
||||
mail-setup
|
||||
look-and-feel
|
||||
functions
|
||||
settings
|
||||
|
@ -37,7 +38,6 @@
|
|||
haskell-setup
|
||||
rust-setup
|
||||
lisp-setup
|
||||
mail-setup
|
||||
)))
|
||||
|
||||
(add-hook 'after-init-hook 'load-other-settings)
|
||||
|
|
|
@ -42,20 +42,26 @@
|
|||
The idea is to not display information like the current time,
|
||||
load, battery levels in all buffers."
|
||||
|
||||
(if (bottom-right-window-p)
|
||||
(telephone-line-raw mode-line-misc-info t)
|
||||
""))
|
||||
(when (bottom-right-window-p)
|
||||
(telephone-line-raw mode-line-misc-info t)))
|
||||
|
||||
(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
|
||||
'((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))))
|
||||
(nil . (telephone-line-last-window-segment))
|
||||
(highlight . (telephone-line-notmuch-counts))))
|
||||
|
||||
(setq telephone-line-primary-left-separator 'telephone-line-tan-left
|
||||
telephone-line-primary-right-separator 'telephone-line-tan-right
|
||||
|
|
Loading…
Reference in a new issue