32 lines
1.1 KiB
EmacsLisp
32 lines
1.1 KiB
EmacsLisp
;;; defuns-docs.el
|
|
|
|
;;;###autoload (autoload 'doom:docs-lookup "defuns-docs" nil t)
|
|
(evil-define-command doom:docs-lookup (&optional bang input)
|
|
"Look up INPUT (otherwise the current selection) in Dash or Zeal."
|
|
(interactive "<!><a>")
|
|
(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 bang)))
|
|
|
|
;;;###autoload (autoload 'doom:google-search "defuns-docs" nil t)
|
|
(evil-define-command doom:google-search (&optional bang search)
|
|
"Opens a browser and performs the entered google search. If BANG, use 'I'm
|
|
feeling lucky'."
|
|
(interactive "<!><a>")
|
|
(if search
|
|
(google-this-parse-and-search-string
|
|
search nil
|
|
(if bang (google-this-lucky-search-url)))
|
|
(cond ((eq major-mode 'c++-mode)
|
|
(google-this-cpp-reference))
|
|
((evil-visual-state-p)
|
|
(google-this-region nil))
|
|
(t (google-this-symbol nil)))))
|
|
|
|
(provide 'defuns-docs)
|
|
;;; defuns-docs.el ends here
|