From fd8350162be044d38931d13dc20390dfeea23539 Mon Sep 17 00:00:00 2001
From: Gergely Polonkai <gergely@polonkai.eu>
Date: Sun, 22 Jan 2023 09:01:06 +0100
Subject: [PATCH] Add command to toggle between dark and bright modes

---
 configuration.org | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/configuration.org b/configuration.org
index b7e10bd..6909873 100644
--- a/configuration.org
+++ b/configuration.org
@@ -1208,6 +1208,37 @@ Before this can be used, make sure the [[https://zhm.github.io/symbola/][Symbola
 (--set-emoji-font nil)
 #+END_SRC
 
+** Dark/bright mode
+
+#+begin_src emacs-lisp
+(defun gpolonkai/enable-dark-mode ()
+  "Turn on dark mode."
+  (load-theme 'tango-dark)
+  (set-face-background 'hl-line "gray25")
+  (set-face-background 'whitespace-line "orange4"))
+
+(defun gpolonkai/enable-bright-mode ()
+  "Turn on bright mode."
+  (load-theme 'tango)
+  (set-face-background 'hl-line "gray85")
+  (set-face-background 'whitespace-line "gold3"))
+
+(defcustom gpolonkai/dark-mode t
+  "Controls whether dark mode is enabled or not."
+  :type 'boolean
+  :group 'gpolonkai
+  :initialize #'custom-initialize-set)
+
+(defun gpolonkai/dark-mode (&optional enable)
+  "Toggles between dark and bright modes.
+If ENABLE is set, explicitly enable dark mode despite the current setting."
+  (interactive "p")
+  (setq gpolonkai/dark-mode (if enable t (not gpolonkai/dark-mode)))
+  (if gpolonkai/dark-mode
+      (gpolonkai/enable-dark-mode)
+    (gpolonkai/enable-bright-mode)))
+#+end_src
+
 * Set up global minor modes provided by Emacs
 
 ** Pretty lambdas