26 lines
814 B
EmacsLisp
26 lines
814 B
EmacsLisp
;;; core-docs.el
|
|
|
|
(use-package dash-at-point
|
|
:when IS-MAC
|
|
:commands (dash-at-point dash-at-point-with-docset dash-at-point-run-search
|
|
dash-at-point-guess-docset)
|
|
:init
|
|
(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
|
|
(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
|