colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

random tweaks

Browse Source
This commit is contained in:
Ivan Malison 2016-05-13 10:51:46 -07:00
parent da1a980b5e
commit d96332cd08
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
dotfiles/emacs.d/init.el
View File

@ -1930,7 +1930,6 @@ window is active in the perspective."
(setq projectile-completion-system 'helm) (setq projectile-completion-system 'helm)
(add-to-list 'projectile-globally-ignored-files "Godeps") (add-to-list 'projectile-globally-ignored-files "Godeps")
(add-to-list 'projectile-globally-ignored-files "thrift-binaries") (add-to-list 'projectile-globally-ignored-files "thrift-binaries")
(add-to-list 'projectile-globally-ignored-files "go-build")
(helm-projectile-on) (helm-projectile-on)
(diminish 'projectile-mode) (diminish 'projectile-mode)
(unbind-key "C-c p S" projectile-command-map) (unbind-key "C-c p S" projectile-command-map)
@ -2330,6 +2329,7 @@ window is active in the perspective."
(defun go-mode-glide-novendor () (defun go-mode-glide-novendor ()
(projectile-with-default-dir (projectile-project-root) (projectile-with-default-dir (projectile-project-root)
(shell-command-to-string "glide novendor"))) (shell-command-to-string "glide novendor")))
(defun go-mode-create-imenu-index () (defun go-mode-create-imenu-index ()
"Create and return an imenu index alist. Unlike the default "Create and return an imenu index alist. Unlike the default
alist created by go-mode, this method creates an alist where alist created by go-mode, this method creates an alist where
@ -2350,18 +2350,23 @@ items follow a style that is consistent with other prog-modes."
(item (cons name marker))) (item (cons name marker)))
(setq func-index (cons item func-index))))) (setq func-index (cons item func-index)))))
(nconc type-index (list (cons "func" func-index))))) (nconc type-index (list (cons "func" func-index)))))
(defun go-mode-workspace-path () (defun go-mode-workspace-path ()
(file-relative-name (projectile-project-root) (file-relative-name (projectile-project-root)
(concat (file-name-as-directory (concat (file-name-as-directory
(or (getenv "GOPATH") "~/go")) "src"))) (or (getenv "GOPATH") "~/go")) "src")))
(defun go-mode-install-current-project () (defun go-mode-install-current-project ()
(interactive) (interactive)
(start-process "go install" "go install log" "go" "install" (start-process "go install" "go install log" "go" "install"
(concat (file-name-as-directory (go-mode-workspace-path)) (concat (file-name-as-directory (go-mode-workspace-path))
"..."))) "...")))
(defun go-mode-get-go-path () (defun go-mode-get-go-path ()
(file-name-as-directory (car (s-split ":" (getenv "GOPATH"))))) (file-name-as-directory (car (s-split ":" (getenv "GOPATH")))))
(imalison:let-advise-around imalison:advise-normal-go-command (go-command "go")) (imalison:let-advise-around imalison:advise-normal-go-command (go-command "go"))
(defun imalison:go-mode-hook () (defun imalison:go-mode-hook ()
(go-eldoc-setup) (go-eldoc-setup)
(bind-key go-mode-map) (bind-key go-mode-map)
@ -2373,8 +2378,9 @@ items follow a style that is consistent with other prog-modes."
:config :config
(progn (progn
(use-package gotest (use-package gotest
:demand
:bind (:map go-mode-map :bind (:map go-mode-map
("C-c t" . 'imalison:gotest)) ("C-c t" . imalison:gotest))
:preface :preface
(progn (progn
(imalison:prefix-alternatives (imalison:prefix-alternatives
@ -2387,6 +2393,7 @@ items follow a style that is consistent with other prog-modes."
(use-package go-projectile :demand t) (use-package go-projectile :demand t)
(use-package go-eldoc :demand t) (use-package go-eldoc :demand t)
(use-package go-guru (use-package go-guru
:demand t
:bind (:map go-mode-map :bind (:map go-mode-map
("M-." . go-guru-definition) ("M-." . go-guru-definition)
("M-," . pop-tag-mark)) ("M-," . pop-tag-mark))