From 46f34edf05e716bd305fe828b141e9c384506fc1 Mon Sep 17 00:00:00 2001
From: Marc Pohling <poh@PRIMEMEAT.DE>
Date: Thu, 19 Dec 2019 16:21:35 +0100
Subject: [PATCH] changed windows-theme from ample to tango

---
 init.org | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/init.org b/init.org
index e32b1d8..cc4f2c1 100644
--- a/init.org
+++ b/init.org
@@ -162,6 +162,8 @@ Some windows specific stuff
 #+BEGIN_SRC emacs-lisp
 (when *linux*
   (set-face-font 'default "Hack-10"))
+(when *work_remote*
+  (set-face-font 'default "Lucida Sans Typewriter-11"))
 #+END_SRC
 
 ** Themes
@@ -170,24 +172,18 @@ Some windows specific stuff
 (defun my/toggle-theme ()
   (interactive)
   (when *windows*
-    (if (eq (car custom-enabled-themes) 'ample-flat)
-        (progn (disable-theme 'ample-flat)
-               (enable-theme 'adwaita))
+    (if (eq (car custom-enabled-themes) 'tango-dark)
+        (progn (disable-theme 'tango-dark)
+               (enable-theme 'tango))
       (progn
-        (disable-theme 'adwaita)
-        (enable-theme 'ample-flat)))))
+        (disable-theme 'tango)
+        (enable-theme 'tango-dark)))))
 #+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
+  (load-theme 'tango))
 #+END_SRC
 ** line wrappings
 #+BEGIN_SRC emacs-lisp