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.")))