From 9650a843f0198d4448fea34dcf7a9d90fc684f01 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Fri, 7 Mar 2014 18:15:53 -0500
Subject: Use diminish to shorten mode line

---
 lisp/init-appearance.el | 6 ++++++
 lisp/init-editing.el    | 3 ++-
 lisp/init-elisp.el      | 3 ++-
 lisp/init-git.el        | 7 +++++--
 lisp/init-projectile.el | 2 ++
 lisp/init-tex.el        | 3 +++
 lisp/init-yas.el        | 2 ++
 7 files changed, 22 insertions(+), 4 deletions(-)

(limited to 'lisp')

diff --git a/lisp/init-appearance.el b/lisp/init-appearance.el
index 8882194..c7943c4 100644
--- a/lisp/init-appearance.el
+++ b/lisp/init-appearance.el
@@ -12,4 +12,10 @@
 (column-number-mode t)
 (size-indication-mode t)
 
+(require-package 'diminish)
+(require 'diminish)
+(diminish 'abbrev-mode "Ab")
+;; Other minor modes (paredit, view, yas, ...) are diminished where they
+;; are setup.
+
 (provide 'init-appearance)
diff --git a/lisp/init-editing.el b/lisp/init-editing.el
index efa72d7..272e51f 100644
--- a/lisp/init-editing.el
+++ b/lisp/init-editing.el
@@ -10,7 +10,8 @@
 (eval-after-load 'view
   '(progn
      (define-key view-mode-map "l" 'recenter-top-bottom)
-     (define-key view-mode-map "a" 'ace-jump-mode)))
+     (define-key view-mode-map "a" 'ace-jump-mode)
+     (diminish 'view-mode "Vw")))
 
 ;; Overrides `suspend-emacs' (which is also bound to C-x C-z).
 (global-set-key (kbd "C-z") 'zap-to-char)
diff --git a/lisp/init-elisp.el b/lisp/init-elisp.el
index 9437134..4a7750f 100644
--- a/lisp/init-elisp.el
+++ b/lisp/init-elisp.el
@@ -11,6 +11,7 @@
     (define-key paredit-mode-map (kbd "C-,") 'paredit-forward-slurp-sexp)
     (define-key paredit-mode-map (kbd "C-.") 'paredit-forward-barf-sexp)
     (define-key paredit-mode-map (kbd "C-M-,") 'paredit-backward-slurp-sexp)
-    (define-key paredit-mode-map (kbd "C-M-.") 'paredit-backward-barf-sexp)))
+    (define-key paredit-mode-map (kbd "C-M-.") 'paredit-backward-barf-sexp)
+    (diminish 'paredit-mode "Pe")))
 
 (provide 'init-elisp)
diff --git a/lisp/init-git.el b/lisp/init-git.el
index 53a039e..b4c6d24 100644
--- a/lisp/init-git.el
+++ b/lisp/init-git.el
@@ -15,8 +15,10 @@ Useful for non-source code repos (e.g., Org mode note files)."
 
 
 (eval-after-load 'magit
-    '(magit-key-mode-insert-action 'committing
-                                   "u" "Auto commit" 'km/magit-auto-commit))
+  '(progn
+     (magit-key-mode-insert-action 'committing
+                                   "u" "Auto commit" 'km/magit-auto-commit)
+     (diminish 'magit-auto-revert-mode)))
 
 ;; http://whattheemacsd.com/setup-magit.el-01.html
 (defadvice magit-status (around magit-fullscreen activate)
@@ -28,4 +30,5 @@ Useful for non-source code repos (e.g., Org mode note files)."
       magit-completing-read-function 'magit-ido-completing-read
       magit-log-show-margin nil)
 
+
 (provide 'init-git)
diff --git a/lisp/init-projectile.el b/lisp/init-projectile.el
index 538a8d3..150dd3f 100644
--- a/lisp/init-projectile.el
+++ b/lisp/init-projectile.el
@@ -39,4 +39,6 @@ I have set `projectile-switch-project-action' to
 (key-chord-define-global ";r" 'projectile-replace)
 (key-chord-define-global ";c" 'projectile-commander)
 
+(diminish 'projectile-mode)
+
 (provide 'init-projectile)
diff --git a/lisp/init-tex.el b/lisp/init-tex.el
index 7e58cf7..1eed85a 100644
--- a/lisp/init-tex.el
+++ b/lisp/init-tex.el
@@ -76,4 +76,7 @@ The point should be beyond \"\\section\"."
           '(lambda ()
              (local-set-key (kbd "C-c m p") 'km/latex-find-pdf)))
 
+(eval-after-load 'reftex
+    '(diminish 'reftex-mode "Rf"))
+
 (provide 'init-tex)
diff --git a/lisp/init-yas.el b/lisp/init-yas.el
index e85f375..05cfba8 100644
--- a/lisp/init-yas.el
+++ b/lisp/init-yas.el
@@ -6,4 +6,6 @@
 (add-hook 'prog-mode-hook 'yas-minor-mode)
 (add-hook 'LaTeX-mode-hook 'yas-minor-mode)
 
+(diminish 'yas-minor-mode)
+
 (provide 'init-yas)
-- 
cgit v1.2.3