~moved personal and writers to their own org files

~Moved to their own org files for organisation their own org files
+writers module that uses powersaurus, flyspell and darkroom to help
with producing a writers experience
This commit is contained in:
AChavali
2019-12-30 20:54:52 +00:00
parent 3b3f81095e
commit 6804a01597
4 changed files with 144 additions and 112 deletions

View File

@@ -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.

View File

@@ -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