Are there support groups for emacs addicts?

This commit is contained in:
Henrik Lissner 2014-12-13 19:37:04 -05:00
parent e40c4dc6da
commit 230b707413
5 changed files with 26 additions and 10 deletions

View file

@ -32,8 +32,7 @@
(after "evil" (evil-ex-define-cmd "ref[actor]" 'emr-show-refactor-menu)))) (after "evil" (evil-ex-define-cmd "ref[actor]" 'emr-show-refactor-menu))))
;; todo's ;; todo's
(use-package hl-todo (use-package hl-todo :init (add-hook 'find-file-hook 'hl-todo-mode))
:init (add-hook! 'after-init-hook (add-hook 'find-file-hook 'hl-todo-mode)))
(use-package helm-todo :commands my:helm-todo-search) (use-package helm-todo :commands my:helm-todo-search)
(evil-ex-define-cmd "todo" 'my:helm-todo) (evil-ex-define-cmd "todo" 'my:helm-todo)

View file

@ -1,13 +1,18 @@
(use-package flycheck (use-package flycheck
:defer t :defer t
:init (add-hook 'prog-mode-hook 'flycheck-mode) :pre-load
(setq-default flycheck-indication-mode 'right-fringe
;; Removed checks on idle/change for snappiness
flycheck-check-syntax-automatically '(save mode-enabled)
flycheck-disabled-checkers '(emacs-lisp-checkdoc emacs-lisp make))
:init
(dolist (hook '(ruby-mode-hook
python-mode-hook
shell-mode-hook
))
(add-hook hook 'flycheck-mode))
:config :config
(progn ; flycheck settings (progn ; flycheck settings
(setq-default flycheck-indication-mode 'right-fringe
;; Removed checks on idle/change for snappiness
flycheck-check-syntax-automatically '(save mode-enabled)
flycheck-disabled-checkers '(emacs-lisp-checkdoc make))
(my--cleanup-buffers-add "^\\*Flycheck.*\\*$") (my--cleanup-buffers-add "^\\*Flycheck.*\\*$")
(bind 'normal flycheck-error-list-mode-map (bind 'normal flycheck-error-list-mode-map

View file

@ -66,7 +66,7 @@
:type inclusive :type inclusive
:repeat nil :repeat nil
(interactive "<r><a><!>") (interactive "<r><a><!>")
(my:helm-ag-search beg end search bang t nil)))) (my:helm-ag-search beg end search bang t nil))
(evil-define-operator my:helm-ag-regex-search-cwd (beg end &optional search bang) (evil-define-operator my:helm-ag-regex-search-cwd (beg end &optional search bang)
:type inclusive :type inclusive

View file

@ -103,10 +103,21 @@
(evil-normal-state) (evil-normal-state)
(evil-visual-restore))) (evil-visual-restore)))
(defun my--enable-linum ()
(interactive)
(linum-mode 1)
(add-hook 'pre-command-hook 'my--disable-linum))
(defun my--disable-linum ()
(interactive)
(linum-mode 0)
(remove-hook 'pre-command-hook 'my--disable-linum))
(bind 'god my-mode-map (bind 'god my-mode-map
;; <localleader> ;; <localleader>
"\\" 'neotree-toggle "\\" 'neotree-toggle
":" 'linum-mode ";" 'linum-mode
"=" 'toggle-transparency "=" 'toggle-transparency
"e" 'evil-emacs-state "e" 'evil-emacs-state

View file

@ -86,6 +86,7 @@
"\C-w" 'ido-delete-backward-word-updir)) "\C-w" 'ido-delete-backward-word-updir))
;; Make ESC quit all the things ;; Make ESC quit all the things
(bind minibuffer-inactive-mode-map [escape] (λ (other-window 1)))
(bind (list minibuffer-local-map (bind (list minibuffer-local-map
minibuffer-local-ns-map minibuffer-local-ns-map
minibuffer-local-completion-map minibuffer-local-completion-map