544 lines
21 KiB
EmacsLisp
544 lines
21 KiB
EmacsLisp
|
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;; Place your private configuration here! Remember, you do not need to run 'doom
|
||
|
|
;; sync' after modifying this file!
|
||
|
|
|
||
|
|
|
||
|
|
;; Some functionality uses this to identify you, e.g. GPG configuration, email
|
||
|
|
;; clients, file templates and snippets. It is optional.
|
||
|
|
;; (setq user-full-name "John Doe"
|
||
|
|
;; user-mail-address "john@doe.com")
|
||
|
|
|
||
|
|
;; Doom exposes five (optional) variables for controlling fonts in Doom:
|
||
|
|
;;
|
||
|
|
;; - `doom-font' -- the primary font to use
|
||
|
|
;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable)
|
||
|
|
;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for
|
||
|
|
;; presentations or streaming.
|
||
|
|
;; - `doom-symbol-font' -- for symbols
|
||
|
|
;; - `doom-serif-font' -- for the `fixed-pitch-serif' face
|
||
|
|
;;
|
||
|
|
;; See 'C-h v doom-font' for documentation and more examples of what they
|
||
|
|
;; accept. For example:
|
||
|
|
;;
|
||
|
|
;;(setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light)
|
||
|
|
;; doom-variable-pitch-font (font-spec :family "Fira Sans" :size 13))
|
||
|
|
;;
|
||
|
|
;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
|
||
|
|
;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to
|
||
|
|
;; refresh your font settings. If Emacs still can't find your font, it likely
|
||
|
|
;; wasn't installed correctly. Font issues are rarely Doom issues!
|
||
|
|
|
||
|
|
;; There are two ways to load a theme. Both assume the theme is installed and
|
||
|
|
;; available. You can either set `doom-theme' or manually load a theme with the
|
||
|
|
;; `load-theme' function. This is the default:
|
||
|
|
;(setq doom-theme 'doom-one)
|
||
|
|
|
||
|
|
;; This determines the style of line numbers in effect. If set to `nil', line
|
||
|
|
;; numbers are disabled. For relative line numbers, set this to `relative'.
|
||
|
|
;(setq display-line-numbers-type t)
|
||
|
|
|
||
|
|
;; If you use `org' and don't want your org files in the default location below,
|
||
|
|
;; change `org-directory'. It must be set before org loads!
|
||
|
|
;(setq org-directory "~/org/")
|
||
|
|
|
||
|
|
|
||
|
|
;; Whenever you reconfigure a package, make sure to wrap your config in an
|
||
|
|
;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
|
||
|
|
;;
|
||
|
|
;; (after! PACKAGE
|
||
|
|
;; (setq x y))
|
||
|
|
;;
|
||
|
|
;; The exceptions to this rule:
|
||
|
|
;;
|
||
|
|
;; - Setting file/directory variables (like `org-directory')
|
||
|
|
;; - Setting variables which explicitly tell you to set them before their
|
||
|
|
;; package is loaded (see 'C-h v VARIABLE' to look up their documentation).
|
||
|
|
;; - Setting doom variables (which start with 'doom-' or '+').
|
||
|
|
;;
|
||
|
|
;; Here are some additional functions/macros that will help you configure Doom.
|
||
|
|
;;
|
||
|
|
;; - `load!' for loading external *.el files relative to this one
|
||
|
|
;; - `use-package!' for configuring packages
|
||
|
|
;; - `after!' for running code after a package has loaded
|
||
|
|
;; - `add-load-path!' for adding directories to the `load-path', relative to
|
||
|
|
;; this file. Emacs searches the `load-path' when you load packages with
|
||
|
|
;; `require' or `use-package'.
|
||
|
|
;; - `map!' for binding new keys
|
||
|
|
;;
|
||
|
|
;; To get information about any of these functions/macros, move the cursor over
|
||
|
|
;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
|
||
|
|
;; This will open documentation for it, including demos of how they are used.
|
||
|
|
;; Alternatively, use `C-h o' to look up a symbol (functions, variables, faces,
|
||
|
|
;; etc).
|
||
|
|
;;
|
||
|
|
;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
|
||
|
|
;; they are implemented.
|
||
|
|
|
||
|
|
(setq browse-url-browser-function 'browse-url-generic
|
||
|
|
browse-url-generic-program "termux-open"
|
||
|
|
alert-default-style 'termux
|
||
|
|
org-pomodoro-audio-player nil) ;; VERY LOUD! DISABLE.
|
||
|
|
(set-default 'truncate-lines nil)
|
||
|
|
|
||
|
|
(after! org-pomodoro
|
||
|
|
(alert-add-rule :category "org-pomodoro"
|
||
|
|
:style (cond (alert-termux-command
|
||
|
|
'termux)
|
||
|
|
(alert-default-style))))
|
||
|
|
|
||
|
|
;; theme
|
||
|
|
|
||
|
|
(setq doom-theme 'doom-tomorrow-night )
|
||
|
|
;(setq doom-theme 'doom-meltbus )
|
||
|
|
;(setq doom-theme 'doom-plain-dark )
|
||
|
|
;(setq doom-theme 'doom-plain )
|
||
|
|
|
||
|
|
(after! org
|
||
|
|
(setq display-line-numbers-type nil
|
||
|
|
org-hide-emphasis-markers t
|
||
|
|
org-pretty-entities t
|
||
|
|
org-ellipsis "…"
|
||
|
|
org-image-actual-width 600))
|
||
|
|
(setq display-line-numbers-type nil)
|
||
|
|
|
||
|
|
(after! org-journal
|
||
|
|
(setq org-journal-dir "~/diary"
|
||
|
|
org-journal-date-prefix "#+TITLE: "
|
||
|
|
org-journal-time-prefix "+ "
|
||
|
|
org-journal-date-format "%a, %Y-%m-%d"
|
||
|
|
org-journal-file-format "%Y-%m-%d.org"))
|
||
|
|
|
||
|
|
(use-package! org-books
|
||
|
|
:defer t
|
||
|
|
:config
|
||
|
|
(setq org-books-file "~/notebook/readinglist.org"))
|
||
|
|
|
||
|
|
(after! org
|
||
|
|
(setq org-log-done 'time
|
||
|
|
org-log-into-drawer t
|
||
|
|
;About the 2 elisp lines below: If you want to send items without explicit
|
||
|
|
;priorities to the bottom of the list you have to set org-default-priority to the
|
||
|
|
;value of org-lowest-priority). I did this to make recognize that: PRIORITY=0 are
|
||
|
|
;items without explicit priorities (not A, B or C, but just TODO)
|
||
|
|
org-lowest-priority ?E
|
||
|
|
org-default-priority ?E)
|
||
|
|
(defun jethro/org-archive-done-tasks ()
|
||
|
|
"Archive all done tasks."
|
||
|
|
(interactive)
|
||
|
|
(org-map-entries 'org-archive-subtree "/DONE" 'file)))
|
||
|
|
|
||
|
|
(setq org-directory "~/notebook/"
|
||
|
|
bookmark-default-file "~/.doom.d/bookmarks")
|
||
|
|
|
||
|
|
(setq org-agenda-files '("~/housekeeping/calendar.org"
|
||
|
|
"~/notebook/ag/habits.org"
|
||
|
|
"~/notebook/ag/todo.org"
|
||
|
|
"~/notebook/ag/projects.org"
|
||
|
|
"~/notebook/ag/refile.org"
|
||
|
|
"~/notebook/ag/pomodoro.org"
|
||
|
|
"~/notebook/ag/events/birthdays.org"
|
||
|
|
"~/notebook/refile.org"
|
||
|
|
))
|
||
|
|
|
||
|
|
(after! org-agenda
|
||
|
|
(setq org-agenda-sticky t)) ; dont kill agendas
|
||
|
|
|
||
|
|
(use-package! org-super-agenda
|
||
|
|
:after org-agenda
|
||
|
|
:init
|
||
|
|
(setq org-agenda-skip-scheduled-if-done t
|
||
|
|
org-agenda-skip-deadline-if-done t
|
||
|
|
org-agenda-include-deadlines t
|
||
|
|
org-agenda-block-separator nil
|
||
|
|
org-agenda-compact-blocks t
|
||
|
|
org-agenda-start-day nil ;; i.e. today
|
||
|
|
org-agenda-span 1
|
||
|
|
org-agenda-start-on-weekday nil)
|
||
|
|
(add-to-list 'org-agenda-custom-commands
|
||
|
|
'("c" "Super view"
|
||
|
|
((agenda "" ((org-agenda-overriding-header "")
|
||
|
|
(org-super-agenda-groups
|
||
|
|
'((:name "Soon"
|
||
|
|
:deadline future
|
||
|
|
:order 3)
|
||
|
|
(:name "Today"
|
||
|
|
:time-grid t
|
||
|
|
:date today
|
||
|
|
:order 2)
|
||
|
|
(:name "Due today"
|
||
|
|
:deadline today
|
||
|
|
:scheduled today
|
||
|
|
:order 2)
|
||
|
|
(:name "Overdue"
|
||
|
|
:deadline past
|
||
|
|
:scheduled past
|
||
|
|
:order 1)))))
|
||
|
|
(alltodo "" ((org-agenda-overriding-header "")
|
||
|
|
(org-super-agenda-groups
|
||
|
|
'(;(:name "Future"
|
||
|
|
; :scheduled future)
|
||
|
|
(:discard (:anything t)))))))))
|
||
|
|
:config
|
||
|
|
(org-super-agenda-mode))
|
||
|
|
|
||
|
|
(setq org-agenda-prefix-format '(
|
||
|
|
(agenda . " %?-12t% s")
|
||
|
|
(todo . " %i %-12:c")
|
||
|
|
(tags . " %i %-12:c")
|
||
|
|
(search . " %i %-12:c")))
|
||
|
|
|
||
|
|
;; hide tags
|
||
|
|
(after! org-agenda
|
||
|
|
(setq org-agenda-hide-tags-regexp
|
||
|
|
(concat org-agenda-hide-tags-regexp "\\|sometag")))
|
||
|
|
|
||
|
|
;; org-pomodoro
|
||
|
|
(setq org-pomodoro-ask-upon-killing t
|
||
|
|
org-pomodoro-keep-killed-pomodoro-time t
|
||
|
|
org-pomodoro-length 25
|
||
|
|
org-pomodoro-manual-break t)
|
||
|
|
|
||
|
|
(defun +org-pomodoro/3-5 ()
|
||
|
|
"Set Pomodoro intervals to 3-5"
|
||
|
|
(interactive)
|
||
|
|
(setq org-pomodoro-length 3)
|
||
|
|
(setq org-pomodoro-short-break-length 5)
|
||
|
|
(message "Pomodoro set to 3-5" (buffer-name)))
|
||
|
|
(defun +org-pomodoro/5-5 ()
|
||
|
|
"Set Pomodoro intervals to 5-5"
|
||
|
|
(interactive)
|
||
|
|
(setq org-pomodoro-length 5)
|
||
|
|
(setq org-pomodoro-short-break-length 5)
|
||
|
|
(message "Pomodoro set to 3-5" (buffer-name)))
|
||
|
|
(defun +org-pomodoro/10-5 ()
|
||
|
|
"Set Pomodoro intervals to 10-5"
|
||
|
|
(interactive)
|
||
|
|
(setq org-pomodoro-length 10)
|
||
|
|
(setq org-pomodoro-short-break-length 5)
|
||
|
|
(message "Pomodoro set to 10-5" (buffer-name)))
|
||
|
|
(defun +org-pomodoro/15-5 ()
|
||
|
|
"Set Pomodoro intervals to 15-5"
|
||
|
|
(interactive)
|
||
|
|
(setq org-pomodoro-length 15)
|
||
|
|
(setq org-pomodoro-short-break-length 5)
|
||
|
|
(message "Pomodoro set to 15-5" (buffer-name)))
|
||
|
|
(defun +org-pomodoro/25-5 ()
|
||
|
|
"Set Pomodoro intervals to 25-5"
|
||
|
|
(interactive)
|
||
|
|
(setq org-pomodoro-length 25)
|
||
|
|
(setq org-pomodoro-short-break-length 5)
|
||
|
|
(message "Pomodoro set to 25-5" (buffer-name)))
|
||
|
|
(defun +org-pomodoro/30-10 ()
|
||
|
|
"Set Pomodoro intervals to 30-10"
|
||
|
|
(interactive)
|
||
|
|
(setq org-pomodoro-length 30)
|
||
|
|
(setq org-pomodoro-short-break-length 10)
|
||
|
|
(message "Pomodoro set to 30-10" (buffer-name)))
|
||
|
|
(defun +org-pomodoro/50-10 ()
|
||
|
|
"Set Pomodoro intervals to 50-10"
|
||
|
|
(interactive)
|
||
|
|
(setq org-pomodoro-length 50)
|
||
|
|
(setq org-pomodoro-short-break-length 10)
|
||
|
|
(message "Pomodoro set to 50-10" (buffer-name)))
|
||
|
|
|
||
|
|
;; eisenhower matrix
|
||
|
|
(after! org-agenda
|
||
|
|
(add-to-list 'org-agenda-custom-commands
|
||
|
|
'("1" "Eisenhower matrix"
|
||
|
|
((tags-todo
|
||
|
|
"+PRIORITY=\"A\"-habits+todo"
|
||
|
|
((org-agenda-overriding-header "Urgent and important"))))
|
||
|
|
nil))
|
||
|
|
|
||
|
|
(add-to-list 'org-agenda-custom-commands
|
||
|
|
'("2" "Eisenhower matrix"
|
||
|
|
((tags-todo
|
||
|
|
"+PRIORITY=\"B\"-habits+todo"
|
||
|
|
((org-agenda-overriding-header "Important but not urgent"))))
|
||
|
|
nil))
|
||
|
|
|
||
|
|
(add-to-list 'org-agenda-custom-commands
|
||
|
|
'("3" "Eisenhower matrix"
|
||
|
|
((tags-todo
|
||
|
|
"+PRIORITY=\"C\"-habits+todo"
|
||
|
|
((org-agenda-overriding-header "Urgent but not important"))))
|
||
|
|
nil))
|
||
|
|
|
||
|
|
(add-to-list 'org-agenda-custom-commands
|
||
|
|
'("4" "Eisenhower matrix"
|
||
|
|
((tags-todo
|
||
|
|
"+PRIORITY=0-PRIORITY=\"A\"-PRIORITY=\"B\"-PRIORITY=\"C\"-habits+todo"
|
||
|
|
;"+PRIORITY=0+PRIORITY=\"D\"-habits+todo"
|
||
|
|
((org-agenda-overriding-header "Neither important nor urgent"))))
|
||
|
|
nil))
|
||
|
|
|
||
|
|
;;; same but using lists
|
||
|
|
(add-to-list 'org-agenda-custom-commands
|
||
|
|
'("x" "Eisenhower Matrix (list)"
|
||
|
|
((tags-todo
|
||
|
|
"+PRIORITY=\"A\"-habits+todo"
|
||
|
|
((org-agenda-overriding-header "Urgent and important")))
|
||
|
|
(tags-todo
|
||
|
|
"+PRIORITY=\"B\"-habits+todo"
|
||
|
|
((org-agenda-overriding-header "Important but not urgent")))
|
||
|
|
(tags-todo
|
||
|
|
"+PRIORITY=\"C\"-habits+todo"
|
||
|
|
((org-agenda-overriding-header "Urgent but not important")))
|
||
|
|
(tags-todo
|
||
|
|
"+PRIORITY=0-PRIORITY=\"A\"-PRIORITY=\"B\"-PRIORITY=\"C\"-habits+todo"
|
||
|
|
((org-agenda-overriding-header "Neither important nor urgent"))))
|
||
|
|
nil)))
|
||
|
|
|
||
|
|
;; eisenhower matrix grid
|
||
|
|
|
||
|
|
(defun +eisenhower-matrix/agenda-1 () (interactive) (org-agenda nil "1"))
|
||
|
|
(defun +eisenhower-matrix/agenda-2 () (interactive) (org-agenda nil "2"))
|
||
|
|
(defun +eisenhower-matrix/agenda-3 () (interactive) (org-agenda nil "3"))
|
||
|
|
(defun +eisenhower-matrix/agenda-4 () (interactive) (org-agenda nil "4"))
|
||
|
|
(defun split-4-ways () (interactive) (delete-other-windows) (split-window-right) (split-window-below) (windmove-right) (split-window-below) (windmove-left))
|
||
|
|
(defun +eisenhower-matrix/redo-all-agenda-buffers ()
|
||
|
|
(interactive)
|
||
|
|
(dolist (buffer (buffer-list))
|
||
|
|
(with-current-buffer buffer
|
||
|
|
(when (derived-mode-p 'org-agenda-mode)
|
||
|
|
(org-agenda-redo t)))))
|
||
|
|
(defun +eisenhower-matrix/make-agendas ()
|
||
|
|
(interactive)
|
||
|
|
(+eisenhower-matrix/agenda-1)
|
||
|
|
(hide-mode-line-mode)
|
||
|
|
(+eisenhower-matrix/agenda-2)
|
||
|
|
(hide-mode-line-mode)
|
||
|
|
(+eisenhower-matrix/agenda-3)
|
||
|
|
(hide-mode-line-mode)
|
||
|
|
(+eisenhower-matrix/agenda-4)
|
||
|
|
(hide-mode-line-mode)
|
||
|
|
)
|
||
|
|
(defun +eisenhower-matrix/make-eisenhower-matrix ()
|
||
|
|
(interactive)
|
||
|
|
(+eisenhower-matrix/make-agendas)
|
||
|
|
(split-4-ways)
|
||
|
|
(switch-to-buffer "*Org Agenda(1)*")
|
||
|
|
(windmove-right)
|
||
|
|
(switch-to-buffer "*Org Agenda(2)*")
|
||
|
|
(windmove-down)
|
||
|
|
(switch-to-buffer "*Org Agenda(4)*")
|
||
|
|
(windmove-left)
|
||
|
|
(switch-to-buffer "*Org Agenda(3)*")
|
||
|
|
)
|
||
|
|
|
||
|
|
;; workspaces
|
||
|
|
;;; Commentary: provides 2 grid workspaces via function;
|
||
|
|
;;; +todo-workspaces/make-todo-workspace
|
||
|
|
;;; +todo-workspaces/make-todo-workspace-min
|
||
|
|
|
||
|
|
(defun +todo-workspaces/agenda1 () (org-agenda nil "a"))
|
||
|
|
(defun +todo-workspaces/agenda2 () (org-agenda nil "x"))
|
||
|
|
(defun +todo-workspaces/make-todo-agendas () (+todo-workspaces/agenda1) (hide-mode-line-mode) (+todo-workspaces/agenda2) (hide-mode-line-mode))
|
||
|
|
(defun +todo-workspaces/split-todo-workspace ()
|
||
|
|
(delete-other-windows)
|
||
|
|
(split-window-below)
|
||
|
|
(windmove-down)
|
||
|
|
(split-window-right)
|
||
|
|
(windmove-up))
|
||
|
|
(defun +todo-workspaces/split-todo-workspace-min ()
|
||
|
|
(delete-other-windows)
|
||
|
|
(split-window-below))
|
||
|
|
(defun +todo-workspaces/redo-all-agenda-buffers ()
|
||
|
|
(interactive)
|
||
|
|
(dolist (buffer (buffer-list))
|
||
|
|
(with-current-buffer buffer
|
||
|
|
(when (derived-mode-p 'org-agenda-mode)
|
||
|
|
(org-agenda-redo t)))))
|
||
|
|
|
||
|
|
(defun +todo-workspaces/make-todo-workspace ()
|
||
|
|
(interactive)
|
||
|
|
;(+todo-workspaces/redo-all-agenda-buffers)
|
||
|
|
(+todo-workspaces/make-todo-agendas)
|
||
|
|
(+todo-workspaces/split-todo-workspace)
|
||
|
|
(switch-to-buffer "*Org Agenda(a)*")
|
||
|
|
(windmove-down)
|
||
|
|
(switch-to-buffer "*Org Agenda(x)*")
|
||
|
|
(windmove-right)
|
||
|
|
(find-file "~/notebook/ag/todo.org"))
|
||
|
|
|
||
|
|
(defun +todo-workspaces/make-todo-workspace-min ()
|
||
|
|
(interactive)
|
||
|
|
;(+todo-workspaces/redo-all-agenda-buffers)
|
||
|
|
(+todo-workspaces/make-todo-agendas)
|
||
|
|
(+todo-workspaces/split-todo-workspace-min)
|
||
|
|
(switch-to-buffer "*Org Agenda(a)*")
|
||
|
|
(windmove-down)
|
||
|
|
(switch-to-buffer "*Org Agenda(x)*"))
|
||
|
|
|
||
|
|
(map! :leader
|
||
|
|
(:prefix-map ("o" . "open")
|
||
|
|
(:prefix-map ("w" . "workspaces")
|
||
|
|
:desc "Eisenhower Matrix" "e" #'+eisenhower-matrix/make-eisenhower-matrix ;; classic eisenhower matrix
|
||
|
|
:desc "Schedule/Eisenhower-list/todo" "t" #'+todo-workspaces/make-todo-workspace
|
||
|
|
:desc "Schedule/Eisenhower-list" "s" #'+todo-workspaces/make-todo-workspace-min)
|
||
|
|
(:prefix ("a" . "org agenda")
|
||
|
|
:desc "Eisenhower Matrix" "e" #'+eisenhower-matrix/make-eisenhower-matrix ;; classic eisenhower matrix
|
||
|
|
:desc "Rebuild All agendas" "r" #'+eisenhower-matrix/redo-all-agenda-buffers
|
||
|
|
(:prefix-map ("w" . "workspaces")
|
||
|
|
:desc "Eisenhower Matrix" "e" #'+eisenhower-matrix/make-eisenhower-matrix ;; classic eisenhower matrix
|
||
|
|
:desc "Schedule/Eisenhower-list/todo" "t" #'+todo-workspaces/make-todo-workspace
|
||
|
|
:desc "Schedule/Eisenhower-list" "s" #'+todo-workspaces/make-todo-workspace-min)
|
||
|
|
)))
|
||
|
|
|
||
|
|
;; org-roam configurations
|
||
|
|
(use-package! org-roam
|
||
|
|
:init
|
||
|
|
:custom
|
||
|
|
(org-roam-directory "~/notebook/roam/" )
|
||
|
|
(org-roam-dailies-capture-templates
|
||
|
|
'(("d" "default" entry "* %<%I:%M %p>: %?"
|
||
|
|
:if-new (file+head "%<%Y-%m-%d>.org" "#+title: %<%Y-%m-%d>\n")))))
|
||
|
|
|
||
|
|
;; looks
|
||
|
|
(cl-defmethod org-roam-node-type ((node org-roam-node))
|
||
|
|
"Return the TYPE of NODE."
|
||
|
|
(condition-case nil
|
||
|
|
(file-name-nondirectory
|
||
|
|
(directory-file-name
|
||
|
|
(file-name-directory
|
||
|
|
(file-relative-name (org-roam-node-file node) org-roam-directory))))
|
||
|
|
(error "")))
|
||
|
|
|
||
|
|
(setq org-roam-node-display-template
|
||
|
|
(concat "${type:15} ${title:30} " (propertize "${tags:10}" 'face 'org-tag)))
|
||
|
|
|
||
|
|
(setq org-roam-capture-templates
|
||
|
|
'(("d" "default" plain "%?"
|
||
|
|
:target (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
|
||
|
|
"#+title: ${title}\n")
|
||
|
|
:unnarrowed t)
|
||
|
|
; main things
|
||
|
|
("l" "literature" plain "%?"
|
||
|
|
:if-new
|
||
|
|
(file+head "literature/%<%Y%m%d%H%M%S>-${title}.org" "#+title: ${title}\n")
|
||
|
|
:immediate-finish t
|
||
|
|
:unnarrowed t)
|
||
|
|
("p" "permanent" plain "%?"
|
||
|
|
:if-new
|
||
|
|
(file+head "permanent/%<%Y%m%d%H%M%S>-${title}.org" "#+title: ${title}\n")
|
||
|
|
:immediate-finish t
|
||
|
|
:unnarrowed t)
|
||
|
|
|
||
|
|
; now using inbox.org via org-capture
|
||
|
|
("f" "fleeting" plain "%?"
|
||
|
|
:if-new
|
||
|
|
(file+head "fleeting/%<%Y%m%d%H%M%S>-${title}.org" "#+title: ${title}\n")
|
||
|
|
:immediate-finish t
|
||
|
|
:unnarrowed t)
|
||
|
|
|
||
|
|
("s" "school" plain "%?"
|
||
|
|
:if-new
|
||
|
|
(file+head "school/%<%Y%m%d%H%M%S>-${title}.org" "#+title: ${title}\n")
|
||
|
|
:immediate-finish t
|
||
|
|
:unnarrowed t)))
|
||
|
|
|
||
|
|
;; org-capture
|
||
|
|
(after! org
|
||
|
|
|
||
|
|
;; examples: file:~/.emacs.d/modules/lang/org/config.el
|
||
|
|
;; file:~/.emacs.d/modules/lang/org/autoload/org-capture.el
|
||
|
|
|
||
|
|
;; set locations personal and centralized files
|
||
|
|
|
||
|
|
(defvar +org-capture-refile-file "ag/refile.org")
|
||
|
|
(defun +org-capture-refile-file ()
|
||
|
|
(expand-file-name +org-capture-refile-file org-directory))
|
||
|
|
(defvar +org-capture-todo-custom-file "ag/todo.org")
|
||
|
|
(defun +org-capture-todo-custom-file ()
|
||
|
|
(expand-file-name +org-capture-todo-custom-file org-directory))
|
||
|
|
(defvar +org-capture-custom-projects-file "ag/projects.org")
|
||
|
|
(defun +org-capture-custom-central-project-todo-file ()
|
||
|
|
"TODO"
|
||
|
|
(+org--capture-central-file
|
||
|
|
+org-capture-custom-projects-file (projectile-project-name)))
|
||
|
|
(defun +org-capture-custom-central-project-notes-file ()
|
||
|
|
"TODO"
|
||
|
|
(+org--capture-central-file
|
||
|
|
+org-capture-custom-projects-file (projectile-project-name)))
|
||
|
|
(defun +org-capture-custom-central-project-changelog-file ()
|
||
|
|
"TODO"
|
||
|
|
(+org--capture-central-file
|
||
|
|
+org-capture-custom-projects-file (projectile-project-name)))
|
||
|
|
|
||
|
|
;(add-to-list 'org-capture-templates
|
||
|
|
; '(("s" "Slipbox" entry (file "braindump/org/inbox.org")
|
||
|
|
; "* %?\n")
|
||
|
|
; ("t" "Personal todo" entry
|
||
|
|
; (file+headline +org-capture-todo-file "Inbox")
|
||
|
|
; "* [ ] %?\n%i\n%a" :prepend t)
|
||
|
|
; )
|
||
|
|
|
||
|
|
(setq org-capture-templates
|
||
|
|
'(("t" "Personal todo" entry
|
||
|
|
(file+headline +org-capture-todo-custom-file "todo")
|
||
|
|
"* TODO %?\n%i\n%a" :prepend t)
|
||
|
|
("T" "Personal todo (no link)" entry
|
||
|
|
(file+headline +org-capture-todo-custom-file "todo")
|
||
|
|
"* TODO %?\n" :prepend t)
|
||
|
|
|
||
|
|
;;; i never use this
|
||
|
|
;("n" "Personal notes" entry
|
||
|
|
;(file+headline +org-capture-notes-file "Inbox")
|
||
|
|
;"* %u %?\n%i\n%a" :prepend t)
|
||
|
|
("r" "Personal refile file" entry
|
||
|
|
(file +org-capture-refile-file)
|
||
|
|
"* %u %?\n%i\n%a" :prepend t)
|
||
|
|
|
||
|
|
;; using org-journal atm, i will likely never use this
|
||
|
|
;("j" "Journal" entry
|
||
|
|
;(file+olp+datetree +org-capture-journal-file)
|
||
|
|
;"* %U %?\n%i\n%a" :prepend t)
|
||
|
|
|
||
|
|
;; Will use {project-root}/{todo,notes,changelog}.org, unless a
|
||
|
|
;; {todo,notes,changelog}.org file is found in a parent directory.
|
||
|
|
;; Uses the basename from `+org-capture-todo-file',
|
||
|
|
;; `+org-capture-changelog-file' and `+org-capture-notes-file'.
|
||
|
|
("p" "Templates for projects")
|
||
|
|
("pt" "Project-local todo" entry ; {project-root}/todo.org
|
||
|
|
(file+headline +org-capture-project-todo-file "Inbox")
|
||
|
|
"* TODO %?\n%i\n%a" :prepend t)
|
||
|
|
("pn" "Project-local notes" entry ; {project-root}/notes.org
|
||
|
|
(file+headline +org-capture-project-notes-file "Inbox")
|
||
|
|
"* %U %?\n%i\n%a" :prepend t)
|
||
|
|
("pc" "Project-local changelog" entry ; {project-root}/changelog.org
|
||
|
|
(file+headline +org-capture-project-changelog-file "Unreleased")
|
||
|
|
"* %U %?\n%i\n%a" :prepend t)
|
||
|
|
|
||
|
|
;; reference for function: [[file:~/.emacs.d/modules/lang/org/autoload/org-capture.el::defun +org--capture-central-file (file project]]
|
||
|
|
;; Will use {org-directory}/{+org-capture-projects-file} and store
|
||
|
|
;; these under {ProjectName}/{Tasks,Notes,Changelog} headings. They
|
||
|
|
;; support `:parents' to specify what headings to put them under, e.g.
|
||
|
|
;; :parents ("Projects")
|
||
|
|
("o" "Centralized templates for projects")
|
||
|
|
("ot" "Project todo" entry
|
||
|
|
(function +org-capture-custom-central-project-todo-file)
|
||
|
|
"* TODO %?\n %i\n %a"
|
||
|
|
:heading "Tasks"
|
||
|
|
:prepend nil)
|
||
|
|
("on" "Project notes" entry
|
||
|
|
(function +org-capture-custom-central-project-notes-file)
|
||
|
|
"* %U %?\n %i\n %a"
|
||
|
|
:heading "Notes"
|
||
|
|
:prepend t)
|
||
|
|
("oc" "Project changelog" entry
|
||
|
|
(function +org-capture-custom-central-project-changelog-file)
|
||
|
|
"* %U %?\n %i\n %a"
|
||
|
|
:heading "Changelog"
|
||
|
|
:prepend t)
|
||
|
|
|
||
|
|
;; org books / general logging
|
||
|
|
("b" "Book log / General log (org)" item (function org-books-visit-book-log)
|
||
|
|
"- %U %?" :prepend t)
|
||
|
|
|
||
|
|
;; zettelkasten
|
||
|
|
("s" "Slipbox" entry (file "roam/inbox.org")
|
||
|
|
"* %U %?\n")
|
||
|
|
("S" "Slipbox link" entry (file "roam/inbox.org")
|
||
|
|
"* %U %?\n %i\n %a"))))
|