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 (require 'ibuffer-vc)
  16 (add-hook 'ibuffer-hook
  17           (lambda ()
  18             (ibuffer-vc-set-filter-groups-by-vc-root)
  19             (unless (eq ibuffer-sorting-mode 'alphabetic)
  20               (ibuffer-do-sort-by-alphabetic))))
  21
  22 (require 'popwin)
  23 (popwin-mode 1)
  24 (push '(direx:direx-mode :position left :width 40 :dedicated t)
  25       popwin:special-display-config)
  26 (push '("*git-gutter:diff*" :stick t)
  27       popwin:special-display-config)
  28
  29 (require 'restclient)
  30
  31 (setq require-final-newline t)
  32
  33 (setq save-interprogram-paste-before-kill t)
  34
  35 (setq shift-select-mode nil)
  36 (delete-selection-mode t)
  37
  38 (require 'saveplace)
  39 (setq-default save-place t)
  40
  41 (dolist (hook '(prog-mode-hook text-mode-hook))
  42   (add-hook hook (lambda ()
  43                    (setq show-trailing-whitespace t))))
  44
  45 (setq undo-limit 10000000)
  46 (setq undo-strong-limit undo-limit)
  47
  48 (require 'vc)
  49 (setq vc-follow-symlinks t)