   :mode ("\\.rest\\'" . restclient-mode))
 
 (use-package solarized-theme
-  :bind ( ("C-c l d"  . (lambda () (interactive) (my/load-theme 'solarized-dark t)))
-          ("C-c l l"  . (lambda () (interactive) (my/load-theme 'solarized-light t)))
-          ("C-c l n"  . (lambda () (interactive) (my/load-theme nil)))
-          ("C-c l w"  . (lambda () (interactive) (my/load-theme 'whiteboard t))))
+  :bind ( ("C-c C-l c"  . (lambda () (interactive) (my/load-theme 'dichromacy t)))
+          ("C-c C-l d"  . (lambda () (interactive) (my/load-theme 'solarized-dark t)))
+          ("C-c C-l l"  . (lambda () (interactive) (my/load-theme 'solarized-light t)))
+          ("C-c C-l n"  . (lambda () (interactive) (my/load-theme nil)))
+          ("C-c C-l w"  . (lambda () (interactive) (my/load-theme 'whiteboard t))))
   :config
   (defun my/load-theme-notheme () "Disable loaded theme(s)."
     (interactive)

    (interactive)
    (my/load-theme-notheme)
    (if theme
      (load-theme theme t))
    (my/set-face-show-paren-match-expression inverse-paren-expr)))

(use-package treemacs
  :defer 2

	  (font-lock-ensure))
  (defun my/set-face-show-paren-match-expression (&optional inverse-video) "Customises how to show paren matches."
    (interactive)
    (if inverse-video
      (set-face-attribute 'show-paren-match-expression nil
          ;; :inherit nil
        :inverse-video inverse-video)))
  (my/set-face-show-paren-match-expression t)

  ;; Custom changes to the default font & frame
