Mercurial > dotfiles
diff .elisp/settings/80.go.el @ 277:884f7f932a83
emacs go: move go config to a new file
This uses some clever shell tricks to identify the location (if any)
of the go installation and gocode and load their supporting packages
if available.
author | Augie Fackler <raf@durin42.com> |
---|---|
date | Fri, 27 Apr 2012 16:50:05 -0500 |
parents | |
children | d77b2e253e99 |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/.elisp/settings/80.go.el @@ -0,0 +1,37 @@ +;; completions for go +(defun af-go-hook () + ;; enable tabs + (setq tab-width 2) + (setq-default indent-tabs-mode t) + (make-variable-buffer-local 'whitespace-style) + (setq whitespace-style '(trailing lines-tail indentation trailing empty)) + ) + +(defun af-get-go-elisp-location () + (let* ((gobinary (shell-command-to-string "which go")) + (gobin (substring (file-name-directory gobinary) 0 -1)) + (goroot (file-name-directory gobin))) + (concat goroot "misc/emacs"))) + +(defun af-get-gocode-elisp-location () + (let* ((binary (shell-command-to-string "which gocode")) + (bin (substring (file-name-directory binary) 0 -1)) + (basedir (file-name-directory bin))) + (concat basedir "src/github.com/nsf/gocode/emacs-company/"))) + +(let* ((goloc (af-get-go-elisp-location)) + (goel (concat goloc "/go-mode.el"))) + (if (file-exists-p goel) + (progn + (message "Go is installed, loading go-mode") + (add-to-list 'load-path goloc) + (require 'go-mode) + (let* ((loc (af-get-gocode-elisp-location)) + (el (concat loc "/company-go.el"))) + (if (file-exists-p el) + (progn + (message "Found gocode, loading company-mode support...") + (add-to-list 'load-path loc) + (require 'company-go)) + (message "gocode missing, skipping company-mode support.")))) + (message "Go appears to not be installed, skipping Go setup.")))