code.delx.au - dotemacs/blob - lisp/my-other-modes.el

   1 ;;; -*- lexical-binding: t -*-
   2
   3 (require 'autorevert)
   4 (global-auto-revert-mode 1)
   5 (setq global-auto-revert-non-file-buffers t)
   6 (setq auto-revert-verbose nil)
   7
   8 (require 'dired-x)
   9 (require 'direx)
  10 (require 'direx-project)
  11 (defalias 'direx:find-item 'direx:find-item-other-window)
  12
  13 (setq disabled-command-function nil)
  14
  15 (setq find-file-visit-truename t)
  16
  17 (require 'hl-line)
  18 (global-hl-line-mode)
  19
  20 (require 'ibuffer-vc)
  21 (add-hook 'ibuffer-hook
  22           (lambda ()
  23             (ibuffer-vc-set-filter-groups-by-vc-root)
  24             (unless (eq ibuffer-sorting-mode 'alphabetic)
  25               (ibuffer-do-sort-by-alphabetic))))
  26
  27 (require 'popwin)
  28 (popwin-mode 1)
  29 (push '(direx:direx-mode :position left :width 40 :dedicated t)
  30       popwin:special-display-config)
  31 (push '("*git-gutter:diff*" :stick t)
  32       popwin:special-display-config)
  33
  34 (require 'restclient)
  35
  36 (setq require-final-newline t)
  37
  38 (setq save-interprogram-paste-before-kill t)
  39
  40 (setq shift-select-mode nil)
  41 (delete-selection-mode t)
  42
  43 (require 'saveplace)
  44 (setq-default save-place t)
  45
  46 (dolist (hook '(prog-mode-hook text-mode-hook))
  47   (add-hook hook (lambda ()
  48                    (setq show-trailing-whitespace t))))
  49
  50 (setq undo-limit 10000000)
  51 (setq undo-strong-limit undo-limit)
  52
  53 (require 'vc)
  54 (setq vc-follow-symlinks t)