Need help with .doom.d?
Click the “chat” button below for chat support from the developer who created it, or find similar developers for support.

About the developer

nmartin84
176 Stars 19 Forks 538 Commits 3 Opened issues

Description

Private DOOM Emacs config highly focused around orgmode and GTD methodology, along with language support for Python and Elisp.

Services available

!
?

Need anything else?

Contributors list

No Data

Created 2021-02-10 Wed 18:13

+TITLE: Org-Mode Literate Config

+AUTHOR: Nick Martin

+EMAIL: [email protected]

+exportfilename: README

[[file:attachments/workspace.png]]

The goal of my config is to keep the configuration distraction free, and focus on functionality over looks. If you are curious to see my notes and task repo, feel free to check out -> [[https://github.com/nmartin84/org-notes][nmartin84/org-notes]]. Or you can checkout my published github pages -> [[https://nmartin84.github.io/][nmartin84.github.io]].

  • New Changes

** Copy property value to kill-ring Often times I will need to copy a property value from a task headline, and return its contents to the kill-ring. This function will enable you to do just that.

+begin_src emacs-lisp

(defun nm/return-entry-property-names () "Returns a list of property names excluding the DEFAULT org-mode property names." (let ((my-list (org-entry-properties)) (temp-list nil) (discard-list '("ITEM" "PRIORITY" "FILE" "BLOCKED"))) (dolist (i my-list) (push (car i) temp-list)) (dolist (i discard-list) (setq temp-list (remove i temp-list))) temp-list)) (nm/return-entry-property-names)

(defun nm/return-entry-property-value-kill-ring () "Returns a list of properties for the current headline and inserts the contents to the kill ring." (interactive) (let* ((choice (ivy-completing-read "entry: " (nm/return-entry-property-names))) (results (org-entry-get nil choice))) (kill-new results) (message (format "'%s' was copied to kill-ring" results))))

(map! :after org :map org-mode-map :leader :prefix ("z" . "nicks functions") :desc "Copy property value to kill-ring" "x" #'nm/return-entry-property-value-kill-ring)

+end_src

** Classification System For some time now, i've been wanting to build a classification system for task items, to help structure context of a headline with a template of property fields that one would associate with that classifier. For example with books, when you are defining your new book organization you typically associate a book header with the following properties: Author, Subject, Year and maybe a few other things.

When you are building something like this out, it can become difficult or tideous to define those new items each time. So I have been giving some thought is a way to put a template around those items that remain original to org-mode and does not interfere.

+begin_src emacs-lisp

(defun nm/return-entry-property-names () "Returns a list of property names excluding the DEFAULT org-mode property names." (let ((my-list (org-entry-properties)) (temp-list nil) (discard-list '("ITEM" "PRIORITY" "FILE" "BLOCKED"))) (dolist (i my-list) (push (car i) temp-list)) (dolist (i discard-list) (setq temp-list (remove i temp-list))) temp-list)) (nm/return-entry-property-names)

(defun nm/return-entry-property-value-kill-ring () "Returns a list of properties for the current headline and inserts the contents to the kill ring." (interactive) (let ((choice (ivy-completing-read "entry: " (nm/return-entry-property-names)))) (kill-new (org-entry-get nil choice))))

+end_src

+begin_src emacs-lisp

(defun nm/org-clarify-properties () "Clarify properties for task." (interactive) (let ((my-list nm/org-clarify-templates) (my-temp nil)) (dolist (i my-list) (push (car i) my-temp)) (dolist (i (cdr (assoc (ivy-completing-read "template: " my-temp) nm/org-clarify-templates))) (org-entry-put nil i (ivy-completing-read (format "%s: " i) (delete-dups (org-map-entries (org-entry-get nil i nil) nil 'file)))))))

(setq nm/org-clarify-templates '(("book" "AUTHOR" "YEAR" "SOURCE") ("online" "SOURCE" "SITE" "AUTHOR") ("purchase" "WHY" "FUNCTION") ("task" "AREA") ("project" "GOAL" "DUE") ("article" "SOURCE" "SITE" "SUBJECT")))

(map! :after org :map org-mode-map :leader :prefix ("z" . "nicks functions") :desc "Clarify Properties" "c" #'nm/org-clarify-properties)

(unless (ivy-completing-read "select: " '("Something")) (error "no output"))

+end_src

** Bullet Journal New capture template system that integrated the idea of a bullet journal for task and note taking.

+begin_src emacs-lisp

(defun nm/capture-bullet-journal () "Finds bullet journal headline to nest capture headline under." (let* ((date (format-time-string "%Y-%m-%d %a"))) (goto-char (point-min)) (unless (re-search-forward (format "^+\s%s" date) nil t) (goto-char (point-max)) (insert (format " %s %s" date "[/]")))))

+end_src

** Org-Agenda Functions for Condition checks So another pain point has been maintaining my task items. So i'm always looking for ways to tweak or adjust how I can automate or simply task management, and my agenda setup. So this next piece adds some functions to run condition checks for tasks that are in a NEXT state, or a Inbox or waiting to be defined state.

For this piece, i've used bits and pieces from Doc Norang's ~org-helper.el~. The idea is to mimic the GTD methodology from the org-agenda view so all aspects of it can be controled from the agenda.

+begin_src emacs-lisp

(defun nm/skip-non-stuck-projects () "Skip trees that are not stuck projects." (save-restriction (widen) (let ((next-headline (save-excursion (outline-next-heading)))) (if (bh/is-project-p) (let* ((subtree-end (org-end-of-subtree t)) (has-next)) (save-excursion (forward-line 1) (while (and (not has-next) (< (point) subtree-end) (and (not (bh/is-project-p)) (nm/has-next-condition))) (unless (member (or "WAITING" "SOMEDAY") (org-get-tags-at)) (setq has-next t)))) (if has-next next-headline nil)) next-headline))))

+end_src

+begin_src emacs-lisp

(defun nm/project-tasks-ready () "Skip trees that are not projects" (let ((next-headline (save-excursion (outline-next-heading))) (subtree-end (org-end-of-subtree t))) (if (nm/skip-non-stuck-projects) (cond ((and (bh/is-project-subtree-p) (nm/has-next-condition)) nil) (t subtree-end)) subtree-end)))

(defun nm/has-next-condition () "Returns t if headline has next condition state" (save-excursion (cond ((nm/is-scheduled-p) t) ((nm/exist-context-tag-p) t) ((nm/checkbox-active-exist-p) t))))

+end_src

Great, so that takes care of my project tasks that are ready to be worked, now I need something for standalone tasks.

+begin_src emacs-lisp

(defun nm/standard-tasks-ready () "Show non-project tasks. Skip project and sub-project tasks, habits, and project related tasks." (save-restriction (widen) (let* ((subtree-end (save-excursion (org-end-of-subtree t))) (next-headline (save-excursion (or (outline-next-heading) (point-max))))) (cond ((bh/is-project-p) next-headline) ((bh/is-project-subtree-p) next-headline) ((and (bh/is-task-p) (not (nm/has-next-condition))) subtree-end) (t nil)))))

+end_src

For project tasks that are stuck:

+begin_src emacs-lisp

(defun nm/stuck-projects () "Returns t when a project has no defined next actions for any of its subtasks." (let ((next-headline (save-excursion (outline-next-heading))) (subtree-end (org-end-of-subtree t))) (if (or (bh/is-project-p) (bh/is-project-subtree-p)) (cond ((and (bh/is-project-subtree-p) (not (nm/has-next-condition))) nil)) subtree-end)))

+end_src

For tasks that are ready to be refiled:

+begin_src emacs-lisp

(defun nm/tasks-refile () "Returns t if the task is not part of a project and has no next state conditions." (let* ((subtree-end (save-excursion (org-end-of-subtree t))) (next-heading (save-excursion (outline-next-heading)))) (cond ((nm/has-next-condition) next-heading) ((bh/is-project-p) subtree-end))))

+end_src

** Capturing to a Projects Timeframe

+begin_src emacs-lisp

(defun nm/capture-project-timeframes () "Captures under the given projects timeframe headline." (let ((p-name (ivy-completing-read "Select file: " (find-lisp-find-files "~/projects/orgmode/gtd/" ".org$"))) (h-name "* Timeframe") (c-name (read-string "Entry name: "))) (goto-char (point-min)) (find-file p-name) (unless (re-search-forward h-name nil t) (progn (goto-char (point-max)) (newline) (insert "* Timeframe"))) (org-end-of-subtree t) (newline 2) (insert (format "** %s %s" (format-time-string "[%Y-%m-%d %a %H:%M]") c-name)) (newline)))

+end_src

** Easy theme switcher

+begin_src emacs-lisp

(setq doom-dark-themes '("doom-one" "doom-solarized-dark" "doom-palenight" "doom-rouge" "doom-spacegrey" "doom-dracula" "doom-vibrant" "doom-city-lights" "doom-moonlight" "doom-horizon" "doom-old-hope" "doom-oceanic-next" "doom-monokai-pro" "doom-material" "doom-henna" "doom-gruvbox" "doom-ephemeral" "chocolate"))

(setq doom-light-themes '("doom-one-light" "doom-gruvbox-light" "doom-solarized-light" "doom-flatwhite"))

(defun nm/load-dark-theme () (interactive) (let* ((themes doom-dark-themes) (first (car doom-dark-themes))) (counsel-load-theme-action (car themes)) (setq doom-theme (car themes)) (pop doom-dark-themes) (add-to-list 'doom-dark-themes first t)))

(defun nm/load-light-theme () (interactive) (let* ((themes doom-light-themes) (first (car doom-light-themes))) (counsel-load-theme-action (car themes)) (setq doom-theme (car themes)) (pop doom-light-themes) (add-to-list 'doom-light-themes first t)))

+end_src

** Capturing Web Resources

+begin_src emacs-lisp

;; This function was found on a stackoverflow post -> https://stackoverflow.com/questions/6681407/org-mode-capture-with-sexp (defun get-page-title (url) "Get title of web page, whose url can be found in the current line" ;; Get title of web page, with the help of functions in url.el (with-current-buffer (url-retrieve-synchronously url) ;; find title by grep the html code (goto-char 0) (re-search-forward "

\([^<]*\)" nil t 1) (setq webtitlestr (match-string 1)) ;; find charset by grep the html code (goto-char 0)
;; find the charset, assume utf-8 otherwise
(if (re-search-forward "charset=\\([-0-9a-zA-Z]*\\)" nil t 1)
    (setq coding_charset (downcase (match-string 1)))
  (setq coding_charset "utf-8")
;; decode the string of title.
(setq web_title_str (decode-coding-string web_title_str (intern
                                                         coding_charset))))

(concat "[[" url "][" webtitlestr "]]")))

+end_src

** Task Automation I got tired of manually setting task states to "NEXT" "PROJ" "TODO" so i've added a few functions to automate this for me.

The NEXT state will be set if any of the following 3 conditions exist: 1. Has a scheduled date assign to the task. (NOTE: We may want to add additional checks for expired task) 2. Task has a context task assigned. (Context tags start with "@") 3. Has an active checkbox that's not marked completed. \ [[file:attachments/next-states.gif]] \ [[file:attachments/context-tags.gif]]

The PROJ state will become active upon the following conditions: 1. Task has a child headline with a TODO-KEYWORD of any-type (TODO/NEXT/WAIT). \ [[file:attachments/projects.gif]]

DEPRECATED: I need to remove this section when I can.

** ID Completion I got tired of flipping back n forth between buffers, copying the ID of a headline, then jump back and paste that ID into my link. So now i'll have ~org-refile-get-location~ fetch the ID for us when I call ~org-insert-link~.

NOTE: I need to see a better way of caching headlines to speed-up the process

+begin_src emacs-lisp

(require 'find-lisp) (defun nm/org-id-prompt-id () "Prompt for the id during completion of id: link." (let* ((org-agenda-files (find-lisp-find-files org-directory ".org$")) (dest (org-refile-get-location)) (name nil) (id nil)) (if (equal (last dest) '(nil)) (error "File contains no headlines") (save-excursion (find-file (cadr dest)) (goto-char (nth 3 dest)) (setq id (org-id-get (point) t) name (org-get-heading t t t t))) (org-insert-link nil (concat "id:" id) name))))

(after! org (org-link-set-parameters "id" :complete #'nm/org-id-prompt-id))

+end_src

** Quick Note Find Headline Another pain point i've been constantly facing is quickly taking a note and storing it in the appropriate location without losing focus on what i'm currently working on. This is common when on calls or meetings and you need to make a note for another task item you're working.

So with that, I added a new function tied to the quick note capture-template key, which will prompt for a headline from any of your task files that exist in "~~/projects/orgmode/gtd/~".

+begin_src emacs-lisp

(defun nm/org-end-of-headline() "Move to end of current headline" (interactive) (outline-next-heading) (forward-char -1))

+end_src

** Daily Task Adder This function will create a new headline, and nest the checkitem underneath the headline specified by DATE chosen during capture. This will also set a scheduled date on the headline. NOTE: I'm not real sure this is of use anymore, maybe see if we should remove it.

+begin_src emacs-lisp

(defun nm/org-capture-to-task-file () "Capture file to your default tasks file, and prompts to select a date where to file the task file to." (let* ((child-l nil) (parent "Checklists") (date (org-read-date)) (heading (format "Items for"))) (goto-char (point-min)) ;;; Locate or Create our parent headline (unless (search-forward (format "* %s" parent) nil t) (goto-char (point-max)) (newline) (insert (format "* %s" parent)) (nm/org-end-of-headline)) (nm/org-end-of-headline) ;;; Capture outline level (setq child-l (format "%s" (make-string (+ 1 (org-outline-level)) ?))) ;;; Next we locate or create our subheading using the date string passed by the user. (let ((end (save-excursion (org-end-of-subtree t nil)))) (unless (re-search-forward (format "%s %s %s" child-l heading date) end t) (newline 2) (insert (format "%s %s %s %s" child-l heading date "[/]"))))))

+end_src

** Orgmode Formating Eventually this will turn into a suite of functions that will clean-up the formatting of any org-mode document, and standardize to a common format that is believed to be standardized by the community. Reddit post will come eventually to discuss, and a link will be updated in this section when that comes.

TODO: I need to start building the outline for this.

+begin_src emacs-lisp

(defun nm/add-newline-between-headlines () "" (when (equal major-mode 'org-mode) (unless (org-at-heading-p) (org-back-to-heading)) (nm/org-end-of-headline) (if (not (org--line-empty-p 1)) (newline))))

(defun nm/add-space-end-of-line () "If N-1 at end of heading is #+endsrc then insert blank character on last line." (interactive) (when (equal major-mode 'org-mode) (unless (org-at-heading-p) (org-back-to-heading)) (nm/org-end-of-headline) (next-line -1) (if (org-looking-at-p "^#\+endsrc$") (progn (next-line 1) (insert " ")))))

(defun nm/newlines-between-headlines () "Uses the org-map-entries function to scan through a buffer's contents and ensure newlines are inserted between headlines" (interactive) (org-map-entries #'nm/add-newline-between-headlines t 'file))

(add-hook 'org-insert-heading-hook #'nm/newlines-between-headlines)

+end_src

** Journal Capture Template I need a way to make a dynamic template that will let me capture various types of information: meeting notes, calls, conversations, things i'm working on, etc.. Eventually this function will contain several mini templates inside of it that are called when initiated. TODO: Roll this under my new nm/find-file-or-create function.

+begin_src emacs-lisp

(defun nm/capture-to-journal () "When org-capture-template is initiated, it creates the respected headline structure." (let ((file "~/projects/orgmode/gtd/journal.org") (parent nil) (child nil)) (unless (file-exists-p file) (with-temp-buffer (write-file file))) (find-file file) (goto-char (point-min)) ;; Search for headline, or else create it. (unless (re-search-forward "* Journal" nil t) (progn (goto-char (point-max)) (newline) (insert "* Journal"))) (unless (re-search-forward (format "** %s" (format-time-string "%b '%y")) (save-excursion (org-end-of-subtree)) t) (progn (org-end-of-subtree t) (newline) (insert (format "** %s" (format-time-string "%b '%y")))))))

+end_src

** Setting up my productivity layout FIXME: I need to update this since I changed stuff around.

+begin_src emacs-lisp

(defun nm/setup-productive-windows (arg1 arg2) "Delete all other windows, and setup our ORGMODE production window layout." (interactive) (progn (delete-other-windows) (progn (find-file arg1)) (progn (split-window-right) (evil-window-right 1) (org-agenda nil "n")) (progn (split-window) (evil-window-down 1) (find-file arg2) (goto-char 1) (re-search-forward (format "*+\s\w+\sTasks\sfor\s%s" (format-time-string "%Y-%m-%d"))) (org-tree-to-indirect-buffer))))

(defun nm/productive-window () "Setup" (interactive) (nm/setup-productive-windows "~/projects/orgmode/gtd/next.org" "~/projects/orgmode/gtd/tasks.org"))

(map! :after org :map org-mode-map :leader :prefix ("TAB" . "workspace") :desc "Load ORGMODE Setup" "," #'nm/productive-window)

+end_src

** Return Indirect Buffer

+begin_src emacs-lisp

(defun nm/get-headlines-org-files (arg &optional indirect) "Searches org-directory for headline and returns results to indirect buffer ARG being a directory to search and optional INDIRECT should return t if you want results returned to an indirect buffer." (interactive) (let* ((org-agenda-files (find-lisp-find-files arg ".org$")) (org-refile-use-outline-path 'file) (org-refile-history nil) (dest (org-refile-get-location)) (buffer nil) (first (frame-first-window))) (save-excursion (if (eq first (next-window first)) (progn (evil-window-vsplit) (evil-window-right 1)) (other-window 1)) (find-file (cadr dest)) (goto-char (nth 3 dest)) (if indirect (org-tree-to-indirect-buffer) nil))))

(defun nm/search-headlines-org-directory () "Search the ORG-DIRECTORY, prompting user for headline and returns its results to indirect buffer." (interactive) (nm/get-headlines-org-files "~/projects/orgmode/"))

(defun nm/search-headlines-org-tasks-directory () "Search the GTD folder, prompting user for headline and returns its results to indirect buffer." (interactive) (nm/get-headlines-org-files "~/projects/orgmode/gtd/"))

(map! :after org :map org-mode-map :leader :prefix ("s" . "search") :desc "Outline Org-Directory" "c" #'nm/search-headlines-org-directory :desc "Outline GTD directory" "!" #'nm/search-headlines-org-tasks-directory)

+end_src

  • Requirements These are some items that are required outside of the normal DOOM EMACS installation, before you can use this config. The idea here is to keep this minimum so as much of this is close to regular DOOM EMACS.
  • SQLITE3 Installation: You will need to install sqlite3, typicalled installed via your package manager as ~sudo apt install sqlite3~
  • I use a few different monospace fonts: [[https://input.fontbureau.com/download/][Input]], [[http://sourceforge.net/projects/dejavu/files/dejavu/2.37/dejavu-fonts-ttf-2.37.tar.bz2][DejaVu]], [[https://github.com/tonsky/FiraCode][FiraCode]], [[https://google.com/search?q=IBM Plex Mono font Download][IBM Plex Mono]] and [[https://google.com/search?q=Roboto Mono Font Download][Roboto Mono]].

  • Initial-Settings

These are some of the deafult settings that I like to get out of the way. This covers some basic things like my user profile name, email address and what information I like to dispaly in the modeline.

TODO: I need to change this heading to "Hardened settings" and put in here things that typically never change.

+begin_src emacs-lisp

(setq user-full-name "Nick Martin" user-mail-address "[email protected]")

(display-time-mode 1) (setq display-time-day-and-date t)

+end_src

Next up, sometimes file changes are made outside of emacs, so if we detect changes I would like emacs to refert the buffer with those new changes. Also I like to have a bit more control in my undo actions and step through each change.

+begin_src emacs-lisp

(global-auto-revert-mode 1) (setq undo-limit 80000000 evil-want-fine-undo t auto-save-default nil inhibit-compacting-font-caches t) (whitespace-mode -1)

(setq-default delete-by-moving-to-trash t tab-width 4 uniquify-buffer-name-style 'forward window-combination-resize t x-stretch-cursor nil)

+end_src

Additional key bindings

+begin_src emacs-lisp

(bind-key "" #'link-hint-copy-link) (bind-key "" #'org-cycle-agenda-files) (bind-key "M-." #'completion-at-point)

(map! :after org :map org-mode-map :leader :prefix ("z" . "nicks functions") :desc "completion at point" "c" #'completion-at-point :desc "Review Fleeting Notes" "r" #'nm/review-fleeting-notes :desc "Find File in ORGMODE" "f" #'nm/find-files-orgmode :desc" File project" "p" #'nm/find-projects :prefix ("s" . "+search") :desc "Occur" "." #'occur :desc "Outline" "o" #'counsel-outline :desc "Counsel ripgrep" "d" #'counsel-rg :desc "Swiper All" "@" #'swiper-all :prefix ("l" . "+links") "." #'org-next-link "," #'org-previous-link "o" #'org-open-at-point "g" #'eos/org-add-ids-to-headlines-in-file)

(map! :after org-agenda :map org-agenda-mode-map :localleader :desc "Filter" "f" #'org-agenda-filter)

(defun nm/review-fleeting-notes () (interactive) (nm/find-file-cleaned-up "~/projects/orgmode/fleeting/"))

(defun nm/find-files-orgmode () (interactive) (nm/find-file-cleaned-up org-directory))

(defun nm/find-projects () (interactive) (nm/find-file-cleaned-up "~/projects/orgmode/gtd/projects/"))

+end_src

If I ever use terminal mode, these are some settings i'll want to set to increase the quality of life when working from my terminal window.

+begin_src emacs-lisp

(when (equal (window-system) nil) (and (bind-key "C-" #'+org/insert-item-below) ;(setq doom-theme nil) (setq doom-font (font-spec :family "Roboto Mono" :size 20))))

+end_src

Now I add my default folders and files that I want emacs/org-mode to use:

+begin_src emacs-lisp

(setq diary-file "~/projects/orgmode/diary.org") (setq org-directory "~/projects/orgmode/") (setq projectile-project-search-path "~/projects/")

+end_src

Next we configure popup-rules and default fonts.

+begin_src emacs-lisp

(after! org (set-popup-rule! "^\lsp-help" :side 'bottom :size .30 :select t) (set-popup-rule! "helm" :side 'right :size .30 :select t) (set-popup-rule! "Org QL View:" :side 'right :size .25 :select t) (set-popup-rule! "Org Note" :side 'bottom :size .35 :select t) (set-popup-rule! "Capture" :side 'left :size .30 :select t) (set-popup-rule! "Python:ob-ipython-py" :side 'right :size .25 :select t) (set-popup-rule! "eww" :side 'right :size .30 :select t) (set-popup-rule! "CAPTURE-" :side 'left :size .30 :select t)) ;(set-popup-rule! "Org Agenda*" :side 'right :size .35 :select t))

(setq inhibit-compacting-font-caches t) (setq doom-font (font-spec :family "IBM Plex Mono" :size 24 :weight 'light) doom-big-font (font-spec :family "IBM Plex Mono" :size 26 :weight 'light) doom-variable-pitch-font (font-spec :family "IBM Plex Mono" :weight 'regular :size 20) doom-serif-font (font-spec :family "IBM Plex Mono" :weight 'light))

(when (equal window-system 'x) (toggle-frame-fullscreen))

(after! org (custom-set-faces! '(org-level-1 :height 1.15 :inherit outline-1) '(org-level-2 :height 1.13 :inherit outline-2) '(org-level-3 :height 1.11 :inherit outline-3) '(org-level-4 :height 1.09 :inherit outline-4) '(org-level-5 :height 1.07 :inherit outline-5) '(org-level-6 :height 1.05 :inherit outline-6) '(org-level-7 :height 1.03 :inherit outline-7) '(org-level-8 :height 1.01 :inherit outline-8)))

(after! org (custom-set-faces! '(org-document-title :height 1.15)))

;; (when (equal system-type 'gnu/linux) ;; (setq doom-font (font-spec :family "JetBrains Mono" :size 20 :weight 'normal) ;; doom-big-font (font-spec :family "JetBrains Mono" :size 22 :weight 'normal))) ;; (when (equal system-type 'windows-nt) ;; (setq doom-font (font-spec :family "InputMono" :size 18) ;; doom-big-font (font-spec :family "InputMono" :size 22)))

+end_src

  • Org-Mode Here we add any requirements before org-mode starts to load. Some key notes here to make note of:
  • org-image-actual-width will use the function to try and set the image size to a % of your display's width.
  • hl-todo-mode enabled for ORGMODE. All of my notes are stored under my parent org-directory along with my GTD tasks, but I don't necesarily like to add tasks to my notes files, or see them appear in my org-agenda. So instead I add the keywords where I need to make a note, or something I need to follow-up on and use the magit-todos-list to see what follow-up items I have to complete. HACK: See if we can modify hl-todo keywords just for ORGMODE.

NOTE [2021-01-03 Sun] - i'm going to try swapping log notes going after drawers to see how I like it...

+begin_src emacs-lisp

(require 'org-habit) (require 'org-id) (require 'org-checklist) (after! org (setq org-archive-location "~/projects/orgmode/gtd/archives.org::* %s" ;org-image-actual-width (truncate (* (display-pixel-width) 0.15)) org-link-file-path-type 'relative org-log-state-notes-insert-after-drawers t org-catch-invisible-edits 'error org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 4)) org-refile-use-outline-path 'buffer-name org-refile-use-cache nil org-outline-path-complete-in-steps nil org-refile-allow-creating-parent-nodes 'confirm org-startup-indented 'indent org-insert-heading-respect-content t org-startup-folded 'content org-src-tab-acts-natively t org-list-allow-alphabetical nil))

(add-hook 'org-mode-hook 'auto-fill-mode) ;(add-hook 'org-mode-hook 'hl-todo-mode) (add-hook 'org-mode-hook (lambda () (display-line-numbers-mode -1)))

(setq org-attach-directory (concat org-directory ".attach/"))

+end_src

** TODO Is there a way to prevent auto-fill from breaking links?

** Agenda First we setup a few deafults for the org-agenda buffer:

+begin_src emacs-lisp

(setq org-agenda-todo-ignore-scheduled nil org-agenda-tags-todo-honor-ignore-options t org-agenda-fontify-priorities t)

+end_src

This first stage is how I track what's on my list of things to complete.

+begin_src emacs-lisp

(setq org-agenda-custom-commands nil)

(push '("o" "overview" ((agenda "" ((org-agenda-span '1) (org-agenda-overriding-header " Agenda") (org-agenda-files (append (file-expand-wildcards "~/projects/orgmode/gtd/*.org"))) (org-agenda-start-day (org-today)))) (tags-todo "[email protected]/+NEXT" ((org-agenda-overriding-header " Next Tasks") (org-agenda-todo-ignore-scheduled t) (org-agenda-todo-ignore-deadlines t) (org-agenda-todo-ignore-with-date t) (org-tags-match-list-sublevels 'indented) (org-agenda-sorting-strategy '(category-up)))) (tags-todo "[email protected]/+DOING" ((org-agenda-overriding-header " Doing") (org-agenda-todo-ignore-scheduled t) (org-agenda-todo-ignore-deadlines t) (org-agenda-todo-ignore-with-date t) (org-tags-match-list-sublevels 'indented) (org-agenda-sorting-strategy '(category-up)))) (tags-todo "@errands-someday/!-REFILE-NEXT-DOING" ((org-agenda-overriding-header " Errands") (org-agenda-todo-ignore-scheduled t) (org-agenda-todo-ignore-deadlines t) (org-agenda-todo-ignore-with-date t) (org-tags-match-list-sublevels 'indented) (org-agenda-sorting-strategy '(category-up)))) (tags-todo "@home-someday/!-REFILE-NEXT-DOING" ((org-agenda-overriding-header " Home") (org-agenda-todo-ignore-scheduled t) (org-agenda-todo-ignore-deadlines t) (org-agenda-todo-ignore-with-date t) (org-tags-match-list-sublevels 'indented) (org-agenda-sorting-strategy '(category-up)))) (tags-todo "@computer-someday/!-REFILE-NEXT-DOING" ((org-agenda-overriding-header " Computer") (org-agenda-todo-ignore-scheduled t) (org-agenda-todo-ignore-deadlines t) (org-agenda-todo-ignore-with-date t) (org-tags-match-list-sublevels 'indented) (org-agenda-sorting-strategy '(category-up)))) (tags-todo "-{^@\w+}-someday/-NEXT-REFILE-READ-DOING" ((org-agenda-overriding-header " Other Tasks") (org-agenda-todo-ignore-scheduled t) (org-agenda-todo-ignore-deadlines t) (org-agenda-todo-ignore-with-date t) (org-tags-match-list-sublevels 'indented) (org-agenda-sorting-strategy '(category-up)))) (tags-todo "-someday/+REFILE" ((org-agenda-overriding-header " Inbox"))))) org-agenda-custom-commands)

(push '("gh" "@home" tags-todo "@home/-REFILE") org-agenda-custom-commands) (push '("ge" "@errands" tags-todo "@errands/-REFILE") org-agenda-custom-commands) (push '("gc" "@computer" tags-todo "@computer/-REFILE") org-agenda-custom-commands) (push '("gr" "@read" tags-todo "@read/-REFILE") org-agenda-custom-commands) (push '("gd" "doing" todo "+DOING") org-agenda-custom-commands) (push '("gn" "next" todo "+NEXT") org-agenda-custom-commands) (push '("go" "other tasks" tags-todo "-{^@\w+}-goals/-NEXT-REFILE-DOING" ((org-agenda-todo-ignore-with-date t))) org-agenda-custom-commands) (push '("gg" "goals" tags-todo "goals/" ((org-agenda-todo-ignore-with-date t))) org-agenda-custom-commands) (push '("gi" " inbox" todo "REFILE") org-agenda-custom-commands)

(push '("l" "literature" ((tags-todo "/!" ((org-agenda-todo-ignore-scheduled t) (org-agenda-todo-ignore-with-date t) (org-agenda-todo-ignore-deadlines t) (org-agenda-todo-ignore-with-date t) (org-agenda-files (append (find-lisp-find-files "~/projects/orgmode/literature/" ".org$"))) (org-tags-match-list-sublevels 'indented))))) org-agenda-custom-commands)

(push '("r" "review" ((tags-todo "-{^@\w+}/-REFILE" ((org-agenda-todo-ignore-scheduled t) (org-agenda-todo-ignore-with-date t) (org-agenda-todo-ignore-deadlines t) (org-agenda-todo-ignore-with-date t))))) org-agenda-custom-commands)

(push '("b" "bullet" ((agenda "" ((org-agenda-span '2) (org-agenda-files (append (file-expand-wildcards "~/projects/orgmode/bullet/.org"))) (org-agenda-start-day (org-today)))) (tags-todo "-someday/" ((org-agenda-overriding-header "Task Items") (org-agenda-files (append (file-expand-wildcards "~/projects/orgmode/bullet/.org"))) (org-agenda-todo-ignore-scheduled t) (org-agenda-todo-ignore-deadlines t) (org-agenda-todo-ignore-with-date t))) (tags "note" ((org-agenda-overriding-header "Notes") (org-agenda-files (append (file-expand-wildcards "~/projects/orgmode/bullet/*.org"))))))) org-agenda-custom-commands)

+end_src

** Capture Templates [[file:attachments/capture-templates.png]] \

What templates do I need available for quick capture of information? 1. Checklists 2. Bullet Journal 3. Journal 4. Notes 5. Web Resources

Task items can be a few different things, and there's the whole GTD which i'm trying my bestest to follow. Sometimes I may have a task item that I simply need to remind myself to complete, and just need to check it off a list acknowledging i've completed it and other times I need an actual task item to capture and track data in.

+begin_src emacs-lisp

(setq org-capture-templates '(("g" " gtd") ("gp" " projects") ("b" " bullet journal") ("l" " local project") ("n" " notes") ("r" " resources")))

(push '("gpt" " task" entry (function nm/find-project-task) "* REFILE %^{task}\n%?" :empty-lines-before 1 :empty-lines-after 1) org-capture-templates) (push '("gpr" " define requirements" item (function nm/find-project-requirement) "" :empty-lines-before 1 :empty-lines-after 1) org-capture-templates) (push '("gpn" " note" entry (function nm/find-project-note) "* " :empty-lines-before 1 :empty-lines-after 1) org-capture-templates) (push '("gpf" " timeframe" entry (function nm/find-project-timeframe) "* %^{timeframe entry} [%<%Y-%m-%d %a %H:%M>]\n:PROPERTIES:\n:CREATED: %U\n:END:\n%?" :empty-lines-before 1 :empty-lines-after 1) org-capture-templates)

;; TODO: Cleanup the template names to be more clear and easier to recognize. (push '("ga" " append to headline" plain (function nm/org-capture-log) " Note added: [%<%Y-%m-%d %a %H:%M>]\n%?" :empty-lines-before 1 :empty-lines-after 1) org-capture-templates) (push '("gc" " capture" entry (file+olp "~/projects/orgmode/gtd/tasks.org" "Inbox") "* REFILE %^{task}\n:PROPERTIES:\n:CREATED: %U\n:END:\n:METADATA:\n- SOURCE:\n- AUTHOR:\n:END:\n%?") org-capture-templates) (push '("gk" " capture [kill-ring]" entry (file+olp "~/projects/orgmode/gtd/tasks.org" "Inbox") "* REFILE %^{task}\n:PROPERTIES:\n:CREATED: %U\n:END:\n%c") org-capture-templates) (push '("gx" " capture [current pos]" entry (file+olp "~/projects/orgmode/gtd/tasks.org" "Inbox") "* REFILE %^{task}\n:PROPERTIES:\n:CREATED: %U\n:END:\nLocation at time of capture: %a") org-capture-templates)

(defun nm/prompt-during-capture () "Prompt and ask for metadata properties during capture." (interactive) (when (y-or-n-p "add schedule? ") (insert (format "SCHEDULED: <%s>"(org-read-date)))))

;; TODO: I need to finish implementing the bullet-journal. (push '("bt" " bullet task" entry (file+function "~/projects/orgmode/gtd/bullet.org" nm/capture-bullet-journal) "* REFILE %^{task} %^g\n:PROPERTIES:\n:CREATED: %U\n:END:\n" :empty-lines-before 1 :empty-lines-after 1) org-capture-templates)

(push '("nj" " journal" entry (function nm/capture-to-journal) "* %^{entry}\n:PROPERTIES:\n:CREATED: %U\n:END:\n%?") org-capture-templates) (push '("nn" " new reference [excluded from org-roam]" plain (function nm/create-notes-file) "%?" :unnarrowed t :empty-lines-before 1 :empty-lines-after 1) org-capture-templates) (push '("nr" " roam article" plain (function nm/create-roam-file)"%?" :unnarrowed t) org-capture-templates)

;; TODO: Configure more resource capture templates. (push '("rr" " research literature" entry (file+function "~/projects/orgmode/gtd/websources.org" nm/enter-headline-websources) "* READ %(get-page-title (current-kill 0))") org-capture-templates) (push '("rf" " rss feed" entry (file+function "~/projects/orgmode/elfeed.org" nm/return-headline-in-file) "* %^{link}") org-capture-templates)

+end_src

+begin_src emacs-lisp

;; This function is used in conjuction with the capture template "new note" which will find or generate a note based off the folder and filename. (defun nm/create-notes-file () "Function for creating a notes file under org-capture-templates." (nm/find-file-or-create t "~/projects/orgmode/references/" "note"))

(defun nm/create-roam-file () "Function to create a new roam notes file, while prompting for folder location." (nm/find-file-or-create t org-directory "note"))

(defun nm/find-project-task () "Function for creating a project file under org-capture-templates." (nm/find-file-or-create t "~/projects/orgmode/gtd/projects" "project" "Tasks") (setq org-agenda-files (append (file-expand-wildcards "~/projects/orgmode/gtd/.org") (file-expand-wildcards "~/projects/orgmode/gtd//*.org"))))

(defun nm/find-project-timeframe () "Function for creating a project file under org-capture-templates." (nm/find-file-or-create t "~/projects/orgmode/gtd/projects" "project" "Timeframe"))

(defun nm/find-project-requirement () "Function for creating a project file under org-capture-templates." (nm/find-file-or-create t "~/projects/orgmode/gtd/projects" "project" "Requirements"))

(defun nm/find-project-note () "Function for creating a project file under org-capture-templates." (nm/find-file-or-create t "~/projects/orgmode/gtd/projects" "project" "Notes"))

(defun nm/return-headline-in-file () "Returns the headline position." (let* ((org-agenda-files "~/projects/orgmode/elfeed.org") (location (nth 3 (org-refile-get-location nil nil 'confirm)))) (goto-char location) (org-end-of-line)))

(defun nm/find-project-todo () "When in projectile path, finds root todo.org file" (let ((path (doom-project-root)) (file "todo.org")) (find-file (format "%s%s" path file))))

(defun nm/enter-headline-websources () "This is a simple function for the purposes when using org-capture to add my entries to a custom Headline, and if URL is not in clipboard it'll return an error and cancel the capture process." (let* ((file "~/projects/orgmode/gtd/websources.org") (headline (read-string "Headline? "))) (progn (nm/check-headline-exist file headline) (goto-char (point-min)) (re-search-forward (format "^*+\s%s" (upcase headline))))))

(defun nm/check-headline-exist (file-arg headline-arg) "This function will check if HEADLINE-ARG exists in FILE-ARG, and if not it creates the headline." (save-excursion (find-file file-arg) (goto-char (point-min)) (unless (re-search-forward (format "* %s" (upcase headline-arg)) nil t) (goto-char (point-max)) (insert (format "* %s" (upcase headline-arg))) (org-set-property "CATEGORY" (downcase headline-arg)))) t)

(defun nm/org-capture-log () "Initiate the capture system and find headline to capture under." (let* ((org-agenda-files (find-lisp-find-files "~/projects/orgmode/gtd/" ".org$")) (dest (org-refile-get-location)) (file (cadr dest)) (pos (nth 3 dest)) (title (nth 2 dest))) (find-file file) (goto-char pos) (nm/org-end-of-headline)))

+end_src

** Clock Settings

+begin_src emacs-lisp

(after! org (setq org-clock-continuously t)) ; Will fill in gaps between the last and current clocked-in task.

+end_src

** Default Tags I don't like to shift my eyes back n forth when i'm scanning data, so I keep my columns one space after the headline.

+begin_src emacs-lisp

(setq org-tags-column 0)

+end_src

I like to keep a list of predefined context tags, this helps speed the assignment process up and also keep things consistent.

+begin_src emacs-lisp

(setq org-tag-alist '(("@home" . ?h) ("@computer" . ?c) ("@errands") ("@read") ("@delegated") ("someday")))

+end_src

** Export Settings

+begin_src emacs-lisp

(after! org (setq org-html-head-include-scripts t org-export-with-toc t org-export-with-author t org-export-headline-levels 4 org-export-with-drawers nil org-export-with-email t org-export-with-footnotes t org-export-with-sub-superscripts nil org-export-with-latex t org-export-with-section-numbers nil org-export-with-properties nil org-export-with-smart-quotes t org-export-backends '(pdf ascii html latex odt md pandoc)))

+end_src

Embed images into the exported HTML files.

+begin_src emacs-lisp

(defun replace-in-string (what with in) (replace-regexp-in-string (regexp-quote what) with in nil 'literal))

(defun org-html--format-image (source attributes info) (progn (setq source (replace-in-string "%20" " " source)) (format "" (or (file-name-extension source) "") (base64-encode-string (with-temp-buffer (insert-file-contents-literally source) (buffer-string))) (file-name-nondirectory source))))

+end_src

** Keywords After much feedback and discussing with other users, I decided to simplify the keyword list to make it simple. Defining a project will now focus on the tag word :project: so that all child task are treated as part of the project. | Keyword | Description | |---------+--------------------------------------------------------------| | \TODO | Task has actionable items defined and ready to be worked. | | HOLD | Has actionable items, but is on hold due to various reasons. | | NEXT | Is ready to be worked and should be worked on soon. | | DONE | Task is completed and closed. | | KILL | Abandoned or terminated. |

+begin_src emacs-lisp

(custom-declare-face '+org-todo-next '((t (:inherit (bold font-lock-constant-face org-todo)))) "") (custom-declare-face '+org-todo-project '((t (:inherit (bold font-lock-doc-face org-todo)))) "") (custom-declare-face '+org-todo-onhold '((t (:inherit (bold warning org-todo)))) "") (custom-declare-face '+org-todo-next '((t (:inherit (bold font-lock-keyword-face org-todo)))) "") (custom-declare-face 'org-checkbox-statistics-todo '((t (:inherit (bold font-lock-constant-face org-todo)))) "")

(setq org-todo-keywords '((sequence "REFILE(r)" "TODO(t)" "NEXT(n)" "DOING(o)" "WAIT(w)" "|" "DONE(d)" "KILL(k)") (sequence "PROJ(p)" "|" "COMPLETE" "CANCELED")) org-todo-keyword-faces '(("WAIT" . +org-todo-onhold) ("DOING" . +org-todo-active) ("NEXT" . +org-todo-next) ("REFILE" . +org-todo-onhold) ("PROJ" . +org-todo-next) ("TODO" . +org-todo-active)))

+end_src

** Loading agenda settings

+begin_src emacs-lisp

(after! org (setq org-agenda-diary-file "~/projects/orgmode/diary.org" org-agenda-dim-blocked-tasks nil ; This has funny behavior, similar to checkbox dependencies. org-agenda-use-time-grid nil org-agenda-tags-column 0 org-agenda-hide-tags-regexp "^w+" ; Hides tags in agenda-view org-agenda-compact-blocks nil org-agenda-block-separator " " org-agenda-skip-scheduled-if-done t org-agenda-skip-deadline-if-done t org-agenda-window-setup 'current-window org-enforce-todo-checkbox-dependencies nil ; This has funny behavior, when t and you try changing a value on the parent task, it can lead to Emacs freezing up. TODO See if we can fix the freezing behavior when making changes in org-agenda-mode. org-enforce-todo-dependencies t org-habit-show-habits t))

(after! org (setq org-agenda-files (append (file-expand-wildcards "~/projects/orgmode/gtd/.org") (file-expand-wildcards "~/projects/orgmode/gtd//*.org"))))

+end_src

** Logging and Drawers Next, we like to keep a history of our activity of a task so we track when changes occur, and we also keep our notes logged in their own drawer. Optionally you can also add the following in-buffer settings to override the =org-log-into-drawer= function. ~#+STARTUP: logdrawer~ or ~#+STARTUP: nologdrawer~

+begin_src emacs-lisp

(after! org (setq org-log-into-drawer t org-log-done 'time org-log-repeat 'time org-log-redeadline 'note org-log-reschedule 'note))

+end_src

** Looks and Feels Here we change some of the things how org-mode looks and feels, some options available are: - org-ellipsis ="▼, ↴, ⬎, ⤷,…, and ⋱."= - org-superstar-headline-bullets-list ="◉" "●" "○" "∴" "•"=

+begin_src emacs-lisp

(after! org (setq org-hide-emphasis-markers t org-hide-leading-stars t org-list-demote-modify-bullet '(("+" . "-") ("1." . "a.") ("-" . "+"))))

(when (require 'org-superstar nil 'noerror) (setq org-superstar-headline-bullets-list '("◉") org-superstar-item-bullet-alist nil))

(when (require 'org-fancy-priorities nil 'noerror) (setq org-fancy-priorities-list '("⚑" "❗" "⬆")))

+end_src

** Properties I like to have properties inherited from their parent.

+begin_src emacs-lisp

(after! org (setq org-use-property-inheritance t))

+end_src

** Publishing REVIEW do we need to re-define our publish settings for the ROAM directory?

+begin_src emacs-lisp

(after! org (setq org-publish-project-alist '(("attachments" :base-directory "~/projects/orgmode/" :recursive t :base-extension "jpg\|jpeg\|png\|pdf\|css\|svg" :publishing-directory "~/projects/nmartin84.github.io" :publishing-function org-publish-attachment) ("notes" :base-directory "~/projects/orgmode/" :base-extension "org" :publishing-directory "~/projects/nmartin84.github.io" :section-numbers nil :with-properties nil :with-drawers nil :with-timestamps active :with-creator t :with-email t :with-toc t :recursive t :exclude "gtd/secrets.org|gtd/journal.org" :headline-levels 8 :auto-sitemap t :sitemap-filename "index.html" :publishing-function org-html-publish-to-html :html-head "" :html-link-up "../" :html-link-up "../../index.html" :auto-preamble t) ("myprojectweb" :components("attachments" "notes")))))

+end_src

  • Modules

Org-Appear is a cool package that'll auto show emphasis markers when your cursor is on a element enclosed in emphasis.

+begin_src emacs-lisp

(add-hook 'org-mode-hook 'org-appear-mode) (setq org-appear-autolinks nil)

+end_src

** company mode

+begin_src emacs-lisp

;(setq company-backends '(company-capf)) (set-company-backend! 'org-mode '(company-yasnippet company-capf company-files company-elisp)) (set-company-backend! 'emacs-lisp-mode '(company-yasnippet company-elisp)) (setq company-idle-delay 0.25 company-minimum-prefix-length 2) (add-to-list 'company-backends '(company-capf company-files company-yasnippet company-semantic company-bbdb company-cmake company-keywords))

+end_src

** Deadgrep

+begin_src emacs-lisp

(map! :map deadgrep-mode-map "o" #'deadgrep-visit-result-other-window)

+end_src

** DEFT When this variable is set to ~t~ your deft directory will be updated to your projectile-project root's folder when switching projects, and the deft buffer's contents will be refreshed.

Configuring DEFT default settings

+begin_src emacs-lisp

(use-package deft :bind (("" . deft)) :commands (deft deft-open-file deft-new-file-named) :config (setq deft-directory "~/projects/orgmode/" deft-auto-save-interval 0 deft-recursive t deft-current-sort-method 'title deft-extensions '("md" "txt" "org") deft-use-filter-string-for-filename t deft-use-filename-as-title nil deft-markdown-mode-title-level 1 deft-file-naming-rules '((nospace . "-"))))

(defun my-deft/strip-quotes (str) (cond ((string-match "\"\(.+\)\"" str) (match-string 1 str)) ((string-match "'\(.+\)'" str) (match-string 1 str)) (t str)))

(defun my-deft/parse-title-from-front-matter-data (str) (if (string-match "^title: \(.+\)" str) (let* ((title-text (my-deft/strip-quotes (match-string 1 str))) (is-draft (string-match "^draft: true" str))) (concat (if is-draft "[DRAFT] " "") title-text))))

(defun my-deft/deft-file-relative-directory (filename) (file-name-directory (file-relative-name filename deft-directory)))

(defun my-deft/title-prefix-from-file-name (filename) (let ((reldir (my-deft/deft-file-relative-directory filename))) (if reldir (concat (directory-file-name reldir) " > "))))

(defun my-deft/parse-title-with-directory-prepended (orig &rest args) (let ((str (nth 1 args)) (filename (car args))) (concat (my-deft/title-prefix-from-file-name filename) (let ((nondir (file-name-nondirectory filename))) (if (or (string-prefix-p "README" nondir) (string-suffix-p ".txt" filename)) nondir (if (string-prefix-p "---\n" str) (my-deft/parse-title-from-front-matter-data (car (split-string (substring str 4) "\n---\n"))) (apply orig args)))))))

(provide 'my-deft-title)

(advice-add 'deft-parse-title :around #'my-deft/parse-title-with-directory-prepended)

+end_src

** Elfeed

+begin_src emacs-lisp

(use-package elfeed-org :defer :config (setq rmh-elfeed-org-files (list "~/projects/orgmode/elfeed.org"))) (use-package elfeed :defer :config (setq elfeed-db-directory "~/.elfeed/"))

(require 'elfeed-org) (elfeed-org) (setq elfeed-db-directory "~/.elfeed/") (setq rmh-elfeed-org-files (list "~/.elfeed/elfeed.org"))

+end_src

** Graphs and Chart Modules Eventually I would like to have org-mind-map generating charts like Sacha's [[https://pages.sachachua.com/evil-plans/][evil-plans]].

+begin_src emacs-lisp

(after! org (setq org-ditaa-jar-path "~/.emacs.d/.local/straight/repos/org-mode/contrib/scripts/ditaa.jar"))

(use-package gnuplot :defer :config (setq gnuplot-program "gnuplot"))

; MERMAID (use-package mermaid-mode :defer :config (setq mermaid-mmdc-location "~/nodemodules/.bin/mmdc" ob-mermaid-cli-path "~/nodemodules/.bin/mmdc"))

; PLANTUML (use-package ob-plantuml :ensure nil :commands (org-babel-execute:plantuml) :defer :config (setq plantuml-jar-path (expand-file-name "~/.doom.d/plantuml.jar")))

+end_src

** Hugo

+begin_src emacs-lisp

(setq hugobasedir "~/projects/braindump/")

+end_src

** Journal

+begin_src emacs-lisp

(after! org (setq org-journal-dir "~/projects/orgmode/gtd/journal/" org-journal-enable-agenda-integration t org-journal-file-type 'monthly org-journal-carryover-items "TODO=\"TODO\"|TODO=\"NEXT\"|TODO=\"PROJ\"|TODO=\"STRT\"|TODO=\"WAIT\"|TODO=\"HOLD\""))

+end_src

** Magit Mode A touch of magit to make it a little more special.

+begin_src emacs-lisp

(add-to-list 'magit-todos-keywords-list "NOTE")

+end_src

** Noter

+begin_src emacs-lisp

(setq org-noter-notes-search-path (concat org-directory "literature/"))

+end_src

** Pandoc

+begin_src emacs-lisp

(setq org-pandoc-options '((standalone . t) (self-contained . t)))

+end_src

** Reveal

+begin_src emacs-lisp

(when (require 'ox-reveal nil 'noerror) (setq org-reveal-root "https://cdn.jsdelivr.net/npm/reveal.js") (setq org-reveal-title-slide nil))

+end_src

** ROAM These are my default ROAM settings

+begin_src emacs-lisp

(when (require 'org-roam nil 'noerror) (setq org-roam-tag-sources '(prop all-directories)) (setq org-roam-db-location "~/projects/orgmode/roam.db") (setq org-roam-directory "~/projects/orgmode/") (setq org-roam-buffer-position 'right) (setq org-roam-link-file-path-type 'relative) (setq org-roam-file-exclude-regexp "references/\|gtd/\|elfeed.org\|README.org") (setq org-roam-completion-everywhere t) ;; Configuration of daily templates (setq org-roam-dailies-capture-templates '(("d" "daily" plain (function org-roam-capture--get-point) "" :immediate-finish t :file-name "journal/%<%Y-%m-%d-%a>" :head "#+TITLE: %<%Y-%m-%d %a>\n#+STARTUP: content\n\n"))) (setq org-roam-capture-templates '(("l" "literature" plain (function org-roam-capture--get-point) :file-name "literature/%<%Y%m%d%H%M>-${slug}" :head "#+title: ${title}\n#+author: %(concat user-full-name)\n#+email: %(concat user-mail-address)\n#+created: %(format-time-string \"[%Y-%m-%d %H:%M]\")\n#+roamtags: %^{roamtags}\n\nsource: \n\n%?" :unnarrowed t) ("f" "fleeting" plain (function org-roam-capture--get-point) :file-name "fleeting/%<%Y%m%d%H%M>-${slug}" :head "#+title: ${title}\n#+author: %(concat user-full-name)\n#+email: %(concat user-mail-address)\n#+created: %(format-time-string \"[%Y-%m-%d %H:%M]\")\n#+roamtags:\n\n%?" :unnarrowed t) ("p" "Permanent (prompt folder)" plain (function org-roam-capture--get-point) :file-name "%(read-directory-name \"directory: \" org-directory)/%<%Y%m%d%H%M>-${slug}" :head "#+title: ${title}\n#+author: %(concat user-full-name)\n#+email: %(concat user-mail-address)\n#+created: %(format-time-string \"[%Y-%m-%d %H:%M]\")\n#+roamtags:\n\n%?" :unnarrowed t))) (push '("x" "Projects" plain (function org-roam-capture--get-point) :file-name "gtd/projects/%<%Y%m%d%H%M>-${slug}" :head "#+title: ${title}\n#+roam_tags: %^{tags}\n\n%?" :unnarrowed t) org-roam-capture-templates))

(defun nm/org-roam-prompt-tags () "Prompt user and ask if they want to input roamtags during capture." (when (y-or-n-p "Add tags? ") (insert (format "%s" "\n#+roamtags: "))))

+end_src

** ROAM Server

+begin_src emacs-lisp

(when (require 'org-roam-server nil 'noerror) (use-package org-roam-server :ensure t :config (setq org-roam-server-host "192.168.1.249" org-roam-server-port 8060 org-roam-server-export-inline-images t org-roam-server-authenticate nil org-roam-server-network-poll t org-roam-server-network-vis-options "{ \"layout\": { \"randomSeed\": false }, \"physics\": { \"stabilization\": { \"iterations\": 10000, \"fit\": false, \"updateInterval\": 10000 }, \"barnesHut\": { \"gravitationalConstant\": -4000, \"avoidOverlap\": 1, \"springConstant\": 0.02, \"springLength\": 95 } } }" org-roam-server-network-arrows nil org-roam-server-serve-files t org-roam-server-extra-node-options (list (cons 'shape "dot") (cons 'opacity 1)) org-roam-server-network-label-truncate t org-roam-server-network-label-truncate-length 40 org-roam-server-network-label-wrap-length 20)))

+end_src

** TODO Look into abbrev-mode :@computer:someday:

  • Custom Functions #+begin_src emacs-lisp (load! "org-helpers.el")

(defun nm/task-is-active-proj () "Checks if task is a Project with child subtask" (and (bh/is-project-p) (nm/has-subtask-active-p)))

(defun nm/task-is-stuck-proj () "Checks if task is a Project with child subtask" (and (bh/is-project-p) (not (nm/has-subtask-active-p))))

(defun nm/has-subtask-active-p () "Returns t for any heading that has subtasks." (save-restriction (widen) (org-back-to-heading t) (let ((end (save-excursion (org-end-of-subtree t)))) (outline-end-of-heading) (save-excursion (re-search-forward (concat "^*+ " "\(NEXT\|DOING\)") end t)))))

(defun nm/update-task-conditions () "Update task states depending on their conditions." (interactive) (org-map-entries (lambda () (when (nm/task-is-active-proj) (org-todo "ACTIVE")) (when (nm/task-is-stuck-proj) (org-todo "PENDING"))) t))

(add-hook 'before-save-hook #'nm/update-task-conditions)

(defun nm/find-file-cleaned-up (folder) "Returns a list of filenames, in a cleaned up format and easy to read. FOLDER will be your folder path to search for." (interactive) (let* ((files (find-lisp-find-files folder ".org$")) (files-alist nil) (file-names nil)) (dolist (i files) (push (cons i (capitalize (replace-regexp-in-string "[-_]" " " (replace-regexp-in-string "^[0-9]+-\|.org$" "" (file-name-nondirectory i))))) files-alist)) (dolist (i files-alist) (push (cdr i) file-names)) (let* ((choice (ivy-completing-read "select: " file-names))) (if (equal choice "") nil (find-file (car (rassoc choice files-alist)))))))

(defun nm/convert-filename-format (&optional time-p folder-path) "Prompts user for filename and directory, and returns the value in a cleaned up format. If TIME-P is t, then includes date+time stamp in filename, FOLDER-PATH is the folder location to search for files." (let* ((file (replace-in-string " " "-" (downcase (read-file-name "select file: " (if folder-path (concat folder-path) org-directory)))))) (if (file-exists-p file) (concat file) (if (s-ends-with? ".org" file) (concat (format "%s%s" (file-name-directory file) (if time-p (concat (format-time-string "%Y%m%d%H%M%S-") (file-name-nondirectory (downcase file))) (concat (file-name-nondirectory (downcase file)))))) (concat (format "%s%s.org" (file-name-directory file) (if time-p (concat (format-time-string "%Y%m%d%H%M%S-") (file-name-nondirectory (downcase file))) (concat (file-name-nondirectory (downcase file))))))))))

(defun nm/find-file-or-create (time-p folder-path &optional type header) "Creates a new file, if TYPE is set to NOTE then also insert file-template." (interactive) (let* ((file (nm/convert-filename-format time-p folder-path))) ;; TODO: Add condition when filename is passed in as argument to skip this piece. (if (file-exists-p file) (find-file file) (when (equal "note" type) (find-file file) (insert (format "%s\n%s\n%s\n\n" (downcase (format "#+title: %s" (replace-in-string "-" " " (replace-regexp-in-string "[0-9]+-" "" (replace-in-string ".org" "" (file-name-nondirectory file)))))) (downcase (concat "#+author: " user-full-name)) (downcase (concat "#+email: " user-mail-address))))) (when (equal "project" type) (find-file file) (insert (format "%s\n%s\n%s\n\n* Requirements\n\n* Timeframe\n\n* Notes\n\n* Tasks\n" (downcase (format "#+title: %s" (replace-in-string "-" " " (replace-regexp-in-string "[0-9]+-" "" (replace-in-string ".org" "" (file-name-nondirectory file)))))) (downcase (concat "#+author: " user-full-name )) (downcase (concat "#+email: " user-mail-address))))) (when (equal nil type) (find-file))) ;; If user passes in header argument, search for it and if the search fails to find the header, create it. (if header (unless (progn (goto-char (point-min)) (re-search-forward (format "^+ %s" header))) (goto-char (point-max)) (newline) (insert (format " %s" header)) (newline)))))

+end_src

** Archive keeping Structure

+begin_src emacs-lisp

(defadvice org-archive-subtree (around fix-hierarchy activate) (let* ((fix-archive-p (and (not current-prefix-arg) (not (use-region-p)))) (location (org-archive--compute-location org-archive-location)) (afile (car location)) (offset (if (= 0 (length (cdr location))) 1 (1+ (string-match "[^]" (cdr location))))) (buffer (or (find-buffer-visiting afile) (find-file-noselect afile)))) ad-do-it (when fix-archive-p (with-current-buffer buffer (goto-char (point-max)) (while (> (org-current-level) offset) (org-up-heading-safe)) (let ((olpath (org-entry-get (point) "ARCHIVE_OLPATH")) (path (and olpath (split-string olpath "/"))) (level offset) tree-text) (when olpath (org-mark-subtree) (setq tree-text (buffer-substring (region-beginning) (region-end))) (let (this-command) (org-cut-subtree)) (goto-char (point-min)) (save-restriction (widen) (-each path (lambda (heading) (if (re-search-forward (rx-to-string `(: bol (repeat ,level "") (1+ " ") ,heading)) nil t) (org-narrow-to-subtree) (goto-char (point-max)) (unless (looking-at "^") (insert "\n")) (insert (make-string level ?) " " heading "\n")) (cl-incf level))) (widen) (org-end-of-subtree t t) (org-paste-subtree level tree-text))))))))

+end_src

** Custom Faces TODO: Consider moving to extras.org if we are not using it.

+begin_src emacs-lisp

;; (defface org-logbook-note ;; '((t (:foreground "LightSkyBlue"))) ;; "Face for printr function") ;; (custom-set-faces! ;; '(org-roam-block-link :weight "bold"))

;; (font-lock-add-keywords 'org-mode '(("\[\[\[\[.+\]\[.+\]\]\]\]" . 'org-roam-block-link)))

+end_src

** Clarify Tasks TODO: I need to either figure something out for this, or move it to extra.org

Clarify task will take a list of property fields and pass them to ~nm/org-clarify-task-properties~ to update task items which are missing those property fields.

+begin_src emacs-lisp

(defun nm/org-get-headline-property (arg) "Extract property from headline and return results." (interactive) (org-entry-get nil arg t))

(defun nm/org-get-headline-properties () "Get headline properties for ARG." (org-back-to-heading) (org-element-at-point))

(defun nm/org-get-headline-title () "Get headline title from current headline." (interactive) (org-element-property :title (nm/org-get-headline-properties)))

;;;;;;;;;;;;--------[ Clarify Task Properties ]----------;;;;;;;;;;;;;

(defun nm/org-clarify-metadata () "Runs the clarify-task-metadata function with ARG being a list of property values." ; TODO work on this function and add some meaning to it. (interactive) (nm/org-clarify-task-properties org-tasks-properties-metadata))

(map! :after org :map org-mode-map :localleader :prefix ("j" . "nicks functions") :desc "Clarify properties" "c" #'nm/org-clarify-metadata)

+end_src

+begin_src emacs-lisp

(defun nm/emacs-change-font () "Change font based on available font list." (interactive) (let ((font (ivy-completing-read "font: " nm/font-family-list)) (size (ivy-completing-read "size: " '("16" "18" "20" "22" "24" "26" "28" "30"))) (weight (ivy-completing-read "weight: " '(normal light bold extra-light ultra-light semi-light extra-bold ultra-bold))) (width (ivy-completing-read "width: " '(normal condensed expanded ultra-condensed extra-condensed semi-condensed semi-expanded extra-expanded ultra-expanded)))) (setq doom-font (font-spec :family font :size (string-to-number size) :weight (intern weight) :width (intern width)) doom-big-font (font-spec :family font :size (+ 2 (string-to-number size)) :weight (intern weight) :width (intern width)))) (doom/reload-font))

(defvar nm/font-family-list '("JetBrains Mono" "Roboto Mono" "VictorMono Nerd Font Mono" "Fira Code" "Hack" "Input Mono" "Anonymous Pro" "Cousine" "PT Mono" "DejaVu Sans Mono" "Victor Mono" "Liberation Mono"))

+end_src

  • End of file loading Load secrets from here... #+beginsrc emacs-lisp (let ((secrets (expand-file-name "secrets.el" doom-private-dir))) (when (file-exists-p secrets) (load secrets))) #+endsrc
  • Local Variables

We use cookies. If you continue to browse the site, you agree to the use of cookies. For more information on our use of cookies please see our Privacy Policy.