only show trailing whitespace in text/prog modes

[dotemacs] / lisp / my-other-modes.el

diff --git a/lisp/my-other-modes.el b/lisp/my-other-modes.el
index 8189b0591d2280c1b273c71ae97dc42dcbd10825..c8baa0329a8b1c59e8941a507290e5cf7703de47 100644 (file)
--- a/lisp/my-other-modes.el
+++ b/lisp/my-other-modes.el
@@ -1,9 +1,12 @@
+;;; -*- lexical-binding: t -*-
+
 (require 'autorevert)
 (global-auto-revert-mode 1)
 (setq global-auto-revert-non-file-buffers t)
 (setq auto-revert-verbose nil)
 
-(require 'dired-x)
+(require 'direx)
+(require 'direx-project)
 
 (setq disabled-command-function nil)
 
@@ -14,17 +17,16 @@
             (unless (eq ibuffer-sorting-mode 'alphabetic)
               (ibuffer-do-sort-by-alphabetic))))
 
-(require 'recentf)
-(recentf-mode 1)
-(setq recentf-max-saved-items 50)
-(run-at-time nil 600 'recentf-save-list)
-
-(setq require-final-newline t)
+(require 'popwin)
+(popwin-mode 1)
+(push '(direx:direx-mode :position left :width 40 :dedicated t)
+      popwin:special-display-config)
+(push '("*git-gutter:diff*" :stick t)
+      popwin:special-display-config)
 
 (require 'restclient)
-(add-hook 'restclient-mode-hook
-          (lambda ()
-            (flycheck-mode -1)))
+
+(setq require-final-newline t)
 
 (setq save-interprogram-paste-before-kill t)
 
@@ -32,10 +34,14 @@
 (delete-selection-mode t)
 
 (require 'saveplace)
-(setq save-place-file "~/.emacs.d/save-place-file")
 (setq-default save-place t)
 
+(dolist (hook '(prog-mode-hook text-mode-hook))
+  (add-hook hook (lambda ()
+                   (setq show-trailing-whitespace t))))
+
+(setq undo-limit 10000000)
+(setq undo-strong-limit undo-limit)
+
 (require 'vc)
 (setq vc-follow-symlinks t)
-
-(defalias 'yes-or-no-p 'y-or-n-p)