25 lines
877 B
EmacsLisp
25 lines
877 B
EmacsLisp
;;; defuns-dash.el --- Dash.app integration
|
|
|
|
;;;###autoload
|
|
(defun narf/dash-at-pt ()
|
|
(interactive)
|
|
(if (evil-visual-state-p)
|
|
(dash-at-point-run-search (buffer-substring-no-properties (region-beginning) (region-end))
|
|
(dash-at-point-guess-docset))
|
|
(dash-at-point)))
|
|
|
|
;;;###autoload (autoload 'narf:dash "defuns-dash" nil t)
|
|
(evil-define-command narf:dash (bang input)
|
|
(interactive "<!><a>")
|
|
(let ((docset (unless bang (dash-at-point-guess-docset)))
|
|
(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)))
|
|
(dash-at-point-run-search query docset)))
|
|
|
|
(provide 'defuns-dash)
|
|
;;; defuns-dash.el ends here
|