Mercurial > dotfiles
view .elisp/settings/80.go.el @ 279:0b718e51de16
hgignore: ignore machine-specific .elisp/settings/ files
Just considers anything with local in the name to be machine specific,
which is true for how I use have things configured.
author | Augie Fackler <raf@durin42.com> |
---|---|
date | Fri, 27 Apr 2012 16:53:15 -0500 |
parents | 884f7f932a83 |
children | d77b2e253e99 |
line wrap: on
line source
;; 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.")))