From 55ae32ca5816f184803f15d90f3a96a380b89784 Mon Sep 17 00:00:00 2001
From: Marc Pohling <poh@PRIMEMEAT.DE>
Date: Thu, 19 Dec 2019 13:48:09 +0100
Subject: [PATCH] added theme and toggle-theme functioin for windows (i.e.
 work_remote)

---
 init.org | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/init.org b/init.org
index 0aed90e..90dd9f0 100644
--- a/init.org
+++ b/init.org
@@ -173,6 +173,28 @@ Some windows specific stuff
       (set-face-font 'default "Hack-10"))
 #+END_SRC
 
+** Themes
+
+#+BEGIN_SRC emacs-lisp
+(defun my/toggle-theme ()
+  (interactive)
+  (when *windows*
+    (if (eq (car custom-enabled-themes) 'ample-flat)
+        (disable-theme 'ample-flat)
+       (enable-theme 'ample-flat))))
+#+END_SRC
+
+Windows Theme:
+#+BEGIN_SRC emacs-lisp
+(when *windows*
+  (use-package ample-theme
+    :if (window-system)
+    :defer t
+    :ensure t
+    :bind ("C-c t" . my/toggle-theme)
+    :init
+    (load-theme 'ample-flat t)))  ;; alternative ample, ample-light
+#+END_SRC
 ** line wrappings
    :PROPERTIES:
    :ID:       60b1f231-ab1e-4c47-ac6d-262dc208a520