1 files changed, 76 insertions, 0 deletions
diff --git a/doom.d/config/personal.org b/doom.d/config/personal.org
new file mode 100644
index 0000000..e5a75ed
--- /dev/null
+++ b/doom.d/config/personal.org
@@ -0,0 +1,76 @@
+#+TITLE: Personal module
+
+* Preclude
+Personal functionality that aid my workflow or are just cool.
+* Reload
+Reload the doom session by brute force fully loading the "config.el" file in the
+doom private directory.
+#+BEGIN_SRC elisp
+(defun oreodave/reload ()
+  "Reload instance of doom"
+  (interactive)
+  (load-file (concat doom-private-dir "config.el")))
+#+END_SRC
+* Change theme
+Allow user to set a theme from a limited set of candidates, based on
+"oreodave/theme-list".
+
+- Themes sanctioned by me:
+  - doom-solarized-dark: just the right everything. best for day.
+  - doom-gruvbox: good contrast, better for night.
+  - doom-city-lights: Eh contrast, quite dark
+  - doom-outrun-electric: Interesting colour palette
+  - doom-vibrant: Good contrast, bit lighter
+  - doom-molokai: hacker style
+  - doom-solarized-light: Light orange theme that's actually okay on the eyes
+  - doom-acario-light: Light theme with not bad colours
+- Themes not sanctioned:
+  - Any of the base16 themes for anything other than editing code, not org.
+    Contrast isn't good enough
+  - Light themes other than Emacs default, maybe sometimes solarized-light
+  - Horrid low contrast ones with no colour. Grayscale particularly. I can't
+    handle those.
+#+BEGIN_SRC elisp
+(setq oreodave/themes/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/themes/set-new-theme ()
+  "Set the theme from my own selection, mutate as you see fit"
+  (interactive)
+  (ivy-read "Select theme: "
+            oreodave/themes/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
+* Password store
+Function to get a password given a key.
+#+BEGIN_SRC elisp
+(defun oreodave/password-store/get-password (KEY)
+  (shell-command-to-string (concat "pass " KEY)))
+#+END_SRC
+* Weather
+Function to quickly check weather, which is what I wanted wttrin for.
+#+BEGIN_SRC elisp
+(defun oreodave/weather ()
+  "Check the weather at the 'location' stored in password store"
+  (interactive)
+  (wttrin (oreodave/password-store/get-password "location")))
+#+END_SRC
+* Go to dotfiles
+A better version of 'goto private directory' which actually goes to my Dot files
+directory overall.
+
+#+BEGIN_SRC elisp
+(defun oreodave/goto-dotfiles ()
+  "Go to the dotfiles directory"
+  (interactive)
+  (doom-project-find-file "~/Dotfiles"))
+#+END_SRC