added theme and toggle-theme functioin for windows (i.e. work_remote)

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