 
 ;; undo highlighting
 ;; highlight changes made by undo
-(use-package volatile-highlights 
-             :ensure t
-             :config
-             (volatile-highlights-mode t))
-;; change arg colors
-(use-package color-identifiers-mode)
+(use-package volatile-highlights
+  :ensure t
+  :diminish volatile-highlights-mode
+  :config
+  (volatile-highlights-mode t))
+
 ;; show keystrokes in progress
 (setq echo-keystrokes 0.1)
 


;; Pretty mode
;; Base set of pretty symbols.
(defvar base-prettify-symbols-alist '(("<=" . ?≤)
                                      (">=" . ?≥)
                                      ("<-" . ?←)
                                      ("->" . ?→)
                                      ("lambda" . ?λ)))
(defun prettify-symbols-hook ()
  "Set pretty symbols for programming modes."
  (setq prettify-symbols-alist
        (append '(("==" . ?≡)
                  ("!=" . ?≠)) base-prettify-symbols-alist)))
(add-hook 'prog-mode-hook 'prettify-symbols-hook)
(add-hook 'emacs-lisp-mode-hook 'prettify-symbols-hook)
(global-prettify-symbols-mode 1)
(setq prettify-symbols-unprettify-at-point 'right-edge)

;; don't hard-wrap text, but use nice virtual wrapping
(use-package adaptive-wrap)

    `(load-after ,package-name
       '(defadvice ,mode (after diminish-major-mode activate)
	  (setq mode-name ,new-name))))
  (diminish-minor-mode 'auto-revert-mode     'auto-revert-mode)
  (diminish-minor-mode 'hs-minor-mode        'hs-minor-mode)
  (diminish-minor-mode 'magit                'magit-auto-revert-mode)
  (diminish-minor-mode 'visual-line-mode     'visual-line-mode)

  (diminish-major-mode	'lisp-mode    	emacs-lisp-mode	"EL" 	)
  (diminish-major-mode	'sh-script    	sh-mode        	"sh" 	)
