diff options
| -rw-r--r-- | doom.d/config.org | 39 |
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 |