awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-11 13:07:28 -05:00
Code Issues Packages Projects Releases 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

18
core/core-docs.el
View File

@ -5,20 +5,22 @@
:commands (dash-at-point dash-at-point-with-docset dash-at-point-run-search
dash-at-point-guess-docset)
:init
(defmacro def-docset! (mode docset)
`(add-hook! ,mode (setq-local dash-at-point-docset ,docset)))
(defun doom-docs-lookup (&optional search docset)
(dash-at-point-run-search search docset)))
(defun doom-docs-lookup (&optional search all)
(let ((docset (unless all (dash-at-point-guess-docset))))
(dash-at-point-run-search search docset))))
(use-package zeal-at-point
:when (not IS-MAC)
:commands (zeal-at-point zeal-at-point-set-docset)
:init
(defmacro def-docset! (mode docset)
`(add-hook! ,mode (setq-local zeal-at-point-docset ,docset)))
(defun doom-docs-lookup (&optional search docset)
(let ((zeal-at-point-docset (or docset zeal-at-point-docset)))
(defun doom-docs-lookup (&optional search all)
(let ((zeal-at-point-docset (if all "" zeal-at-point-docset)))
(zeal-at-point search))))
(defmacro def-docset! (mode docset)
`(add-hook! ,mode
(setq-local ,(if IS-MAC 'dash-at-point-docset 'zeal-at-point-docset)
,docset)))
(provide 'core-docs)
;;; core-docs.el ends here