spacemacs/contrib/lang/go/extensions.el

61 lines
1.8 KiB
EmacsLisp
Raw Normal View History

(defvar go-pre-extensions
'(
;; pre extension gos go here
)
"List of all extensions to load before the packages.")
(defvar go-post-extensions
'(
;; post extension gos go here
go-oracle
go-rename
)
"List of all extensions to load after the packages.")
;; For each extension, define a function go/init-<extension-go>
;;
;; (defun go/init-my-extension ()
;; "Initialize my extension"
;; )
;;
;; Often the body of an initialize function uses `use-package'
;; For more info on `use-package', see readme:
;; https://github.com/jwiegley/use-package
(defun load-gopath-file(gopath name)
"Search for NAME file in all paths referenced in GOPATH."
(let ((paths (split-string gopath ":"))
found)
(loop for p in paths
for file = (concat p name) when (file-exists-p file)
do
(load-file file)
(setq found t)
finally return found)))
(defun go/init-go-oracle()
(let ((go-path (getenv "GOPATH")))
(if (not go-path)
(spacemacs-buffer/message (concat "Warning: GOPATH variable not found, "
"go-oracle configuration skipped."))
(when (load-gopath-file
2015-04-02 18:59:43 +00:00
go-path "/src/golang.org/x/tools/cmd/oracle/oracle.el")
(evil-leader/set-key-for-mode 'go-mode
"moo" 'go-oracle-set-scope
"mo<" 'go-oracle-callers
"mo>" 'go-oracle-callees
"moc" 'go-oracle-peers
"mod" 'go-oracle-definition
"mof" 'go-oracle-freevars
"mog" 'go-oracle-callgraph
"moi" 'go-oracle-implements
"mop" 'go-oracle-pointsto
"mor" 'go-oracle-referrers
"mos" 'go-oracle-callstack
"mot" 'go-oracle-describe)))))
(defun go/init-go-rename()
2015-02-08 04:26:27 +00:00
(use-package go-rename
:init
(evil-leader/set-key-for-mode 'go-mode "mr" 'go-rename)))