emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Ensure folding system is initialized soon enough

Browse source
This commit is contained in:
Henrik Lissner 2017-05-18 01:28:48 +02:00
parent 5a162e0dc9
commit fa2fbcbffe
2 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

17
modules/feature/evil/autoload/folds.el
View file

@ -10,23 +10,6 @@
;; Initialize the two modes ;; Initialize the two modes
(evil-vimish-fold-mode +1) (evil-vimish-fold-mode +1)
(defun +evil*fold-hs-minor-mode (&rest args)
"Lazily activate buffer-local hs-minor-mode."
(unless (bound-and-true-p hs-minor-mode)
(hs-minor-mode +1)))
(advice-add #'evil-fold-action :before #'+evil*fold-hs-minor-mode)
(add-to-list
'evil-fold-list
'((evil-vimish-mode hs-minor-mode)
:delete vimish-fold-delete
:open-all +evil/fold-open-all
:close-all +evil/fold-close-all
:toggle +evil/fold-toggle
:open +evil/fold-open
:open-rec nil
:close +evil/fold-close))
;; --- fold functions --------------------- ;; --- fold functions ---------------------

18
modules/feature/evil/config.el
View file

@ -54,6 +54,24 @@
;; Don't interfere with localleader key ;; Don't interfere with localleader key
(define-key evil-motion-state-map "\\" nil) (define-key evil-motion-state-map "\\" nil)
;; Custom folding system
(add-to-list
'evil-fold-list
'((evil-vimish-mode hs-minor-mode)
:delete vimish-fold-delete
:open-all +evil/fold-open-all
:close-all +evil/fold-close-all
:toggle +evil/fold-toggle
:open +evil/fold-open
:open-rec nil
:close +evil/fold-close))
(defun +evil*fold-hs-minor-mode (&rest args)
"Lazily activate buffer-local hs-minor-mode."
(unless (bound-and-true-p hs-minor-mode)
(hs-minor-mode +1)))
(advice-add #'evil-fold-action :before #'+evil*fold-hs-minor-mode)
;; Set cursor colors later, once theme is loaded ;; Set cursor colors later, once theme is loaded
(defun +evil*init-cursors (&rest _) (defun +evil*init-cursors (&rest _)
(setq evil-default-cursor (face-background 'cursor nil t) (setq evil-default-cursor (face-background 'cursor nil t)