Commit dicipline fail

users/crumb/programs/emacs/modules/syd-org.el

@@ -1,10 +1,127 @@
 ;;; syd-org.el -*- lexical-binding: t; -*-
 
+(require 'syd-prose)
+
+(defun syd-org--init-hacks-h ()
+  ;; Open file links in current window, rather than new ones
+  (setf (alist-get 'file org-link-frame-setup) #'find-file)
+  ;; Open directory links in dired
+  (add-to-list 'org-file-apps '(directory . emacs))
+  (add-to-list 'org-file-apps '(remote . emacs))
+
+  (defun syd-org--restart-mode-h ()
+    "Restart `org-mode', but only once."
+    (syd-quietly (org-mode-restart))
+    (setq org-agenda-new-buffers
+          (delq (current-buffer)
+                org-agenda-new-buffers))
+    (run-hooks 'find-file-hook))
+
+  (defun syd-org-exclude-agenda-buffers-from-workspace-h ()
+    "Don't associate temporary agenda buffers with current workspace."
+    (when (and org-agenda-new-buffers
+               (bound-and-true-p persp-mode)
+               (not org-agenda-sticky))
+      (let (persp-autokill-buffer-on-remove)
+        (persp-remove-buffer org-agenda-new-buffers
+                             (get-current-persp)
+                             nil))))
+  (add-hook 'org-agenda-finalize-hook
+            #'syd-org-exclude-agenda-buffers-from-workspace-h)
+
+  (defun syd-org--restart-mode-before-indirect-buffer-a (&optional buffer _)
+    "Restart `org-mode' in buffers in which the mode has been deferred (see
+`syd-org-defer-mode-in-agenda-buffers-h') before they become the base buffer for an
+indirect org-cpature buffer. This ensures that the buffer is fully functional
+not only when the *user* visits it, but also when org-capture interacts with it
+via an indirect buffer."
+    (with-current-buffer (or buffer (current-buffer))
+      (when (memq #'syd-org--restart-mode-h on-switch-buffer-hook)
+        (syd-org--restart-mode-h))))
+  (advice-add #'org-capture-get-indirect-buffer
+              :before #'syd-org--restart-mode-before-indirect-buffer-a)
+
+  (defvar recentf-exclude)
+  (defun syd-org--optimize-backgrounded-agenda-buffers-a (fn file)
+    "Disable `org-mode's startup processes for temporary agenda buffers.
+
+Prevents recentf pollution as well. However, if the user tries to visit one of
+these buffers they'll see a gimped, half-broken org buffer, so to avoid that,
+install a hook to restart `org-mode' when they're switched to so they can grow
+up to be fully-fledged org-mode buffers."
+    (if-let* ((buf (org-find-base-buffer-visiting file)))
+        buf
+      (let ((recentf-exclude '(always))
+            ;; (doom-inhibit-large-file-detection t)
+            ;; (doom-inhibit-local-var-hooks t)
+            (org-inhibit-startup t)
+            vc-handled-backends
+            enable-local-variables
+            find-file-hook)
+        (when-let ((buf (delay-mode-hooks (funcall fn file))))
+          (with-current-buffer buf
+            (add-hook 'on-switch-buffer-hook #'syd-org--restart-mode-h
+                      nil 'local))
+          buf))))
+  (advice-add #'org-get-agenda-file-buffer
+              :around #'syd-org--optimize-backgrounded-agenda-buffers-a)
+
+  (defun syd-org--fix-inconsistent-uuidgen-case-a (uuid)
+    "Ensure uuidgen is always lowercase (consistent) regardless of system.
+See https://lists.gnu.org/archive/html/emacs-orgmode/2019-07/msg00081.html."
+    :filter-return #'org-id-new
+    (if (eq org-id-method 'uuid)
+        (downcase uuid)
+      uuid))
+  (advice-add #'org-id-new
+              :filter-return #'syd-org--fix-inconsistent-uuidgen-case-a))
+
+(defun syd-org-init-faces ()
+  (let ((headline `(:weight bold)))
+    (custom-theme-set-faces
+     'user
+     ;; It is important that the `org-indent' face uses a fixed-pitch font, lest
+     ;; e.g. multi-line bullets appear misaligned.
+     '(org-indent ((t (:inherit (org-hide fixed-pitch)))))
+     ;; Must be fixed-pitch; `[ ]` and `[X]' should be the same width.
+     '(org-checkbox ((t (:inherit fixed-pitch))))
+     '(org-drawer ((t (:inherit (font-lock-comment-face fixed-pitch)))))
+     '(org-property-value ((t (:inherit fixed-pitch)))))))
+
+(defun syd-org-init-keybinds ()
+  (general-def
+    :keymaps 'org-mode-map
+    :states '(insert emacs)
+    [tab] #'org-cycle
+    [C-M-return] #'org-insert-subheading)
+  (general-def
+    :prefix-map 'syd-org-mode-links-map
+    "l" #'org-insert-link)
+  (general-define-key
+   :keymaps 'org-mode-map
+   :states '(normal visual motion emacs insert)
+   :major-modes t
+   :prefix syd-localleader-key
+   :non-normal-prefix syd-alt-localleader-key
+   "m" `("Org-roam" . ,org-roam-mode-map)
+   "." #'consult-org-heading
+   "/" #'consult-org-agenda
+   "@" #'org-cite-insert
+   "e" #'org-export-dispatch
+   "f" #'org-footnote-action
+   "h" #'org-toggle-heading
+   "i" #'org-toggle-item
+   "I" #'org-id-get-create
+   "k" #'org-babel-remove-result
+   "l" `("Links" . ,syd-org-mode-links-map)))
+
 (use-package org
   :defer-incrementally
   calendar find-func format-spec org-macs org-compat org-faces org-entities
   org-list org-pcomplete org-src org-footnote org-macro ob org org-agenda
   org-capture
+  :custom ((org-startup-folded 'content)
+           (org-directory "~/org"))
   :preface
   (defvar org-modules
     '(;; ol-w3m
@@ -17,7 +134,48 @@
       ;; ol-mhe
       ;; ol-rmail
       ;; ol-eww
-      )))
+      ))
+  :config
+  (syd-add-hook 'org-mode-hook
+    #'org-indent-mode
+    #'syd-prose-mode)
+  (syd-org-init-faces)
+  (syd-org-init-keybinds))
+
+(defun syd-org--init-roam-keybinds ()
+  )
+
+(use-package org-roam
+  :hook (org-load . syd-org-init-roam-h)
+  :commands (org-roam-buffer-toggle-display
+             org-roam-dailies-find-date
+             org-roam-dailies-find-today
+             org-roam-dailies-find-tomorrow
+             org-roam-dailies-find-yesterday)
+  :init (progn (syd-org--init-roam-keybinds)
+               (syd-load-packages-incrementally
+                '(ansi-color dash f rx seq magit-section emacsql)))
+  :custom ((org-roam-directory org-directory)
+           (org-roam-db-location (file-name-concat syd-data-dir
+                                                   "org-roam.db"))
+           ;; Make org-roam buffer sticky; i.e. don't replace it when opening a
+           ;; file with an *-other-window command.
+           (org-roam-buffer-window-parameters '((no-delete-other-windows . t)))
+           (org-roam-completion-everywhere t))
+  :config
+  (defun syd-org-init-roam-h ()
+    "Setup `org-roam' but don't immediately initialize its database.
+Instead, initialize it when it will be actually needed."
+    (cl-letf (((symbol-function #'org-roam-db-sync) #'ignore))
+      (org-roam-db-autosync-enable)))
+  (defun syd-org-roam-try-init-db-a (&rest _)
+    "Try to initialize org-roam database at the last possible safe moment.
+In case of failure, fail gracefully."
+    (message "Initializing org-roam database...")
+    (advice-remove 'org-roam-db-query #'syd-org-roam-try-init-db-a)
+    (org-roam-db-sync))
+  (advice-add #'org-roam-db-query
+              :before #'syd-org-roam-try-init-db-a))
 
 (provide 'syd-org)
 ;;; syd-org.el ends here