198 lines
8.0 KiB
EmacsLisp
198 lines
8.0 KiB
EmacsLisp
;; The all-powerful Org mode
|
|
|
|
(use-package org
|
|
:straight '(org-plus-contrib :type git
|
|
:repo "https://git.sr.ht/~bzg/org-contrib")
|
|
:mode (("\\.org\\'" . org-mode))
|
|
:init
|
|
(leader-def-key "o" '(nil :which-key "org"))
|
|
:config
|
|
(add-hook 'org-mode-hook #'olivetti-mode)
|
|
(add-hook 'org-mode-hook (lambda () (require 'org-attach)))
|
|
(defun org-scratch ()
|
|
(interactive)
|
|
(switch-to-buffer "*org-scratch*")
|
|
(org-mode))
|
|
(cl-defun org-find-daily-note (date)
|
|
"Find the daily note for DATE, creating it if necessary.
|
|
|
|
DATE should be in the format \"YYYY-MM-DD\". If called interactively, default to today's date. If called with\
|
|
a prefix argument, prompt for the date."
|
|
|
|
(interactive (list (if current-prefix-arg
|
|
(org-read-date nil nil nil "Date: ")
|
|
(format-time-string "%Y-%m-%d"))))
|
|
(let* ((filename (expand-file-name
|
|
(format "~/org/daily/%s.org" date)))
|
|
(file-exists (file-exists-p filename)))
|
|
(find-file filename)
|
|
(goto-char (point-min))
|
|
(unless file-exists
|
|
(org-id-get-create)
|
|
(goto-char (point-max))
|
|
(insert (format "#+title: %s daily note" date))
|
|
(newline))
|
|
(goto-char (point-max))))
|
|
(defun org-capture-daily-note ()
|
|
(org-find-daily-note (format-time-string "%Y-%m-%d")))
|
|
(org-babel-do-load-languages
|
|
'org-babel-load-languages
|
|
'((plantuml . t)))
|
|
:custom
|
|
(org-modules '(ol-doi
|
|
ol-w3m
|
|
ol-bbdb
|
|
ol-bibtex
|
|
ol-docview
|
|
ol-gnus
|
|
ol-info
|
|
ol-irc
|
|
ol-mhe
|
|
ol-rmail
|
|
ol-eww
|
|
org-tempo))
|
|
(org-agenda-files `(,(expand-file-name "~/org/todo.org")
|
|
,(expand-file-name "~/org/daily")))
|
|
(org-todo-keywords '((sequence
|
|
"TODO(t)"
|
|
"IN PROGRESS(i)"
|
|
"BLOCKED(b)"
|
|
"|"
|
|
"DONE(d)"
|
|
"CANCELLED(c)")))
|
|
(org-capture-templates `(("d" "Daily note" plain
|
|
(function org-capture-daily-note)
|
|
"* %<%I:%M %p>")
|
|
("n" "Org-roam note" plain (function org-roam-capture))
|
|
("h" "Hummingbird task" entry
|
|
(file+headline ,(expand-file-name "~/org/todo.org") "Hummingbird")
|
|
"* TODO %i%?")
|
|
("p" "Personal task" entry
|
|
(file+headline ,(expand-file-name "~/org/todo.org") "Personal")
|
|
"* TODO %i%?")))
|
|
(org-return-follows-link t)
|
|
(org-ellipsis " ▼")
|
|
(org-src-fontify-natively t)
|
|
(org-log-done 'time)
|
|
(org-agenda-custom-commands '(("t" "TODOs"
|
|
((agenda)
|
|
(alltodo)))))
|
|
(org-agenda-span 'day)
|
|
(org-agenda-todo-ignore-scheduled 'future)
|
|
(org-agenda-tags-todo-honor-ignore-options t)
|
|
(org-file-apps '(("log" . emacs)
|
|
(auto-mode . emacs)
|
|
(directory . emacs)
|
|
("\\.pdf\\'" . emacs)
|
|
("\\.mm\\'" . default)
|
|
("\\.x?html?\\'" . default)))
|
|
(org-plantuml-exec-mode 'jar)
|
|
(org-plantuml-jar-path (expand-file-name "~/plantuml/plantuml.jar"))
|
|
:general
|
|
(leader-map "oa" #'org-agenda)
|
|
(leader-map "oc" #'org-capture)
|
|
(leader-map "ol" #'org-store-link)
|
|
(leader-map "od" #'org-find-daily-note)
|
|
(normal org-mode-map "<return>" #'org-return)
|
|
(normal org-mode-map "T" #'org-insert-todo-heading)
|
|
(org-read-date-minibuffer-local-map "C-k" (lambda () (interactive)
|
|
(org-eval-in-calendar '(calendar-backward-week 1)))
|
|
"C-j" (lambda () (interactive)
|
|
(org-eval-in-calendar '(calendar-forward-week 1)))
|
|
"C-h" (lambda () (interactive)
|
|
(org-eval-in-calendar '(calendar-backward-day 1)))
|
|
"C-l" (lambda () (interactive)
|
|
(org-eval-in-calendar '(calendar-forward-day 1)))))
|
|
|
|
(use-package evil-org
|
|
:after org
|
|
:hook ((org-mode . evil-org-mode)
|
|
(org-agenda-mode . (lambda ()
|
|
(require 'evil-org-agenda)
|
|
(evil-org-agenda-set-keys)))))
|
|
|
|
(use-package org-super-agenda
|
|
:after (org)
|
|
:defer 1
|
|
:config
|
|
(org-super-agenda-mode)
|
|
;; Nuke the header keybindings
|
|
(setq org-super-agenda-header-map (make-sparse-keymap))
|
|
:custom
|
|
(org-super-agenda-groups `((:name "In progress"
|
|
:todo "IN PROGRESS")
|
|
(:name "Hummingbird"
|
|
:tag "@hummingbird")
|
|
(:name "Daily"
|
|
:file-path ,(expand-file-name "~/org/daily"))
|
|
(:name "Personal"
|
|
:tag "@personal"))))
|
|
|
|
;; (use-package org-gcal
|
|
;; :commands (org-gcal-sync
|
|
;; org-gcal-fetch
|
|
;; org-gcal-post-at-point
|
|
;; org-gcal-delete-at-point
|
|
;; org-gcal-request-token)
|
|
;; :after (org evil-org)
|
|
;; :init
|
|
;; (defun org-agenda-redo-and-fetch-gcal (&optional all)
|
|
;; (interactive "P")
|
|
;; (let ((cb (if all #'org-agenda-redo-all #'org-agenda-redo)))
|
|
;; (deferred:nextc (org-gcal-fetch) cb)))
|
|
;; (advice-add 'evil-org-agenda-set-keys :after
|
|
;; (lambda ()
|
|
;; (general-def 'motion org-agenda-mode-map
|
|
;; "gR" #'org-agenda-redo-and-fetch-gcal)))
|
|
;; :config
|
|
;; (setq org-gcal-client-id (password-store-get "lola-org-gcal-client-id")
|
|
;; org-gcal-client-secret (password-store-get "lola-org-gcal-client-secret")
|
|
;; org-gcal-fetch-file-alist `(("jeremydormitzer@lola.com" .
|
|
;; ,(expand-file-name "~/org/lola-gcal.org"))
|
|
;; ("jeremy.dormitzer@gmail.com" .
|
|
;; ,(expand-file-name "~/org/personal-gcal.org"))
|
|
;; ("lut2o2moohg6qkdsto1qfq7th4@group.calendar.google.com" .
|
|
;; ,(expand-file-name "~/org/j-n-gcal.org")))
|
|
;; org-gcal-notify-p nil))
|
|
|
|
;; (use-package org-jira
|
|
;; :after (org)
|
|
;; :init
|
|
;; (setq jiralib-url "https://lola.atlassian.net"
|
|
;; org-jira-working-dir (expand-file-name "~/org/jira")
|
|
;; org-jira-jira-status-to-org-keyword-alist '(("To Do" . "TODO")
|
|
;; ("Blocked" . "BLOCKED")
|
|
;; ("In Progress" . "IN PROGRESS")
|
|
;; ("Code Review" . "IN PROGRESS")
|
|
;; ("Awaiting Release" . "IN PROGRESS")
|
|
;; ("Done" . "DONE")
|
|
;; ("Won't Fix" . "CANCELLED")))
|
|
;; (add-to-list 'org-agenda-files org-jira-working-dir))
|
|
|
|
;; org-roam provides backlinks between org documents
|
|
(use-package org-roam
|
|
:hook ((org-mode . org-roam-db-autosync-mode))
|
|
:custom
|
|
(org-roam-directory "~/org")
|
|
(org-roam-list-files-commands '(rg find fd fdfind))
|
|
:init
|
|
(setq org-roam-v2-ack t)
|
|
(defvar org-roam-commands-map (make-sparse-keymap))
|
|
(general-def org-roam-commands-map
|
|
"r" #'org-roam-buffer-toggle
|
|
"f" #'org-roam-node-find
|
|
"i" #'org-roam-node-insert
|
|
"I" #'org-roam-node-insert-immediate)
|
|
(with-eval-after-load 'org
|
|
(general-def org-mode-map "C-c n" org-roam-commands-map)
|
|
;; (which-key-declare-prefixes-for-mode 'org-mode "C-c n" "org-roam")
|
|
)
|
|
:general
|
|
(leader-map "of" #'org-roam-node-find)
|
|
:config
|
|
(general-def 'normal org-roam-backlinks-mode-map
|
|
"RET" #'org-open-at-point
|
|
"q" #'quit-window))
|
|
|
|
(provide 'init-org)
|