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

Make github-search clone go repos to GOPATH dir

Browse Source 
This commit also includes some refactoring of go specific functions.
This commit is contained in:
Ivan Malison 2016-08-02 17:04:05 -07:00
parent 62ac26569d
commit 20d32bd1c3
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 31 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
dotfiles/emacs.d/README.org
View File

@ -1823,7 +1823,6 @@ I use helm for almost all emacs completion
(setq projectile-enable-caching nil) (setq projectile-enable-caching nil)
(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")
(shut-up (helm-projectile-on)) (shut-up (helm-projectile-on))
(diminish 'projectile-mode) (diminish 'projectile-mode)
(bind-key* "C-c p s" 'imalison:do-ag) (bind-key* "C-c p s" 'imalison:do-ag)
@ -2055,9 +2054,17 @@ This was stolen from https://github.com/jwiegley/dot-emacs
:commands (github-search-clone-repo github-search-user-clone-repo) :commands (github-search-clone-repo github-search-user-clone-repo)
:preface :preface
(progn (progn
(defun imalison:get-appropriate-path-from-gh-repo-for-go (repo)
(require 'go-mode)
(imalison:get-go-src "github.com" (oref (oref repo :owner) :login)
(oref repo :name)))
(defun imalison:get-projects-directory-target-from-repo (repo) (defun imalison:get-projects-directory-target-from-repo (repo)
(message "%s" (oref repo language))
(let ((prospective-path (let ((prospective-path
(imalison:join-paths imalison:projects-directory (oref repo :name)))) (if (equal (oref repo language) "Go")
(imalison:get-appropriate-path-from-gh-repo-for-go repo)
(imalison:join-paths imalison:projects-directory (oref repo :name)))))
(if (file-exists-p prospective-path) (if (file-exists-p prospective-path)
(funcall 'github-search-prompt-for-target-directory repo) (funcall 'github-search-prompt-for-target-directory repo)
prospective-path)))) prospective-path))))
@ -2198,11 +2205,11 @@ Pyimport is disabled because it may be causing a performance problem.
:mode (("\\.go\\'" . go-mode)) :mode (("\\.go\\'" . go-mode))
:preface :preface
(progn (progn
(defun go-mode-glide-novendor () (defun imalison: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 imalison: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
items follow a style that is consistent with other prog-modes." items follow a style that is consistent with other prog-modes."
@ -2223,26 +2230,35 @@ Pyimport is disabled because it may be causing a performance problem.
(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 imalison:go-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"))) (go-mode-get-go-path)) "src")))
(defun go-mode-install-current-project () (defun imalison:install-current-go-project ()
(interactive) (interactive)
(start-process (start-process
"go install" "go install log" "go" "install" "go install" "go install log" "go" "install"
(concat (file-name-as-directory (go-mode-workspace-path)) "..."))) (concat (file-name-as-directory (imalison:go-workspace-path)) "...")))
(defun go-mode-get-go-path () (defun imalison:get-go-path ()
(file-name-as-directory (car (s-split ":" (getenv "GOPATH"))))) (let ((environment-go-path (getenv "GOPATH")))
(if environment-go-path
(file-name-as-directory (car (s-split ":" environment-go-path)))
"~/go")))
(defmacro imalison:get-go-src (&rest paths)
`(imalison:join-paths (imalison:get-go-path) "src" ,@paths))
(imalison:let-advise-around imalison:advise-normal-go-command (imalison:let-advise-around imalison:advise-normal-go-command
(go-command "go")) (go-command "go"))
(defun imalison:go-mode-hook () (defun imalison:go-mode-hook ()
(go-eldoc-setup) (go-eldoc-setup)
(set (make-local-variable 'company-backends) '(company-go)))) (set (make-local-variable 'company-backends) '(company-go))
(make-local-variable 'projectile-globally-ignored-files)
(add-to-list 'projectile-globally-ignored-files
"vendor")))
:config :config
(progn (progn
(imalison:use-package* (imalison:use-package*
@ -2278,10 +2294,10 @@ Pyimport is disabled because it may be causing a performance problem.
(setq go-guru-scope (go-mode-parse-glide-novendor))) (setq go-guru-scope (go-mode-parse-glide-novendor)))
(defun go-mode-parse-glide-novendor () (defun go-mode-parse-glide-novendor ()
(s-join "," (s-join ","
(cl-loop for path in (s-split "\n" (go-mode-glide-novendor)) (cl-loop for path in (s-split "\n" (imalison:glide-novendor))
collect (if (string-equal path ".") collect (if (string-equal path ".")
(go-mode-workspace-path) (imalison:go-workspace-path)
(s-replace "\./" (go-mode-workspace-path) path)))))) (s-replace "\./" (imalison:go-workspace-path) path))))))
:config :config
(progn (progn
(advice-add 'go-guru--set-scope-if-empty :before 'imalison:set-go-guru-scope) (advice-add 'go-guru--set-scope-if-empty :before 'imalison:set-go-guru-scope)
@ -2298,7 +2314,7 @@ Pyimport is disabled because it may be causing a performance problem.
(add-hook 'go-mode-hook 'imalison:go-mode-hook) (add-hook 'go-mode-hook 'imalison:go-mode-hook)
(add-hook 'before-save-hook 'gofmt-before-save t) (add-hook 'before-save-hook 'gofmt-before-save t)
(add-hook 'after-save-hook 'go-mode-install-current-project))) (add-hook 'after-save-hook 'imalison:install-current-go-project)))
#+END_SRC #+END_SRC
***** Show diffs of testify output ***** Show diffs of testify output
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp