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

Remove help-fns+, add helpful plugin #363

Browse source
This commit is contained in:
Henrik Lissner 2018-01-21 21:37:15 -05:00
parent ad59665a3d
commit c5b72566ea
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 26 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/feature/popup/+hacks.el
View file

@ -109,7 +109,6 @@ the command buffer."
(goto-char (cdr location))
(recenter)
(setq origin (selected-window))))
(+popup/close)
(select-window origin)))
;; Help buffers use `pop-to-window' to decide where to open followed links,
@ -141,6 +140,18 @@ the command buffer."
(doom--switch-from-popup (find-function-search-for-symbol fun 'defface file)))))
;; `helpful'
(after! helpful
(defun +popup*helpful--navigate (orig-fn &rest args)
(let (origin)
(save-popups!
(apply orig-fn args)
(setq origin (selected-window))
(recenter))
(select-window origin)))
(advice-add #'helpful--navigate :around #'+popup*helpful--navigate))
;; `neotree'
(after! neotree
(advice-add #'neo-util--set-window-width :override #'ignore)

2
modules/feature/popup/config.el
View file

@ -150,7 +150,7 @@ ALIST supports one custom parameter: `size', which will resolve to
(set! :popup "^\\*Completions" '((slot . -1) (vslot . -2)) '((transient . 0)))
(set! :popup "^\\*Compilation" nil '((transient . 0) (quit . t)))
(set! :popup "^\\*\\(?:scratch\\|Messages\\)" nil '((transient)))
(set! :popup "^\\*Help"
(set! :popup "^\\*[Hh]elp"
'((slot . 2) (vslot . 2) (size . 0.2))
'((select . t)))
(set! :popup "^\\*doom \\(?:term\\|eshell\\)"