1 files changed, 73 insertions, 0 deletions
diff --git a/Doom/.doom.d/org/personal.org b/Doom/.doom.d/org/personal.org
new file mode 100644
index 0000000..37a532a
--- /dev/null
+++ b/Doom/.doom.d/org/personal.org
@@ -0,0 +1,73 @@
+#+TITLE: Personal module
+
+* Preclude
+Personal functionality or variables that aid my workflow or are just cool.
+* Variables
+Some user variables
+#+BEGIN_SRC elisp
+(setq user-full-name "Aryadev Chavali"
+      user-mail-address "aryadevchavali1@gmail.com")
+#+END_SRC
+* Reload
+Reload the doom session by brute force fully loading the "config.el" file in the
+doom private directory.
+#+BEGIN_SRC elisp
+(defun dx: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
+"dx: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:
+  - Light themes other than solarized-light and acario
+  - Horrid low contrast ones with no colour. Grayscale particularly. I can't
+    handle those.
+
+#+BEGIN_SRC elisp
+(setq dx:themes/theme-list '(doom-solarized-dark
+                                   doom-gruvbox doom-city-lights
+                                   doom-outrun-electric doom-vibrant doom-molokai
+                                   doom-solarized-light doom-acario-light
+                                   base16-3024 base16-classic-dark base16-material-vivid))
+
+(defun dx:themes/set-new-theme ()
+  "Set the theme from my own selection, mutate as you see fit"
+  (interactive)
+  (ivy-read "Select theme: "
+            dx: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 dx: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 dx:weather ()
+  "Check the weather at the 'location' stored in password store"
+  (interactive)
+  (wttrin (dx:password-store/get-password "location")))
+#+END_SRC