code.delx.au - dotemacs/blob - 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 (setq avy-style 'at)
  18
  19 (require 'change-inner)
  20
  21 (require 'editorconfig)
  22 (editorconfig-mode 1)
  23
  24 (require 'elisp-slime-nav)
  25 (dolist (hook '(emacs-lisp-mode-hook ielm-mode-hook))
  26   (add-hook hook 'elisp-slime-nav-mode))
  27
  28 (require 'expand-region)
  29
  30 (require 'goto-addr)
  31 (add-hook 'text-mode-hook #'goto-address-mode)
  32 (add-hook 'prog-mode-hook #'goto-address-prog-mode)
  33 (setq goto-address-highlight-keymap
  34       (let ((m (make-sparse-keymap)))
  35         (define-key m (kbd "C-<mouse-1>") 'goto-address-at-point)
  36         ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=25715
  37         (define-key m (kbd "<mouse-2>") 'ignore) ; fixes yank text bug for some reason
  38         (define-key m (kbd "C-c RET") 'goto-address-at-point)
  39         m))
  40
  41 (require 'goto-chg)
  42
  43 (require 'highlight-indent-guides)
  44 (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
  45 (setq highlight-indent-guides-method 'character)
  46 (setq highlight-indent-guides-responsive 'top)
  47 (setq highlight-indent-guides-auto-enabled nil)
  48 (set-face-foreground 'highlight-indent-guides-character-face "#333333")
  49 (set-face-foreground 'highlight-indent-guides-top-character-face "#726464")
  50
  51 (require 'highlight-symbol)
  52 (add-hook 'prog-mode-hook #'highlight-symbol-mode)
  53 (add-hook 'prog-mode-hook #'highlight-symbol-nav-mode)
  54 (setq highlight-symbol-idle-delay 0.5)
  55
  56 (require 'hl-line)
  57 (global-hl-line-mode)
  58
  59 (require 'hl-todo)
  60 (global-hl-todo-mode)
  61
  62 (require 'jump-char)
  63
  64 (require 'flyspell)
  65
  66 (require 'misc)
  67
  68 (require 'multiple-cursors)
  69
  70 (require 'saveplace)
  71 (setq-default save-place t)
  72
  73 (require 'xt-mouse)
  74 (xterm-mouse-mode)
  75
  76 (require 'yasnippet)
  77 (add-hook 'prog-mode-hook #'yas-minor-mode)
  78 (add-hook 'python-mode-hook
  79           (lambda () (set (make-local-variable 'yas-indent-line) 'fixed)))
  80 (yas-reload-all)
  81
  82 (require 'diminish)
  83 (add-hook 'after-init-hook
  84           (lambda ()
  85             (diminish 'counsel-mode)
  86             (diminish 'editorconfig-mode)
  87             (diminish 'git-gutter-mode)
  88             (diminish 'highlight-symbol-mode)
  89             (diminish 'highlight-indent-guides-mode)
  90             (diminish 'ivy-mode)
  91             (diminish 'yas-minor-mode)))