doomemacs/modules/feature/jump/config.el

80 lines
2.5 KiB
EmacsLisp
Raw Normal View History

2017-03-16 10:44:42 +08:00
;;; feature/jump/config.el
;; "What am I looking at?"
;;
;; This module helps you answer that question. It helps you look up whatever
2017-05-21 21:06:15 +08:00
;; you're looking at.
2017-03-16 10:44:42 +08:00
;;
2017-05-21 21:06:15 +08:00
;; + `+jump/definition': a jump-to-definition that should 'just work'
;; + `+jump/references': find a symbol's references in the current project
;; + `+jump/online'; look up a symbol on online resources, like stackoverflow,
;; devdocs.io or google.
;;
;; This module uses `xref', an experimental new library in Emacs. It may change
;; in the future. When xref can't be depended on it will fall back to
;; `dumb-jump' to find what you want.
2017-03-16 10:44:42 +08:00
(defvar +jump-search-url-alist
'(("Google" . "https://google.com/search?q=%s")
2017-03-16 10:44:42 +08:00
("DuckDuckGo" . "https://duckduckgo.com/?q=%s")
("DevDocs.io" . "http://devdocs.io/#q=%s")
("StackOverflow" . "https://stackoverflow.com/search?q=%s"))
2017-05-21 21:06:15 +08:00
"An alist that maps online resources to their search url or a function that
produces an url. Used by `+jump/online'.")
2017-03-16 10:44:42 +08:00
(def-setting! :xref-backend (mode function)
"TODO"
`(add-hook! ,mode
(add-hook 'xref-backend-functions #',function nil t)))
2017-03-16 10:44:42 +08:00
2017-05-21 21:06:15 +08:00
(set! :popup "*xref*" :noselect t :autokill t :autoclose t)
;; Let me control what backends to fall back on
(setq-default xref-backend-functions '(t))
2017-03-16 10:44:42 +08:00
;; Recenter after certain jumps
(add-hook!
2017-05-26 17:47:10 +08:00
'(imenu-after-jump-hook evil-jumps-post-jump-hook
counsel-grep-post-action-hook dumb-jump-after-jump-hook)
2017-06-05 06:47:56 +08:00
#'recenter)
2017-03-16 10:44:42 +08:00
;;
;; Packages
;;
(def-package! dumb-jump
:commands (dumb-jump-go dumb-jump-quick-look dumb-jump-back)
:config
2017-05-21 21:06:15 +08:00
(setq dumb-jump-default-project doom-emacs-dir
2017-05-24 03:32:07 +08:00
dumb-jump-aggressive nil
2017-05-21 21:06:15 +08:00
dumb-jump-selector (cond ((featurep! :completion ivy) 'ivy)
((featurep! :completion helm) 'helm)
(t 'popup))))
2017-05-21 20:11:52 +08:00
(def-package! gxref
:commands (gxref-xref-backend
gxref-create-db
gxref-update-db
gxref-single-update-db
gxref-set-project-dir)
:init
(setq-default xref-backend-functions '(gxref-xref-backend t)))
2017-03-16 10:44:42 +08:00
;; (def-package! ggtags
;; :commands (ggtags-find-tag-dwim
;; ggtags-find-tag-mouse
;; ggtags-find-definition
;; ggtags-find-reference
;; ggtags-find-other-symbol
;; ggtags-find-tag-regexp
;; ggtags-idutils-query
;; ggtags-grep
;; ggtags-find-file
;; ggtags-query-replace
;; ggtags-delete-tags
;; ggtags-explain-tags))