2019-04-19 13:41:55 +08:00
|
|
|
;;; editor/objed/config.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
|
|
|
|
(def-package! objed
|
|
|
|
|
:after-call pre-command-hook
|
|
|
|
|
:config
|
|
|
|
|
;; Prevent undo actions from exiting edit state
|
|
|
|
|
(add-to-list 'objed-keeper-commands 'undo-tree-undo)
|
|
|
|
|
(add-to-list 'objed-keeper-commands 'undo-tree-redo)
|
|
|
|
|
(add-to-list 'objed-keeper-commands 'undo-tree-visualize)
|
|
|
|
|
|
|
|
|
|
(defvar +objed--extra-face-remaps nil)
|
|
|
|
|
|
2019-07-23 18:30:47 +08:00
|
|
|
(def-advice! +objed-add-face-remaps-a (&rest _)
|
2019-04-19 13:41:55 +08:00
|
|
|
"Add extra face remaps when objed activates."
|
2019-07-23 18:30:47 +08:00
|
|
|
:after 'objed--init
|
2019-04-19 13:41:55 +08:00
|
|
|
(when (memq 'objed-hl (assq 'hl-line face-remapping-alist))
|
|
|
|
|
(push (face-remap-add-relative 'solaire-hl-line-face 'objed-hl)
|
|
|
|
|
+objed--extra-face-remaps)))
|
|
|
|
|
|
2019-07-23 18:30:47 +08:00
|
|
|
(def-advice! +objed-remove-face-remaps-a (&rest _)
|
2019-04-19 13:41:55 +08:00
|
|
|
"Remove extra face remaps when objed de-activates."
|
2019-07-23 18:30:47 +08:00
|
|
|
:after 'objed--reset
|
2019-04-19 13:41:55 +08:00
|
|
|
(unless (memq 'objed-hl (assq 'hl-line face-remapping-alist))
|
|
|
|
|
(dolist (remap +objed--extra-face-remaps)
|
|
|
|
|
(face-remap-remove-relative remap))
|
|
|
|
|
(setq +objed--extra-face-remaps nil)))
|
|
|
|
|
|
2019-06-01 19:30:18 +08:00
|
|
|
(unless (featurep! +manual)
|
|
|
|
|
(objed-mode +1)))
|
