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

Refactor core-docs.el

Browse source
This commit is contained in:
Henrik Lissner 2016-06-17 16:01:18 -04:00
parent 85f3c14b2f
commit 60f395c8d6
2 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

5
core/defuns/defuns-docs.el
View file

@ -4,14 +4,13 @@
(evil-define-command doom:docs-lookup (&optional bang input)
"Look up INPUT (otherwise the current selection) in Dash or Zeal."
(interactive "<!><a>")
(let ((docset (unless bang (dash-at-point-guess-docset)))
(query input))
(let ((query input))
(when (evil-visual-state-p)
(setq query (concat (buffer-substring-no-properties (region-beginning) (region-end))
" " query)))
(when (or (not query) (zerop (length query)))
(setq query (thing-at-point 'symbol)))
(doom-docs-lookup query docset)))
(doom-docs-lookup query bang)))
(provide 'defuns-docs)
;;; defuns-docs.el ends here