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         (define-key m (kbd "<mouse-2>") 'ignore) ; fixes yank text bug for some reason
  37         (define-key m (kbd "C-c RET") 'goto-address-at-point)
  38         m))
  39
  40 (require 'goto-chg)
  41
  42 (require 'highlight-indent-guides)
  43 (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
  44 (setq highlight-indent-guides-method 'character)
  45 (setq highlight-indent-guides-responsive 'top)
  46 (setq highlight-indent-guides-auto-enabled nil)
  47 (set-face-foreground 'highlight-indent-guides-character-face "#333333")
  48 (set-face-foreground 'highlight-indent-guides-top-character-face "#726464")
  49
  50 (require 'highlight-symbol)
  51 (add-hook 'prog-mode-hook #'highlight-symbol-mode)
  52 (add-hook 'prog-mode-hook #'highlight-symbol-nav-mode)
  53 (setq highlight-symbol-idle-delay 0.5)
  54
  55 (require 'hl-line)
  56 (global-hl-line-mode)
  57
  58 (require 'hl-todo)
  59 (global-hl-todo-mode)
  60
  61 (require 'jump-char)
  62
  63 (require 'flyspell)
  64
  65 (require 'misc)
  66
  67 (require 'multiple-cursors)
  68
  69 (require 'saveplace)
  70 (setq-default save-place t)
  71
  72 (require 'xt-mouse)
  73 (xterm-mouse-mode)
  74
  75 (require 'yasnippet)
  76 (add-hook 'prog-mode-hook #'yas-minor-mode)
  77 (add-hook 'python-mode-hook
  78           (lambda () (set (make-local-variable 'yas-indent-line) 'fixed)))
  79 (yas-reload-all)
  80
  81 (require 'diminish)
  82 (add-hook 'after-init-hook
  83           (lambda ()
  84             (diminish 'editorconfig-mode)
  85             (diminish 'git-gutter-mode)
  86             (diminish 'highlight-symbol-mode)
  87             (diminish 'highlight-indent-guides-mode)
  88             (diminish 'ivy-mode)
  89             (diminish 'yas-minor-mode)))