forked from colonelpanic/dotfiles
move emacs-lisp to major-modes
This commit is contained in:
parent
0682d0d580
commit
4e72d2ff6a
@ -1134,6 +1134,50 @@ I use helm for almost all emacs completion
|
|||||||
(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 'go-mode-install-current-project)))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
*** emacs-lisp
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(setq edebug-trace t)
|
||||||
|
|
||||||
|
(use-package macrostep)
|
||||||
|
|
||||||
|
(use-package emr
|
||||||
|
:bind ("M-RET" . emr-show-refactor-menu)
|
||||||
|
:config
|
||||||
|
(progn
|
||||||
|
(add-hook 'prog-mode-hook 'emr-initialize)))
|
||||||
|
|
||||||
|
(use-package elisp-slime-nav
|
||||||
|
:commands elisp-slime-nav-mode
|
||||||
|
:config
|
||||||
|
(diminish 'elisp-slime-nav-mode)
|
||||||
|
:init
|
||||||
|
(add-hook 'emacs-lisp-mode-hook (lambda () (elisp-slime-nav-mode t))))
|
||||||
|
|
||||||
|
|
||||||
|
(defun imenu-elisp-sections ()
|
||||||
|
(setq imenu-prev-index-position-function nil)
|
||||||
|
(setq imenu-space-replacement nil)
|
||||||
|
(add-to-list 'imenu-generic-expression
|
||||||
|
`("Package"
|
||||||
|
,"(use-package \\(.+\\)$" 1))
|
||||||
|
(add-to-list 'imenu-generic-expression
|
||||||
|
`("Section"
|
||||||
|
,(concat ";\\{1,4\\} =\\{10,80\\}\n;\\{1,4\\} \\{10,80\\}"
|
||||||
|
"\\(.+\\)$") 1) t))
|
||||||
|
|
||||||
|
(put 'use-package 'lisp-indent-function 1) ;; reduce indentation for use-package
|
||||||
|
(add-hook 'emacs-lisp-mode-hook 'imenu-elisp-sections)
|
||||||
|
(add-hook 'emacs-lisp-mode-hook 'flatten-current-imenu-index-function)
|
||||||
|
(add-hook 'emacs-lisp-mode-hook (lambda ()
|
||||||
|
(setq indent-tabs-mode nil)
|
||||||
|
(setq show-trailing-whitespace t)))
|
||||||
|
(define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun)
|
||||||
|
(define-key lisp-mode-shared-map (kbd "C-c C-r") 'eval-and-replace)
|
||||||
|
(define-key lisp-mode-shared-map (kbd "C-c o r") 'up-list-region)
|
||||||
|
(define-key lisp-mode-shared-map (kbd "C-c o o") 'up-list-back)
|
||||||
|
(define-key lisp-mode-shared-map (kbd "C-x C-e") 'eval-region-or-last-sexp)
|
||||||
|
(unbind-key "C-j" lisp-interaction-mode-map)
|
||||||
|
#+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)
|
||||||
@ -2055,10 +2099,6 @@ I use helm for almost all emacs completion
|
|||||||
;; (add-hook 'prog-mode-hook (lambda () (highlight-lines-matching-regexp
|
;; (add-hook 'prog-mode-hook (lambda () (highlight-lines-matching-regexp
|
||||||
;; ".\\{81\\}" 'hi-blue)))
|
;; ".\\{81\\}" 'hi-blue)))
|
||||||
|
|
||||||
;; =============================================================================
|
|
||||||
;; File Navigation: helm/projectile/ido
|
|
||||||
;; =============================================================================
|
|
||||||
|
|
||||||
(use-package web-mode
|
(use-package web-mode
|
||||||
:mode (("\\.tmpl\\'" . web-mode)
|
:mode (("\\.tmpl\\'" . web-mode)
|
||||||
("\\.cql\\'" . web-mode))
|
("\\.cql\\'" . web-mode))
|
||||||
@ -2158,52 +2198,6 @@ I use helm for almost all emacs completion
|
|||||||
|
|
||||||
(when (or (and (boundp 'use-ido) use-ido) (not (boundp 'use-ido))) (ido-mode 1))
|
(when (or (and (boundp 'use-ido) use-ido) (not (boundp 'use-ido))) (ido-mode 1))
|
||||||
|
|
||||||
;; =============================================================================
|
|
||||||
;; elisp
|
|
||||||
;; =============================================================================
|
|
||||||
|
|
||||||
(setq edebug-trace t)
|
|
||||||
|
|
||||||
(use-package macrostep)
|
|
||||||
|
|
||||||
(use-package emr
|
|
||||||
:bind ("M-RET" . emr-show-refactor-menu)
|
|
||||||
:config
|
|
||||||
(progn
|
|
||||||
(add-hook 'prog-mode-hook 'emr-initialize)))
|
|
||||||
|
|
||||||
(use-package elisp-slime-nav
|
|
||||||
:commands elisp-slime-nav-mode
|
|
||||||
:config
|
|
||||||
(diminish 'elisp-slime-nav-mode)
|
|
||||||
:init
|
|
||||||
(add-hook 'emacs-lisp-mode-hook (lambda () (elisp-slime-nav-mode t))))
|
|
||||||
|
|
||||||
|
|
||||||
(defun imenu-elisp-sections ()
|
|
||||||
(setq imenu-prev-index-position-function nil)
|
|
||||||
(setq imenu-space-replacement nil)
|
|
||||||
(add-to-list 'imenu-generic-expression
|
|
||||||
`("Package"
|
|
||||||
,"(use-package \\(.+\\)$" 1))
|
|
||||||
(add-to-list 'imenu-generic-expression
|
|
||||||
`("Section"
|
|
||||||
,(concat ";\\{1,4\\} =\\{10,80\\}\n;\\{1,4\\} \\{10,80\\}"
|
|
||||||
"\\(.+\\)$") 1) t))
|
|
||||||
|
|
||||||
(put 'use-package 'lisp-indent-function 1) ;; reduce indentation for use-package
|
|
||||||
(add-hook 'emacs-lisp-mode-hook 'imenu-elisp-sections)
|
|
||||||
(add-hook 'emacs-lisp-mode-hook 'flatten-current-imenu-index-function)
|
|
||||||
(add-hook 'emacs-lisp-mode-hook (lambda ()
|
|
||||||
(setq indent-tabs-mode nil)
|
|
||||||
(setq show-trailing-whitespace t)))
|
|
||||||
(define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun)
|
|
||||||
(define-key lisp-mode-shared-map (kbd "C-c C-r") 'eval-and-replace)
|
|
||||||
(define-key lisp-mode-shared-map (kbd "C-c o r") 'up-list-region)
|
|
||||||
(define-key lisp-mode-shared-map (kbd "C-c o o") 'up-list-back)
|
|
||||||
(define-key lisp-mode-shared-map (kbd "C-x C-e") 'eval-region-or-last-sexp)
|
|
||||||
(unbind-key "C-j" lisp-interaction-mode-map)
|
|
||||||
|
|
||||||
;; =============================================================================
|
;; =============================================================================
|
||||||
;; Scala
|
;; Scala
|
||||||
;; =============================================================================
|
;; =============================================================================
|
||||||
|
Loading…
Reference in New Issue
Block a user