ui/modeline: unset other format hooks

If set-modeline-hook! is used after init.
This commit is contained in:
Henrik Lissner 2019-12-17 15:37:33 -05:00
parent 980fa74630
commit 9c73bff4f0
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -144,7 +144,10 @@ If DEFAULT is non-nil, apply to all future buffers. Modelines are defined with
See `def-modeline!' on how modelines are defined." See `def-modeline!' on how modelines are defined."
(let ((fn (intern (format "+modeline-set-%s-format-h" name)))) (let ((fn (intern (format "+modeline-set-%s-format-h" name))))
(dolist (hook (doom-enlist hooks)) (dolist (hook (doom-enlist hooks))
(add-hook hook fn 'append)))) (when after-init-time
(dolist (name (mapcar #'car +modeline-format-alist))
(remove-hook hook (intern (format "+modeline-set-%s-format-h" name)))))
(add-hook hook fn))))
(defmacro def-modeline! (name lhs rhs) (defmacro def-modeline! (name lhs rhs)
"Define a modeline format by NAME. "Define a modeline format by NAME.