Skip to content

Commit

Permalink
[emacs] Update styles of mode-line
Browse files Browse the repository at this point in the history
Use proportional font for mode-line which helps fit more information and
indicate buffer has been modified by rendering buffer name with italic
font.
  • Loading branch information
mina86 committed Jun 3, 2023
1 parent 2a89f1c commit 9365c6b
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 5 deletions.
5 changes: 3 additions & 2 deletions emacs/custom.el
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,6 @@
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(default ((t (:background "black" :foreground "gray" :height 75 :width normal :foundry "adobe" :family "courier"))))
'(Man-overstrike ((t (:foreground "#33CC33"))))
'(Man-reverse ((t (:foreground "#CC3333"))))
'(auto-dim-other-buffers-face ((t :background "#112222")))
Expand Down Expand Up @@ -56,10 +55,12 @@
'(link ((t (:foreground "#0CF" :underline t))))
'(link-visited ((t (:inherit link :foreground "#96F"))))
'(match ((t (:background "RoyalBlue3"))))
'(mode-line ((t (:background "#009" :foreground "#FFF"))))
'(mode-line ((t (:background "#009" :foreground "#fff" :slant normal :foundry "GOOG" :family "Noto Sans"))))
'(mode-line-active ((t (:inherit mode-line))))
'(mode-line-buffer-id ((t (:foreground "#9FF" :weight bold))))
'(mode-line-highlight ((t (:background "#00F"))))
'(mode-line-inactive ((t (:inherit mode-line :background "#333" :foreground "#CCC"))))
'(mode-line-modified-buffer-id ((t (:inherit mode-line-buffer-id :slant italic))))
'(notmuch-search-date ((t (:inherit notmuch-search-non-matching-authors))))
'(notmuch-search-matching-authors ((t (:inherit default))))
'(notmuch-search-non-matching-authors ((t (:inherit default :foreground "dim grey"))))
Expand Down
7 changes: 4 additions & 3 deletions emacs/init.el
Original file line number Diff line number Diff line change
Expand Up @@ -688,7 +688,9 @@ modified beforehand."
column-number-mode t

mode-line-format
'((buffer-read-only (:propertize "» " face mode-line-de-em) " ")
'((:propertize (buffer-read-only "» " " ")
face mode-line-de-em
display (min-width (10.0)))
(:eval (concat
(propertize
"%14b " 'face (if (buffer-modified-p)
Expand All @@ -712,8 +714,7 @@ modified beforehand."
mode-name
" "
mode-line-process
minor-mode-alist
(:propertize " %-" face mode-line-de-em)))
minor-mode-alist))

;; Highlight groups of three digits
(when (fboundp 'global-num3-mode)
Expand Down

0 comments on commit 9365c6b

Please sign in to comment.