Add experimental modeline (disabled by default)
This mode-line may have bugs and its implementation details are certain to change (it doesn't follow naming conventions, for instance). It also doesn't have all the features of the old modeline (yet). However, it is easily twice as fast as the original, and a little more flexible, what with the `mode-line-format-left' and `mode-line-format-right' variables. It also exposes a more powerful API for defining modelines and modeline segments (and switching between them). It is disabled by default and must be activated with the +new module flag on the ui/doom-modeline module.
This commit is contained in:
Henrik Lissner
parent
ee4060ab80
commit
f5e8c72bb6
3 changed files with 1149 additions and 652 deletions
472
modules/ui/doom-modeline/+new.el
Normal file
472
modules/ui/doom-modeline/+new.el
Normal file
|
|
@ -0,0 +1,472 @@
|
||||||
|
;;; ui/doom-modeline/config.el -*- lexical-binding: t; -*-
|
||||||
|
;;;###if (featurep! +new)
|
||||||
|
|
||||||
|
;; This mode-line is experimental, may have bugs and is likely to change. It
|
||||||
|
;; also doesn't have all the features of the old modeline (yet).
|
||||||
|
;;
|
||||||
|
;; However, it is at least twice as fast as the original modeline, and a little
|
||||||
|
;; more flexible, what with `mode-line-format-left' and
|
||||||
|
;; `mode-line-format-right'. It also exposes a more powerful API for defining
|
||||||
|
;; modelines and modeline segments that make use of variable watchers and hooks
|
||||||
|
;; to update them.
|
||||||
|
|
||||||
|
;;;; Benchmarks
|
||||||
|
;; (benchmark-run 1000 (format-mode-line mode-line-format))
|
||||||
|
;; Old system: ~0.198
|
||||||
|
;; New system: ~0.056
|
||||||
|
|
||||||
|
(defvar +doom-modeline-height 25
|
||||||
|
"How tall the mode-line should be (only respected in GUI emacs).")
|
||||||
|
|
||||||
|
(defvar +doom-modeline-buffer-name-function
|
||||||
|
#'doom-modeline--file-path
|
||||||
|
"TODO")
|
||||||
|
|
||||||
|
(defvar anzu--state nil)
|
||||||
|
(defvar evil-mode nil)
|
||||||
|
(defvar evil-state nil)
|
||||||
|
(defvar evil-visual-selection nil)
|
||||||
|
(defvar iedit-mode nil)
|
||||||
|
(defvar all-the-icons-scale-factor)
|
||||||
|
(defvar all-the-icons-default-adjust)
|
||||||
|
|
||||||
|
(defvar-local mode-line-format-left ())
|
||||||
|
(defvar-local mode-line-format-right ())
|
||||||
|
(put 'mode-line-format-left 'risky-local-variable t)
|
||||||
|
(put 'mode-line-format-right 'risky-local-variable t)
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Plugins
|
||||||
|
;;
|
||||||
|
|
||||||
|
(def-package! anzu
|
||||||
|
:after-call isearch-mode
|
||||||
|
:config
|
||||||
|
(setq anzu-cons-mode-line-p nil
|
||||||
|
anzu-minimum-input-length 1
|
||||||
|
anzu-search-threshold 250)
|
||||||
|
(global-anzu-mode +1)
|
||||||
|
|
||||||
|
(defun +doom-modeline*fix-anzu-count (positions here)
|
||||||
|
(cl-loop for (start . end) in positions
|
||||||
|
collect t into before
|
||||||
|
when (and (>= here start) (<= here end))
|
||||||
|
return (length before)
|
||||||
|
finally return 0))
|
||||||
|
(advice-add #'anzu--where-is-here :override #'+doom-modeline*fix-anzu-count)
|
||||||
|
|
||||||
|
;; Avoid anzu conflicts across buffers
|
||||||
|
(mapc #'make-variable-buffer-local
|
||||||
|
'(anzu--total-matched anzu--current-position anzu--state
|
||||||
|
anzu--cached-count anzu--cached-positions anzu--last-command
|
||||||
|
anzu--last-isearch-string anzu--overflow-p))
|
||||||
|
;; Ensure anzu state is cleared when searches & iedit are done
|
||||||
|
(add-hook 'isearch-mode-end-hook #'anzu--reset-status t)
|
||||||
|
(add-hook 'doom-escape-hook #'anzu--reset-status t)
|
||||||
|
(add-hook 'iedit-mode-end-hook #'anzu--reset-status))
|
||||||
|
|
||||||
|
|
||||||
|
(def-package! evil-anzu
|
||||||
|
:when (featurep! :feature evil)
|
||||||
|
:after-call (evil-ex-start-search evil-ex-start-word-search))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Helpers
|
||||||
|
;;
|
||||||
|
|
||||||
|
;; Keep `+doom-modeline-current-window' up-to-date
|
||||||
|
(defvar +doom-modeline-current-window (frame-selected-window))
|
||||||
|
(defun +doom-modeline|set-selected-window (&rest _)
|
||||||
|
"Sets `+doom-modeline-current-window' appropriately"
|
||||||
|
(when-let* ((win (frame-selected-window)))
|
||||||
|
(unless (minibuffer-window-active-p win)
|
||||||
|
(setq +doom-modeline-current-window win)
|
||||||
|
(force-mode-line-update))))
|
||||||
|
|
||||||
|
(defun +doom-modeline|unset-selected-window ()
|
||||||
|
(setq +doom-modeline-current-window nil)
|
||||||
|
(force-mode-line-update))
|
||||||
|
|
||||||
|
(add-hook 'window-configuration-change-hook #'+doom-modeline|set-selected-window)
|
||||||
|
(add-hook 'doom-enter-window-hook #'+doom-modeline|set-selected-window)
|
||||||
|
(if (not (boundp 'after-focus-change-function))
|
||||||
|
(progn
|
||||||
|
(add-hook 'focus-in-hook #'+doom-modeline|set-selected-window)
|
||||||
|
(add-hook 'focus-out-hook #'+doom-modeline|unset-selected-window))
|
||||||
|
(defun +doom-modeline|refresh-frame ()
|
||||||
|
(setq +doom-modeline-current-window nil)
|
||||||
|
(cl-loop for frame in (frame-list)
|
||||||
|
if (eq (frame-focus-state frame) t)
|
||||||
|
return (setq +doom-modeline-current-window (frame-selected-window frame)))
|
||||||
|
(force-mode-line-update t))
|
||||||
|
(add-function :after after-focus-change-function #'+doom-modeline|refresh-frame))
|
||||||
|
|
||||||
|
(defsubst active ()
|
||||||
|
(eq (selected-window) +doom-modeline-current-window))
|
||||||
|
|
||||||
|
;; xpm generator
|
||||||
|
(defun doom-modeline--make-xpm (width height &optional color)
|
||||||
|
"Create an XPM bitmap. Inspired by `powerline''s `pl/make-xpm'."
|
||||||
|
(propertize
|
||||||
|
" " 'display
|
||||||
|
(let ((data (make-list height (make-list width 1)))
|
||||||
|
(color (or color "None")))
|
||||||
|
(ignore-errors
|
||||||
|
(create-image
|
||||||
|
(concat
|
||||||
|
(format "/* XPM */\nstatic char * percent[] = {\n\"%i %i 2 1\",\n\". c %s\",\n\" c %s\","
|
||||||
|
(length (car data))
|
||||||
|
(length data)
|
||||||
|
color
|
||||||
|
color)
|
||||||
|
(apply #'concat
|
||||||
|
(cl-loop with idx = 0
|
||||||
|
with len = (length data)
|
||||||
|
for dl in data
|
||||||
|
do (cl-incf idx)
|
||||||
|
collect
|
||||||
|
(concat "\""
|
||||||
|
(cl-loop for d in dl
|
||||||
|
if (= d 0) collect (string-to-char " ")
|
||||||
|
else collect (string-to-char "."))
|
||||||
|
(if (eq idx len) "\"};" "\",\n")))))
|
||||||
|
'xpm t :ascent 'center)))))
|
||||||
|
|
||||||
|
(defun doom-modeline--file-path (&optional path)
|
||||||
|
(let ((buffer-file-name (or path buffer-file-name))
|
||||||
|
(root (doom-project-root))
|
||||||
|
(active (active)))
|
||||||
|
(cond ((null root)
|
||||||
|
(propertize "%b" 'face (if active 'doom-modeline-buffer-file)))
|
||||||
|
((or (null buffer-file-name)
|
||||||
|
(directory-name-p buffer-file-name))
|
||||||
|
(propertize (abbreviate-file-name (or buffer-file-name default-directory))
|
||||||
|
'face (if active 'doom-modeline-buffer-path)))
|
||||||
|
((let* ((modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified))
|
||||||
|
(true-filename (file-truename buffer-file-name))
|
||||||
|
(relative-dirs (file-relative-name (file-name-directory true-filename)
|
||||||
|
(concat root "../")))
|
||||||
|
(relative-faces (or modified-faces (if active 'doom-modeline-buffer-path)))
|
||||||
|
(file-faces (or modified-faces (if active 'doom-modeline-buffer-file))))
|
||||||
|
(if (equal "./" relative-dirs) (setq relative-dirs ""))
|
||||||
|
(concat (propertize relative-dirs 'face (if relative-faces `(:inherit ,relative-faces)))
|
||||||
|
(propertize (file-name-nondirectory true-filename)
|
||||||
|
'face (if file-faces `(:inherit ,file-faces)))))))))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Macros
|
||||||
|
;;
|
||||||
|
|
||||||
|
(cl-defmacro def-modeline-segment! (name &rest rest &key init faces hooks vars &allow-other-keys)
|
||||||
|
"TODO"
|
||||||
|
(let ((body rest))
|
||||||
|
(while (keywordp (car body))
|
||||||
|
(setq body (cddr body)))
|
||||||
|
(setq rest body))
|
||||||
|
(unless EMACS26+
|
||||||
|
(setq vars nil))
|
||||||
|
(let ((docstring (if (stringp (car rest)) (pop rest)))
|
||||||
|
(realvar (if (and rest faces) (intern (format "doom-modeline--var-%s" name)) name)))
|
||||||
|
(macroexp-progn
|
||||||
|
(append (when rest
|
||||||
|
(if (or hooks vars)
|
||||||
|
(let ((setterfn (intern (format "doom-modeline--set-%s" name)))
|
||||||
|
(varsetterfn (intern (format "doom-modeline--setvar-%s" name))))
|
||||||
|
(append `((fset ',setterfn
|
||||||
|
(lambda (&rest _)
|
||||||
|
(when (or (memq ',name mode-line-format-left)
|
||||||
|
(memq ',name mode-line-format-right))
|
||||||
|
(setq-local ,realvar (progn ,@rest))))))
|
||||||
|
(mapcar (lambda (hook) `(add-hook ',hook #',setterfn))
|
||||||
|
hooks)
|
||||||
|
(when vars
|
||||||
|
`((fset ',varsetterfn
|
||||||
|
(lambda (sym val op where)
|
||||||
|
(and (eq op 'set) where
|
||||||
|
(with-current-buffer where
|
||||||
|
(set sym val)
|
||||||
|
(,setterfn)))))
|
||||||
|
,@(mapcar (lambda (var) `(add-variable-watcher ',var #',varsetterfn))
|
||||||
|
vars)))))
|
||||||
|
(setq init `(quote (:eval ,@rest)))
|
||||||
|
nil))
|
||||||
|
(if (eq realvar name)
|
||||||
|
`((defvar-local ,name ,init ,docstring))
|
||||||
|
`((defvar-local ,realvar nil)
|
||||||
|
(defvar-local ,name
|
||||||
|
'(:eval (cond ((active) ,realvar) (,realvar (substring-no-properties ,realvar))))
|
||||||
|
,docstring)))
|
||||||
|
`((put ',name 'risky-local-variable t))))))
|
||||||
|
|
||||||
|
;;
|
||||||
|
(defvar doom-mode-line-alist nil)
|
||||||
|
|
||||||
|
(defun def-modeline! (name left &optional right)
|
||||||
|
(setf (alist-get name doom-mode-line-alist) (list left right)))
|
||||||
|
|
||||||
|
(defun set-modeline! (name &optional default)
|
||||||
|
(let ((modeline (cdr (assq name doom-mode-line-alist))))
|
||||||
|
(if default
|
||||||
|
(setq-default mode-line-format-left `("" ,@(car modeline))
|
||||||
|
mode-line-format-right `("" ,@(cadr modeline)))
|
||||||
|
(setq mode-line-format-left `("" ,@(car modeline))
|
||||||
|
mode-line-format-right `("" ,@(cadr modeline))))
|
||||||
|
(force-mode-line-update)))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Bars
|
||||||
|
;;
|
||||||
|
|
||||||
|
(defvar mode-line-bar-active nil "TODO")
|
||||||
|
(defvar mode-line-bar-inactive nil "TODO")
|
||||||
|
(defun doom-modeline|setup-bars ()
|
||||||
|
(setq mode-line-bar-active
|
||||||
|
(doom-modeline--make-xpm 3 +doom-modeline-height (face-background 'doom-modeline-bar))
|
||||||
|
mode-line-bar-inactive
|
||||||
|
(doom-modeline--make-xpm 3 +doom-modeline-height)))
|
||||||
|
(add-hook 'doom-load-modeline-hook #'doom-modeline|setup-bars)
|
||||||
|
|
||||||
|
(defun doom-modeline|setup-bars-after-change (_sym val op _where)
|
||||||
|
(when (eq op 'set)
|
||||||
|
(let ((+doom-modeline-height val))
|
||||||
|
(doom-modeline|setup-bars))))
|
||||||
|
(add-variable-watcher '+doom-modeline-height #'doom-modeline|setup-bars-after-change)
|
||||||
|
|
||||||
|
(def-modeline-segment! +mode-line-bar
|
||||||
|
(if (active) mode-line-bar-active mode-line-bar-inactive))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Segments
|
||||||
|
;;
|
||||||
|
|
||||||
|
(defun +doom-modeline|update-on-change ()
|
||||||
|
(doom-modeline--set-+mode-line-buffer-id)
|
||||||
|
(remove-hook 'post-command-hook #'+doom-modeline|update-on-change t))
|
||||||
|
(defun +doom-modeline|start-update-on-change ()
|
||||||
|
(add-hook 'post-command-hook #'+doom-modeline|update-on-change nil t))
|
||||||
|
(add-hook 'first-change-hook #'+doom-modeline|start-update-on-change)
|
||||||
|
|
||||||
|
(advice-add #'undo :after #'doom-modeline--set-+mode-line-buffer-id)
|
||||||
|
(advice-add #'undo-tree-undo :after #'doom-modeline--set-+mode-line-buffer-id)
|
||||||
|
|
||||||
|
(def-modeline-segment! +mode-line-buffer-id
|
||||||
|
:hooks (find-file-hook after-change-functions read-only-mode-hook after-save-hook after-revert-hook)
|
||||||
|
:faces t
|
||||||
|
(concat (cond (buffer-read-only
|
||||||
|
(concat (all-the-icons-octicon
|
||||||
|
"lock"
|
||||||
|
:face 'doom-modeline-warning
|
||||||
|
:v-adjust -0.05)
|
||||||
|
" "))
|
||||||
|
((buffer-modified-p)
|
||||||
|
(concat (all-the-icons-faicon
|
||||||
|
"floppy-o"
|
||||||
|
:face 'doom-modeline-buffer-modified
|
||||||
|
:v-adjust -0.0575)
|
||||||
|
" "))
|
||||||
|
((and buffer-file-name (not (file-exists-p buffer-file-name)))
|
||||||
|
(concat (all-the-icons-octicon
|
||||||
|
"circle-slash"
|
||||||
|
:face 'doom-modeline-urgent
|
||||||
|
:v-adjust -0.05)
|
||||||
|
" ")))
|
||||||
|
(if buffer-file-name
|
||||||
|
(funcall +doom-modeline-buffer-name-function buffer-file-name)
|
||||||
|
"%b")))
|
||||||
|
|
||||||
|
(def-modeline-segment! +mode-line-buffer-directory
|
||||||
|
(let ((face (if (active) 'doom-modeline-buffer-path)))
|
||||||
|
(concat (if (display-graphic-p) " ")
|
||||||
|
(all-the-icons-octicon
|
||||||
|
"file-directory"
|
||||||
|
:face face
|
||||||
|
:v-adjust -0.05
|
||||||
|
:height 1.25)
|
||||||
|
(propertize (concat " " (abbreviate-file-name default-directory))
|
||||||
|
'face face))))
|
||||||
|
|
||||||
|
(def-modeline-segment! +mode-line-vcs
|
||||||
|
:vars (vc-mode)
|
||||||
|
(when (and vc-mode buffer-file-name)
|
||||||
|
(let* ((backend (vc-backend buffer-file-name))
|
||||||
|
(state (vc-state buffer-file-name backend)))
|
||||||
|
(let ((face 'mode-line-inactive)
|
||||||
|
(active (active))
|
||||||
|
(all-the-icons-default-adjust -0.1))
|
||||||
|
(concat " "
|
||||||
|
(cond ((memq state '(edited added))
|
||||||
|
(if active (setq face 'doom-modeline-info))
|
||||||
|
(all-the-icons-octicon
|
||||||
|
"git-compare"
|
||||||
|
:face face
|
||||||
|
:v-adjust -0.05))
|
||||||
|
((eq state 'needs-merge)
|
||||||
|
(if active (setq face 'doom-modeline-info))
|
||||||
|
(all-the-icons-octicon "git-merge" :face face))
|
||||||
|
((eq state 'needs-update)
|
||||||
|
(if active (setq face 'doom-modeline-warning))
|
||||||
|
(all-the-icons-octicon "arrow-down" :face face))
|
||||||
|
((memq state '(removed conflict unregistered))
|
||||||
|
(if active (setq face 'doom-modeline-urgent))
|
||||||
|
(all-the-icons-octicon "alert" :face face))
|
||||||
|
(t
|
||||||
|
(if active (setq face 'font-lock-doc-face))
|
||||||
|
(all-the-icons-octicon
|
||||||
|
"git-compare"
|
||||||
|
:face face
|
||||||
|
:v-adjust -0.05)))
|
||||||
|
" "
|
||||||
|
(propertize (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2))
|
||||||
|
'face (if active face))
|
||||||
|
" ")))))
|
||||||
|
|
||||||
|
(def-modeline-segment! +mode-line-encoding
|
||||||
|
:hooks (after-save-hook find-file-hook)
|
||||||
|
:vars (buffer-file-coding-system)
|
||||||
|
(concat (pcase (coding-system-eol-type buffer-file-coding-system)
|
||||||
|
(0 "LF ")
|
||||||
|
(1 "CRLF ")
|
||||||
|
(2 "CR "))
|
||||||
|
(let ((sys (coding-system-plist buffer-file-coding-system)))
|
||||||
|
(if (memq (plist-get sys :category) '(coding-category-undecided coding-category-utf-8))
|
||||||
|
"UTF-8"
|
||||||
|
(upcase (symbol-name (plist-get sys :name)))))
|
||||||
|
" "))
|
||||||
|
|
||||||
|
(def-modeline-segment! +mode-line-major-mode
|
||||||
|
:vars (mode-name)
|
||||||
|
:faces t
|
||||||
|
(propertize (format-mode-line mode-name) 'face 'font-lock-keyword-face))
|
||||||
|
|
||||||
|
|
||||||
|
(defun +doom-modeline--macro-recording ()
|
||||||
|
"Display current Emacs or evil macro being recorded."
|
||||||
|
(when (and (active) (or defining-kbd-macro executing-kbd-macro))
|
||||||
|
(let ((sep (propertize " " 'face 'doom-modeline-panel)))
|
||||||
|
(concat sep
|
||||||
|
(propertize (if (bound-and-true-p evil-this-macro)
|
||||||
|
(char-to-string evil-this-macro)
|
||||||
|
"Macro")
|
||||||
|
'face 'doom-modeline-panel)
|
||||||
|
sep
|
||||||
|
(all-the-icons-octicon "triangle-right"
|
||||||
|
:face 'doom-modeline-panel
|
||||||
|
:v-adjust -0.05)
|
||||||
|
sep))))
|
||||||
|
|
||||||
|
(defsubst +doom-modeline--anzu ()
|
||||||
|
"Show the match index and total number thereof. Requires `anzu', also
|
||||||
|
`evil-anzu' if using `evil-mode' for compatibility with `evil-search'."
|
||||||
|
(when (and anzu--state (not iedit-mode))
|
||||||
|
(propertize
|
||||||
|
(let ((here anzu--current-position)
|
||||||
|
(total anzu--total-matched))
|
||||||
|
(cond ((eq anzu--state 'replace-query)
|
||||||
|
(format " %d replace " total))
|
||||||
|
((eq anzu--state 'replace)
|
||||||
|
(format " %d/%d " here total))
|
||||||
|
(anzu--overflow-p
|
||||||
|
(format " %s+ " total))
|
||||||
|
(t
|
||||||
|
(format " %s/%d " here total))))
|
||||||
|
'face (if (active) 'doom-modeline-panel))))
|
||||||
|
|
||||||
|
(defsubst +doom-modeline--evil-substitute ()
|
||||||
|
"Show number of matches for evil-ex substitutions and highlights in real time."
|
||||||
|
(when (and evil-mode
|
||||||
|
(or (assq 'evil-ex-substitute evil-ex-active-highlights-alist)
|
||||||
|
(assq 'evil-ex-global-match evil-ex-active-highlights-alist)
|
||||||
|
(assq 'evil-ex-buffer-match evil-ex-active-highlights-alist)))
|
||||||
|
(propertize
|
||||||
|
(let ((range (if evil-ex-range
|
||||||
|
(cons (car evil-ex-range) (cadr evil-ex-range))
|
||||||
|
(cons (line-beginning-position) (line-end-position))))
|
||||||
|
(pattern (car-safe (evil-delimited-arguments evil-ex-argument 2))))
|
||||||
|
(if pattern
|
||||||
|
(format " %s matches " (how-many pattern (car range) (cdr range)))
|
||||||
|
" - "))
|
||||||
|
'face (if (active) 'doom-modeline-panel))))
|
||||||
|
|
||||||
|
(defun doom-themes--overlay-sort (a b)
|
||||||
|
(< (overlay-start a) (overlay-start b)))
|
||||||
|
|
||||||
|
(defsubst +doom-modeline--iedit ()
|
||||||
|
"Show the number of iedit regions matches + what match you're on."
|
||||||
|
(when (and iedit-mode iedit-occurrences-overlays)
|
||||||
|
(propertize
|
||||||
|
(let ((this-oc (or (let ((inhibit-message t))
|
||||||
|
(iedit-find-current-occurrence-overlay))
|
||||||
|
(progn (iedit-prev-occurrence)
|
||||||
|
(iedit-find-current-occurrence-overlay))))
|
||||||
|
(length (length iedit-occurrences-overlays)))
|
||||||
|
(format " %s/%d "
|
||||||
|
(if this-oc
|
||||||
|
(- length
|
||||||
|
(length (memq this-oc (sort (append iedit-occurrences-overlays nil)
|
||||||
|
#'doom-themes--overlay-sort)))
|
||||||
|
-1)
|
||||||
|
"-")
|
||||||
|
length))
|
||||||
|
'face (if (active) 'doom-modeline-panel))))
|
||||||
|
|
||||||
|
(def-modeline-segment! +mode-line-matches
|
||||||
|
"Displays: 1. the currently recording macro, 2. A current/total for the
|
||||||
|
current search term (with anzu), 3. The number of substitutions being conducted
|
||||||
|
with `evil-ex-substitute', and/or 4. The number of active `iedit' regions."
|
||||||
|
(let ((meta (concat (+doom-modeline--macro-recording)
|
||||||
|
(+doom-modeline--anzu)
|
||||||
|
(+doom-modeline--evil-substitute)
|
||||||
|
(+doom-modeline--iedit)
|
||||||
|
" ")))
|
||||||
|
(or (and (not (equal meta " ")) meta)
|
||||||
|
(if buffer-file-name " %I "))))
|
||||||
|
|
||||||
|
(def-modeline! :main
|
||||||
|
'(+mode-line-bar +mode-line-matches " " +mode-line-buffer-id " %2l:%c %p ")
|
||||||
|
'(+mode-line-encoding +mode-line-major-mode +mode-line-vcs))
|
||||||
|
|
||||||
|
(def-modeline! :project
|
||||||
|
'(+mode-line-bar +mode-line-buffer-directory)
|
||||||
|
'(+mode-line-major-mode))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;;
|
||||||
|
;;
|
||||||
|
|
||||||
|
(def-modeline-segment! mode-line-rest
|
||||||
|
(let ((rhs-str (format-mode-line mode-line-format-right)))
|
||||||
|
(list (propertize
|
||||||
|
" " 'display
|
||||||
|
`((space :align-to (- (+ right right-fringe right-margin)
|
||||||
|
,(1+ (string-width rhs-str))))))
|
||||||
|
rhs-str)))
|
||||||
|
|
||||||
|
(setq-default mode-line-format '("" mode-line-format-left mode-line-rest))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
(set-modeline! :main t)
|
||||||
|
|
||||||
|
(add-hook! '+doom-dashboard-mode-hook (set-modeline! :project))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
(defun doom-modeline-init () (run-hooks 'doom-load-modeline-hook))
|
||||||
|
(add-hook 'doom-load-theme-hook #'doom-modeline-init)
|
||||||
|
|
||||||
|
;; Ensure modeline is inactive when Emacs is unfocused (and active otherwise)
|
||||||
|
(defvar +doom-modeline-remap-face-cookie nil)
|
||||||
|
(defun +doom-modeline|focus ()
|
||||||
|
(when +doom-modeline-remap-face-cookie
|
||||||
|
(require 'face-remap)
|
||||||
|
(face-remap-remove-relative +doom-modeline-remap-face-cookie)))
|
||||||
|
(defun +doom-modeline|unfocus ()
|
||||||
|
(setq +doom-modeline-remap-face-cookie (face-remap-add-relative 'mode-line 'mode-line-inactive)))
|
||||||
|
(add-hook 'focus-in-hook #'+doom-modeline|focus)
|
||||||
|
(add-hook 'focus-out-hook #'+doom-modeline|unfocus)
|
||||||
674
modules/ui/doom-modeline/+old.el
Normal file
674
modules/ui/doom-modeline/+old.el
Normal file
|
|
@ -0,0 +1,674 @@
|
||||||
|
;;;###if (not (featurep! +new))
|
||||||
|
|
||||||
|
;; anzu and evil-anzu expose current/total state that can be displayed in the
|
||||||
|
;; mode-line.
|
||||||
|
(def-package! anzu
|
||||||
|
:after-call isearch-mode
|
||||||
|
:config
|
||||||
|
(setq anzu-cons-mode-line-p nil
|
||||||
|
anzu-minimum-input-length 1
|
||||||
|
anzu-search-threshold 250)
|
||||||
|
(global-anzu-mode +1)
|
||||||
|
|
||||||
|
(defun +doom-modeline*fix-anzu-count (positions here)
|
||||||
|
(cl-loop for (start . end) in positions
|
||||||
|
collect t into before
|
||||||
|
when (and (>= here start) (<= here end))
|
||||||
|
return (length before)
|
||||||
|
finally return 0))
|
||||||
|
(advice-add #'anzu--where-is-here :override #'+doom-modeline*fix-anzu-count)
|
||||||
|
|
||||||
|
;; Avoid anzu conflicts across buffers
|
||||||
|
(mapc #'make-variable-buffer-local
|
||||||
|
'(anzu--total-matched anzu--current-position anzu--state
|
||||||
|
anzu--cached-count anzu--cached-positions anzu--last-command
|
||||||
|
anzu--last-isearch-string anzu--overflow-p))
|
||||||
|
;; Ensure anzu state is cleared when searches & iedit are done
|
||||||
|
(add-hook 'isearch-mode-end-hook #'anzu--reset-status t)
|
||||||
|
(add-hook 'doom-escape-hook #'anzu--reset-status t)
|
||||||
|
(add-hook 'iedit-mode-end-hook #'anzu--reset-status))
|
||||||
|
|
||||||
|
|
||||||
|
(def-package! evil-anzu
|
||||||
|
:when (featurep! :feature evil)
|
||||||
|
:after-call (evil-ex-start-search evil-ex-start-word-search))
|
||||||
|
|
||||||
|
|
||||||
|
;; fish-style modeline
|
||||||
|
(def-package! shrink-path
|
||||||
|
:commands (shrink-path-prompt shrink-path-file-mixed))
|
||||||
|
|
||||||
|
|
||||||
|
;; Keep `+doom-modeline-current-window' up-to-date
|
||||||
|
(defvar +doom-modeline-current-window (frame-selected-window))
|
||||||
|
(defun +doom-modeline|set-selected-window (&rest _)
|
||||||
|
"Sets `+doom-modeline-current-window' appropriately"
|
||||||
|
(when-let* ((win (frame-selected-window)))
|
||||||
|
(unless (minibuffer-window-active-p win)
|
||||||
|
(setq +doom-modeline-current-window win)
|
||||||
|
(force-mode-line-update))))
|
||||||
|
|
||||||
|
(defun +doom-modeline|unset-selected-window ()
|
||||||
|
(setq +doom-modeline-current-window nil)
|
||||||
|
(force-mode-line-update))
|
||||||
|
|
||||||
|
(add-hook 'window-configuration-change-hook #'+doom-modeline|set-selected-window)
|
||||||
|
(add-hook 'doom-enter-window-hook #'+doom-modeline|set-selected-window)
|
||||||
|
(with-no-warnings
|
||||||
|
(cond ((boundp 'after-focus-change-function)
|
||||||
|
(add-hook 'focus-in-hook #'+doom-modeline|set-selected-window)
|
||||||
|
(add-hook 'focus-out-hook #'+doom-modeline|unset-selected-window))
|
||||||
|
((defun +doom-modeline|refresh-frame ()
|
||||||
|
(setq +doom-modeline-current-window nil)
|
||||||
|
(cl-loop for frame in (frame-list)
|
||||||
|
if (eq (frame-focus-state frame) t)
|
||||||
|
return (setq +doom-modeline-current-window (frame-selected-window frame)))
|
||||||
|
(force-mode-line-update))
|
||||||
|
(add-function :after after-focus-change-function #'+doom-modeline|refresh-frame))))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Variables
|
||||||
|
;;
|
||||||
|
|
||||||
|
(defvar +doom-modeline-height 29
|
||||||
|
"How tall the mode-line should be (only respected in GUI emacs).")
|
||||||
|
|
||||||
|
(defvar +doom-modeline-bar-width 3
|
||||||
|
"How wide the mode-line bar should be (only respected in GUI emacs).")
|
||||||
|
|
||||||
|
(defvar +doom-modeline-buffer-file-name-style 'truncate-upto-project
|
||||||
|
"Determines the style used by `+doom-modeline-buffer-file-name'.
|
||||||
|
|
||||||
|
Given ~/Projects/FOSS/emacs/lisp/comint.el
|
||||||
|
truncate-upto-project => ~/P/F/emacs/lisp/comint.el
|
||||||
|
truncate-upto-root => ~/P/F/e/lisp/comint.el
|
||||||
|
truncate-all => ~/P/F/e/l/comint.el
|
||||||
|
relative-from-project => emacs/lisp/comint.el
|
||||||
|
relative-to-project => lisp/comint.el
|
||||||
|
file-name => comint.el")
|
||||||
|
|
||||||
|
;; externs
|
||||||
|
(defvar anzu--state nil)
|
||||||
|
(defvar evil-mode nil)
|
||||||
|
(defvar evil-state nil)
|
||||||
|
(defvar evil-visual-selection nil)
|
||||||
|
(defvar iedit-mode nil)
|
||||||
|
(defvar all-the-icons-scale-factor)
|
||||||
|
(defvar all-the-icons-default-adjust)
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Modeline helpers
|
||||||
|
;;
|
||||||
|
|
||||||
|
(defsubst active ()
|
||||||
|
(eq (selected-window) +doom-modeline-current-window))
|
||||||
|
|
||||||
|
(defun +doom-modeline--make-xpm (face width height)
|
||||||
|
"Create an XPM bitmap. Inspired by `powerline''s `pl/make-xpm'."
|
||||||
|
(propertize
|
||||||
|
" " 'display
|
||||||
|
(let ((data (make-list height (make-list width 1)))
|
||||||
|
(color (or (face-background face nil t) "None")))
|
||||||
|
(ignore-errors
|
||||||
|
(create-image
|
||||||
|
(concat
|
||||||
|
(format "/* XPM */\nstatic char * percent[] = {\n\"%i %i 2 1\",\n\". c %s\",\n\" c %s\","
|
||||||
|
(length (car data))
|
||||||
|
(length data)
|
||||||
|
color
|
||||||
|
color)
|
||||||
|
(apply #'concat
|
||||||
|
(cl-loop with idx = 0
|
||||||
|
with len = (length data)
|
||||||
|
for dl in data
|
||||||
|
do (cl-incf idx)
|
||||||
|
collect
|
||||||
|
(concat "\""
|
||||||
|
(cl-loop for d in dl
|
||||||
|
if (= d 0) collect (string-to-char " ")
|
||||||
|
else collect (string-to-char "."))
|
||||||
|
(if (eq idx len) "\"};" "\",\n")))))
|
||||||
|
'xpm t :ascent 'center)))))
|
||||||
|
|
||||||
|
(defun +doom-modeline-buffer-file-name ()
|
||||||
|
"Propertized `buffer-file-name' based on `+doom-modeline-buffer-file-name-style'."
|
||||||
|
(let ((buffer-file-name (or buffer-file-name ""))
|
||||||
|
(buffer-file-truename (or buffer-file-truename "")))
|
||||||
|
(propertize
|
||||||
|
(pcase +doom-modeline-buffer-file-name-style
|
||||||
|
(`truncate-upto-project (+doom-modeline--buffer-file-name 'shrink))
|
||||||
|
(`truncate-upto-root (+doom-modeline--buffer-file-name-truncate))
|
||||||
|
(`truncate-all (+doom-modeline--buffer-file-name-truncate t))
|
||||||
|
(`relative-to-project (+doom-modeline--buffer-file-name-relative))
|
||||||
|
(`relative-from-project (+doom-modeline--buffer-file-name-relative 'include-project))
|
||||||
|
(`file-name (propertize (file-name-nondirectory buffer-file-name)
|
||||||
|
'face
|
||||||
|
(let ((face (or (and (buffer-modified-p)
|
||||||
|
'doom-modeline-buffer-modified)
|
||||||
|
(and (active)
|
||||||
|
'doom-modeline-buffer-file))))
|
||||||
|
(when face `(:inherit ,face))))))
|
||||||
|
'help-echo buffer-file-truename)))
|
||||||
|
|
||||||
|
(defun +doom-modeline--buffer-file-name-truncate (&optional truncate-tail)
|
||||||
|
"Propertized `buffer-file-name' that truncates every dir along path.
|
||||||
|
If TRUNCATE-TAIL is t also truncate the parent directory of the file."
|
||||||
|
(let ((dirs (shrink-path-prompt (file-name-directory buffer-file-truename)))
|
||||||
|
(active (active)))
|
||||||
|
(if (null dirs)
|
||||||
|
(propertize "%b" 'face (if active 'doom-modeline-buffer-file))
|
||||||
|
(let ((modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified)))
|
||||||
|
(let ((dirname (car dirs))
|
||||||
|
(basename (cdr dirs))
|
||||||
|
(dir-faces (or modified-faces (if active 'doom-modeline-project-root-dir)))
|
||||||
|
(file-faces (or modified-faces (if active 'doom-modeline-buffer-file))))
|
||||||
|
(concat (propertize (concat dirname
|
||||||
|
(if truncate-tail (substring basename 0 1) basename)
|
||||||
|
"/")
|
||||||
|
'face (if dir-faces `(:inherit ,dir-faces)))
|
||||||
|
(propertize (file-name-nondirectory buffer-file-name)
|
||||||
|
'face (if file-faces `(:inherit ,file-faces)))))))))
|
||||||
|
|
||||||
|
(defun +doom-modeline--buffer-file-name-relative (&optional include-project)
|
||||||
|
"Propertized `buffer-file-name' showing directories relative to project's root only."
|
||||||
|
(let ((root (doom-project-root))
|
||||||
|
(active (active)))
|
||||||
|
(if (null root)
|
||||||
|
(propertize "%b" 'face (if active 'doom-modeline-buffer-file))
|
||||||
|
(let* ((modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified))
|
||||||
|
(true-filename (file-truename buffer-file-name))
|
||||||
|
(relative-dirs (file-relative-name (file-name-directory true-filename)
|
||||||
|
(if include-project (concat root "../") root)))
|
||||||
|
(relative-faces (or modified-faces (if active 'doom-modeline-buffer-path)))
|
||||||
|
(file-faces (or modified-faces (if active 'doom-modeline-buffer-file))))
|
||||||
|
(if (equal "./" relative-dirs) (setq relative-dirs ""))
|
||||||
|
(concat (propertize relative-dirs 'face (if relative-faces `(:inherit ,relative-faces)))
|
||||||
|
(propertize (file-name-nondirectory true-filename)
|
||||||
|
'face (if file-faces `(:inherit ,file-faces))))))))
|
||||||
|
|
||||||
|
(defun +doom-modeline--buffer-file-name (truncate-project-root-parent)
|
||||||
|
"Propertized `buffer-file-name'.
|
||||||
|
If TRUNCATE-PROJECT-ROOT-PARENT is t space will be saved by truncating it down
|
||||||
|
fish-shell style.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
~/Projects/FOSS/emacs/lisp/comint.el => ~/P/F/emacs/lisp/comint.el"
|
||||||
|
(let* ((project-root (doom-project-root))
|
||||||
|
(file-name-split (shrink-path-file-mixed project-root
|
||||||
|
(file-name-directory buffer-file-name)
|
||||||
|
buffer-file-name))
|
||||||
|
(active (active)))
|
||||||
|
(if (null file-name-split)
|
||||||
|
(propertize "%b" 'face (if active 'doom-modeline-buffer-file))
|
||||||
|
(pcase-let ((`(,root-path-parent ,project ,relative-path ,filename) file-name-split))
|
||||||
|
(let ((modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified)))
|
||||||
|
(let ((sp-faces (or modified-faces (if active 'font-lock-comment-face)))
|
||||||
|
(project-faces (or modified-faces (if active 'font-lock-string-face)))
|
||||||
|
(relative-faces (or modified-faces (if active 'doom-modeline-buffer-path)))
|
||||||
|
(file-faces (or modified-faces (if active 'doom-modeline-buffer-file))))
|
||||||
|
(let ((sp-props `(,@(if sp-faces `(:inherit ,sp-faces)) ,@(if active '(:weight bold))))
|
||||||
|
(project-props `(,@(if project-faces `(:inherit ,project-faces)) ,@(if active '(:weight bold))))
|
||||||
|
(relative-props `(,@(if relative-faces `(:inherit ,relative-faces))))
|
||||||
|
(file-props `(,@(if file-faces `(:inherit ,file-faces)))))
|
||||||
|
(concat (propertize (if truncate-project-root-parent
|
||||||
|
root-path-parent
|
||||||
|
(abbreviate-file-name project-root))
|
||||||
|
'face sp-props)
|
||||||
|
(propertize (concat project "/") 'face project-props)
|
||||||
|
(if relative-path (propertize relative-path 'face relative-props))
|
||||||
|
(propertize filename 'face file-props)))))))))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; buffer information
|
||||||
|
;;
|
||||||
|
|
||||||
|
(def-modeline-segment! buffer-default-directory
|
||||||
|
"Displays `default-directory'. This is for special buffers like the scratch
|
||||||
|
buffer where knowing the current project directory is important."
|
||||||
|
(let ((face (if (active) 'doom-modeline-buffer-path)))
|
||||||
|
(concat (if (display-graphic-p) " ")
|
||||||
|
(all-the-icons-octicon
|
||||||
|
"file-directory"
|
||||||
|
:face face
|
||||||
|
:v-adjust -0.05
|
||||||
|
:height 1.25)
|
||||||
|
(propertize (concat " " (abbreviate-file-name default-directory))
|
||||||
|
'face face))))
|
||||||
|
|
||||||
|
(def-modeline-segment! buffer-info
|
||||||
|
"Combined information about the current buffer, including the current working
|
||||||
|
directory, the file name, and its state (modified, read-only or non-existent)."
|
||||||
|
(concat (cond (buffer-read-only
|
||||||
|
(concat (all-the-icons-octicon
|
||||||
|
"lock"
|
||||||
|
:face 'doom-modeline-warning
|
||||||
|
:v-adjust -0.05)
|
||||||
|
" "))
|
||||||
|
((buffer-modified-p)
|
||||||
|
(concat (all-the-icons-faicon
|
||||||
|
"floppy-o"
|
||||||
|
:face 'doom-modeline-buffer-modified
|
||||||
|
:v-adjust -0.0575)
|
||||||
|
" "))
|
||||||
|
((and buffer-file-name
|
||||||
|
(not (file-exists-p buffer-file-name)))
|
||||||
|
(concat (all-the-icons-octicon
|
||||||
|
"circle-slash"
|
||||||
|
:face 'doom-modeline-urgent
|
||||||
|
:v-adjust -0.05)
|
||||||
|
" "))
|
||||||
|
((buffer-narrowed-p)
|
||||||
|
(concat (all-the-icons-octicon
|
||||||
|
"fold"
|
||||||
|
:face 'doom-modeline-warning
|
||||||
|
:v-adjust -0.05)
|
||||||
|
" ")))
|
||||||
|
(if buffer-file-name
|
||||||
|
(+doom-modeline-buffer-file-name)
|
||||||
|
"%b")))
|
||||||
|
|
||||||
|
(def-modeline-segment! buffer-info-simple
|
||||||
|
"Display only the current buffer's name, but with fontification."
|
||||||
|
(propertize
|
||||||
|
"%b"
|
||||||
|
'face (cond ((and buffer-file-name (buffer-modified-p))
|
||||||
|
'doom-modeline-buffer-modified)
|
||||||
|
((active) 'doom-modeline-buffer-file))))
|
||||||
|
|
||||||
|
;; (defvar +doom-modeline--encoding nil)
|
||||||
|
;; (def-modeline-segment! buffer-encoding
|
||||||
|
;; "TODO"
|
||||||
|
;; +doom-modeline--encoding)
|
||||||
|
|
||||||
|
;; (add-variable-watcher
|
||||||
|
;; 'buffer-file-coding-system
|
||||||
|
;; (lambda (_sym val op _where)
|
||||||
|
;; (when (eq op 'set)
|
||||||
|
;; (setq +doom-modeline--encoding
|
||||||
|
;; (concat (pcase (coding-system-eol-type val)
|
||||||
|
;; (0 "LF ")
|
||||||
|
;; (1 "CRLF ")
|
||||||
|
;; (2 "CR "))
|
||||||
|
;; (let ((sys (coding-system-plist val)))
|
||||||
|
;; (if (memq (plist-get sys :category) '(coding-category-undecided coding-category-utf-8))
|
||||||
|
;; "UTF-8"
|
||||||
|
;; (upcase (symbol-name (plist-get sys :name)))))
|
||||||
|
;; " ")))))
|
||||||
|
|
||||||
|
(def-modeline-segment! buffer-encoding
|
||||||
|
"Displays the encoding and eol style of the buffer the same way Atom does."
|
||||||
|
(concat (pcase (coding-system-eol-type buffer-file-coding-system)
|
||||||
|
(0 "LF ")
|
||||||
|
(1 "CRLF ")
|
||||||
|
(2 "CR "))
|
||||||
|
(let ((sys (coding-system-plist buffer-file-coding-system)))
|
||||||
|
(cond ((memq (plist-get sys :category) '(coding-category-undecided coding-category-utf-8))
|
||||||
|
"UTF-8")
|
||||||
|
(t (upcase (symbol-name (plist-get sys :name))))))
|
||||||
|
" "))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; major-mode
|
||||||
|
;;
|
||||||
|
|
||||||
|
(def-modeline-segment! major-mode
|
||||||
|
"The major mode, including process, environment and text-scale info."
|
||||||
|
(propertize
|
||||||
|
(concat (format-mode-line mode-name)
|
||||||
|
(when (stringp mode-line-process)
|
||||||
|
mode-line-process)
|
||||||
|
(and (boundp 'text-scale-mode-amount)
|
||||||
|
(/= text-scale-mode-amount 0)
|
||||||
|
(format " (%+d)" text-scale-mode-amount)))
|
||||||
|
'face (if (active) 'doom-modeline-buffer-major-mode)))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; vcs
|
||||||
|
;;
|
||||||
|
|
||||||
|
(defvar-local +doom-modeline--vcs nil)
|
||||||
|
(defun +doom-modeline--update-vcs ()
|
||||||
|
(setq +doom-modeline--vcs
|
||||||
|
(when (and vc-mode buffer-file-name)
|
||||||
|
(let* ((backend (vc-backend buffer-file-name))
|
||||||
|
(state (vc-state buffer-file-name backend)))
|
||||||
|
(let ((face 'mode-line-inactive)
|
||||||
|
(active (active))
|
||||||
|
(all-the-icons-default-adjust -0.1))
|
||||||
|
(concat " "
|
||||||
|
(cond ((memq state '(edited added))
|
||||||
|
(if active (setq face 'doom-modeline-info))
|
||||||
|
(all-the-icons-octicon
|
||||||
|
"git-compare"
|
||||||
|
:face face
|
||||||
|
:v-adjust -0.05))
|
||||||
|
((eq state 'needs-merge)
|
||||||
|
(if active (setq face 'doom-modeline-info))
|
||||||
|
(all-the-icons-octicon "git-merge" :face face))
|
||||||
|
((eq state 'needs-update)
|
||||||
|
(if active (setq face 'doom-modeline-warning))
|
||||||
|
(all-the-icons-octicon "arrow-down" :face face))
|
||||||
|
((memq state '(removed conflict unregistered))
|
||||||
|
(if active (setq face 'doom-modeline-urgent))
|
||||||
|
(all-the-icons-octicon "alert" :face face))
|
||||||
|
(t
|
||||||
|
(if active (setq face 'font-lock-doc-face))
|
||||||
|
(all-the-icons-octicon
|
||||||
|
"git-compare"
|
||||||
|
:face face
|
||||||
|
:v-adjust -0.05)))
|
||||||
|
" "
|
||||||
|
(propertize (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2))
|
||||||
|
'face (if active face))
|
||||||
|
" "))))))
|
||||||
|
(add-hook 'after-save-hook #'+doom-modeline--update-vcs)
|
||||||
|
(add-hook 'find-file-hook #'+doom-modeline--update-vcs t)
|
||||||
|
|
||||||
|
(def-modeline-segment! vcs
|
||||||
|
"Displays the current branch, colored based on its state."
|
||||||
|
+doom-modeline--vcs)
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; flycheck
|
||||||
|
;;
|
||||||
|
|
||||||
|
(defvar +doom-modeline-vspc
|
||||||
|
(propertize " " 'face 'variable-pitch)
|
||||||
|
"TODO")
|
||||||
|
|
||||||
|
(defun +doom-ml-icon (icon &optional text face voffset)
|
||||||
|
"Displays an octicon ICON with FACE, followed by TEXT. Uses
|
||||||
|
`all-the-icons-octicon' to fetch the icon."
|
||||||
|
(concat (if vc-mode " " " ")
|
||||||
|
(when icon
|
||||||
|
(concat
|
||||||
|
(all-the-icons-material icon :face face :height 1.1 :v-adjust (or voffset -0.2))
|
||||||
|
(if text +doom-modeline-vspc)))
|
||||||
|
(if text (propertize text 'face face))
|
||||||
|
(if vc-mode " " " ")))
|
||||||
|
|
||||||
|
(defvar-local +doom-modeline--flycheck nil)
|
||||||
|
(add-hook 'flycheck-status-changed-functions #'+doom-modeline|update-flycheck-segment)
|
||||||
|
(add-hook 'flycheck-mode-hook #'+doom-modeline|update-flycheck-segment)
|
||||||
|
|
||||||
|
(defun +doom-modeline|update-flycheck-segment (&optional status)
|
||||||
|
(setq +doom-modeline--flycheck
|
||||||
|
(pcase status
|
||||||
|
('finished (if flycheck-current-errors
|
||||||
|
(let-alist (flycheck-count-errors flycheck-current-errors)
|
||||||
|
(let ((sum (+ (or .error 0) (or .warning 0))))
|
||||||
|
(+doom-ml-icon "do_not_disturb_alt"
|
||||||
|
(number-to-string sum)
|
||||||
|
(if .error 'doom-modeline-urgent 'doom-modeline-warning)
|
||||||
|
-0.25)))
|
||||||
|
(+doom-ml-icon "check" nil 'doom-modeline-info)))
|
||||||
|
('running (+doom-ml-icon "access_time" nil 'font-lock-doc-face -0.25))
|
||||||
|
('no-checker (+doom-ml-icon "sim_card_alert" "-" 'font-lock-doc-face))
|
||||||
|
('errored (+doom-ml-icon "sim_card_alert" "Error" 'doom-modeline-urgent))
|
||||||
|
('interrupted (+doom-ml-icon "pause" "Interrupted" 'font-lock-doc-face)))))
|
||||||
|
|
||||||
|
(def-modeline-segment! flycheck
|
||||||
|
"Displays color-coded flycheck error status in the current buffer with pretty
|
||||||
|
icons."
|
||||||
|
+doom-modeline--flycheck)
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; selection-info
|
||||||
|
;;
|
||||||
|
|
||||||
|
(defsubst doom-column (pos)
|
||||||
|
(save-excursion (goto-char pos)
|
||||||
|
(current-column)))
|
||||||
|
|
||||||
|
(defvar-local +doom-modeline-enable-word-count nil
|
||||||
|
"If non-nil, a word count will be added to the selection-info modeline
|
||||||
|
segment.")
|
||||||
|
|
||||||
|
(defun +doom-modeline|enable-word-count () (setq +doom-modeline-enable-word-count t))
|
||||||
|
(add-hook 'text-mode-hook #'+doom-modeline|enable-word-count)
|
||||||
|
|
||||||
|
(def-modeline-segment! selection-info
|
||||||
|
"Information about the current selection, such as how many characters and
|
||||||
|
lines are selected, or the NxM dimensions of a block selection."
|
||||||
|
(when (and mark-active (active))
|
||||||
|
(cl-destructuring-bind (beg . end)
|
||||||
|
(if (eq evil-state 'visual)
|
||||||
|
(cons evil-visual-beginning evil-visual-end)
|
||||||
|
(cons (region-beginning) (region-end)))
|
||||||
|
(propertize
|
||||||
|
(let ((lines (count-lines beg (min end (point-max)))))
|
||||||
|
(concat (cond ((or (bound-and-true-p rectangle-mark-mode)
|
||||||
|
(eq 'block evil-visual-selection))
|
||||||
|
(let ((cols (abs (- (doom-column end)
|
||||||
|
(doom-column beg)))))
|
||||||
|
(format "%dx%dB" lines cols)))
|
||||||
|
((eq evil-visual-selection 'line)
|
||||||
|
(format "%dL" lines))
|
||||||
|
((> lines 1)
|
||||||
|
(format "%dC %dL" (- end beg) lines))
|
||||||
|
((format "%dC" (- end beg))))
|
||||||
|
(when +doom-modeline-enable-word-count
|
||||||
|
(format " %dW" (count-words beg end)))))
|
||||||
|
'face 'doom-modeline-highlight))))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; matches (anzu, evil-substitute, iedit, macro)
|
||||||
|
;;
|
||||||
|
|
||||||
|
(defun +doom-modeline--macro-recording ()
|
||||||
|
"Display current Emacs or evil macro being recorded."
|
||||||
|
(when (and (active) (or defining-kbd-macro executing-kbd-macro))
|
||||||
|
(let ((sep (propertize " " 'face 'doom-modeline-panel)))
|
||||||
|
(concat sep
|
||||||
|
(propertize (if (bound-and-true-p evil-this-macro)
|
||||||
|
(char-to-string evil-this-macro)
|
||||||
|
"Macro")
|
||||||
|
'face 'doom-modeline-panel)
|
||||||
|
sep
|
||||||
|
(all-the-icons-octicon "triangle-right"
|
||||||
|
:face 'doom-modeline-panel
|
||||||
|
:v-adjust -0.05)
|
||||||
|
sep))))
|
||||||
|
|
||||||
|
(defsubst +doom-modeline--anzu ()
|
||||||
|
"Show the match index and total number thereof. Requires `anzu', also
|
||||||
|
`evil-anzu' if using `evil-mode' for compatibility with `evil-search'."
|
||||||
|
(when (and anzu--state (not iedit-mode))
|
||||||
|
(propertize
|
||||||
|
(let ((here anzu--current-position)
|
||||||
|
(total anzu--total-matched))
|
||||||
|
(cond ((eq anzu--state 'replace-query)
|
||||||
|
(format " %d replace " total))
|
||||||
|
((eq anzu--state 'replace)
|
||||||
|
(format " %d/%d " here total))
|
||||||
|
(anzu--overflow-p
|
||||||
|
(format " %s+ " total))
|
||||||
|
(t
|
||||||
|
(format " %s/%d " here total))))
|
||||||
|
'face (if (active) 'doom-modeline-panel))))
|
||||||
|
|
||||||
|
(defsubst +doom-modeline--evil-substitute ()
|
||||||
|
"Show number of matches for evil-ex substitutions and highlights in real time."
|
||||||
|
(when (and evil-mode
|
||||||
|
(or (assq 'evil-ex-substitute evil-ex-active-highlights-alist)
|
||||||
|
(assq 'evil-ex-global-match evil-ex-active-highlights-alist)
|
||||||
|
(assq 'evil-ex-buffer-match evil-ex-active-highlights-alist)))
|
||||||
|
(propertize
|
||||||
|
(let ((range (if evil-ex-range
|
||||||
|
(cons (car evil-ex-range) (cadr evil-ex-range))
|
||||||
|
(cons (line-beginning-position) (line-end-position))))
|
||||||
|
(pattern (car-safe (evil-delimited-arguments evil-ex-argument 2))))
|
||||||
|
(if pattern
|
||||||
|
(format " %s matches " (how-many pattern (car range) (cdr range)))
|
||||||
|
" - "))
|
||||||
|
'face (if (active) 'doom-modeline-panel))))
|
||||||
|
|
||||||
|
(defun doom-themes--overlay-sort (a b)
|
||||||
|
(< (overlay-start a) (overlay-start b)))
|
||||||
|
|
||||||
|
(defsubst +doom-modeline--iedit ()
|
||||||
|
"Show the number of iedit regions matches + what match you're on."
|
||||||
|
(when (and iedit-mode iedit-occurrences-overlays)
|
||||||
|
(propertize
|
||||||
|
(let ((this-oc (or (let ((inhibit-message t))
|
||||||
|
(iedit-find-current-occurrence-overlay))
|
||||||
|
(progn (iedit-prev-occurrence)
|
||||||
|
(iedit-find-current-occurrence-overlay))))
|
||||||
|
(length (length iedit-occurrences-overlays)))
|
||||||
|
(format " %s/%d "
|
||||||
|
(if this-oc
|
||||||
|
(- length
|
||||||
|
(length (memq this-oc (sort (append iedit-occurrences-overlays nil)
|
||||||
|
#'doom-themes--overlay-sort)))
|
||||||
|
-1)
|
||||||
|
"-")
|
||||||
|
length))
|
||||||
|
'face (if (active) 'doom-modeline-panel))))
|
||||||
|
|
||||||
|
(def-modeline-segment! matches
|
||||||
|
"Displays: 1. the currently recording macro, 2. A current/total for the
|
||||||
|
current search term (with anzu), 3. The number of substitutions being conducted
|
||||||
|
with `evil-ex-substitute', and/or 4. The number of active `iedit' regions."
|
||||||
|
(let ((meta (concat (+doom-modeline--macro-recording)
|
||||||
|
(+doom-modeline--anzu)
|
||||||
|
(+doom-modeline--evil-substitute)
|
||||||
|
(+doom-modeline--iedit))))
|
||||||
|
(or (and (not (equal meta "")) meta)
|
||||||
|
(if buffer-file-name " %I "))))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; media-info
|
||||||
|
;;
|
||||||
|
|
||||||
|
(def-modeline-segment! media-info
|
||||||
|
"Metadata regarding the current file, such as dimensions for images."
|
||||||
|
;; TODO Include other information
|
||||||
|
(cond ((eq major-mode 'image-mode)
|
||||||
|
(cl-destructuring-bind (width . height)
|
||||||
|
(image-size (image-get-display-property) :pixels)
|
||||||
|
(format " %dx%d " width height)))))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; bar
|
||||||
|
;;
|
||||||
|
|
||||||
|
(defvar +doom-modeline--bar-active nil)
|
||||||
|
(defvar +doom-modeline--bar-inactive nil)
|
||||||
|
(def-modeline-segment! bar
|
||||||
|
"The bar regulates the height of the mode-line in GUI Emacs.
|
||||||
|
Returns \"\" to not break --no-window-system."
|
||||||
|
(if window-system
|
||||||
|
(if (active)
|
||||||
|
+doom-modeline--bar-active
|
||||||
|
+doom-modeline--bar-inactive)
|
||||||
|
""))
|
||||||
|
|
||||||
|
(when EMACS26+
|
||||||
|
(add-variable-watcher
|
||||||
|
'+doom-modeline-height
|
||||||
|
(lambda (_sym val op _where)
|
||||||
|
(when (and (eq op 'set) (integerp val))
|
||||||
|
(+doom-modeline|refresh-bars +doom-modeline-bar-width val))))
|
||||||
|
|
||||||
|
(add-variable-watcher
|
||||||
|
'+doom-modeline-bar-width
|
||||||
|
(lambda (_sym val op _where)
|
||||||
|
(when (and (eq op 'set) (integerp val))
|
||||||
|
(+doom-modeline|refresh-bars val +doom-modeline-height))))
|
||||||
|
|
||||||
|
(add-hook 'doom-big-font-mode-hook #'+doom-modeline|resize-for-big-font))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Mode lines
|
||||||
|
;;
|
||||||
|
|
||||||
|
(def-modeline! main
|
||||||
|
(bar matches " " buffer-info " %l:%c %p " selection-info)
|
||||||
|
(buffer-encoding major-mode vcs flycheck))
|
||||||
|
|
||||||
|
(def-modeline! minimal
|
||||||
|
(bar matches " " buffer-info)
|
||||||
|
(media-info major-mode))
|
||||||
|
|
||||||
|
(def-modeline! special
|
||||||
|
(bar matches " " buffer-info-simple " %l:%c %p " selection-info)
|
||||||
|
(buffer-encoding major-mode flycheck))
|
||||||
|
|
||||||
|
(def-modeline! project
|
||||||
|
(bar buffer-default-directory)
|
||||||
|
(major-mode))
|
||||||
|
|
||||||
|
(def-modeline! media
|
||||||
|
(bar " %b ")
|
||||||
|
(media-info major-mode))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Hooks
|
||||||
|
;;
|
||||||
|
|
||||||
|
(defun +doom-modeline|refresh-bars (&optional width height)
|
||||||
|
(setq +doom-modeline--bar-active
|
||||||
|
(+doom-modeline--make-xpm 'doom-modeline-bar
|
||||||
|
(or width +doom-modeline-bar-width)
|
||||||
|
(or height +doom-modeline-height))
|
||||||
|
+doom-modeline--bar-inactive
|
||||||
|
(+doom-modeline--make-xpm 'doom-modeline-inactive-bar
|
||||||
|
(or width +doom-modeline-bar-width)
|
||||||
|
(or height +doom-modeline-height))))
|
||||||
|
|
||||||
|
(defun +doom-modeline|init ()
|
||||||
|
;; Create bars
|
||||||
|
(+doom-modeline|refresh-bars)
|
||||||
|
(unless after-init-time
|
||||||
|
;; These buffers are already created and don't get modelines. For the love
|
||||||
|
;; of Emacs, someone give the man a modeline!
|
||||||
|
(dolist (bname '("*scratch*" "*Messages*"))
|
||||||
|
(with-current-buffer bname
|
||||||
|
(doom-set-modeline 'main)))))
|
||||||
|
|
||||||
|
(defun +doom-modeline|set-special-modeline ()
|
||||||
|
(doom-set-modeline 'special))
|
||||||
|
|
||||||
|
(defun +doom-modeline|set-media-modeline ()
|
||||||
|
(doom-set-modeline 'media))
|
||||||
|
|
||||||
|
(defun +doom-modeline|set-project-modeline ()
|
||||||
|
(doom-set-modeline 'project))
|
||||||
|
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Bootstrap
|
||||||
|
;;
|
||||||
|
|
||||||
|
(doom-set-modeline 'main t) ; set default modeline
|
||||||
|
|
||||||
|
(add-hook 'doom-load-theme-hook #'+doom-modeline|init)
|
||||||
|
(add-hook 'doom-scratch-buffer-hook #'+doom-modeline|set-special-modeline)
|
||||||
|
(add-hook '+doom-dashboard-mode-hook #'+doom-modeline|set-project-modeline)
|
||||||
|
|
||||||
|
(add-hook 'image-mode-hook #'+doom-modeline|set-media-modeline)
|
||||||
|
(add-hook 'circe-mode-hook #'+doom-modeline|set-special-modeline)
|
||||||
|
|
||||||
|
;; Ensure modeline is inactive when Emacs is unfocused (and active otherwise)
|
||||||
|
(defvar +doom-modeline-remap-face-cookie nil)
|
||||||
|
(defun +doom-modeline|focus ()
|
||||||
|
(when +doom-modeline-remap-face-cookie
|
||||||
|
(require 'face-remap)
|
||||||
|
(face-remap-remove-relative +doom-modeline-remap-face-cookie)))
|
||||||
|
(defun +doom-modeline|unfocus ()
|
||||||
|
(setq +doom-modeline-remap-face-cookie (face-remap-add-relative 'mode-line 'mode-line-inactive)))
|
||||||
|
|
||||||
|
(add-hook 'focus-in-hook #'+doom-modeline|focus)
|
||||||
|
(add-hook 'focus-out-hook #'+doom-modeline|unfocus)
|
||||||
|
|
@ -1,105 +1,5 @@
|
||||||
;;; ui/doom-modeline/config.el -*- lexical-binding: t; -*-
|
;;; ui/doom-modeline/config.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; anzu and evil-anzu expose current/total state that can be displayed in the
|
|
||||||
;; mode-line.
|
|
||||||
|
|
||||||
(def-package! anzu
|
|
||||||
:after-call isearch-mode
|
|
||||||
:config
|
|
||||||
(setq anzu-cons-mode-line-p nil
|
|
||||||
anzu-minimum-input-length 1
|
|
||||||
anzu-search-threshold 250)
|
|
||||||
(global-anzu-mode +1)
|
|
||||||
|
|
||||||
(defun +doom-modeline*fix-anzu-count (positions here)
|
|
||||||
(cl-loop for (start . end) in positions
|
|
||||||
collect t into before
|
|
||||||
when (and (>= here start) (<= here end))
|
|
||||||
return (length before)
|
|
||||||
finally return 0))
|
|
||||||
(advice-add #'anzu--where-is-here :override #'+doom-modeline*fix-anzu-count)
|
|
||||||
|
|
||||||
;; Avoid anzu conflicts across buffers
|
|
||||||
(mapc #'make-variable-buffer-local
|
|
||||||
'(anzu--total-matched anzu--current-position anzu--state
|
|
||||||
anzu--cached-count anzu--cached-positions anzu--last-command
|
|
||||||
anzu--last-isearch-string anzu--overflow-p))
|
|
||||||
;; Ensure anzu state is cleared when searches & iedit are done
|
|
||||||
(add-hook 'isearch-mode-end-hook #'anzu--reset-status t)
|
|
||||||
(add-hook 'doom-escape-hook #'anzu--reset-status t)
|
|
||||||
(add-hook 'iedit-mode-end-hook #'anzu--reset-status))
|
|
||||||
|
|
||||||
|
|
||||||
(def-package! evil-anzu
|
|
||||||
:when (featurep! :feature evil)
|
|
||||||
:after-call (evil-ex-start-search evil-ex-start-word-search))
|
|
||||||
|
|
||||||
|
|
||||||
;; fish-style modeline
|
|
||||||
(def-package! shrink-path
|
|
||||||
:commands (shrink-path-prompt shrink-path-file-mixed))
|
|
||||||
|
|
||||||
|
|
||||||
;; Keep `+doom-modeline-current-window' up-to-date
|
|
||||||
(defvar +doom-modeline-current-window (frame-selected-window))
|
|
||||||
(defun +doom-modeline|set-selected-window (&rest _)
|
|
||||||
"Sets `+doom-modeline-current-window' appropriately"
|
|
||||||
(when-let* ((win (frame-selected-window)))
|
|
||||||
(unless (minibuffer-window-active-p win)
|
|
||||||
(setq +doom-modeline-current-window win)
|
|
||||||
(force-mode-line-update))))
|
|
||||||
|
|
||||||
(defun +doom-modeline|unset-selected-window ()
|
|
||||||
(setq +doom-modeline-current-window nil)
|
|
||||||
(force-mode-line-update))
|
|
||||||
|
|
||||||
(add-hook 'window-configuration-change-hook #'+doom-modeline|set-selected-window)
|
|
||||||
(add-hook 'doom-after-switch-window-hook #'+doom-modeline|set-selected-window)
|
|
||||||
(with-no-warnings
|
|
||||||
(if (not (boundp 'after-focus-change-function))
|
|
||||||
(progn
|
|
||||||
(add-hook 'focus-in-hook #'+doom-modeline|set-selected-window)
|
|
||||||
(add-hook 'focus-out-hook #'+doom-modeline|unset-selected-window))
|
|
||||||
(defun +doom-modeline|refresh-frame ()
|
|
||||||
(setq +doom-modeline-current-window nil)
|
|
||||||
(cl-loop for frame in (frame-list)
|
|
||||||
if (eq (frame-focus-state frame) t)
|
|
||||||
return (setq +doom-modeline-current-window (frame-selected-window frame)))
|
|
||||||
(force-mode-line-update))
|
|
||||||
(add-function :after after-focus-change-function #'+doom-modeline|refresh-frame)))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; Variables
|
|
||||||
;;
|
|
||||||
|
|
||||||
(defvar +doom-modeline-height 29
|
|
||||||
"How tall the mode-line should be (only respected in GUI emacs).")
|
|
||||||
|
|
||||||
(defvar +doom-modeline-bar-width 3
|
|
||||||
"How wide the mode-line bar should be (only respected in GUI emacs).")
|
|
||||||
|
|
||||||
(defvar +doom-modeline-buffer-file-name-style 'truncate-upto-project
|
|
||||||
"Determines the style used by `+doom-modeline-buffer-file-name'.
|
|
||||||
|
|
||||||
Given ~/Projects/FOSS/emacs/lisp/comint.el
|
|
||||||
truncate-upto-project => ~/P/F/emacs/lisp/comint.el
|
|
||||||
truncate-upto-root => ~/P/F/e/lisp/comint.el
|
|
||||||
truncate-all => ~/P/F/e/l/comint.el
|
|
||||||
relative-from-project => emacs/lisp/comint.el
|
|
||||||
relative-to-project => lisp/comint.el
|
|
||||||
file-name => comint.el")
|
|
||||||
|
|
||||||
;; externs
|
|
||||||
(defvar anzu--state nil)
|
|
||||||
(defvar evil-mode nil)
|
|
||||||
(defvar evil-state nil)
|
|
||||||
(defvar evil-visual-selection nil)
|
|
||||||
(defvar iedit-mode nil)
|
|
||||||
(defvar all-the-icons-scale-factor)
|
|
||||||
(defvar all-the-icons-default-adjust)
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
;; Custom faces
|
;; Custom faces
|
||||||
;;
|
;;
|
||||||
|
|
@ -170,556 +70,7 @@ active."
|
||||||
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
;; Modeline helpers
|
(if (featurep! +new)
|
||||||
;;
|
(load! "+new")
|
||||||
|
(load! "+old"))
|
||||||
|
|
||||||
(defsubst active ()
|
|
||||||
(eq (selected-window) +doom-modeline-current-window))
|
|
||||||
|
|
||||||
(defun +doom-modeline--make-xpm (face width height)
|
|
||||||
"Create an XPM bitmap. Inspired by `powerline''s `pl/make-xpm'."
|
|
||||||
(propertize
|
|
||||||
" " 'display
|
|
||||||
(let ((data (make-list height (make-list width 1)))
|
|
||||||
(color (or (face-background face nil t) "None")))
|
|
||||||
(ignore-errors
|
|
||||||
(create-image
|
|
||||||
(concat
|
|
||||||
(format "/* XPM */\nstatic char * percent[] = {\n\"%i %i 2 1\",\n\". c %s\",\n\" c %s\","
|
|
||||||
(length (car data))
|
|
||||||
(length data)
|
|
||||||
color
|
|
||||||
color)
|
|
||||||
(apply #'concat
|
|
||||||
(cl-loop with idx = 0
|
|
||||||
with len = (length data)
|
|
||||||
for dl in data
|
|
||||||
do (cl-incf idx)
|
|
||||||
collect
|
|
||||||
(concat "\""
|
|
||||||
(cl-loop for d in dl
|
|
||||||
if (= d 0) collect (string-to-char " ")
|
|
||||||
else collect (string-to-char "."))
|
|
||||||
(if (eq idx len) "\"};" "\",\n")))))
|
|
||||||
'xpm t :ascent 'center)))))
|
|
||||||
|
|
||||||
(defun +doom-modeline-buffer-file-name ()
|
|
||||||
"Propertized `buffer-file-name' based on `+doom-modeline-buffer-file-name-style'."
|
|
||||||
(let ((buffer-file-name (or buffer-file-name ""))
|
|
||||||
(buffer-file-truename (or buffer-file-truename "")))
|
|
||||||
(propertize
|
|
||||||
(pcase +doom-modeline-buffer-file-name-style
|
|
||||||
(`truncate-upto-project (+doom-modeline--buffer-file-name 'shrink))
|
|
||||||
(`truncate-upto-root (+doom-modeline--buffer-file-name-truncate))
|
|
||||||
(`truncate-all (+doom-modeline--buffer-file-name-truncate t))
|
|
||||||
(`relative-to-project (+doom-modeline--buffer-file-name-relative))
|
|
||||||
(`relative-from-project (+doom-modeline--buffer-file-name-relative 'include-project))
|
|
||||||
(`file-name (propertize (file-name-nondirectory buffer-file-name)
|
|
||||||
'face
|
|
||||||
(let ((face (or (and (buffer-modified-p)
|
|
||||||
'doom-modeline-buffer-modified)
|
|
||||||
(and (active)
|
|
||||||
'doom-modeline-buffer-file))))
|
|
||||||
(when face `(:inherit ,face))))))
|
|
||||||
'help-echo buffer-file-truename)))
|
|
||||||
|
|
||||||
(defun +doom-modeline--buffer-file-name-truncate (&optional truncate-tail)
|
|
||||||
"Propertized `buffer-file-name' that truncates every dir along path.
|
|
||||||
If TRUNCATE-TAIL is t also truncate the parent directory of the file."
|
|
||||||
(let ((dirs (shrink-path-prompt (file-name-directory buffer-file-truename)))
|
|
||||||
(active (active)))
|
|
||||||
(if (null dirs)
|
|
||||||
(propertize "%b" 'face (if active 'doom-modeline-buffer-file))
|
|
||||||
(let ((modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified)))
|
|
||||||
(let ((dirname (car dirs))
|
|
||||||
(basename (cdr dirs))
|
|
||||||
(dir-faces (or modified-faces (if active 'doom-modeline-project-root-dir)))
|
|
||||||
(file-faces (or modified-faces (if active 'doom-modeline-buffer-file))))
|
|
||||||
(concat (propertize (concat dirname
|
|
||||||
(if truncate-tail (substring basename 0 1) basename)
|
|
||||||
"/")
|
|
||||||
'face (if dir-faces `(:inherit ,dir-faces)))
|
|
||||||
(propertize (file-name-nondirectory buffer-file-name)
|
|
||||||
'face (if file-faces `(:inherit ,file-faces)))))))))
|
|
||||||
|
|
||||||
(defun +doom-modeline--buffer-file-name-relative (&optional include-project)
|
|
||||||
"Propertized `buffer-file-name' showing directories relative to project's root only."
|
|
||||||
(let ((root (doom-project-root))
|
|
||||||
(active (active)))
|
|
||||||
(if (null root)
|
|
||||||
(propertize "%b" 'face (if active 'doom-modeline-buffer-file))
|
|
||||||
(let* ((modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified))
|
|
||||||
(true-filename (file-truename buffer-file-name))
|
|
||||||
(relative-dirs (file-relative-name (file-name-directory true-filename)
|
|
||||||
(if include-project (concat root "../") root)))
|
|
||||||
(relative-faces (or modified-faces (if active 'doom-modeline-buffer-path)))
|
|
||||||
(file-faces (or modified-faces (if active 'doom-modeline-buffer-file))))
|
|
||||||
(if (equal "./" relative-dirs) (setq relative-dirs ""))
|
|
||||||
(concat (propertize relative-dirs 'face (if relative-faces `(:inherit ,relative-faces)))
|
|
||||||
(propertize (file-name-nondirectory true-filename)
|
|
||||||
'face (if file-faces `(:inherit ,file-faces))))))))
|
|
||||||
|
|
||||||
(defun +doom-modeline--buffer-file-name (truncate-project-root-parent)
|
|
||||||
"Propertized `buffer-file-name'.
|
|
||||||
If TRUNCATE-PROJECT-ROOT-PARENT is t space will be saved by truncating it down
|
|
||||||
fish-shell style.
|
|
||||||
|
|
||||||
Example:
|
|
||||||
~/Projects/FOSS/emacs/lisp/comint.el => ~/P/F/emacs/lisp/comint.el"
|
|
||||||
(let* ((project-root (doom-project-root))
|
|
||||||
(file-name-split (shrink-path-file-mixed project-root
|
|
||||||
(file-name-directory buffer-file-name)
|
|
||||||
buffer-file-name))
|
|
||||||
(active (active)))
|
|
||||||
(if (null file-name-split)
|
|
||||||
(propertize "%b" 'face (if active 'doom-modeline-buffer-file))
|
|
||||||
(pcase-let ((`(,root-path-parent ,project ,relative-path ,filename) file-name-split))
|
|
||||||
(let ((modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified)))
|
|
||||||
(let ((sp-faces (or modified-faces (if active 'font-lock-comment-face)))
|
|
||||||
(project-faces (or modified-faces (if active 'font-lock-string-face)))
|
|
||||||
(relative-faces (or modified-faces (if active 'doom-modeline-buffer-path)))
|
|
||||||
(file-faces (or modified-faces (if active 'doom-modeline-buffer-file))))
|
|
||||||
(let ((sp-props `(,@(if sp-faces `(:inherit ,sp-faces)) ,@(if active '(:weight bold))))
|
|
||||||
(project-props `(,@(if project-faces `(:inherit ,project-faces)) ,@(if active '(:weight bold))))
|
|
||||||
(relative-props `(,@(if relative-faces `(:inherit ,relative-faces))))
|
|
||||||
(file-props `(,@(if file-faces `(:inherit ,file-faces)))))
|
|
||||||
(concat (propertize (if truncate-project-root-parent
|
|
||||||
root-path-parent
|
|
||||||
(abbreviate-file-name project-root))
|
|
||||||
'face sp-props)
|
|
||||||
(propertize (concat project "/") 'face project-props)
|
|
||||||
(if relative-path (propertize relative-path 'face relative-props))
|
|
||||||
(propertize filename 'face file-props)))))))))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; buffer information
|
|
||||||
;;
|
|
||||||
|
|
||||||
(def-modeline-segment! buffer-default-directory
|
|
||||||
"Displays `default-directory'. This is for special buffers like the scratch
|
|
||||||
buffer where knowing the current project directory is important."
|
|
||||||
(let ((face (if (active) 'doom-modeline-buffer-path)))
|
|
||||||
(concat (if (display-graphic-p) " ")
|
|
||||||
(all-the-icons-octicon
|
|
||||||
"file-directory"
|
|
||||||
:face face
|
|
||||||
:v-adjust -0.05
|
|
||||||
:height 1.25)
|
|
||||||
(propertize (concat " " (abbreviate-file-name default-directory))
|
|
||||||
'face face))))
|
|
||||||
|
|
||||||
(def-modeline-segment! buffer-info
|
|
||||||
"Combined information about the current buffer, including the current working
|
|
||||||
directory, the file name, and its state (modified, read-only or non-existent)."
|
|
||||||
(concat (cond (buffer-read-only
|
|
||||||
(concat (all-the-icons-octicon
|
|
||||||
"lock"
|
|
||||||
:face 'doom-modeline-warning
|
|
||||||
:v-adjust -0.05)
|
|
||||||
" "))
|
|
||||||
((buffer-modified-p)
|
|
||||||
(concat (all-the-icons-faicon
|
|
||||||
"floppy-o"
|
|
||||||
:face 'doom-modeline-buffer-modified
|
|
||||||
:v-adjust -0.0575)
|
|
||||||
" "))
|
|
||||||
((and buffer-file-name
|
|
||||||
(not (file-exists-p buffer-file-name)))
|
|
||||||
(concat (all-the-icons-octicon
|
|
||||||
"circle-slash"
|
|
||||||
:face 'doom-modeline-urgent
|
|
||||||
:v-adjust -0.05)
|
|
||||||
" "))
|
|
||||||
((buffer-narrowed-p)
|
|
||||||
(concat (all-the-icons-octicon
|
|
||||||
"fold"
|
|
||||||
:face 'doom-modeline-warning
|
|
||||||
:v-adjust -0.05)
|
|
||||||
" ")))
|
|
||||||
(if buffer-file-name
|
|
||||||
(+doom-modeline-buffer-file-name)
|
|
||||||
"%b")))
|
|
||||||
|
|
||||||
(def-modeline-segment! buffer-info-simple
|
|
||||||
"Display only the current buffer's name, but with fontification."
|
|
||||||
(propertize
|
|
||||||
"%b"
|
|
||||||
'face (cond ((and buffer-file-name (buffer-modified-p))
|
|
||||||
'doom-modeline-buffer-modified)
|
|
||||||
((active) 'doom-modeline-buffer-file))))
|
|
||||||
|
|
||||||
(def-modeline-segment! buffer-encoding
|
|
||||||
"Displays the encoding and eol style of the buffer the same way Atom does."
|
|
||||||
(concat (pcase (coding-system-eol-type buffer-file-coding-system)
|
|
||||||
(0 "LF ")
|
|
||||||
(1 "CRLF ")
|
|
||||||
(2 "CR "))
|
|
||||||
(let ((sys (coding-system-plist buffer-file-coding-system)))
|
|
||||||
(cond ((memq (plist-get sys :category) '(coding-category-undecided coding-category-utf-8))
|
|
||||||
"UTF-8")
|
|
||||||
(t (upcase (symbol-name (plist-get sys :name))))))
|
|
||||||
" "))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; major-mode
|
|
||||||
;;
|
|
||||||
|
|
||||||
(def-modeline-segment! major-mode
|
|
||||||
"The major mode, including process, environment and text-scale info."
|
|
||||||
(propertize
|
|
||||||
(concat (format-mode-line mode-name)
|
|
||||||
(when (stringp mode-line-process)
|
|
||||||
mode-line-process)
|
|
||||||
(and (boundp 'text-scale-mode-amount)
|
|
||||||
(/= text-scale-mode-amount 0)
|
|
||||||
(format " (%+d)" text-scale-mode-amount)))
|
|
||||||
'face (if (active) 'doom-modeline-buffer-major-mode)))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; vcs
|
|
||||||
;;
|
|
||||||
|
|
||||||
(defvar-local +doom-modeline--vcs nil)
|
|
||||||
(defun +doom-modeline--update-vcs ()
|
|
||||||
(setq +doom-modeline--vcs
|
|
||||||
(when (and vc-mode buffer-file-name)
|
|
||||||
(let* ((backend (vc-backend buffer-file-name))
|
|
||||||
(state (vc-state buffer-file-name backend)))
|
|
||||||
(let ((face 'mode-line-inactive)
|
|
||||||
(active (active))
|
|
||||||
(all-the-icons-default-adjust -0.1))
|
|
||||||
(concat " "
|
|
||||||
(cond ((memq state '(edited added))
|
|
||||||
(if active (setq face 'doom-modeline-info))
|
|
||||||
(all-the-icons-octicon
|
|
||||||
"git-compare"
|
|
||||||
:face face
|
|
||||||
:v-adjust -0.05))
|
|
||||||
((eq state 'needs-merge)
|
|
||||||
(if active (setq face 'doom-modeline-info))
|
|
||||||
(all-the-icons-octicon "git-merge" :face face))
|
|
||||||
((eq state 'needs-update)
|
|
||||||
(if active (setq face 'doom-modeline-warning))
|
|
||||||
(all-the-icons-octicon "arrow-down" :face face))
|
|
||||||
((memq state '(removed conflict unregistered))
|
|
||||||
(if active (setq face 'doom-modeline-urgent))
|
|
||||||
(all-the-icons-octicon "alert" :face face))
|
|
||||||
(t
|
|
||||||
(if active (setq face 'font-lock-doc-face))
|
|
||||||
(all-the-icons-octicon
|
|
||||||
"git-compare"
|
|
||||||
:face face
|
|
||||||
:v-adjust -0.05)))
|
|
||||||
" "
|
|
||||||
(propertize (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2))
|
|
||||||
'face (if active face))
|
|
||||||
" "))))))
|
|
||||||
(add-hook 'after-save-hook #'+doom-modeline--update-vcs)
|
|
||||||
(add-hook 'find-file-hook #'+doom-modeline--update-vcs t)
|
|
||||||
|
|
||||||
(def-modeline-segment! vcs
|
|
||||||
"Displays the current branch, colored based on its state."
|
|
||||||
+doom-modeline--vcs)
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; flycheck
|
|
||||||
;;
|
|
||||||
|
|
||||||
(defvar +doom-modeline-vspc
|
|
||||||
(propertize " " 'face 'variable-pitch)
|
|
||||||
"TODO")
|
|
||||||
|
|
||||||
(defun +doom-ml-icon (icon &optional text face voffset)
|
|
||||||
"Displays an octicon ICON with FACE, followed by TEXT. Uses
|
|
||||||
`all-the-icons-octicon' to fetch the icon."
|
|
||||||
(concat (if vc-mode " " " ")
|
|
||||||
(when icon
|
|
||||||
(concat
|
|
||||||
(all-the-icons-material icon :face face :height 1.1 :v-adjust (or voffset -0.2))
|
|
||||||
(if text +doom-modeline-vspc)))
|
|
||||||
(if text (propertize text 'face face))
|
|
||||||
(if vc-mode " " " ")))
|
|
||||||
|
|
||||||
(defvar-local +doom-modeline--flycheck nil)
|
|
||||||
(add-hook 'flycheck-status-changed-functions #'+doom-modeline|update-flycheck-segment)
|
|
||||||
(add-hook 'flycheck-mode-hook #'+doom-modeline|update-flycheck-segment)
|
|
||||||
|
|
||||||
(defun +doom-modeline|update-flycheck-segment (&optional status)
|
|
||||||
(setq +doom-modeline--flycheck
|
|
||||||
(pcase status
|
|
||||||
('finished (if flycheck-current-errors
|
|
||||||
(let-alist (flycheck-count-errors flycheck-current-errors)
|
|
||||||
(let ((sum (+ (or .error 0) (or .warning 0))))
|
|
||||||
(+doom-ml-icon "do_not_disturb_alt"
|
|
||||||
(number-to-string sum)
|
|
||||||
(if .error 'doom-modeline-urgent 'doom-modeline-warning)
|
|
||||||
-0.25)))
|
|
||||||
(+doom-ml-icon "check" nil 'doom-modeline-info)))
|
|
||||||
('running (+doom-ml-icon "access_time" nil 'font-lock-doc-face -0.25))
|
|
||||||
('no-checker (+doom-ml-icon "sim_card_alert" "-" 'font-lock-doc-face))
|
|
||||||
('errored (+doom-ml-icon "sim_card_alert" "Error" 'doom-modeline-urgent))
|
|
||||||
('interrupted (+doom-ml-icon "pause" "Interrupted" 'font-lock-doc-face)))))
|
|
||||||
|
|
||||||
(def-modeline-segment! flycheck
|
|
||||||
"Displays color-coded flycheck error status in the current buffer with pretty
|
|
||||||
icons."
|
|
||||||
+doom-modeline--flycheck)
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; selection-info
|
|
||||||
;;
|
|
||||||
|
|
||||||
(defsubst doom-column (pos)
|
|
||||||
(save-excursion (goto-char pos)
|
|
||||||
(current-column)))
|
|
||||||
|
|
||||||
(defvar-local +doom-modeline-enable-word-count nil
|
|
||||||
"If non-nil, a word count will be added to the selection-info modeline
|
|
||||||
segment.")
|
|
||||||
|
|
||||||
(defun +doom-modeline|enable-word-count () (setq +doom-modeline-enable-word-count t))
|
|
||||||
(add-hook 'text-mode-hook #'+doom-modeline|enable-word-count)
|
|
||||||
|
|
||||||
(def-modeline-segment! selection-info
|
|
||||||
"Information about the current selection, such as how many characters and
|
|
||||||
lines are selected, or the NxM dimensions of a block selection."
|
|
||||||
(when (and mark-active (active))
|
|
||||||
(cl-destructuring-bind (beg . end)
|
|
||||||
(if (eq evil-state 'visual)
|
|
||||||
(cons evil-visual-beginning evil-visual-end)
|
|
||||||
(cons (region-beginning) (region-end)))
|
|
||||||
(propertize
|
|
||||||
(let ((lines (count-lines beg (min end (point-max)))))
|
|
||||||
(concat (cond ((or (bound-and-true-p rectangle-mark-mode)
|
|
||||||
(eq 'block evil-visual-selection))
|
|
||||||
(let ((cols (abs (- (doom-column end)
|
|
||||||
(doom-column beg)))))
|
|
||||||
(format "%dx%dB" lines cols)))
|
|
||||||
((eq evil-visual-selection 'line)
|
|
||||||
(format "%dL" lines))
|
|
||||||
((> lines 1)
|
|
||||||
(format "%dC %dL" (- end beg) lines))
|
|
||||||
((format "%dC" (- end beg))))
|
|
||||||
(when +doom-modeline-enable-word-count
|
|
||||||
(format " %dW" (count-words beg end)))))
|
|
||||||
'face 'doom-modeline-highlight))))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; matches (anzu, evil-substitute, iedit, macro)
|
|
||||||
;;
|
|
||||||
|
|
||||||
(defun +doom-modeline--macro-recording ()
|
|
||||||
"Display current Emacs or evil macro being recorded."
|
|
||||||
(when (and (active) (or defining-kbd-macro executing-kbd-macro))
|
|
||||||
(let ((sep (propertize " " 'face 'doom-modeline-panel)))
|
|
||||||
(concat sep
|
|
||||||
(propertize (if (bound-and-true-p evil-this-macro)
|
|
||||||
(char-to-string evil-this-macro)
|
|
||||||
"Macro")
|
|
||||||
'face 'doom-modeline-panel)
|
|
||||||
sep
|
|
||||||
(all-the-icons-octicon "triangle-right"
|
|
||||||
:face 'doom-modeline-panel
|
|
||||||
:v-adjust -0.05)
|
|
||||||
sep))))
|
|
||||||
|
|
||||||
(defsubst +doom-modeline--anzu ()
|
|
||||||
"Show the match index and total number thereof. Requires `anzu', also
|
|
||||||
`evil-anzu' if using `evil-mode' for compatibility with `evil-search'."
|
|
||||||
(when (and anzu--state (not iedit-mode))
|
|
||||||
(propertize
|
|
||||||
(let ((here anzu--current-position)
|
|
||||||
(total anzu--total-matched))
|
|
||||||
(cond ((eq anzu--state 'replace-query)
|
|
||||||
(format " %d replace " total))
|
|
||||||
((eq anzu--state 'replace)
|
|
||||||
(format " %d/%d " here total))
|
|
||||||
(anzu--overflow-p
|
|
||||||
(format " %s+ " total))
|
|
||||||
(t
|
|
||||||
(format " %s/%d " here total))))
|
|
||||||
'face (if (active) 'doom-modeline-panel))))
|
|
||||||
|
|
||||||
(defsubst +doom-modeline--evil-substitute ()
|
|
||||||
"Show number of matches for evil-ex substitutions and highlights in real time."
|
|
||||||
(when (and evil-mode
|
|
||||||
(or (assq 'evil-ex-substitute evil-ex-active-highlights-alist)
|
|
||||||
(assq 'evil-ex-global-match evil-ex-active-highlights-alist)
|
|
||||||
(assq 'evil-ex-buffer-match evil-ex-active-highlights-alist)))
|
|
||||||
(propertize
|
|
||||||
(let ((range (if evil-ex-range
|
|
||||||
(cons (car evil-ex-range) (cadr evil-ex-range))
|
|
||||||
(cons (line-beginning-position) (line-end-position))))
|
|
||||||
(pattern (car-safe (evil-delimited-arguments evil-ex-argument 2))))
|
|
||||||
(if pattern
|
|
||||||
(format " %s matches " (how-many pattern (car range) (cdr range)))
|
|
||||||
" - "))
|
|
||||||
'face (if (active) 'doom-modeline-panel))))
|
|
||||||
|
|
||||||
(defun doom-themes--overlay-sort (a b)
|
|
||||||
(< (overlay-start a) (overlay-start b)))
|
|
||||||
|
|
||||||
(defsubst +doom-modeline--iedit ()
|
|
||||||
"Show the number of iedit regions matches + what match you're on."
|
|
||||||
(when (and iedit-mode iedit-occurrences-overlays)
|
|
||||||
(propertize
|
|
||||||
(let ((this-oc (or (let ((inhibit-message t))
|
|
||||||
(iedit-find-current-occurrence-overlay))
|
|
||||||
(progn (iedit-prev-occurrence)
|
|
||||||
(iedit-find-current-occurrence-overlay))))
|
|
||||||
(length (length iedit-occurrences-overlays)))
|
|
||||||
(format " %s/%d "
|
|
||||||
(if this-oc
|
|
||||||
(- length
|
|
||||||
(length (memq this-oc (sort (append iedit-occurrences-overlays nil)
|
|
||||||
#'doom-themes--overlay-sort)))
|
|
||||||
-1)
|
|
||||||
"-")
|
|
||||||
length))
|
|
||||||
'face (if (active) 'doom-modeline-panel))))
|
|
||||||
|
|
||||||
(def-modeline-segment! matches
|
|
||||||
"Displays: 1. the currently recording macro, 2. A current/total for the
|
|
||||||
current search term (with anzu), 3. The number of substitutions being conducted
|
|
||||||
with `evil-ex-substitute', and/or 4. The number of active `iedit' regions."
|
|
||||||
(let ((meta (concat (+doom-modeline--macro-recording)
|
|
||||||
(+doom-modeline--anzu)
|
|
||||||
(+doom-modeline--evil-substitute)
|
|
||||||
(+doom-modeline--iedit))))
|
|
||||||
(or (and (not (equal meta "")) meta)
|
|
||||||
(if buffer-file-name " %I "))))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; media-info
|
|
||||||
;;
|
|
||||||
|
|
||||||
(def-modeline-segment! media-info
|
|
||||||
"Metadata regarding the current file, such as dimensions for images."
|
|
||||||
;; TODO Include other information
|
|
||||||
(cond ((eq major-mode 'image-mode)
|
|
||||||
(cl-destructuring-bind (width . height)
|
|
||||||
(image-size (image-get-display-property) :pixels)
|
|
||||||
(format " %dx%d " width height)))))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; bar
|
|
||||||
;;
|
|
||||||
|
|
||||||
(defvar +doom-modeline--bar-active nil)
|
|
||||||
(defvar +doom-modeline--bar-inactive nil)
|
|
||||||
(def-modeline-segment! bar
|
|
||||||
"The bar regulates the height of the mode-line in GUI Emacs.
|
|
||||||
Returns \"\" to not break --no-window-system."
|
|
||||||
(if window-system
|
|
||||||
(if (active)
|
|
||||||
+doom-modeline--bar-active
|
|
||||||
+doom-modeline--bar-inactive)
|
|
||||||
""))
|
|
||||||
|
|
||||||
(when EMACS26+
|
|
||||||
(add-variable-watcher
|
|
||||||
'+doom-modeline-height
|
|
||||||
(lambda (_sym val op _where)
|
|
||||||
(when (and (eq op 'set) (integerp val))
|
|
||||||
(+doom-modeline|refresh-bars +doom-modeline-bar-width val))))
|
|
||||||
|
|
||||||
(add-variable-watcher
|
|
||||||
'+doom-modeline-bar-width
|
|
||||||
(lambda (_sym val op _where)
|
|
||||||
(when (and (eq op 'set) (integerp val))
|
|
||||||
(+doom-modeline|refresh-bars val +doom-modeline-height))))
|
|
||||||
|
|
||||||
(add-hook 'doom-big-font-mode-hook #'+doom-modeline|resize-for-big-font))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; Mode lines
|
|
||||||
;;
|
|
||||||
|
|
||||||
(def-modeline! main
|
|
||||||
(bar matches " " buffer-info " %l:%c %p " selection-info)
|
|
||||||
(buffer-encoding major-mode vcs flycheck))
|
|
||||||
|
|
||||||
(def-modeline! minimal
|
|
||||||
(bar matches " " buffer-info)
|
|
||||||
(media-info major-mode))
|
|
||||||
|
|
||||||
(def-modeline! special
|
|
||||||
(bar matches " " buffer-info-simple " %l:%c %p " selection-info)
|
|
||||||
(buffer-encoding major-mode flycheck))
|
|
||||||
|
|
||||||
(def-modeline! project
|
|
||||||
(bar buffer-default-directory)
|
|
||||||
(major-mode))
|
|
||||||
|
|
||||||
(def-modeline! media
|
|
||||||
(bar " %b ")
|
|
||||||
(media-info major-mode))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; Hooks
|
|
||||||
;;
|
|
||||||
|
|
||||||
(defun +doom-modeline|refresh-bars (&optional width height)
|
|
||||||
(setq +doom-modeline--bar-active
|
|
||||||
(+doom-modeline--make-xpm 'doom-modeline-bar
|
|
||||||
(or width +doom-modeline-bar-width)
|
|
||||||
(or height +doom-modeline-height))
|
|
||||||
+doom-modeline--bar-inactive
|
|
||||||
(+doom-modeline--make-xpm 'doom-modeline-inactive-bar
|
|
||||||
(or width +doom-modeline-bar-width)
|
|
||||||
(or height +doom-modeline-height))))
|
|
||||||
|
|
||||||
(defun +doom-modeline|init ()
|
|
||||||
;; Create bars
|
|
||||||
(+doom-modeline|refresh-bars)
|
|
||||||
(unless after-init-time
|
|
||||||
;; These buffers are already created and don't get modelines. For the love
|
|
||||||
;; of Emacs, someone give the man a modeline!
|
|
||||||
(dolist (bname '("*scratch*" "*Messages*"))
|
|
||||||
(with-current-buffer bname
|
|
||||||
(doom-set-modeline 'main)))))
|
|
||||||
|
|
||||||
(defun +doom-modeline|set-special-modeline ()
|
|
||||||
(doom-set-modeline 'special))
|
|
||||||
|
|
||||||
(defun +doom-modeline|set-media-modeline ()
|
|
||||||
(doom-set-modeline 'media))
|
|
||||||
|
|
||||||
(defun +doom-modeline|set-project-modeline ()
|
|
||||||
(doom-set-modeline 'project))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; Bootstrap
|
|
||||||
;;
|
|
||||||
|
|
||||||
(doom-set-modeline 'main t) ; set default modeline
|
|
||||||
|
|
||||||
(add-hook 'doom-load-theme-hook #'+doom-modeline|init)
|
|
||||||
(add-hook 'doom-scratch-buffer-hook #'+doom-modeline|set-special-modeline)
|
|
||||||
(add-hook '+doom-dashboard-mode-hook #'+doom-modeline|set-project-modeline)
|
|
||||||
|
|
||||||
(add-hook 'image-mode-hook #'+doom-modeline|set-media-modeline)
|
|
||||||
(add-hook 'circe-mode-hook #'+doom-modeline|set-special-modeline)
|
|
||||||
|
|
||||||
;; Ensure modeline is inactive when Emacs is unfocused (and active otherwise)
|
|
||||||
(defvar +doom-modeline-remap-face-cookie nil)
|
|
||||||
(defun +doom-modeline|focus ()
|
|
||||||
(when +doom-modeline-remap-face-cookie
|
|
||||||
(require 'face-remap)
|
|
||||||
(face-remap-remove-relative +doom-modeline-remap-face-cookie)))
|
|
||||||
(defun +doom-modeline|unfocus ()
|
|
||||||
(setq +doom-modeline-remap-face-cookie (face-remap-add-relative 'mode-line 'mode-line-inactive)))
|
|
||||||
|
|
||||||
(add-hook 'focus-in-hook #'+doom-modeline|focus)
|
|
||||||
(add-hook 'focus-out-hook #'+doom-modeline|unfocus)
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue