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

Improve dash.app integration

Browse source
This commit is contained in:
Henrik Lissner 2016-02-18 09:30:14 -05:00
parent 8f274e06a7
commit bd52011f80
2 changed files with 35 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

25
core/defuns/defuns-dash.el Normal file
View file

@ -0,0 +1,25 @@
;;; 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) (string-empty-p query))
(setq query (thing-at-point 'symbol)))
(dash-at-point-run-search query docset)))
(provide 'defuns-dash)
;;; defuns-dash.el ends here