From 9650a843f0198d4448fea34dcf7a9d90fc684f01 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 7 Mar 2014 18:15:53 -0500 Subject: Use diminish to shorten mode line --- init.el | 2 +- 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 ++ 8 files changed, 23 insertions(+), 5 deletions(-) diff --git a/init.el b/init.el index dd78c11..d10c2cb 100644 --- a/init.el +++ b/init.el @@ -2,8 +2,8 @@ (add-to-list 'load-path init-lisp-dir) (add-to-list 'load-path (expand-file-name "vendor" user-emacs-directory)) -(require 'init-appearance) (require 'init-elpa) +(require 'init-appearance) (require 'init-general) (require-package 'dash) 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