]> code.delx.au - dotemacs/blob - lisp/my-minor-modes.el
Work around yank text bug
[dotemacs] / lisp / my-minor-modes.el
1 ;;; -*- lexical-binding: t -*-
2
3 (require 'ace-window)
4 (setq aw-scope 'frame)
5 (setq aw-keys '(?h ?t ?n ?s))
6
7 (require 'autorevert)
8 (global-auto-revert-mode 1)
9 (setq global-auto-revert-non-file-buffers t)
10 (setq auto-revert-verbose nil)
11
12 (require 'avy)
13 (setq avy-background t)
14 (setq avy-all-windows nil)
15 (setq avy-timeout-seconds 0.3)
16 (setq avy-keys '(?a ?o ?e ?u ?h ?t ?n ?s))
17
18 (require 'change-inner)
19
20 (require 'editorconfig)
21 (editorconfig-mode 1)
22
23 (require 'elisp-slime-nav)
24 (dolist (hook '(emacs-lisp-mode-hook ielm-mode-hook))
25 (add-hook hook 'elisp-slime-nav-mode))
26
27 (require 'expand-region)
28
29 (require 'goto-addr)
30 (add-hook 'text-mode-hook #'goto-address-mode)
31 (add-hook 'prog-mode-hook #'goto-address-prog-mode)
32 (setq goto-address-highlight-keymap
33 (let ((m (make-sparse-keymap)))
34 (define-key m (kbd "C-<mouse-1>") 'goto-address-at-point)
35 (define-key m (kbd "<mouse-2>") 'ignore) ; fixes yank text bug for some reason
36 (define-key m (kbd "C-c RET") 'goto-address-at-point)
37 m))
38
39
40 (require 'hl-line)
41 (global-hl-line-mode)
42
43 (require 'hl-todo)
44 (add-hook 'prog-mode-hook #'hl-todo-mode)
45
46 (require 'indent-guide)
47 (indent-guide-global-mode)
48
49 (require 'flyspell)
50
51 (require 'misc)
52
53 (require 'multiple-cursors)
54
55 (require 'saveplace)
56 (setq-default save-place t)
57
58 (require 'xt-mouse)
59 (xterm-mouse-mode)
60
61 (require 'yasnippet)
62 (add-hook 'prog-mode-hook #'yas-minor-mode)
63 (add-hook 'python-mode-hook
64 (lambda () (set (make-local-variable 'yas-indent-line) 'fixed)))
65 (yas-reload-all)
66
67 (require 'diminish)
68 (add-hook 'after-init-hook
69 (lambda ()
70 (diminish 'git-gutter-mode)
71 (diminish 'indent-guide-mode)
72 (diminish 'ivy-mode)
73 (diminish 'elisp-slime-nav-mode)
74 (diminish 'yas-minor-mode)))