python-mode and go-mode to major modes

This commit is contained in:
Ivan Malison 2016-06-09 13:00:11 -07:00
parent e861aa1e64
commit 06effdf903

View File

@ -533,7 +533,6 @@ I use helm for almost all emacs completion
:config :config
:init (add-hook 'magit-status-mode-hook 'magit-filenotify-mode)))) :init (add-hook 'magit-status-mode-hook 'magit-filenotify-mode))))
#+END_SRC #+END_SRC
** Major-Mode
*** avy *** avy
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package avy (use-package avy
@ -544,6 +543,184 @@ I use helm for almost all emacs completion
("M-g l" . avy-goto-line) ("M-g l" . avy-goto-line)
("C-'" . avy-goto-char-2))) ("C-'" . avy-goto-char-2)))
#+END_SRC #+END_SRC
** Major Modes
*** python-mode
#+BEGIN_SRC emacs-lisp
(defvar use-python-tabs nil)
(defun python-tabs ()
(setq tab-width 4 indent-tabs-mode t python-indent-offset 4))
(defun add-virtual-envs-to-jedi-server ()
(let ((virtual-envs (get-virtual-envs)))
(when virtual-envs (set (make-local-variable 'jedi:server-args)
(make-virtualenv-args virtual-envs)))))
(defun make-virtualenv-args (virtual-envs)
(apply #'append (mapcar (lambda (env) `("-v" ,env)) virtual-envs)))
(defun imalison:project-root-or-current-directory ()
(if (projectile-project-p)
(projectile-project-root) (if (buffer-file-name)
(file-name-directory (buffer-file-name)))))
(defun get-virtual-envs ()
(let ((project-root (imalison:project-root-or-current-directory)))
(when project-root
(condition-case ex
(cl-remove-if-not 'file-exists-p
(mapcar (lambda (env-suffix)
(concat project-root env-suffix))
'(".tox/py27/" "env/" ".tox/venv/")))
('error
(message (format "Caught exception: [%s]" ex))
(setq retval (cons 'exception (list ex))))
nil))))
(defun message-virtual-envs ()
(interactive)
(message "%s" (get-virtual-envs)))
(use-package python
:commands python-mode
:mode ("\\.py\\'" . python-mode)
:config
(progn
(fset 'main "if __name__ == '__main__':")
(fset 'sphinx-class ":class:`~")
:init
(progn
(unbind-key "C-j" python-mode-map)
(use-package jedi
:commands (jedi:goto-definition jedi-mode)
:config
(progn
(setq jedi:complete-on-dot t)
(setq jedi:imenu-create-index-function 'jedi:create-flat-imenu-index)
(use-package company-jedi
:commands company-jedi))
:bind (:map python-mode-map
("M-." . jedi:goto-definition)
("M-," . jedi:goto-definition-pop-marker)))
(use-package pymacs)
(use-package sphinx-doc)
(defun imalison:python-mode ()
(setq show-trailing-whitespace t)
(if use-python-tabs (python-tabs))
(subword-mode t)
(imalison:make-imenu-index-flat)
(jedi:setup)
(add-virtual-envs-to-jedi-server)
(remove-hook 'completion-at-point-functions
'python-completion-complete-at-point 'local)
(set (make-local-variable 'company-backends) '(company-jedi)))
(add-hook 'python-mode-hook #'imalison:python-mode))))
#+END_SRC
*** go-mode
#+BEGIN_SRC emacs-lisp
(use-package go-mode
:mode (("\\.go\\'" . go-mode))
:preface
(progn
(defun go-mode-glide-novendor ()
(projectile-with-default-dir (projectile-project-root)
(shell-command-to-string "glide novendor")))
(defun go-mode-create-imenu-index ()
"Create and return an imenu index alist. Unlike the default
alist created by go-mode, this method creates an alist where
items follow a style that is consistent with other prog-modes."
(let* ((patterns '(("type" "^type *\\([^ \t\n\r\f]*\\)" 1)))
(type-index (imenu--generic-function patterns))
(func-index))
(save-excursion
(goto-char (point-min))
(while (re-search-forward go-func-meth-regexp (point-max) t)
(let* ((var (match-string-no-properties 1))
(func (match-string-no-properties 2))
(name (if var
(concat (substring var 0 -1) "." func)
func))
(beg (match-beginning 0))
(marker (copy-marker beg))
(item (cons name marker)))
(setq func-index (cons item func-index)))))
(nconc type-index (list (cons "func" func-index)))))
(defun go-mode-workspace-path ()
(file-relative-name (projectile-project-root)
(concat (file-name-as-directory
(or (getenv "GOPATH") "~/go")) "src")))
(defun go-mode-install-current-project ()
(interactive)
(start-process "go install" "go install log" "go" "install"
(concat (file-name-as-directory (go-mode-workspace-path))
"...")))
(defun go-mode-get-go-path ()
(file-name-as-directory (car (s-split ":" (getenv "GOPATH")))))
(imalison:let-advise-around imalison:advise-normal-go-command
(go-command "go"))
(defun imalison:go-mode-hook ()
(go-eldoc-setup)
(setq imenu-create-index-function
(lambda ()
(imalison:flatten-imenu-index
(go-mode-create-imenu-index))))
(set (make-local-variable 'company-backends) '(company-go))))
:config
(progn
(use-package gotest
:demand
:bind (:map go-mode-map
("C-c t" . imalison:gotest))
:preface
(progn
(imalison:prefix-alternatives
imalison:gotest go-test-current-test go-test-current-file))
:config
(progn
(setq go-test-verbose t)))
(use-package company-go
:config (setq company-go-show-annotation t))
(use-package go-projectile :demand t)
(use-package go-eldoc :demand t)
(use-package go-guru
:demand t
:bind (:map go-mode-map
("M-." . go-guru-definition)
("M-," . pop-tag-mark))
:preface
(progn
(defun imalison:set-go-guru-scope ()
(setq go-guru-scope (go-mode-parse-glide-novendor)))
(defun go-mode-parse-glide-novendor ()
(s-join ","
(cl-loop for path in (s-split "\n" (go-mode-glide-novendor))
collect (if (string-equal path ".")
(go-mode-workspace-path)
(s-replace "\./" (go-mode-workspace-path) path))))))
:config
(progn
(advice-add 'go-guru--set-scope-if-empty :before 'imalison:set-go-guru-scope)
(advice-add 'go-guru-start :before 'imalison:set-go-guru-scope)
(advice-add 'go-guru-definition :around 'imalison:advise-normal-go-command)
(advice-add 'go-guru-definition :before
(lambda ()
(with-no-warnings
(ring-insert find-tag-marker-ring (point-marker)))))))
(advice-add 'go-import-add :around 'imalison:advise-normal-go-command)
(setq gofmt-command "goimports")
(add-hook 'go-mode-hook 'imalison:go-mode-hook)
(add-hook 'before-save-hook 'gofmt-before-save t)
(add-hook 'after-save-hook 'go-mode-install-current-project)))
#+END_SRC
* Keybindings * Keybindings
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(bind-key "M-q" 'fill-or-unfill-paragraph) (bind-key "M-q" 'fill-or-unfill-paragraph)
@ -2025,80 +2202,6 @@ I use helm for almost all emacs completion
(define-key lisp-mode-shared-map (kbd "C-x C-e") 'eval-region-or-last-sexp) (define-key lisp-mode-shared-map (kbd "C-x C-e") 'eval-region-or-last-sexp)
(unbind-key "C-j" lisp-interaction-mode-map) (unbind-key "C-j" lisp-interaction-mode-map)
;; =============================================================================
;; Python
;; =============================================================================
(defvar use-python-tabs nil)
(defun python-tabs ()
(setq tab-width 4 indent-tabs-mode t python-indent-offset 4))
(defun add-virtual-envs-to-jedi-server ()
(let ((virtual-envs (get-virtual-envs)))
(when virtual-envs (set (make-local-variable 'jedi:server-args)
(make-virtualenv-args virtual-envs)))))
(defun make-virtualenv-args (virtual-envs)
(apply #'append (mapcar (lambda (env) `("-v" ,env)) virtual-envs)))
(defun imalison:project-root-or-current-directory ()
(if (projectile-project-p)
(projectile-project-root) (if (buffer-file-name)
(file-name-directory (buffer-file-name)))))
(defun get-virtual-envs ()
(let ((project-root (imalison:project-root-or-current-directory)))
(when project-root
(condition-case ex
(cl-remove-if-not 'file-exists-p
(mapcar (lambda (env-suffix)
(concat project-root env-suffix))
'(".tox/py27/" "env/" ".tox/venv/")))
('error
(message (format "Caught exception: [%s]" ex))
(setq retval (cons 'exception (list ex))))
nil))))
(defun message-virtual-envs ()
(interactive)
(message "%s" (get-virtual-envs)))
(use-package python
:commands python-mode
:mode ("\\.py\\'" . python-mode)
:config
(progn
(fset 'main "if __name__ == '__main__':")
(fset 'sphinx-class ":class:`~")
:init
(progn
(unbind-key "C-j" python-mode-map)
(use-package jedi
:commands (jedi:goto-definition jedi-mode)
:config
(progn
(setq jedi:complete-on-dot t)
(setq jedi:imenu-create-index-function 'jedi:create-flat-imenu-index)
(use-package company-jedi
:commands company-jedi))
:bind (:map python-mode-map
("M-." . jedi:goto-definition)
("M-," . jedi:goto-definition-pop-marker)))
(use-package pymacs)
(use-package sphinx-doc)
(defun imalison:python-mode ()
(setq show-trailing-whitespace t)
(if use-python-tabs (python-tabs))
(subword-mode t)
(imalison:make-imenu-index-flat)
(jedi:setup)
(add-virtual-envs-to-jedi-server)
(remove-hook 'completion-at-point-functions
'python-completion-complete-at-point 'local)
(set (make-local-variable 'company-backends) '(company-jedi)))
(add-hook 'python-mode-hook #'imalison:python-mode))))
;; ============================================================================= ;; =============================================================================
;; Scala ;; Scala
;; ============================================================================= ;; =============================================================================
@ -2316,109 +2419,6 @@ I use helm for almost all emacs completion
;; other modes ;; other modes
;; ============================================================================= ;; =============================================================================
(use-package go-mode
:mode (("\\.go\\'" . go-mode))
:preface
(progn
(defun go-mode-glide-novendor ()
(projectile-with-default-dir (projectile-project-root)
(shell-command-to-string "glide novendor")))
(defun go-mode-create-imenu-index ()
"Create and return an imenu index alist. Unlike the default
alist created by go-mode, this method creates an alist where
items follow a style that is consistent with other prog-modes."
(let* ((patterns '(("type" "^type *\\([^ \t\n\r\f]*\\)" 1)))
(type-index (imenu--generic-function patterns))
(func-index))
(save-excursion
(goto-char (point-min))
(while (re-search-forward go-func-meth-regexp (point-max) t)
(let* ((var (match-string-no-properties 1))
(func (match-string-no-properties 2))
(name (if var
(concat (substring var 0 -1) "." func)
func))
(beg (match-beginning 0))
(marker (copy-marker beg))
(item (cons name marker)))
(setq func-index (cons item func-index)))))
(nconc type-index (list (cons "func" func-index)))))
(defun go-mode-workspace-path ()
(file-relative-name (projectile-project-root)
(concat (file-name-as-directory
(or (getenv "GOPATH") "~/go")) "src")))
(defun go-mode-install-current-project ()
(interactive)
(start-process "go install" "go install log" "go" "install"
(concat (file-name-as-directory (go-mode-workspace-path))
"...")))
(defun go-mode-get-go-path ()
(file-name-as-directory (car (s-split ":" (getenv "GOPATH")))))
(imalison:let-advise-around imalison:advise-normal-go-command
(go-command "go"))
(defun imalison:go-mode-hook ()
(go-eldoc-setup)
(setq imenu-create-index-function
(lambda ()
(imalison:flatten-imenu-index
(go-mode-create-imenu-index))))
(set (make-local-variable 'company-backends) '(company-go))))
:config
(progn
(use-package gotest
:demand
:bind (:map go-mode-map
("C-c t" . imalison:gotest))
:preface
(progn
(imalison:prefix-alternatives
imalison:gotest go-test-current-test go-test-current-file))
:config
(progn
(setq go-test-verbose t)))
(use-package company-go
:config (setq company-go-show-annotation t))
(use-package go-projectile :demand t)
(use-package go-eldoc :demand t)
(use-package go-guru
:demand t
:bind (:map go-mode-map
("M-." . go-guru-definition)
("M-," . pop-tag-mark))
:preface
(progn
(defun imalison:set-go-guru-scope ()
(setq go-guru-scope (go-mode-parse-glide-novendor)))
(defun go-mode-parse-glide-novendor ()
(s-join ","
(cl-loop for path in (s-split "\n" (go-mode-glide-novendor))
collect (if (string-equal path ".")
(go-mode-workspace-path)
(s-replace "\./" (go-mode-workspace-path) path))))))
:config
(progn
(advice-add 'go-guru--set-scope-if-empty :before 'imalison:set-go-guru-scope)
(advice-add 'go-guru-start :before 'imalison:set-go-guru-scope)
(advice-add 'go-guru-definition :around 'imalison:advise-normal-go-command)
(advice-add 'go-guru-definition :before
(lambda ()
(with-no-warnings
(ring-insert find-tag-marker-ring (point-marker)))))))
(advice-add 'go-import-add :around 'imalison:advise-normal-go-command)
(setq gofmt-command "goimports")
(add-hook 'go-mode-hook 'imalison:go-mode-hook)
(add-hook 'before-save-hook 'gofmt-before-save t)
(add-hook 'after-save-hook 'go-mode-install-current-project)))
(use-package rust-mode (use-package rust-mode
:mode (("\\.rs\\'" . rust-mode)) :mode (("\\.rs\\'" . rust-mode))
:preface :preface
@ -2468,18 +2468,7 @@ I use helm for almost all emacs completion
(progn (progn
(add-hook 'markdown-mode-hook 'imalison:disable-linum-mode))) (add-hook 'markdown-mode-hook 'imalison:disable-linum-mode)))
;; =============================================================================
;; Custom Key Bindings
;; =============================================================================
;; Miscellaneous
;; =============================================================================
;; toys
;; =============================================================================
(use-package hackernews :commands hackernews) (use-package hackernews :commands hackernews)
#+END_SRC #+END_SRC
* Appearance * Appearance