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

Move to EOL before (un)folding (#99)

Browse source
This commit is contained in:
Henrik Lissner 2017-06-09 14:06:00 +02:00
parent 723e8a6570
commit 77eb06727c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -31,26 +31,32 @@
(+evil--ensure-modes) (+evil--ensure-modes)
(hs-already-hidden-p)))) (hs-already-hidden-p))))
(defmacro +evil-from-eol (&rest body)
"Perform action after moving to the end of the line."
`(save-excursion
(end-of-line)
,@body))
;;;###autoload (autoload '+evil:fold-toggle "feature/evil/autoload/folds" nil t) ;;;###autoload (autoload '+evil:fold-toggle "feature/evil/autoload/folds" nil t)
(evil-define-command +evil:fold-toggle () (evil-define-command +evil:fold-toggle ()
(interactive) (interactive)
(if (+evil--vimish-fold-p) (if (+evil--vimish-fold-p)
(vimish-fold-toggle) (vimish-fold-toggle)
(hs-toggle-hiding))) (+evil-from-eol (hs-toggle-hiding))))
;;;###autoload (autoload '+evil:fold-open "feature/evil/autoload/folds" nil t) ;;;###autoload (autoload '+evil:fold-open "feature/evil/autoload/folds" nil t)
(evil-define-command +evil:fold-open () (evil-define-command +evil:fold-open ()
(interactive) (interactive)
(if (+evil--vimish-fold-p) (if (+evil--vimish-fold-p)
(vimish-fold-unfold) (vimish-fold-unfold)
(hs-hide-block))) (+evil-from-eol (hs-hide-block))))
;;;###autoload (autoload '+evil:fold-close "feature/evil/autoload/folds" nil t) ;;;###autoload (autoload '+evil:fold-close "feature/evil/autoload/folds" nil t)
(evil-define-command +evil:fold-close () (evil-define-command +evil:fold-close ()
(interactive) (interactive)
(if (+evil--vimish-fold-p) (if (+evil--vimish-fold-p)
(vimish-fold-refold) (vimish-fold-refold)
(hs-hide-block))) (+evil-from-eol (hs-hide-block))))
;;;###autoload (autoload '+evil:fold-open-all "feature/evil/autoload/folds" nil t) ;;;###autoload (autoload '+evil:fold-open-all "feature/evil/autoload/folds" nil t)
(evil-define-command +evil:fold-open-all (&optional level) (evil-define-command +evil:fold-open-all (&optional level)