mirror of
https://codeberg.org/andyscott/dotfiles.git
synced 2024-12-22 09:53:10 -05:00
Compare commits
No commits in common. "d1279e10b03adacbf340627a2a9464649a2b1426" and "03e56fe20c6151a7a28f382ec64067c903d49c4d" have entirely different histories.
d1279e10b0
...
03e56fe20c
10 changed files with 1524 additions and 2953 deletions
|
|
@ -1,4 +1,3 @@
|
|||
[general]
|
||||
#import = ["~/.config/alacritty/everforest.toml",]
|
||||
import = ["~/.config/alacritty/catppuccin-macchiato.toml"]
|
||||
live_config_reload = true
|
||||
|
|
|
|||
|
|
@ -101,13 +101,20 @@
|
|||
orig_fg))))
|
||||
|
||||
;; Fonts
|
||||
;; (set-face-font 'default "Hack-14")
|
||||
;; (set-face-font 'fixed-pitch "Hack-14")
|
||||
;; (set-face-font 'variable-pitch "DejaVu Sans-14")
|
||||
{{- if eq .chezmoi.hostname "helix" }}
|
||||
(push '(font . "Hack-14") default-frame-alist)
|
||||
(set-face-font 'default "Hack-14")
|
||||
(set-face-font 'fixed-pitch "Hack-14")
|
||||
(set-face-font 'variable-pitch "DejaVu Sans-14")
|
||||
{{- else }}
|
||||
(push '(font . "Hack-11") default-frame-alist)
|
||||
(set-face-font 'default "Hack-11")
|
||||
(set-face-font 'fixed-pitch "Hack-11")
|
||||
(set-face-font 'variable-pitch "DejaVu Sans-11")
|
||||
{{- end }}
|
||||
|
||||
;; Some UI options
|
||||
(let ((options '((font . "Hack-14")
|
||||
(undecorated . t)
|
||||
;; Some GUI options
|
||||
(let ((options '((undecorated . t)
|
||||
(menu-bar-lines . 0)
|
||||
(tool-bar-lines . 0)
|
||||
(vertical-scroll-bars)
|
||||
1085
dot_config/emacs/init.el
Normal file
1085
dot_config/emacs/init.el
Normal file
File diff suppressed because it is too large
Load diff
File diff suppressed because it is too large
Load diff
|
|
@ -1,132 +0,0 @@
|
|||
;;; init-denote.el --- denote customizations -*- lexical-binding: t -*-
|
||||
|
||||
;; Author: Andrew Scott <git at andyscott dot me>
|
||||
;; Keywords: denote, convenience, tools
|
||||
;; URL: https://codeberg.org/andyscott/dotfiles
|
||||
|
||||
;; This file is not part of GNU Emacs
|
||||
|
||||
;; Copyright (c) 2024 Andrew Scott
|
||||
|
||||
;; MIT No Attribution
|
||||
|
||||
;; Permission is hereby granted, free of charge, to any person obtaining a copy of this
|
||||
;; software and associated documentation files (the "Software"), to deal in the Software
|
||||
;; without restriction, including without limitation the rights to use, copy, modify,
|
||||
;; merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
|
||||
;; permit persons to whom the Software is furnished to do so.
|
||||
|
||||
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
|
||||
;; INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
|
||||
;; PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
|
||||
;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
|
||||
;; OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
||||
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; My denote customizations.
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;;; Denote
|
||||
|
||||
(use-package denote
|
||||
:ensure
|
||||
(denote :files (:defaults "denote.*el"))
|
||||
:custom
|
||||
(denote-directory (expand-file-name "notes" org-directory))
|
||||
(denote-known-keywords '("emacs" "projects") "Change default keywords")
|
||||
;; TODO: Make a decision about links
|
||||
;; (denote-org-store-link-to-heading 'context "Store denote links with headings")
|
||||
(denote-prompts '(file-type title keywords) "Add `file-type'")
|
||||
(denote-templates `((algo-practice . ,(concat "#+url:\n"
|
||||
"#+difficulty:\n"
|
||||
"#+topics:\n\n"
|
||||
"* Tasks\n\n"
|
||||
"* Input\n\n"
|
||||
"* Notes\n\n"
|
||||
"* Solution"))) "Add templates")
|
||||
:bind
|
||||
;; (:map dired-mode-map
|
||||
;; ("" . denote-dired-rename-marked-files-using-front-matter)
|
||||
;; ("" . denote-dired-rename-marked-files-with-keywords)
|
||||
;; ("" . denote-dired-rename-files))
|
||||
;; (:map org-mode-map
|
||||
;; ("" . denote-org-extras-backlinks-for-heading)
|
||||
;; ("" . denote-org-extras-dblock-insert-links)
|
||||
;; ("" . denote-org-extras-dblock-insert-backlinks)
|
||||
;; ("" . denote-org-extras-link-to-heading) ; Prompt for file/heading, add link at point
|
||||
;; ("" . denote-org-store-link-to-heading) ; Create CUSTOM_ID to heading and store link
|
||||
;; )
|
||||
(:prefix-map as/denote-prefix-map
|
||||
:prefix "C-c d")
|
||||
(:map as/denote-prefix-map
|
||||
;; Creating notes
|
||||
("n" . denote)
|
||||
("r" . denote-region)
|
||||
("t" . denote-template)
|
||||
;; Dired
|
||||
("d" . denote-sort-dired)
|
||||
;; Opening/creating
|
||||
("f" . denote-open-or-create)
|
||||
("F" . denote-open-or-create-with-command)
|
||||
;; Linking
|
||||
("a" . denote-add-links) ; Link to all notes matching a regex
|
||||
("b" . denote-backlinks) ; Create a buffer with backlinks
|
||||
("l" . denote-link) ; Insert a link to another note
|
||||
("L" . denote-link-or-create) ; Link to the target file, creating the file if needed
|
||||
("C-l" . denote-link-after-creating) ; Create a file in the background, then link to it in the current file
|
||||
("C-f" . denote-find-backlink) ; Use minibuffer completion to find backlinks
|
||||
;; Renaming
|
||||
("C" . denote-change-file-type-and-front-matter)
|
||||
("R" . denote-rename-file)
|
||||
;; Silos
|
||||
("s n" . denote-silo-extras-create-note)
|
||||
("s f" . denote-silo-extras-open-or-create)
|
||||
("s F" . denote-silo-extras-select-silo-then-command))
|
||||
:hook
|
||||
(dired-mode . denote-dired-mode)
|
||||
(text-mode . denote-fontify-links-mode-maybe)
|
||||
:config
|
||||
(denote-rename-buffer-mode))
|
||||
|
||||
;;;;; Consult Notes
|
||||
|
||||
(use-package consult-notes
|
||||
:custom
|
||||
(consult-notes-file-dir-sources
|
||||
`(("Org" ?o ,org-directory)
|
||||
("Projects" ?r ,(expand-file-name "projects" org-directory))) "Note locations w/ narrowing key")
|
||||
;; (consult-notes-org-headings-files '("~/path/to/file1.org"
|
||||
;; "~/path/to/file2.org") "Files for `consult-org-headings-mode'")
|
||||
:bind
|
||||
(:map as/denote-prefix-map
|
||||
("c" . consult-notes)
|
||||
("a" . consult-notes-search-in-all-notes))
|
||||
:config
|
||||
;; (consult-notes-org-headings-mode)
|
||||
(consult-notes-denote-mode))
|
||||
|
||||
|
||||
|
||||
;;;;; Citar + Denote
|
||||
|
||||
(use-package citar-denote
|
||||
:if
|
||||
(and (elpaca-installed-p 'denote)
|
||||
(elpaca-installed-p 'citar))
|
||||
:custom
|
||||
(citar-denote-keyword "bib")
|
||||
(citar-denote-file-type 'org)
|
||||
(citar-denote-title-format-authors 2)
|
||||
:bind
|
||||
(:map as/denote-prefix-map
|
||||
("C-c a" . citar-denote-add-citekey)
|
||||
("C-c d" . citar-denote-dwim)
|
||||
("C-c f" . citar-denote-open-note))
|
||||
:config
|
||||
(citar-denote-mode))
|
||||
|
||||
(provide 'init-denote)
|
||||
;;; init-denote.el ends here
|
||||
|
|
@ -1,86 +0,0 @@
|
|||
;;;;; Org Roam
|
||||
|
||||
(use-package org-roam
|
||||
:ensure
|
||||
(org-roam :files (:defaults "extensions/*"))
|
||||
:after
|
||||
(org)
|
||||
:custom
|
||||
(org-roam-database-connector 'sqlite-builtin "Use built-in sqlite")
|
||||
(org-roam-directory
|
||||
(file-name-as-directory (expand-file-name "roam" org-directory)) "Set org-roam directory")
|
||||
(org-roam-db-gc-threshold most-positive-fixnum "Limit GC during sync")
|
||||
:bind
|
||||
(:prefix-map as/org-roam-prefix-map
|
||||
:prefix "C-c r")
|
||||
(:map as/org-roam-prefix-map
|
||||
("a" . org-roam-alias-add)
|
||||
("A" . org-roam-alias-remove)
|
||||
("b" . org-roam-buffer-display-dedicated)
|
||||
("c" . org-roam-capture)
|
||||
("f" . org-roam-node-find)
|
||||
("i" . org-roam-node-insert)
|
||||
("s" . org-roam-db-sync))
|
||||
:config
|
||||
(add-to-list 'display-buffer-alist
|
||||
'("\\*org-roam\\*"
|
||||
(display-buffer-in-direction)
|
||||
(direction . right)
|
||||
(window-width . 0.33)
|
||||
(window-height . fit-window-to-buffer)))
|
||||
(add-to-list 'org-roam-capture-templates
|
||||
'("r" "reference" plain
|
||||
"%?"
|
||||
:target
|
||||
(file+head "references/${citar-citekey}.org"
|
||||
"#+title: ${note-title}\n")
|
||||
:empty-lines 1
|
||||
:unnarrowed t
|
||||
))
|
||||
(add-to-list 'org-roam-capture-templates
|
||||
`("p" "project" plain (file ,(concat org-roam-directory
|
||||
"/templates/projects.org"))
|
||||
:target
|
||||
(file+head "projects/%<%Y%m%d%H%M%S>-${slug}.org"
|
||||
"#+title: ${title}\n#+filetags: :projects:")
|
||||
:empty-lines 1
|
||||
:unnarrowed t))
|
||||
(add-to-list 'org-roam-capture-templates
|
||||
`("j" "job" plain (file ,(concat org-roam-directory
|
||||
"/templates/job_applications.org"))
|
||||
:target
|
||||
(file+head "projects/job_applications/%<%Y%m%d%H%M%S>-${slug}.org"
|
||||
"#+title: ${title}\n#+filetags: :job_search:")
|
||||
:empty-lines 1
|
||||
:unnarrowed t))
|
||||
(org-roam-db-autosync-mode))
|
||||
|
||||
;;;;;; Org Roam UI
|
||||
|
||||
(use-package org-roam-ui
|
||||
:if
|
||||
(elpaca-installed-p 'org-roam)
|
||||
:after
|
||||
(org-roam)
|
||||
:custom
|
||||
(org-roam-ui-follow nil "Don't update UI when point moves")
|
||||
:bind
|
||||
(:map as/org-roam-prefix-map
|
||||
("u" . org-roam-ui-open)))
|
||||
|
||||
;;;;;; Citar + Roam
|
||||
|
||||
(use-package citar-org-roam
|
||||
:if
|
||||
(and (elpaca-installed-p 'citar)
|
||||
(elpaca-installed-p 'org-roam))
|
||||
:after
|
||||
(citar org-roam)
|
||||
:custom
|
||||
(citar-org-roam-capture-template-key "r" "Define which template to use")
|
||||
(citar-org-roam-note-title-template "${title} by ${author}" "Default note title")
|
||||
(citar-org-roam-subdir "references" "Default note directory")
|
||||
:config
|
||||
;; NOTE: Trying `citar-denote'
|
||||
;; (citar-org-roam-mode)
|
||||
)
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; init-org.el --- org-mode customizations -*- lexical-binding: t -*-
|
||||
;;; org-mode.el --- org-mode customizations -*- lexical-binding: t -*-
|
||||
|
||||
;; Author: Andrew Scott <git at andyscott dot me>
|
||||
;; Keywords: org, convenience, tools
|
||||
|
|
@ -29,259 +29,167 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;;;; Org
|
||||
|
||||
;;;;; Org Mode
|
||||
|
||||
(use-feature org
|
||||
:custom
|
||||
;;;;;; `org.el'
|
||||
(org-directory (expand-file-name "~/Nextcloud/Documents/org"))
|
||||
(org-adapt-indentation nil "No, see `org-indent-mode'")
|
||||
(org-agenda-files (append
|
||||
(directory-files org-directory t "\\`[^.].*\\.org\\'" t nil)
|
||||
(directory-files (expand-file-name "projects" org-directory) t "\\`[^.].*\\.org\\'" t nil)))
|
||||
(org-archive-location
|
||||
(expand-file-name "archive/%s_archive::" org-directory) "Set location and format for archives")
|
||||
(org-blank-before-new-entry '((heading . t)
|
||||
(plain-list-item . auto)) "Heading: always, List: maybe")
|
||||
(org-deadline-warning-days 5 "Decrease warning time")
|
||||
(org-default-notes-file
|
||||
(expand-file-name "inbox.org" org-directory) "Default file for `org-capture'")
|
||||
;; FIXME: `org-superstar' doesn't like this?
|
||||
;; (org-ellipsis " >> " "Until I can stop using ... myself...")
|
||||
(org-enforce-todo-checkbox-dependencies t "Use checkboxes as blockers")
|
||||
(org-hide-emphasis-markers t "Hide markers for italics/bold etm.")
|
||||
(org-insert-heading-respect-content t "Add headlines to end of subtree")
|
||||
(org-log-done 'time "Add timestamp when item completed")
|
||||
(org-log-into-drawer t "Hide logs in a drawer")
|
||||
(org-log-redeadline 'note "Require a note if deadline changes")
|
||||
;; (org-M-RET-may-split-line nil "Don't split when adding headings/items")
|
||||
(org-pretty-entities t "Use UTF-8 for entities")
|
||||
(org-pretty-entities-include-sub-superscripts nil "Don't mess with underscores")
|
||||
(org-reverse-note-order t "Add/refile at the beginning")
|
||||
(org-special-ctrl-a/e t "Once: Move point around headline text, Twice: move point normally")
|
||||
;; (org-special-ctrl-k t "Change behavior of `kill-line' depending on position")
|
||||
(org-startup-folded 'show2levels "Show two headings only")
|
||||
(org-startup-indented t "Turn on `org-indent-mode' automatically")
|
||||
(org-startup-numerated t "Turn on `org-num-mode' automatically")
|
||||
(org-tags-column 0 "Put tags right after headline")
|
||||
;; (org-tags-exclude-from-inheritance '("projects"
|
||||
;; "JobApplications"
|
||||
;; "Hybrid"
|
||||
;; "Remote"
|
||||
;; "InOffice") "Don't tag every headline")
|
||||
(org-todo-keywords '((sequence "TODO(t)"
|
||||
"NEXT(x)"
|
||||
"PROG(p)"
|
||||
"WAIT(w@/!)"
|
||||
"|"
|
||||
"DONE(d)"
|
||||
"WONT(n@/!)")
|
||||
(sequence "IDEA(i)" "|")) "Add NEXT, PROG, WAIT, WONT, IDEA")
|
||||
(org-todo-repeat-to-state "TODO" "Reset to TODO regardless of previous state")
|
||||
|
||||
;;;;;; `org-agenda.el'
|
||||
(org-agenda-block-separator ?- "Use simple hyphens")
|
||||
(org-agenda-skip-deadline-if-done t "Don't show deadline when already done")
|
||||
;; (org-agenda-skip-scheduled-if-deadline-is-shown nil "Show deadlines and schedules")
|
||||
(org-agenda-skip-scheduled-if-done t "Don't show scheduled when already done")
|
||||
(org-agenda-start-on-weekday nil "Start with today")
|
||||
(org-agenda-start-with-log-mode '(clock closed state) "Show all logged items")
|
||||
(org-agenda-tags-column 0 "Put tags right after headline")
|
||||
|
||||
;; REVIEW: Is this useful data to keep?
|
||||
;; :PROPERTIES:
|
||||
;; :CREATED: %U
|
||||
;; :END:
|
||||
|
||||
;;;;;; `org-capture.el'
|
||||
(org-capture-templates
|
||||
`(("i" "Inbox")
|
||||
("in" "Note"
|
||||
entry (file+headline "inbox.org" "Notes")
|
||||
"** %?"
|
||||
:empty-lines 1)
|
||||
|
||||
("it" "Task" entry (file+headline "inbox.org" "Tasks")
|
||||
"** TODO [#B] %?
|
||||
%i\n%a"
|
||||
:empty-lines 1)
|
||||
|
||||
("d" "Denote"
|
||||
plain (file denote-last-path)
|
||||
#'denote-org-capture
|
||||
:no-save t
|
||||
:immediate-finish nil
|
||||
:kill-buffer t
|
||||
:jump-to-captured t)
|
||||
|
||||
("j" "Job Application"
|
||||
entry (file+olp "projects/jobs.org" "Applications")
|
||||
"*** TODO [#A] %^{Job Title} %^{Company} %?\nSCHEDULED: %t\n
|
||||
**** Find Contacts at %\\2\nSCHEDULED: %t\n"
|
||||
:clock-in t
|
||||
:clock-keep t
|
||||
:jump-to-captured t
|
||||
:empty-lines 1)))
|
||||
|
||||
;;;;;; `org-clock.el'
|
||||
(org-clock-in-resume t "Resume if clock already started")
|
||||
(org-clock-in-switch-to-state "PROG" "Switch items to In-Progress")
|
||||
(org-clock-persist t "Save clock if Emacs is closed")
|
||||
(org-clock-rounding-minutes 5 "Round to 5 minutes")
|
||||
(org-clock-string-limit 30 "Don't crowd the mode line")
|
||||
|
||||
;;;;;; `org-faces.el' - Custom Settings
|
||||
(org-fontify-quote-and-verse-blocks t "Make #+begin_quote etm. look nicer")
|
||||
(org-todo-keyword-faces '(("TODO" . (:inherit dired-mark :inverse-video t))
|
||||
("PROG" . (:inherit match :inverse-video t))
|
||||
("NEXT" . (:inherit dired-special :inverse-video t))
|
||||
("WAIT" . (:inherit shadow :inverse-video t))
|
||||
("WONT" . (:inherit org-done))
|
||||
("DONE" . (:inherit org-done))
|
||||
("IDEA" . (:inherit bold :inverse-video t))))
|
||||
(org-priority-faces '((?A . (:inherit error :weight semibold :inverse-video t))
|
||||
(?B . (:inherit warning :weight semibold :inverse-video t))
|
||||
(?C . (:inherit mode-line-inactive :weight semibold :inverse-video t))))
|
||||
|
||||
;;;;;; `org-fold.el'
|
||||
(org-fold-catch-invisible-edits 'show-and-error "Abort edit, show point & throw error")
|
||||
|
||||
;;;;;; `org-goto.el'
|
||||
(org-goto-interface 'outline-path-completion "Use completion interface")
|
||||
|
||||
;;;;;; `org-id.el'
|
||||
(org-id-link-to-org-use-id 'create-if-interactive "Only if I say so")
|
||||
(org-id-locations-file
|
||||
(locate-user-emacs-file "org-id-locations") "Don't use a hidden file")
|
||||
(org-id-method 'ts "Timestamps instead of UUID")
|
||||
(org-id-ts-format "%Y%m%dT%H%M%S%z" "True ISO 8601 timestamp")
|
||||
|
||||
;;;;;; `org-keys.el'
|
||||
(org-mouse-1-follows-link 'double "Otherwise timestamps automatically open agenda")
|
||||
(org-return-follows-link t "Follow links on RET")
|
||||
(org-use-extra-keys t "Graphical users like useful keybinds too")
|
||||
|
||||
;;;;;; `org-list.el'
|
||||
(org-list-allow-alphabetical t "A. a. B. b. C. c. ...")
|
||||
(org-list-demote-modify-bullet '(("+" . "-")
|
||||
("-" . "+")
|
||||
("*" . "+")) "Alternating bullets")
|
||||
|
||||
;;;;;; `org-num.el'
|
||||
(org-num-face 'org-level-6 "Use consistent face for num-mode")
|
||||
|
||||
;;;;;; `org-refile.el'
|
||||
(org-outline-path-complete-in-steps nil "Not needed with completion")
|
||||
(org-refile-allow-creating-parent-nodes 'confirm "Ask before creating new nodes")
|
||||
(org-refile-targets '((nil :maxlevel . 3)
|
||||
(org-agenda-files :maxlevel . 2)) "Current file: 3 levels, Agenda files: 2 levels")
|
||||
(org-refile-use-outline-path 'file "Include filename in path")
|
||||
|
||||
;;;;;; `org-src.el'
|
||||
(org-edit-src-content-indentation 0 "Don't indent after #+begin")
|
||||
|
||||
:custom-face
|
||||
;;;;;; `org-faces.el' - Custom Faces
|
||||
;; Headlines
|
||||
(org-level-1 ((t (:inherit outline-1 :height 1.3))))
|
||||
(org-level-2 ((t (:inherit outline-2 :height 1.2))))
|
||||
(org-level-3 ((t (:inherit outline-3 :height 1.1))))
|
||||
;; (org-level-4 ((t (:inherit outline-4 :height 1.2))))
|
||||
;; (org-level-5 ((t (:inherit outline-5 :height 1.1))))
|
||||
;; Ensure monospace Keywords/Tags/Blocks
|
||||
(org-block ((t (:inherit fixed-pitch)))) ; inherited by `org-code'
|
||||
(org-block-begin-line ((t (:inherit fixed-pitch))))
|
||||
(org-block-end-line ((t (:inherit (org-block-begin-line fixed-pitch)))))
|
||||
(org-checkbox ((t (:inherit (org-todo fixed-pitch)))))
|
||||
(org-checkbox-statistics-todo ((t (:inherit (org-todo fixed-pitch)))))
|
||||
(org-date ((t (:inherit fixed-pitch))))
|
||||
(org-document-info-keyword ((t (:inherit (shadow fixed-pitch)))))
|
||||
(org-drawer ((t (:inherit fixed-pitch))))
|
||||
(org-indent ((t (:inherit (org-hide fixed-pitch)))))
|
||||
(org-link ((t (:foreground "dark cyan" :underline t))))
|
||||
(org-list-dt ((t (:inherit fixed-pitch))))
|
||||
(org-meta-line ((t (:inherit (fixed-pitch)))))
|
||||
(org-property-value ((t (:inherit fixed-pitch))))
|
||||
(org-special-keyword ((t (:inherit fixed-pitch))))
|
||||
(org-table ((t (:inherit fixed-pitch))))
|
||||
(org-tag ((t (:inherit (fixed-pitch) :height 0.8))))
|
||||
(org-verbatim ((t (:inherit fixed-pitch))))
|
||||
:bind
|
||||
(:prefix-map as/org-prefix-map
|
||||
:prefix "C-c o")
|
||||
(:map as/org-prefix-map
|
||||
("a" . org-agenda) ; `org-agenda.el'
|
||||
("c" . org-capture) ; `org-capture.el'
|
||||
("g" . org-clock-goto) ; `org-clock.el'
|
||||
("H" . consult-org-agenda) ; `consult-org.el'
|
||||
("l" . org-store-link) ; `ol.el'
|
||||
("m" . org-tags-view)) ; `org-agenda.el'
|
||||
(:map org-mode-map
|
||||
("C-c o c" . as/org-set-created-property)
|
||||
("C-c o d" . org-priority-down)
|
||||
("C-c o h" . consult-org-heading) ; `consult-org.el'
|
||||
("C-c o l" . embark-org-copy-link-target) ; `embark-org.el'
|
||||
("C-c o L" . org-toggle-link-display) ; `ol.el'
|
||||
("C-c o s" . org-insert-subheading)
|
||||
("C-c o u" . org-priority-up)
|
||||
("C-c o y" . org-todo-yesterday))
|
||||
:demand t
|
||||
:hook
|
||||
(org-mode . (lambda ()
|
||||
(setq-local fill-column 100)
|
||||
(variable-pitch-mode)
|
||||
(visual-line-fill-column-mode)))
|
||||
(use-package citar
|
||||
:after (oc)
|
||||
:config
|
||||
(defun as/org-set-created-property ()
|
||||
"Add a CREATED property to org headlines with the current time"
|
||||
(interactive)
|
||||
(org-entry-put nil "CREATED" (format-time-string (org-time-stamp-format t t nil) (current-time)))))
|
||||
(setopt citar-bibliography org-cite-global-bibliography
|
||||
citar-library-paths '("~/Nextcloud/Library/"))
|
||||
;; (when (elpaca-installed-p 'citar-embark)
|
||||
;; (setopt citar-at-point-function 'embark-act))
|
||||
:hook (org-mode . citar-capf-setup))
|
||||
|
||||
;;;;; Appearance
|
||||
(use-package citar-embark
|
||||
:after (citar embark)
|
||||
:config (citar-embark-mode))
|
||||
|
||||
;;;;;; Org Appear
|
||||
(use-package citar-org-roam
|
||||
:after (citar org-roam)
|
||||
:config
|
||||
(setopt citar-org-roam-capture-template-key "r"
|
||||
citar-org-roam-note-title-template "${title} - ${author}"
|
||||
citar-org-roam-subdir "references")
|
||||
(citar-org-roam-mode))
|
||||
|
||||
(use-package org-appear
|
||||
:custom
|
||||
(org-appear-autoentities t "Toggle markers automatically")
|
||||
(org-appear-autolinks 'just-brackets "Only show brackets, not target")
|
||||
(org-appear-autosubmarkers t "Toggle sub/superscript markers automatically")
|
||||
(org-appear-trigger 'on-change "Only auto-toggle if changed or selected")
|
||||
:hook
|
||||
(org-mode . org-appear-mode))
|
||||
(use-package citeproc
|
||||
:after (oc))
|
||||
|
||||
;;;;;; Org Superstar
|
||||
(use-feature oc
|
||||
:after (org)
|
||||
:config
|
||||
(setopt org-cite-export-processors '((latex biblatex)
|
||||
(t csl))
|
||||
org-cite-global-bibliography '("~/Nextcloud/Library/bib/library.bib"))
|
||||
(when (elpaca-installed-p 'citar)
|
||||
(setopt org-cite-activate-processor 'citar
|
||||
org-cite-follow-processor 'citar
|
||||
org-cite-insert-processor 'citar)))
|
||||
|
||||
(use-package org-superstar
|
||||
:custom
|
||||
(org-superstar-headline-bullets-list '(?◉ ?🞛 ?○ ?▷ ?✸ ?✿) "Customize bullets")
|
||||
(org-indent-mode-turns-on-hiding-stars nil "Required by `org-superstar-leading-bullet'")
|
||||
(org-superstar-leading-bullet ?\s "Replace leading stars with 1 whitespace char")
|
||||
(org-superstar-hide-leading-stars t "Enable hiding")
|
||||
(org-superstar-special-todo-items t "Replace todo checkboxes")
|
||||
(org-superstar-todo-bullet-alist '(("TODO" . ?☐)
|
||||
("NEXT" . ?☐)
|
||||
("PROG" . ?☐)
|
||||
("WAIT" . ?☐)
|
||||
("DONE" . ?☑)
|
||||
("WONT" . ?☑)) "Customize todo checkboxes")
|
||||
:hook (org-mode . org-superstar-mode))
|
||||
(use-feature oc-csl
|
||||
:after (citeproc oc)
|
||||
:config
|
||||
(let ((zotero_styles (expand-file-name
|
||||
"Zotero/styles/" (or (getenv "XDG_DATA_HOME") "~/.local/share/"))))
|
||||
(if (file-directory-p zotero_styles)
|
||||
(setopt org-cite-csl-styles-dir zotero_styles))))
|
||||
|
||||
;;;;; Agenda
|
||||
(use-package org
|
||||
:bind
|
||||
(:map global-map
|
||||
("C-c a" . org-agenda)
|
||||
("C-c c" . org-capture)
|
||||
("C-c l" . org-store-link))
|
||||
:config
|
||||
;; General options TODO: Comment various options more descriptively
|
||||
(setopt org-agenda-block-separator nil
|
||||
;; org-agenda-files (list org-directory)
|
||||
org-agenda-files (directory-files-recursively org-directory "org$")
|
||||
org-agenda-skip-deadline-if-done nil
|
||||
org-agenda-skip-scheduled-if-deadline-is-shown t
|
||||
org-agenda-skip-scheduled-if-done nil
|
||||
org-agenda-start-on-weekday nil
|
||||
org-agenda-tags-column 0
|
||||
org-archive-location (expand-file-name "archive/%s_archive.org::" org-directory)
|
||||
org-blank-before-new-entry '((heading . auto)
|
||||
(plain-list-item . auto))
|
||||
org-deadline-warning-days 5
|
||||
org-enforce-todo-dependencies t
|
||||
org-fold-catch-invisible-edits 'show-and-error
|
||||
org-fontify-done-headline t
|
||||
org-fontify-quote-and-verse-blocks t
|
||||
org-fontify-todo-headline t
|
||||
org-goto-interface 'outline-path-completion
|
||||
org-hide-emphasis-markers t
|
||||
org-insert-heading-respect-content t
|
||||
org-log-done 'time
|
||||
org-log-into-drawer t
|
||||
org-log-redeadline 'time
|
||||
org-log-refile 'note
|
||||
org-log-reschedule 'time
|
||||
org-outline-path-complete-in-steps nil
|
||||
org-pretty-entities t
|
||||
org-refile-allow-creating-parent-nodes 'confirm
|
||||
org-refile-targets '((nil :maxlevel . 3)
|
||||
(org-agenda-files :maxlevel . 2))
|
||||
org-refile-use-outline-path 'file
|
||||
org-return-follows-link t
|
||||
org-reverse-note-order t ; Add/refile notes at the beginning of an entry
|
||||
org-special-ctrl-a/e t
|
||||
org-src-preserve-indentation t
|
||||
org-startup-folded 'fold
|
||||
org-tags-column 0
|
||||
org-todo-keywords '((sequence "TODO(t)"
|
||||
"NEXT(n)"
|
||||
"PROG(p)"
|
||||
"|"
|
||||
"DONE(d!)"
|
||||
"WONT(w@/!)")
|
||||
(sequence "IDEA(i)" "|"))
|
||||
org-todo-keyword-faces '(("TODO" . (dired-mark))
|
||||
("PROG" . (success))
|
||||
("NEXT" . (dired-special))
|
||||
("WONT" . (org-done)))
|
||||
org-todo-repeat-to-state "TODO")
|
||||
|
||||
;;;;;; Org Agenda
|
||||
(setq org-capture-templates
|
||||
`(
|
||||
("i" "Inbox" entry (file "roam/inbox.org")
|
||||
"* %?"
|
||||
:empty-lines 1
|
||||
)
|
||||
|
||||
("j" "Log Entry"
|
||||
entry (file+datetree "log.org")
|
||||
"** %?"
|
||||
:empty-lines 1)
|
||||
|
||||
("n" "Note"
|
||||
entry (file+headline "inbox.org" "Notes")
|
||||
"** %?
|
||||
:PROPERTIES:
|
||||
:CREATED: %U
|
||||
:END:"
|
||||
:empty-lines 1)
|
||||
|
||||
("t" "Todo" entry (file+headline "inbox.org" "Tasks")
|
||||
"** TODO [#B] %?
|
||||
:PROPERTIES:
|
||||
:CREATED: %U
|
||||
:END:
|
||||
%i\n%a
|
||||
Notes: "
|
||||
:empty-lines 1)
|
||||
)
|
||||
)
|
||||
|
||||
;; Headline appearance
|
||||
(custom-set-faces
|
||||
'(org-level-1 ((t (:inherit outline-1 :height 1.5))))
|
||||
'(org-level-2 ((t (:inherit outline-2 :height 1.4))))
|
||||
'(org-level-3 ((t (:inherit outline-3 :height 1.3))))
|
||||
'(org-level-4 ((t (:inherit outline-4 :height 1.2))))
|
||||
'(org-level-5 ((t (:inherit outline-5 :height 1.1)))))
|
||||
:hook (org-mode . org-indent-mode)
|
||||
:init
|
||||
(setopt org-directory "~/Nextcloud/Documents/org")
|
||||
(bind-keys :prefix-map as/org-prefix-map
|
||||
:prefix "C-c o"
|
||||
("n" . org-metadown)
|
||||
("p" . org-metaup)
|
||||
("f" . org-shiftmetaright)
|
||||
("b" . org-shiftmetaleft)
|
||||
("v" . org-tags-view)
|
||||
("y" . org-todo-yesterday)
|
||||
("l" . org-toggle-link-display)
|
||||
("C-n" . org-priority-down)
|
||||
("C-p" . org-priority-up)))
|
||||
|
||||
(use-feature org-agenda
|
||||
:after
|
||||
(org)
|
||||
:after (org)
|
||||
:bind
|
||||
(:map org-agenda-mode-map
|
||||
("C-c C-r" . as/org-agenda-reconcile-inbox-item)
|
||||
("C-c C-y" . org-agenda-todo-yesterday)
|
||||
("C-c o p" . org-pomodoro))
|
||||
:config
|
||||
("C-c C-r" . as/org-agenda-reconcile-inbox-item))
|
||||
:config (setopt org-agenda-start-with-log-mode '(clock closed state))
|
||||
:init
|
||||
(defun as/org-agenda-reconcile-inbox-item ()
|
||||
"Process and refile an org-agenda item"
|
||||
(interactive)
|
||||
|
|
@ -292,282 +200,319 @@
|
|||
(org-agenda-schedule nil nil))
|
||||
(org-agenda-refile nil nil t))))
|
||||
|
||||
;;;;;; Org Super Agenda
|
||||
(use-package org-appear
|
||||
:config
|
||||
(setopt org-appear-autoentities t
|
||||
org-appear-autolinks nil
|
||||
org-appear-autosubmarkers t
|
||||
org-appear-trigger 'on-change)
|
||||
:hook (org-mode . org-appear-mode))
|
||||
|
||||
(use-feature org-clock
|
||||
:after (org)
|
||||
:config
|
||||
(setopt org-clock-in-resume t
|
||||
org-clock-in-switch-to-state "PROG"
|
||||
org-clock-persist t
|
||||
org-clock-rounding-minutes 5))
|
||||
|
||||
(use-package org-edna
|
||||
:config (setopt org-edna-finder-use-cache t)
|
||||
:hook (org-mode . org-edna-mode))
|
||||
|
||||
(use-feature org-habit
|
||||
:after (org)
|
||||
;; REVIEW: do I need to add to modules if it loads after org anyway?
|
||||
:init (add-to-list 'org-modules 'org-habit t))
|
||||
|
||||
(use-feature org-id
|
||||
:after (org)
|
||||
:config
|
||||
(setopt org-id-link-to-org-use-id t
|
||||
org-id-locations-file (locate-user-emacs-file "org-id-locations")
|
||||
org-id-method 'ts
|
||||
org-id-ts-format "%Y%m%dT%H%M%S.%2N%z")
|
||||
;; REVIEW: do I need to add to modules if it loads after org anyway?
|
||||
:init (add-to-list 'org-modules 'org-id t))
|
||||
|
||||
(use-package org-modern
|
||||
:disabled t
|
||||
:config
|
||||
(setopt org-modern-block-name nil
|
||||
org-modern-priority nil
|
||||
org-modern-symbol "DejaVu Sans"
|
||||
org-modern-todo nil
|
||||
org-modern-tag nil
|
||||
org-modern-timestamp nil)
|
||||
:hook
|
||||
(org-mode . org-modern-mode)
|
||||
(org-agenda-finalize . org-modern-agenda))
|
||||
|
||||
(use-package org-noter
|
||||
:after (org)
|
||||
:config
|
||||
(setopt org-noter-notes-search-path (list (concat org-directory "/roam")))
|
||||
(org-noter-enable-org-roam-integration))
|
||||
|
||||
(use-package org-pomodoro
|
||||
:after (org-clock)
|
||||
:commands (org-pomodoro)
|
||||
:config
|
||||
;; (defun as/org-pomodoro-started-todo-update ()
|
||||
;; "Update todo state when starting a pomodoro"
|
||||
;; (when (or (string= org-state "NEXT")
|
||||
;; (string= org-state "TODO"))
|
||||
;; (org-todo "PROG")))
|
||||
;; (defun as/org-todo-state-maybe-update-pomodoro ()
|
||||
;; "Update or start a pomodoro when changing todo state
|
||||
|
||||
;; REVIEW: This could be updated to always trigger a pomodoro change, like when
|
||||
;; changing state to PROG. This has the added benefit of making the above function
|
||||
;; redundent, as I could just use `org-todo' as a single start and end point for
|
||||
;; all pomodoros"
|
||||
;; (when (and (or (string= org-state "TODO")
|
||||
;; (string= org-state "DONE"))
|
||||
;; (org-pomodoro-active-p))
|
||||
;; (org-pomodoro-kill)))
|
||||
;; (add-to-list 'org-after-todo-state-change-hook #'as/org-todo-state-change-maybe-kill-pomodoro)
|
||||
;; (add-to-list 'org-pomodoro-started-hook #'as/org-pomodoro-started-todo-update)
|
||||
(setopt alert-user-configuration ; Send mesages to libnotify
|
||||
'((((:category . "org-pomodoro")) libnotify nil))
|
||||
org-pomodoro-audio-player (executable-find "pw-cat")
|
||||
org-pomodoro-keep-killed-pomodoro-time t
|
||||
org-pomodoro-length 50
|
||||
org-pomodoro-short-break-length 10
|
||||
org-pomodoro-manual-break t)
|
||||
:init
|
||||
;; (defun as/org-pomodoro-todo-state-trigger ()
|
||||
;; "Starts or stops a pomodoro when todo state changes"
|
||||
;; (cond
|
||||
;; ((when (string= org-state "PROG")
|
||||
;; (if (org-pomodoro-active-p)
|
||||
;; ((org-pomodoro-kill)
|
||||
;; (org-pomodoro nil))
|
||||
;; (org-pomodoro nil)))
|
||||
;; ((when (and (or (string= org-state "DONE") (string= org-state "TODO"))
|
||||
;; (org-pomodoro-active-p))
|
||||
;; (org-pomodoro-kill))))))
|
||||
;; (with-eval-after-load 'org-clock
|
||||
;; (add-to-list 'org-after-todo-state-change-hook #'as/org-pomodoro-todo-state-trigger))
|
||||
)
|
||||
|
||||
(use-package org-roam
|
||||
:after (org)
|
||||
:bind
|
||||
(:map as/org-prefix-map
|
||||
("r i" . org-roam-node-insert)
|
||||
("r f" . org-roam-node-find)
|
||||
("r c" . org-roam-capture)
|
||||
;; REVIEW: Not sure if I really need these?
|
||||
;; ("r b" . org-roam-buffer-toggle)
|
||||
;; ("r d" . org-roam-buffer-display-dedicated)
|
||||
;; ("r a a" . org-roam-alias-add)
|
||||
;; ("r a r" . org-roam-alias-remove)
|
||||
;; ("r r a" . org-roam-ref-add)
|
||||
;; ("r r r" . org-roam-ref-remove)
|
||||
)
|
||||
:config
|
||||
(setopt org-roam-database-connector 'sqlite-builtin)
|
||||
(setq org-roam-db-gc-threshold most-positive-fixnum) ; doesn't like the new `setopt'
|
||||
(add-to-list 'display-buffer-alist
|
||||
'("\\*org-roam\\*"
|
||||
(display-buffer-in-direction)
|
||||
(direction . right)
|
||||
(window-width . 0.33)
|
||||
(window-height . fit-window-to-buffer)))
|
||||
(add-to-list 'org-roam-capture-templates
|
||||
'("r" "reference" plain
|
||||
"%?"
|
||||
:target
|
||||
(file+head "references/${citar-citekey}.org"
|
||||
"#+title: Notes on: ${note-title}\n")
|
||||
:empty-lines 1
|
||||
:unnarrowed t
|
||||
))
|
||||
(add-to-list 'org-roam-capture-templates
|
||||
`("p" "project" plain (file ,(concat org-roam-directory
|
||||
"/templates/projects.org"))
|
||||
:target
|
||||
(file+head "projects/%<%Y%m%d%H%M%S>-${slug}.org"
|
||||
"#+title: ${title}\n#+filetags: projects")
|
||||
:empty-lines 1
|
||||
:unnarrowed t))
|
||||
(org-roam-db-autosync-mode)
|
||||
:ensure (org-roam :files (:defaults "extensions/*"))
|
||||
:init
|
||||
(setopt org-roam-directory (file-name-as-directory (expand-file-name "roam" org-directory))))
|
||||
|
||||
(use-package org-super-agenda
|
||||
:hook
|
||||
(org-agenda-mode . org-super-agenda-mode)
|
||||
:hook (org-agenda-mode . org-super-agenda-mode)
|
||||
:init
|
||||
(setq org-agenda-custom-commands
|
||||
'(("u" "Super agenda"
|
||||
'(("w" "Work agenda"
|
||||
|
||||
((agenda "" ((org-agenda-prefix-format " %-12t% s%?-6e")
|
||||
;;(org-agenda-prefix-format " %?-12t %s")
|
||||
((agenda "" ((org-agenda-prefix-format " %?-12t %s")
|
||||
(org-agenda-remove-tags t)
|
||||
(org-agenda-skip-function '(org-agenda-skip-entry-if
|
||||
'todo '("WONT")))
|
||||
(org-agenda-span 'day)))
|
||||
(org-agenda-span 'day)
|
||||
(org-habit-show-habits nil)))
|
||||
|
||||
(alltodo "" ((org-agenda-overriding-header "\nI'M DOING IT...")
|
||||
(org-agenda-prefix-format " %-20T")
|
||||
;; (org-agenda-prefix-format " %?-12t %s")
|
||||
(alltodo "" ((org-agenda-overriding-header "")
|
||||
(org-agenda-prefix-format " %?-12t %s")
|
||||
(org-agenda-remove-tags t)
|
||||
(org-super-agenda-groups
|
||||
'(
|
||||
(:name "Done Today" ; FIXME
|
||||
'((:discard
|
||||
(:deadline future
|
||||
:scheduled future
|
||||
:category ("house" "me" "notes")))
|
||||
|
||||
(:name "Done"
|
||||
:log state
|
||||
:todo "DONE"
|
||||
:log t
|
||||
:order 95)
|
||||
:order 90)
|
||||
|
||||
(:name "Overdue"
|
||||
:deadline past
|
||||
:scheduled past
|
||||
:order 1)
|
||||
|
||||
(:name "Waiting"
|
||||
:todo "WAIT"
|
||||
(:name "Inbox"
|
||||
:category ("inbox" "phone_inbox")
|
||||
:order 9)
|
||||
|
||||
(:name "Important"
|
||||
:priority "A"
|
||||
:order 0)
|
||||
|
||||
(:name "In-Progress"
|
||||
:todo "PROG"
|
||||
:order 2)
|
||||
|
||||
(:name "Next"
|
||||
:todo "NEXT"
|
||||
:order 3)
|
||||
|
||||
(:name "Today"
|
||||
:deadline today
|
||||
:scheduled today
|
||||
:time-grid t
|
||||
:order 4)
|
||||
|
||||
(:name "Research"
|
||||
:tag "research"
|
||||
:order 7)
|
||||
|
||||
(:name "Project Backlog"
|
||||
:and (:todo "TODO" :tag "projects")
|
||||
:order 5)
|
||||
|
||||
(:name "General Backlog"
|
||||
:and (:todo "TODO" :priority "B")
|
||||
:order 8)
|
||||
|
||||
(:name "Less Important"
|
||||
:priority<= "C"
|
||||
:order 80)
|
||||
))))))
|
||||
("y" "My agenda"
|
||||
|
||||
((agenda "" ((org-agenda-prefix-format " %?-12t %s")
|
||||
(org-agenda-remove-tags t)
|
||||
(org-agenda-skip-function '(org-agenda-skip-entry-if
|
||||
'todo '("WONT") 'regexp '("job")))
|
||||
(org-agenda-span 3)))
|
||||
|
||||
(alltodo "" ((org-agenda-overriding-header "")
|
||||
(org-agenda-prefix-format " %?-12t %s")
|
||||
(org-agenda-remove-tags t)
|
||||
(org-super-agenda-groups
|
||||
'((:discard
|
||||
(:not
|
||||
(:category ("house" "me" "notes"))))
|
||||
|
||||
;; (:discard
|
||||
;; (:deadline future :scheduled future))
|
||||
|
||||
(:name "Overdue"
|
||||
:deadline past
|
||||
:scheduled past
|
||||
:order 1)
|
||||
|
||||
(:name "Upcoming"
|
||||
:deadline future
|
||||
:scheduled future
|
||||
:order 99)
|
||||
|
||||
(:name "High Priority"
|
||||
(:name "Inbox"
|
||||
:category ("inbox" "phone_inbox")
|
||||
:order 8)
|
||||
|
||||
(:name "Done"
|
||||
:todo "DONE"
|
||||
:order 99)
|
||||
|
||||
(:name "Important"
|
||||
:priority "A"
|
||||
:order 0)
|
||||
|
||||
(:name "In-Progress"
|
||||
:todo "PROG"
|
||||
:order 2)
|
||||
|
||||
(:name "Next"
|
||||
:todo "NEXT"
|
||||
:order 3)
|
||||
|
||||
(:name "Household"
|
||||
:tag "chores"
|
||||
:order 6)
|
||||
|
||||
(:name "Routine"
|
||||
:and (:habit t :not (:tag "chores"))
|
||||
:order 5)
|
||||
|
||||
(:name "Now"
|
||||
:todo ("PROG" "NEXT")
|
||||
:order 10)
|
||||
|
||||
(:name "Today's Personal Tasks"
|
||||
:and (:deadline today :tag "personal")
|
||||
:and (:scheduled today :tag "personal")
|
||||
:order 20)
|
||||
|
||||
(:name "Today's Household Tasks"
|
||||
:and (:deadline today :tag "household")
|
||||
:and (:scheduled today :tag "household")
|
||||
:order 30)
|
||||
|
||||
(:name "Today's Projects"
|
||||
(:name "Today"
|
||||
:deadline today
|
||||
:scheduled today
|
||||
:order 15)
|
||||
:time-grid t
|
||||
:order 4)
|
||||
|
||||
;; (:name "Personal projects"
|
||||
;; :categery "me"
|
||||
;; :order 9)
|
||||
|
||||
(:name "Research"
|
||||
:tag "research"
|
||||
:order 45)
|
||||
:order 7)
|
||||
|
||||
(:name "Personal Backlog"
|
||||
:and (:todo "TODO" :tag "personal")
|
||||
:and (:todo "TODO" :tag "job_search")
|
||||
:order 40)
|
||||
|
||||
(:name "Household Backlog"
|
||||
:and (:todo "TODO" :tag "household")
|
||||
(:name "General Backlog"
|
||||
:and (:todo "TODO" :priority "B")
|
||||
:order 50)
|
||||
|
||||
(:name "Project Backlog"
|
||||
:todo "TODO"
|
||||
:order 35)
|
||||
(:name "Less Important"
|
||||
:priority<= "C"
|
||||
:order 85)
|
||||
)))))))))
|
||||
|
||||
(:name "Inbox"
|
||||
:tag "inbox"
|
||||
:order 90)
|
||||
|
||||
|
||||
)))))
|
||||
)))
|
||||
)
|
||||
|
||||
;;;;; Contacts
|
||||
|
||||
;; Last commit before requiring org 9.7: 048942e8063044accca7a5c42b81a1e27b7a0876
|
||||
(use-package org-contacts
|
||||
:ensure
|
||||
(org-contacts :repo "https://repo.or.cz/org-contacts.git" :ref "048942e8")
|
||||
:custom
|
||||
(org-contacts-files
|
||||
`(,(expand-file-name "contacts.org" org-directory)) "Set single contacts file")
|
||||
:commands
|
||||
(org-contacts org-contacts-agenda))
|
||||
|
||||
;;;;; Navigation
|
||||
|
||||
;;;;; Notes
|
||||
|
||||
;;;;;; Org Noter
|
||||
|
||||
(use-package org-noter
|
||||
:custom
|
||||
(org-noter-notes-search-path
|
||||
`(,(expand-file-name "notes" org-directory)) "Note paths (non-recursive)")
|
||||
:bind
|
||||
("C-c n n" . org-noter)
|
||||
(:map dired-mode-map
|
||||
("C-c n n" . org-noter-start-from-dired))
|
||||
:hook
|
||||
(dired-mode . org-noter-enable-update-renames))
|
||||
|
||||
;;;;;; Org Remark
|
||||
|
||||
(use-package org-remark
|
||||
:custom
|
||||
(org-remark-line-ellipsis "---" "Default '...' is too similar to folded headlines")
|
||||
(org-remark-notes-file-name
|
||||
(expand-file-name "org-remark.org" org-directory) "Default too similar to `marginalia.el'")
|
||||
:bind
|
||||
("C-c n m" . org-remark-mark)
|
||||
("C-c n l" . org-remark-mark-line)
|
||||
(:map org-remark-mode-map
|
||||
("C-c n o" . org-remark-open)
|
||||
("C-c n ]" . org-remark-view-next)
|
||||
("C-c n [" . org-remark-view-prev)
|
||||
("C-c n r" . org-remark-remove)
|
||||
("C-c n d" . org-remark-delete))
|
||||
:init
|
||||
(org-remark-global-tracking-mode)
|
||||
:hook
|
||||
(elpaca-after-init . org-remark-global-tracking-mode)
|
||||
(nov-mode . org-remark-nov-mode))
|
||||
|
||||
;;;;; Org Citations
|
||||
|
||||
;;;;;; Org Cite
|
||||
|
||||
(use-feature oc
|
||||
:custom
|
||||
(org-cite-export-processors '((latex biblatex)
|
||||
(t csl)) "Use biblatex for LaTeX, csl for everything else")
|
||||
(org-cite-global-bibliography
|
||||
`(,(expand-file-name "~/Nextcloud/Library/Bibliography/Library.bib")) "Set bib files")
|
||||
:defer t
|
||||
(use-package org-superstar
|
||||
;; :disabled t
|
||||
:config
|
||||
(when (elpaca-installed-p 'citar)
|
||||
(setopt org-cite-activate-processor 'citar
|
||||
org-cite-follow-processor 'citar
|
||||
org-cite-insert-processor 'citar)))
|
||||
|
||||
;;;;;; Org Cite CSL
|
||||
|
||||
(use-feature oc-csl
|
||||
:if
|
||||
(elpaca-installed-p 'citeproc)
|
||||
:after
|
||||
(citeproc oc)
|
||||
:config
|
||||
(let ((zotero_styles (expand-file-name
|
||||
"Zotero/styles/" (or (getenv "XDG_DATA_HOME") "~/.local/share/"))))
|
||||
(if (file-directory-p zotero_styles)
|
||||
(setopt org-cite-csl-styles-dir zotero_styles))))
|
||||
|
||||
;;;;;; Citar
|
||||
|
||||
(use-package citar
|
||||
:custom
|
||||
(citar-bibliography
|
||||
`(,(expand-file-name "~/Nextcloud/Library/Bibliography/Library.bib")) "Set bib files")
|
||||
(citar-library-paths
|
||||
`(,(expand-file-name "~/Nextcloud/Library/")) "Set paths to sources")
|
||||
:bind
|
||||
("C-c n c" . citar-create-note)
|
||||
:hook
|
||||
(org-mode . citar-capf-setup)
|
||||
:config
|
||||
(when (elpaca-installed-p 'citar-embark)
|
||||
(setopt citar-at-point-function 'embark-act)))
|
||||
|
||||
;;;;;; Citar + Embark
|
||||
|
||||
(use-package citar-embark
|
||||
:if
|
||||
(and (elpaca-installed-p 'citar)
|
||||
(elpaca-installed-p 'embark))
|
||||
:after
|
||||
(citar embark)
|
||||
:config
|
||||
(citar-embark-mode))
|
||||
|
||||
;;;;;; Citeproc
|
||||
|
||||
;; Dependency for other packages
|
||||
(use-package citeproc
|
||||
:defer t)
|
||||
|
||||
;;;;; Project Management
|
||||
|
||||
;;;;;; Org Edna
|
||||
|
||||
(use-package org-edna
|
||||
:custom
|
||||
(org-edna-finder-use-cache t "Improve performance with caching")
|
||||
:bind
|
||||
(:map org-mode-map
|
||||
("C-c o e" . org-edna-edit))
|
||||
:hook
|
||||
(org-mode . org-edna-mode))
|
||||
|
||||
;;;;; Time Management
|
||||
|
||||
;;;;;; Org Clock
|
||||
|
||||
(use-feature org-clock
|
||||
:after
|
||||
(org)
|
||||
:config
|
||||
(defun as/save-after-org-clock-in (&rest r)
|
||||
"Save org buffer after clocking in"
|
||||
(with-current-buffer
|
||||
(org-clocking-buffer)
|
||||
(save-buffer)))
|
||||
(defun as/save-after-org-clock-out (func &rest r)
|
||||
"Save org buffer after clocking out of a task
|
||||
|
||||
`:around' is used here in the event the current buffer is not the same as
|
||||
`org-clocking-buffer'. Thanks to @mocompute for the idea:
|
||||
<https://mocompute.codeberg.page/item/2024/2024-10-03-org-clock-out-save-buffer.html>"
|
||||
(let ((buffer (org-clocking-buffer)))
|
||||
(apply func r)
|
||||
(when buffer (with-current-buffer buffer (save-buffer)))))
|
||||
(advice-add #'org-clock-in :after #'as/save-after-org-clock-in)
|
||||
(advice-add #'org-clock-out :around #'as/save-after-org-clock-out))
|
||||
|
||||
;;;;;; Org Pomodoro
|
||||
|
||||
(use-package org-pomodoro
|
||||
:after
|
||||
(org-clock)
|
||||
:custom
|
||||
(alert-user-configuration
|
||||
'((((:category . "org-pomodoro")) libnotify nil)) "Send alerts to libnotify")
|
||||
(org-pomodoro-audio-player
|
||||
(concat (executable-find "pw-cat") " -p --volume 0.25") "Use PipeWire & reduce volume")
|
||||
(org-pomodoro-clock-breaks t "Include break time")
|
||||
(org-pomodoro-format "%s" "Only display the timer")
|
||||
(org-pomodoro-keep-killed-pomodoro-time t "Log manually ended clocks")
|
||||
(org-pomodoro-length 50 "Increase pomodoro time")
|
||||
(org-pomodoro-long-break-frequency 2 "Decrease long break frequency")
|
||||
(org-pomodoro-manual-break t "Require manually clocking out")
|
||||
(org-pomodoro-short-break-length 10 "Increase short break length")
|
||||
:bind
|
||||
(:map org-mode-map
|
||||
("C-c o p" . org-pomodoro))
|
||||
:commands
|
||||
(org-pomodoro))
|
||||
|
||||
;;;;;; Org Timeblock
|
||||
(setopt org-indent-mode-turns-on-hiding-stars nil
|
||||
org-superstar-headline-bullets-list '("◉" "🞛" "○" "▷")
|
||||
org-superstar-leading-bullet ?\s
|
||||
org-superstar-special-todo-items t)
|
||||
:hook (org-mode . org-superstar-mode))
|
||||
|
||||
(use-package org-timeblock
|
||||
:custom
|
||||
(org-timeblock-new-task-time 'pick "Ask me for new time")
|
||||
(org-timeblock-show-future-repeats 'next "Only show next repeat")
|
||||
(org-timeblock-scale-options (cons 7 20) "Start at 7:00, end at 20:00")
|
||||
(org-timeblock-span 3 "Number of days to display")
|
||||
:bind
|
||||
(:map as/org-prefix-map
|
||||
("b" . org-timeblock)))
|
||||
("t" . org-timeblock))
|
||||
:config
|
||||
(setopt org-timeblock-new-task-time 'pick
|
||||
org-timeblock-show-future-repeats 'next
|
||||
org-timeblock-scale-options (cons 7 20)
|
||||
org-timeblock-span 3))
|
||||
|
||||
(provide 'init-org)
|
||||
;;; init-org.el ends here
|
||||
;;; org-mode.el ends here
|
||||
|
|
|
|||
|
|
@ -1,490 +0,0 @@
|
|||
;;; org-mode.el --- org-mode customizations -*- lexical-binding: t -*-
|
||||
|
||||
;; Author: Andrew Scott <git at andyscott dot me>
|
||||
;; Keywords: org, convenience, tools
|
||||
;; URL: https://codeberg.org/andyscott/dotfiles
|
||||
|
||||
;; This file is not part of GNU Emacs
|
||||
|
||||
;; Copyright (c) 2024 Andrew Scott
|
||||
|
||||
;; MIT No Attribution
|
||||
|
||||
;; Permission is hereby granted, free of charge, to any person obtaining a copy of this
|
||||
;; software and associated documentation files (the "Software"), to deal in the Software
|
||||
;; without restriction, including without limitation the rights to use, copy, modify,
|
||||
;; merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
|
||||
;; permit persons to whom the Software is furnished to do so.
|
||||
|
||||
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
|
||||
;; INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
|
||||
;; PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
|
||||
;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
|
||||
;; OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
||||
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; My org-mode customizations.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(use-feature org
|
||||
:bind
|
||||
(:map as/org-prefix-map
|
||||
("a" . org-agenda)
|
||||
("c" . org-capture)
|
||||
("d" . org-priority-down)
|
||||
("h" . consult-org-heading)
|
||||
("l" . org-store-link)
|
||||
("s" . org-insert-subheading)
|
||||
("u" . org-priority-up)
|
||||
("y" . org-todo-yesterday)
|
||||
("C-h" . consult-org-agenda)
|
||||
("C-l" . embark-org-copy-link-target) ; `embark'
|
||||
("M-l" . org-toggle-link-display) ; `ol'
|
||||
("t" . org-tags-view)) ; `org-agenda'
|
||||
(:map org-mode-map
|
||||
;; supposed to be set by `org-use-extra-keys'
|
||||
;; and still overwritten with `org-insert-drawer' when `org' is loaded
|
||||
("C-c C-x d" . org-metadown))
|
||||
:config
|
||||
;; General options TODO: Comment various options more descriptively
|
||||
(setopt org-adapt-indentation nil
|
||||
org-agenda-files (directory-files-recursively org-directory "org$")
|
||||
org-archive-location (expand-file-name "archive/%s_archive.org::" org-directory)
|
||||
org-blank-before-new-entry '((heading . t)
|
||||
(plain-list-item . t))
|
||||
org-deadline-warning-days 5
|
||||
org-default-notes-file (expand-file-name "inbox.org" org-directory)
|
||||
org-enforce-todo-checkbox-dependencies t
|
||||
org-fontify-done-headline t
|
||||
org-fontify-todo-headline nil
|
||||
org-goto-interface 'outline-path-completion ; `org-goto'
|
||||
org-hide-emphasis-markers t
|
||||
org-insert-heading-respect-content t
|
||||
org-log-done 'time
|
||||
org-log-into-drawer t
|
||||
org-log-redeadline 'time
|
||||
org-M-RET-may-split-line nil
|
||||
org-pretty-entities t
|
||||
org-pretty-entities-include-sub-superscripts nil
|
||||
org-reverse-note-order t ; Add/refile notes at the beginning of an entry
|
||||
org-special-ctrl-a/e t
|
||||
org-special-ctrl-k t
|
||||
org-startup-folded 'content
|
||||
org-tags-column 0
|
||||
org-todo-keywords '((sequence "TODO(t)"
|
||||
"NEXT(x)"
|
||||
"PROG(p)"
|
||||
"WAIT(w@/!)"
|
||||
"|"
|
||||
"DONE(d!)"
|
||||
"WONT(n@/!)")
|
||||
(sequence "IDEA(i)" "|"))
|
||||
org-todo-repeat-to-state "TODO")
|
||||
:defer 3
|
||||
:hook
|
||||
(org-mode . org-indent-mode)
|
||||
(org-mode . variable-pitch-mode)
|
||||
:init
|
||||
(bind-keys :prefix-map as/org-prefix-map
|
||||
:prefix "C-c o")
|
||||
(setopt org-directory "~/Nextcloud/Documents/org"
|
||||
org-use-extra-keys t))
|
||||
|
||||
;;; Built-in Packages:
|
||||
|
||||
(use-feature oc
|
||||
:after (org)
|
||||
:config
|
||||
(setopt org-cite-export-processors '((latex biblatex)
|
||||
(t csl))
|
||||
org-cite-global-bibliography '("~/Nextcloud/Library/bib/library.bib"))
|
||||
(when (elpaca-installed-p 'citar)
|
||||
(setopt org-cite-activate-processor 'citar
|
||||
org-cite-follow-processor 'citar
|
||||
org-cite-insert-processor 'citar)))
|
||||
|
||||
(use-feature oc-csl
|
||||
:after (citeproc oc)
|
||||
:config
|
||||
(let ((zotero_styles (expand-file-name
|
||||
"Zotero/styles/" (or (getenv "XDG_DATA_HOME") "~/.local/share/"))))
|
||||
(if (file-directory-p zotero_styles)
|
||||
(setopt org-cite-csl-styles-dir zotero_styles))))
|
||||
|
||||
(use-feature org-agenda
|
||||
:after (org)
|
||||
:bind
|
||||
(:map org-agenda-mode-map
|
||||
("C-c C-r" . as/org-agenda-reconcile-inbox-item))
|
||||
:config
|
||||
(setopt org-agenda-block-separator ?-
|
||||
org-agenda-skip-deadline-if-done nil
|
||||
org-agenda-skip-scheduled-if-deadline-is-shown nil
|
||||
org-agenda-skip-scheduled-if-done nil
|
||||
org-agenda-start-on-weekday nil
|
||||
org-agenda-start-with-log-mode '(clock closed state)
|
||||
org-agenda-tags-column 0)
|
||||
(defun as/org-agenda-reconcile-inbox-item ()
|
||||
"Process and refile an org-agenda item"
|
||||
(interactive)
|
||||
(org-with-wide-buffer
|
||||
(org-agenda-set-tags)
|
||||
(org-agenda-priority)
|
||||
(if (y-or-n-p "Schedule item?")
|
||||
(org-agenda-schedule nil nil))
|
||||
(org-agenda-refile nil nil t))))
|
||||
|
||||
(use-feature org-capture
|
||||
:after (org)
|
||||
:config
|
||||
(setq org-capture-templates ; `org-capture'
|
||||
`(
|
||||
("i" "Inbox"
|
||||
entry (file+headline "inbox.org" "Ideas")
|
||||
"** IDEA %?"
|
||||
:empty-lines 1
|
||||
)
|
||||
|
||||
("j" "Log Entry"
|
||||
entry (file+datetree "log.org")
|
||||
"** %?"
|
||||
:empty-lines 1)
|
||||
|
||||
("n" "Note"
|
||||
entry (file+headline "inbox.org" "Notes")
|
||||
"** %?
|
||||
:PROPERTIES:
|
||||
:CREATED: %U
|
||||
:END:"
|
||||
:empty-lines 1)
|
||||
|
||||
("t" "Todo" entry (file+headline "inbox.org" "Tasks")
|
||||
"** TODO [#B] %?
|
||||
:PROPERTIES:
|
||||
:CREATED: %U
|
||||
:END:
|
||||
%i\n%a
|
||||
Notes: "
|
||||
:empty-lines 1)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(use-feature org-clock
|
||||
:after (org)
|
||||
:config
|
||||
(setopt org-clock-in-resume t
|
||||
org-clock-in-switch-to-state "PROG"
|
||||
org-clock-persist t
|
||||
org-clock-rounding-minutes 5
|
||||
org-clock-string-limit 20))
|
||||
|
||||
(use-feature org-faces
|
||||
:after (org)
|
||||
:config
|
||||
(setopt org-fontify-quote-and-verse-blocks t
|
||||
org-todo-keyword-faces '(("TODO" . (:inherit dired-mark :inverse-video t))
|
||||
("PROG" . (:inherit match :inverse-video t))
|
||||
("NEXT" . (:inherit dired-special :inverse-video t))
|
||||
("WAIT" . (:inherit shadow :inverse-video t))
|
||||
("WONT" . (:inherit org-done))
|
||||
("DONE" . (:inherit org-done))
|
||||
("IDEA" . (:inherit bold :inverse-video t)))
|
||||
org-priority-faces '((?A . (:inherit error :weight semibold :inverse-video t))
|
||||
(?B . (:inherit warning :weight semibold :inverse-video t))
|
||||
(?C . (:inherit mode-line-inactive :weight semibold :inverse-video t))))
|
||||
:custom-face
|
||||
;; Headlines
|
||||
(org-level-1 ((t (:inherit outline-1 :height 1.5))))
|
||||
(org-level-2 ((t (:inherit outline-2 :height 1.4))))
|
||||
(org-level-3 ((t (:inherit outline-3 :height 1.4))))
|
||||
(org-level-4 ((t (:inherit outline-4 :height 1.2))))
|
||||
(org-level-5 ((t (:inherit outline-5 :height 1.1))))
|
||||
;; Ensure monospace Keywords/Tags/Blocks
|
||||
(org-block ((t (:inherit fixed-pitch)))) ; inherited by `org-code'
|
||||
(org-block-begin-line ((t (:inherit fixed-pitch))))
|
||||
(org-block-end-line ((t (:inherit (org-block-begin-line fixed-pitch)))))
|
||||
(org-checkbox ((t (:inherit (org-todo fixed-pitch)))))
|
||||
(org-checkbox-statistics-todo ((t (:inherit (org-todo fixed-pitch)))))
|
||||
(org-date ((t (:inherit fixed-pitch))))
|
||||
(org-document-info-keyword ((t (:inherit (shadow fixed-pitch)))))
|
||||
(org-drawer ((t (:inherit fixed-pitch))))
|
||||
(org-indent ((t (:inherit (org-hide fixed-pitch)))))
|
||||
(org-link ((t (:foreground "dark cyan" :underline t))))
|
||||
(org-list-dt ((t (:inherit fixed-pitch))))
|
||||
(org-meta-line ((t (:inherit (fixed-pitch)))))
|
||||
(org-property-value ((t (:inherit fixed-pitch))))
|
||||
(org-special-keyword ((t (:inherit fixed-pitch))))
|
||||
(org-table ((t (:inherit fixed-pitch))))
|
||||
(org-tag ((t (:inherit (fixed-pitch) :height 0.8))))
|
||||
(org-verbatim ((t (:inherit fixed-pitch)))))
|
||||
|
||||
(use-feature org-fold
|
||||
:after (org)
|
||||
:config (setopt org-fold-catch-invisible-edits 'show-and-error))
|
||||
|
||||
(use-feature org-habit
|
||||
:after (org))
|
||||
|
||||
(use-feature org-id
|
||||
:after (org)
|
||||
:config
|
||||
(setopt org-id-link-to-org-use-id t
|
||||
org-id-locations-file (locate-user-emacs-file "org-id-locations")
|
||||
org-id-method 'ts
|
||||
org-id-ts-format "%Y%m%dT%H%M%S.%2N%z"))
|
||||
|
||||
(use-feature org-keys
|
||||
:after (org)
|
||||
:config
|
||||
(setopt org-return-follows-link t))
|
||||
|
||||
(use-feature org-list
|
||||
:after (org)
|
||||
:config (setopt org-list-demote-modify-bullet '(("+" . "-")
|
||||
("-" . "+")
|
||||
("*" . "+"))))
|
||||
|
||||
(use-feature org-refile
|
||||
:after (org)
|
||||
:config
|
||||
(setopt org-log-refile 'note
|
||||
org-outline-path-complete-in-steps nil
|
||||
org-refile-allow-creating-parent-nodes 'confirm
|
||||
org-refile-targets '((nil :maxlevel . 3)
|
||||
(org-agenda-files :maxlevel . 2))
|
||||
org-refile-use-outline-path 'file))
|
||||
|
||||
(use-feature org-src
|
||||
:after (org)
|
||||
:config
|
||||
(setopt org-edit-src-content-indentation 0
|
||||
org-src-preserve-indentation t
|
||||
org-src-tab-acts-natively t))
|
||||
|
||||
;;; 3rd-party Packages:
|
||||
|
||||
(use-package citar
|
||||
:after (oc)
|
||||
:config
|
||||
(setopt citar-bibliography org-cite-global-bibliography
|
||||
citar-library-paths '("~/Nextcloud/Library/"))
|
||||
;; (when (elpaca-installed-p 'citar-embark)
|
||||
;; (setopt citar-at-point-function 'embark-act))
|
||||
:hook (org-mode . citar-capf-setup))
|
||||
|
||||
(use-package citar-embark
|
||||
:after (citar embark)
|
||||
:config (citar-embark-mode))
|
||||
|
||||
(use-package citar-org-roam
|
||||
:after (citar org-roam)
|
||||
:config
|
||||
(setopt citar-org-roam-capture-template-key "r"
|
||||
citar-org-roam-note-title-template "${title} - ${author}"
|
||||
citar-org-roam-subdir "references")
|
||||
(citar-org-roam-mode))
|
||||
|
||||
(use-package citeproc
|
||||
:defer t)
|
||||
|
||||
(use-package org-appear
|
||||
:bind
|
||||
(:prefix-map as/org-appear
|
||||
:prefix "C-c C-q")
|
||||
:config
|
||||
(setopt org-appear-autoentities t
|
||||
org-appear-autolinks nil
|
||||
org-appear-autosubmarkers t
|
||||
org-appear-trigger 'on-change)
|
||||
:hook (org-mode . org-appear-mode))
|
||||
|
||||
(use-package org-edna
|
||||
:bind
|
||||
(:map as/org-prefix-map
|
||||
("e" . org-edna-edit))
|
||||
:config (setopt org-edna-finder-use-cache t)
|
||||
:hook (org-mode . org-edna-mode))
|
||||
|
||||
(use-package org-noter
|
||||
:disabled t
|
||||
:after (org)
|
||||
:config
|
||||
(setopt org-noter-notes-search-path (list (concat org-directory "/roam")))
|
||||
(org-noter-enable-org-roam-integration))
|
||||
|
||||
(use-package org-pomodoro
|
||||
:after (org-clock)
|
||||
:bind
|
||||
(:map as/org-prefix-map
|
||||
("m" . org-pomodoro))
|
||||
:commands (org-pomodoro)
|
||||
:config
|
||||
(setopt alert-user-configuration ; Send messages to libnotify
|
||||
'((((:category . "org-pomodoro")) libnotify nil))
|
||||
org-pomodoro-audio-player (concat (executable-find "pw-cat") " -p")
|
||||
org-pomodoro-keep-killed-pomodoro-time t
|
||||
org-pomodoro-length 50
|
||||
org-pomodoro-long-break-frequency 2
|
||||
org-pomodoro-manual-break t
|
||||
org-pomodoro-short-break-length 10))
|
||||
|
||||
(use-package org-roam
|
||||
;; :after (org)
|
||||
:bind
|
||||
(:map as/org-roam-prefix-map
|
||||
("b" . org-roam-buffer-display-dedicated)
|
||||
("c" . org-roam-capture)
|
||||
("f" . org-roam-node-find)
|
||||
("i" . org-roam-node-insert))
|
||||
:config
|
||||
(setopt org-roam-database-connector 'sqlite-builtin
|
||||
org-roam-directory (file-name-as-directory (expand-file-name "roam" org-directory)))
|
||||
(setq org-roam-db-gc-threshold most-positive-fixnum) ; doesn't like the new `setopt'
|
||||
(add-to-list 'display-buffer-alist
|
||||
'("\\*org-roam\\*"
|
||||
(display-buffer-in-direction)
|
||||
(direction . right)
|
||||
(window-width . 0.33)
|
||||
(window-height . fit-window-to-buffer)))
|
||||
(add-to-list 'org-roam-capture-templates
|
||||
'("r" "reference" plain
|
||||
"%?"
|
||||
:target
|
||||
(file+head "references/${citar-citekey}.org"
|
||||
"#+title: ${note-title}\n")
|
||||
:empty-lines 1
|
||||
:unnarrowed t
|
||||
))
|
||||
(add-to-list 'org-roam-capture-templates
|
||||
`("p" "project" plain (file ,(concat org-roam-directory
|
||||
"/templates/projects.org"))
|
||||
:target
|
||||
(file+head "projects/%<%Y%m%d%H%M%S>-${slug}.org"
|
||||
"#+title: ${title}\n#+filetags: :projects:")
|
||||
:empty-lines 1
|
||||
:unnarrowed t))
|
||||
(org-roam-db-autosync-mode)
|
||||
:ensure (org-roam :files (:defaults "extensions/*"))
|
||||
:init
|
||||
(bind-keys :prefix-map as/org-roam-prefix-map
|
||||
:prefix "C-c r"))
|
||||
|
||||
(use-package org-super-agenda
|
||||
:hook (org-agenda-mode . org-super-agenda-mode)
|
||||
:init
|
||||
(setq org-agenda-custom-commands
|
||||
'(("u" "Super agenda"
|
||||
|
||||
((agenda "" ((org-agenda-prefix-format " %-12t% s%?-6e")
|
||||
;;(org-agenda-prefix-format " %?-12t %s")
|
||||
(org-agenda-remove-tags t)
|
||||
(org-agenda-skip-function '(org-agenda-skip-entry-if
|
||||
'todo '("WONT")))
|
||||
(org-agenda-span 'day)))
|
||||
|
||||
(alltodo "" ((org-agenda-overriding-header "\nI'M DOING IT...")
|
||||
(org-agenda-prefix-format " %-20T")
|
||||
;; (org-agenda-prefix-format " %?-12t %s")
|
||||
(org-agenda-remove-tags t)
|
||||
(org-super-agenda-groups
|
||||
'(
|
||||
(:name "Done Today" ; FIXME
|
||||
:todo "DONE"
|
||||
:log t
|
||||
:order 95)
|
||||
|
||||
(:name "Overdue"
|
||||
:deadline past
|
||||
:scheduled past
|
||||
:order 1)
|
||||
|
||||
(:name "Waiting"
|
||||
:todo "WAIT"
|
||||
:order 80)
|
||||
|
||||
(:name "Upcoming"
|
||||
:deadline future
|
||||
:scheduled future
|
||||
:order 99)
|
||||
|
||||
(:name "High Priority"
|
||||
:priority "A"
|
||||
:order 5)
|
||||
|
||||
(:name "Now"
|
||||
:todo ("PROG" "NEXT")
|
||||
:order 10)
|
||||
|
||||
(:name "Personal"
|
||||
:and (:deadline today :tag "personal")
|
||||
:and (:scheduled today :tag "personal")
|
||||
:order 30)
|
||||
|
||||
(:name "Household"
|
||||
:and (:deadline today :tag "household")
|
||||
:and (:scheduled today :tag "household")
|
||||
:order 35)
|
||||
|
||||
(:name "Today"
|
||||
:deadline today
|
||||
:scheduled today
|
||||
:order 15)
|
||||
|
||||
(:name "Project Backlog"
|
||||
:and (:todo "TODO" :tag "projects")
|
||||
:order 20)
|
||||
|
||||
(:name "Research"
|
||||
:tag "research"
|
||||
:order 40)
|
||||
|
||||
(:name "Personal Backlog"
|
||||
:and (:todo "TODO" :tag "personal")
|
||||
:and (:todo "TODO" :tag "job_search")
|
||||
:order 45)
|
||||
|
||||
(:name "Household Backlog"
|
||||
:and (:todo "TODO" :priority<= "B" :tag "household")
|
||||
:order 50)
|
||||
|
||||
(:name "Inbox"
|
||||
:tag "inbox"
|
||||
:order 90)
|
||||
|
||||
|
||||
)))))
|
||||
))))
|
||||
|
||||
(use-package org-superstar
|
||||
:config
|
||||
(if org-odd-levels-only
|
||||
(setopt org-superstar-headline-bullets-list '(?◉ ?- ?🞛 ?- ?○ ?- ?▷ ?- ?✸ ?- ?✿ ?-))
|
||||
(setopt org-superstar-headline-bullets-list '(?◉ ?🞛 ?○ ?▷ ?✸ ?✿)))
|
||||
(setopt org-indent-mode-turns-on-hiding-stars nil ; needed for `org-superstar-leading-bullet'
|
||||
org-superstar-leading-bullet ?\s
|
||||
org-superstar-hide-leading-stars t
|
||||
org-superstar-special-todo-items t
|
||||
org-superstar-todo-bullet-alist '(("TODO" . ?☐)
|
||||
("NEXT" . ?☐)
|
||||
("PROG" . ?☐)
|
||||
("WAIT" . ?☐)
|
||||
("DONE" . ?☑)
|
||||
("WONT" . ?☑)))
|
||||
:hook (org-mode . org-superstar-mode))
|
||||
|
||||
(use-package org-timeblock
|
||||
:bind
|
||||
(:map as/org-prefix-map
|
||||
("b" . org-timeblock))
|
||||
:config
|
||||
(setopt org-timeblock-new-task-time 'pick
|
||||
org-timeblock-show-future-repeats 'next
|
||||
org-timeblock-scale-options (cons 7 20)
|
||||
org-timeblock-span 3))
|
||||
|
||||
(provide 'init-org)
|
||||
;;; org-mode.el ends here
|
||||
|
|
@ -2,14 +2,14 @@
|
|||
layer = top
|
||||
exit-on-keyboard-focus-loss = yes
|
||||
|
||||
font=Hack:size=16
|
||||
font=Hack:size=18
|
||||
dpi-aware=auto
|
||||
icon-theme=Colloid-Grey-Dark
|
||||
icons-enabled=yes
|
||||
letter-spacing=0
|
||||
prompt='> '
|
||||
|
||||
lines=12
|
||||
lines=10
|
||||
# line-height=
|
||||
width=40
|
||||
tabs=4
|
||||
|
|
|
|||
|
|
@ -27,6 +27,8 @@ zls_has_update=$(echo "$aur_updates" | grep -c 'zls-git')
|
|||
|
||||
if [ "$rust_has_update" -ne 0 ]; then
|
||||
rustup update
|
||||
else
|
||||
echo "$rust_has_update"
|
||||
fi
|
||||
|
||||
if [ "$river_has_update" -ne 0 ] && [ "$zls_has_update" -ne 0 ]; then
|
||||
|
|
|
|||
Loading…
Reference in a new issue