 
 ;; highlight some whitespace
 (use-package leerzeichen
+  :diminish leerzeichen-mode
   :commands (leerzeichen-mode))
 (add-hook 'prog-mode-hook 'leerzeichen-mode)
 (eval-after-load 'dired


;; 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)
;; show keystrokes in progress
(setq echo-keystrokes 0.1)



;; Pretty mode
;; Base set of pretty symbols.
(use-package prettify-symbols
  :init
  (global-prettify-symbols-mode 1)
  :config
  (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)
  (setq prettify-symbols-unprettify-at-point 'right-edge))

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