dotfiles/Doom/.config/doom/org/personal.org

Personal module

• Preclude
• Variables
• Change theme
• Password store
• Insert newlines without o/O
• Convert auto-fill lines to long truncate-lines

Preclude

Personal functionality or variables that aid my workflow or are just cool.

Variables

Some user variables

(setq user-full-name "Aryadev Chavali"
      user-mail-address "aryadevchavali1@gmail.com")

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/doom-monokai-classic: 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.

(setq dx:themes/theme-list '(doom-solarized-dark
                             doom-gruvbox
                             doom-molokai
                             doom-monokai-classic
                             doom-solarized-light
                             doom-acario-light))

(defun dx:themes/set-new-theme ()
  "Set the theme from my own selection, mutate as you see fit"
  (interactive)
  (let ((theme (completing-read "Select theme: " dx:themes/theme-list)))
    (condition-case nil
        (progn
          (mapc #'disable-theme custom-enabled-themes)
          (load-theme (intern theme) t)
          (when (fboundp 'powerline-reset)
            (powerline-reset)))
      (error "Problem loading theme %s" theme))))

Password store

Function to get a password given a key.

(defun dx:password-store/get-password (KEY)
  (shell-command-to-string (concat "pass " KEY)))

Insert newlines without o/O

Insert a newline without having to exit normal mode!

(defun dx:newline (&optional BACKWARD)
  (interactive)
  (message "%s" BACKWARD)
  (let ((old (point)))
    (cond ((and BACKWARD (= BACKWARD 1)) (+default/newline-above))
          (t (+default/newline-below)))
    (goto-char (+ old 1))
    (evil-normal-state)))

Convert auto-fill lines to long truncate-lines

Consider some org file with auto filled lines. I don't like auto-filled lines. So I want to convert them. I've setup macros countless times to do this operation for me, may as well formalize it as a function.

Firstly, I need a function to count the number of instances of some substring occur in some other string. Shamelessly copied from rosetta code.

(defun dx:org/count-sub (str pat)
  (loop with z = 0 with s = 0 while s do
        (when (setf s (cl-search pat str :start2 s))
          (incf z) (incf s (length pat)))
        finally (return z)))

Then the main function, works like so:

1. Search the text in the region for newlines then join the lines to make a single segment
2. Search for sentences through Emacs builtin forward-sentence and forward-char functions then newline via sentences

(defun dx:org/fill-to-long-lines ()
  (interactive)
  (let* ((beg (region-beginning))
         (end (region-end))
         (region-text (buffer-substring-no-properties beg end))
         (n-sentences (dx:org/count-sub region-text "."))
         (parsed-text (apply #'concatenate 'string (cl-loop for c from beg to end collect
                                                            (if (string= (buffer-substring-no-properties c (+ c 1)) "\n") " "
                                                              (buffer-substring-no-properties c (+ c 1)))))))
    (delete-region beg end)
    (insert parsed-text)
    (message "%s" n-sentences)
    (evil-normal-state)
    (evil-digit-argument-or-evil-beginning-of-line)
    (cl-loop for i from 1 to n-sentences do (forward-sentence) (forward-char) (newline))))