168 lines
6.1 KiB
EmacsLisp
168 lines
6.1 KiB
EmacsLisp
;;
|
|
;; Org mode settings
|
|
;;
|
|
|
|
;; org layer toggles
|
|
(defcustom thwap-orgmode nil
|
|
"Choose from the available org-mode packages"
|
|
:type '(set (const :tag "Org" orgmode)
|
|
(const :tag "Org-Bullets" orgbullets)
|
|
(const :tag "Org-SuperAgenda" orgsuperagenda)
|
|
(const :tag "Org-Modern" orgmodern)
|
|
(const :tag "Org-TimeBlock" orgtimeblock)
|
|
(const :tag "Org-Download" orgdownload)
|
|
(const :tag "Org-Transclusion" orgtransclusion)
|
|
(const :tag "Org-Roam" orgroam)
|
|
(const :tag "Org-Publish" orgpublish))
|
|
:group 'thwap-config)
|
|
|
|
;; org-babel extras
|
|
(defcustom thwap-orgbabel nil
|
|
"Choose extra packages for org-babel"
|
|
:type '(set (const :tag "ob-mermaid" obmermaid)
|
|
(const :tag "ob-napkin" obnapkin))
|
|
:group 'thwap-config)
|
|
|
|
;;
|
|
;; Ensure Org mode is installed and loaded
|
|
;;
|
|
|
|
;; base
|
|
(when (memq 'orgmode thwap-orgmode)
|
|
(straight-use-package 'org)
|
|
(thwap/ensure-directory-exists "~/org")
|
|
(setq browse-url-browser-function 'browse-url-generic
|
|
browse-url-generic-program "firefox-esr"
|
|
org-log-done 'time
|
|
org-startup-indented t
|
|
org-hide-leading-stars t
|
|
org-support-shift-select t
|
|
org-directory "~/org"
|
|
org-default-notes-file "~/org/index.org"
|
|
org-export-with-sub-superscripts t
|
|
org-export-with-toc t)
|
|
(thwap/org-agenda-files-update)
|
|
(setq org-todo-keywords
|
|
'((sequence "TODO(t)" "WAITING(w)" "BLOCKED(b)" "|" "IN-PROGRESS(i)")
|
|
(sequence "WONTDO(o)" "DEPRECATED(e)" "STUPID(s)" "|" "DONE(d)")))
|
|
(setq org-capture-templates
|
|
`(("t" "TODO" entry (file+headline "~/org/agenda/index.org" "Tasks")
|
|
"* TODO %?\n %a")
|
|
("l" "TODO" entry (file+headline "~/org/agenda/index.org" "LIFE Tasks")
|
|
"* TODO %?\n %i\n %a")
|
|
("a" "Appointment" entry (file+headline "~/org/agenda/events.org" "Appointments")
|
|
"* %?\n %i\n %a" :clock-in t :clock-resume t)
|
|
("e" "Schedule Event" entry (file+headline "~/org/agenda/events.org" "Events")
|
|
"* %?\n %i\n %a" :clock-in t :clock-resume t)
|
|
("m" "Schedule Meeting" entry (file+headline "~/org/agenda/events.org" "Meetings")
|
|
"* %?\n %i\n %a" :clock-in t :clock-resume t)
|
|
("n" "Note" entry (file "~/org/index.org")
|
|
"* %?\n %i\n %a" :clock-in t :clock-resume t)
|
|
("i" "Idea" entry (file "~/org/agenda/ideas.org")
|
|
"* %? :IDEA: \n%t" :clock-in t :clock-resume t)))
|
|
(org-babel-do-load-languages
|
|
'org-babel-load-languages
|
|
'((emacs-lisp . t)
|
|
(python . t)
|
|
(org . t)
|
|
(ruby . t)
|
|
(shell . t)))
|
|
(add-hook 'org-mode-hook 'thwap/org-agenda-files-update)
|
|
(add-hook 'org-mode-hook 'visual-line-mode)
|
|
;; Org mode stuff
|
|
(thwap/add-key-binding "o l" 'org-store-link "Store a link to the current location in the kill ring.")
|
|
(thwap/add-key-binding "o C-l" 'org-toggle-link-display "Toggle the display of links.")
|
|
(thwap/add-key-binding "o a" 'org-agenda "Open the Org agenda.")
|
|
(thwap/add-key-binding "o n" 'org-capture "Capture a new task.")
|
|
(thwap/add-key-binding "o t" 'org-todo-list "Open the Org TODO list.")
|
|
(thwap/add-key-binding "o c i" 'org-clock-in "Clock in to the current task.")
|
|
(thwap/add-key-binding "o c o" 'org-clock-out "Clock out of the current task.")
|
|
(thwap/add-key-binding "o c r" 'org-clock-report "Generate a clock report.")
|
|
(thwap/add-key-binding "o r" 'org-refile "Refile the current task.")
|
|
(thwap/add-key-binding "o e" 'org-export-dispatch "Export the current buffer.")
|
|
(message "org-mode loaded"))
|
|
|
|
;; org-bullets
|
|
(when (and (memq 'orgmode thwap-orgmode) (memq 'orgbullets thwap-orgmode))
|
|
(straight-use-package 'org-bullets)
|
|
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
|
|
(message "org-bullets loaded"))
|
|
|
|
;; org-super-agenda
|
|
(when (and (memq 'orgmode thwap-orgmode) (memq 'orgsuperagenda thwap-orgmode))
|
|
(straight-use-package 'org-super-agenda)
|
|
(add-hook 'org-agenda-mode-hook 'org-super-agenda-mode)
|
|
(message "org-super-agenda loaded"))
|
|
|
|
;; org-modern
|
|
(when (and (memq 'orgmode thwap-orgmode) (memq 'orgmodern thwap-orgmode))
|
|
(straight-use-package 'org-modern)
|
|
(message "org-modern loaded"))
|
|
|
|
;; org-timeblock
|
|
(when (and (memq 'orgmode thwap-orgmode) (memq 'orgtimeblock thwap-orgmode))
|
|
(straight-use-package 'org-timeblock)
|
|
(message "org-timeblock loaded"))
|
|
|
|
;; org-download
|
|
(when (and (memq 'orgmode thwap-orgmode) (memq 'orgdownload thwap-orgmode))
|
|
(add-hook 'dired-mode-hook 'org-download-enable)
|
|
(message "org-download loaded"))
|
|
|
|
;; org-roam
|
|
(when (and (memq 'orgmode thwap-orgmode) (memq 'orgroam thwap-orgmode))
|
|
(straight-use-package 'org-roam)
|
|
(org-roam-db-autosync-mode)
|
|
(setq org-roam-v2-ack t)
|
|
(setq org-roam-directory "~/org-roam")
|
|
(setq org-roam-db-location "~/org-roam/org-roam.db")
|
|
(setq org-roam-completion-everywhere t)
|
|
(setq org-roam-capture-templates
|
|
'(("d" "default" plain "%?"
|
|
:if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
|
|
:unnarrowed t)))
|
|
;; (add-hook 'after-init-hook 'org-roam)
|
|
;; (add-hook 'org-mode-hook 'org-roam)
|
|
;;(add-hook 'org-mode-hook 'org-roam-ui-mode)
|
|
|
|
)
|
|
|
|
(when (and (memq 'orgmode thwap-orgmode) (memq 'orgpublish thwap-orgmode))
|
|
(require 'ox-publish)
|
|
(setq org-publish-project-alist
|
|
'(
|
|
("org-notes"
|
|
:base-directory "~/org/"
|
|
:base-extension "org"
|
|
:publishing-directory "~/www/html/org/"
|
|
:recursive t
|
|
:publishing-function org-html-publish-to-html
|
|
:headline-levels 4 ; Just the default for this project.
|
|
:auto-preamble t
|
|
)
|
|
))
|
|
)
|
|
|
|
;; ;; org-roam-ui
|
|
;; (when (and thwap-org-enable-org thwap-org-enable-org-roam thwap-org-enable-org-roam-ui)
|
|
;; (straight-use-package 'org-roam-ui)
|
|
;; (setq org-roam-ui-sync-theme t)
|
|
;; (setq org-roam-ui-follow t)
|
|
;; (setq org-roam-ui-update-on-save t))
|
|
|
|
;; org-transclusion
|
|
(when (and (memq 'orgmode thwap-orgmode) (memq 'orgtransclusion thwap-orgmode))
|
|
(straight-use-package 'org-transclusion)
|
|
(message "org-transclusion loaded"))
|
|
|
|
;; ob-mermaid
|
|
(when (and (memq 'orgmode thwap-orgmode) (memq 'obmermaid thwap-orgbabel))
|
|
(straight-use-package 'ob-mermaid)
|
|
(add-to-list 'org-src-lang-modes '("mermaid" . mermaid))
|
|
(add-to-list 'org-babel-load-languages '(mermaid . t))
|
|
(message "ob-mermaid loaded"))
|
|
|
|
(message "T.H.W.A.P. Org-Mode settings loaded")
|
|
(provide 'thwap-orgmode)
|
|
;; thwap-orgmode.el ends here
|