diff options
Diffstat (limited to 'doom.d/modules')
| -rw-r--r-- | doom.d/modules/personal.org | 87 | ||||
| -rw-r--r-- | doom.d/modules/writers.org | 54 |
2 files changed, 141 insertions, 0 deletions
diff --git a/doom.d/modules/personal.org b/doom.d/modules/personal.org new file mode 100644 index 0000000..2726a44 --- /dev/null +++ b/doom.d/modules/personal.org @@ -0,0 +1,87 @@ +#+TITLE: Personal module + +* Preclude +Personal functionality that aid my workflow or are just cool. +* Reload +#+BEGIN_SRC elisp +(defun oreodave/reload () + "Reload instance of doom" + (interactive) + (load-file (concat doom-private-dir "config.el"))) +#+END_SRC +Reload the doom session by brute force fully loading the "config.el" file in the +doom private directory. +* Go to Books +#+BEGIN_SRC elisp +(defun oreodave/goto-books () + "Goto the books section" + (interactive) + (dired (concat org-directory "/Books"))) +#+END_SRC +Open a Dired session to the books directory in the org-directory. +* Change theme +#+BEGIN_SRC elisp +(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 +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. +* Go to School directory +#+BEGIN_SRC elisp +(defun oreodave/goto-school () + "Goto the school directory" + (interactive) + (dired (expand-file-name "~/School"))) +#+END_SRC +Going to the school directory, quick access to school work. +* Weather +#+BEGIN_SRC elisp +(defun oreodave/weather () + "Check the weather at the 'location' stored in password store" + (interactive) + (wttrin (password-store-get "location"))) +#+END_SRC +Function to quickly check weather, which is what I wanted wttrin for. +* Oreomode +#+BEGIN_SRC elisp +(defun oreodave/oreomode() + (interactive) + (evil-window-vsplit) ; Full length vertical + (evil-window-split) ; half length horizontal + (+treemacs/toggle) + (message "Oreomode complete!")) +#+END_SRC +A little routine to turn on most of my helper things that I use on a daily basis +but put into its own procedure because I don't want it active all the time. diff --git a/doom.d/modules/writers.org b/doom.d/modules/writers.org new file mode 100644 index 0000000..0523f86 --- /dev/null +++ b/doom.d/modules/writers.org @@ -0,0 +1,54 @@ +#+TITLE: Writers module + +* Thesaurus +#+BEGIN_SRC elisp +(use-package! powerthesaurus + :after-call (pre-command-hook org-mode flyspell-mode) + :config + (map! + :localleader + :map org-mode-map + :prefix "w" + :desc "Thesaurus" "t" #'powerthesaurus-lookup-word-at-point)) +#+END_SRC +Powerthesaurus for thesaurus on writer files +* Spelling checker +#+BEGIN_SRC elisp +(use-package! flyspell + :after-call (pre-command-hook org-mode) + :config + (map! + :localleader + :map org-mode-map + :prefix "w" + :desc "Correct current word" "c" #'flyspell-correct-at-point + :desc "Autocorrect word" "a" #'flyspell-auto-correct-word + :desc "Goto next error" "w" #'flyspell-goto-next-error)) +#+END_SRC +* Org +** Org +#+BEGIN_SRC elisp +(after! org + (setq org-agenda-files "~/Text") + (setq org-directory "~/Text") + (map! ; Org keybinds + :map org-mode-map + :localleader + :desc "Org dispatch" "e" #'org-export-dispatch + :desc "Export to ODT" "E" #'org-pandoc-export-to-odt + (:prefix ("N" . "+narrow") + :desc "Narrow to subtree" "n" #'org-narrow-to-subtree + :desc "Go out of narrow" "o" #'widen + :desc "Narrow tags" "t" #'org-tags-sparse-tree))) +#+END_SRC +I like using the org dispatch facilities more than the default export keybinds +in Doom, so I need this binding +** Org calendar +#+BEGIN_SRC elisp +(use-package! org-gcal + :after-call (org-agenda) + :config + (setq org-gcal-client-id (password-store-get "GoogleCalendar/id")) + (setq org-gcal-client-secret (password-store-get "GoogleCalendar/secret")) + (setq org-gcal-file-alist '(("aryadevchavali1@gmail.com" . "~/Text/schedule.org")))) +#+END_SRC |