~clean up

+Put theming as it's own thing with function to choose from my own favourites
-removed greek letters

1 files changed, 21 insertions, 18 deletions

diff --git a/doom.d/config.org b/doom.d/config.org
index 6935635..f9aa621 100644
--- a/doom.d/config.org
+++ b/doom.d/config.org
@@ -11,8 +11,7 @@ Setting up variables and basic stuff that doesn't require a lot of work.
 #+BEGIN_SRC elisp
 (after! core-keybinds
   (setq doom-localleader-key ",")
-  (setq doom-font (font-spec :family "Hack" :size 19))
-  (setq doom-theme 'doom-molokai))
+  (setq doom-font (font-spec :family "Hack" :size 19)))
 #+END_SRC
 - Set the doom localleader to "," because it's faster
 - Using the font [[https://sourcefoundry.org/hack/][Hack]] with Fira code ligatures
@@ -31,6 +30,26 @@ Setting up variables and basic stuff that doesn't require a lot of work.
   - Light themes other than Emacs default, maybe sometimes solarized-light
   - Horrid low contrast ones with no colour. Grayscale particularly. I can't
     handle those.
+** Theming
+#+BEGIN_SRC elisp
+(setq doom-theme 'doom-molokai)
+(setq oreodave/theme-list '(doom-solarized-dark doom-gruvbox doom-city-lights doom-outrun-electric doom-vibrant doom-molokai doom-solarized-light doom-acario-light))
+
+(defun oreodave/set-new-theme ()
+  "Set the theme from my own selection, mutate as you see fit"
+  (interactive)
+  (ivy-read "Select theme: "
+            oreodave/theme-list
+            :caller 'oreodave/set-new-theme
+            :action (lambda (x) ; Shamelessly copied from counsel in case of change
+                      (condition-case nil
+                          (progn
+                            (mapc #'disable-theme custom-enabled-themes)
+                            (load-theme (intern x) t)
+                            (when (fboundp 'powerline-reset)
+                              (powerline-reset)))
+                        (error "Problem loading theme %s" x)))))
+#+END_SRC
 ** Interface
 #+BEGIN_SRC elisp
 (setq completion-ignore-case t)
@@ -309,22 +328,6 @@ My docsets are stored in .docsets for ease of use
 ** Org
 #+BEGIN_SRC elisp
 (after! org
-  (add-hook 'org-mode-hook #'visual-line-mode)
-  (remove-hook 'org-mode-hook #'auto-fill-mode)
-  (define-abbrev-table 'org-mode-abbrev-table
-    (mapcar
-     (lambda (char-string)
-       (let ((character-property-elements
-              (split-string (get-char-code-property (encode-char (string-to-char char-string) 'unicode) 'name) " ")))
-         (list
-          (concat
-           (if (member "CAPITAL" character-property-elements)
-               (capitalize (-last-item character-property-elements))
-             (downcase (-last-item character-property-elements)))
-           "x")
-          char-string)))
-     '("α" "β" "γ" "δ" "ε" "ζ" "η" "θ" "ι" "κ" "λ" "μ" "ν" "ξ" "ο" "π" "ρ" "σ" "τ" "υ" "φ" "χ" "ψ" "ω"
-       "Α" "Β" "Γ" "Δ" "Ε" "Ζ" "Η" "Θ" "Ι" "Κ" "Λ" "Μ" "Ν" "Ξ" "Ο" "Π" "Ρ" "Σ" "Τ" "Υ" "Φ" "Χ" "Ψ" "Ω")))
   (map! ; Org keybinds
    :map org-mode-map
    :localleader