+(defun toggle-night ()
+ (interactive)
+ (cond ((equal (car custom-enabled-themes) 'naquadah)
+ ;; background off white to be better on the eyes. took this
+ ;; color from gitweb.
+ (custom-set-faces `(default ((t (:background "#F6F6F0")))))
+ (override-theme 'leuven))
+ (t
+ ;; revert previous background change
+ (custom-set-faces `(default ((t (:background nil)))))
+ (override-theme 'naquadah))))