Reintroduce helper functions to quickly switch between themes

init.el

@@ -573,7 +573,9 @@
              db/bookmark-add-url
              db/lookup-smime-key
              db/dired-from-shell-command
-             db/system-open))
+             db/system-open
+             db/switch-to-dark-theme
+             db/switch-to-light-theme))
 
 (use-package db-hydras
   :commands (hydra-toggle/body

site-lisp/db-utils.el

@@ -525,6 +525,21 @@ it.  The bookmarks will finally be sorted by their name."
   (interactive "sURL: \nsName: ")
   (db/bookmark-add-with-handler name url #'eww))
 
+
+;;; Appearance
+
+(defun db/switch-to-dark-theme ()
+  "Switch to dark theme.
+This is `db-dark' and `solarized-dark'."
+  (interactive)
+  (custom-set-variables '(custom-enabled-themes '(db-dark solarized-dark))))
+
+(defun db/switch-to-light-theme ()
+  "Switch to dark theme.
+This is `db-light' and `solarized-light'."
+  (interactive)
+  (custom-set-variables '(custom-enabled-themes '(db-light solarized-light))))
+
 
 ;;; End