Update generated emacs config

This commit is contained in:
2026-03-07 18:36:36 -05:00
parent 8ddcf1de22
commit 3101834051

View File

@@ -336,7 +336,7 @@
) )
("wP" "Installation Bombardier" ("wP" "Installation Bombardier"
((agenda "" ((agenda ""
((org-agenda-span 60) ((org-agenda-span 90)
(org-agenda-start-day "2026-01-29") (org-agenda-start-day "2026-01-29")
(org-agenda-overriding-header "📅 Installation Bombardier") (org-agenda-overriding-header "📅 Installation Bombardier")
(org-agenda-prefix-format " %12t") ;; reserve time space (org-agenda-prefix-format " %12t") ;; reserve time space
@@ -397,6 +397,51 @@
) )
) )
(after! org
;; Ensure exported HTML opens in the system browser, not inside Emacs
(setq org-file-apps
(append '(("\\.x?html?\\'" . default))
(assq-delete-all "\\.x?html?\\'" org-file-apps))))
(after! grip-mode
(setq grip-binary-path "/home/tpouplier/.local/bin/grip")
)
(after! markdown-mode
(setq markdown-header-scaling t)
(custom-set-faces
'(markdown-header-face-1 ((t
:inherit markdown-header-face
:foreground "#fabd2f"
:height 1.8
:weight extra-bold)))
'(markdown-header-face-2 ((t
:inherit markdown-header-face
:foreground "#fe8019"
:height 1.4
:weight extra-bold)))
'(markdown-header-face-3 ((t
:inherit markdown-header-face
:foreground "#fb4934"
:height 1.2
:weight bold)))
'(markdown-header-face-4 ((t
:inherit markdown-header-face
:foreground "#b8bb26"
:height 1.1
:weight bold)))
'(markdown-header-face-5 ((t
:inherit markdown-header-face
:foreground "#83a598"
:height 1.0
:weight bold)))
'(markdown-header-face-6 ((t
:inherit markdown-header-face
:foreground "#d3869b"
:height 1.0
:weight bold))))
)
;; Enable plantuml-mode for PlantUML files ;; Enable plantuml-mode for PlantUML files
(add-to-list 'auto-mode-alist '("\\.plantuml\\'" . plantuml-mode)) (add-to-list 'auto-mode-alist '("\\.plantuml\\'" . plantuml-mode))
@@ -988,7 +1033,9 @@ DIFF:
) )
;; Dirvish config ;; Dirvish config
(after! dirvish (after! (dirvish dired)
(require 'async)
(dired-async-mode 1)
;; Display icons, file size, timestamps, etc. ;; Display icons, file size, timestamps, etc.
(setq dirvish-attributes (setq dirvish-attributes
'(nerd-icons '(nerd-icons
@@ -1021,7 +1068,10 @@ DIFF:
("d" "~/Downloads/" "Downloads") ("d" "~/Downloads/" "Downloads")
("u" "/run/media" "Mounted drives") ("u" "/run/media" "Mounted drives")
("t" "~/.local/share/Trash/files/" "Trash") ("t" "~/.local/share/Trash/files/" "Trash")
))) ))
(setq dirvish-yank-use-rsync t)
(setq dirvish-yank-rsync-args '("-ah" "--info=progress2"))
)
;; Use `p` to open the yank menu ;; Use `p` to open the yank menu
(map! :after dirvish-yank (map! :after dirvish-yank
@@ -1475,7 +1525,7 @@ Returns nil if no range found (safe, non-blocking)."
(all-resolved t)) (all-resolved t))
(when (and (string-match "ids(\\(.*?\\))" clean) (when (and (string-match "ids(\\(.*?\\))" clean)
(not (string-empty-p (s-trim (match-string 1 clean))))) (not (string-empty-p (s-trim (match-string 1 clean)))))
(dolist (tid (split-string (match-string 1 clean) "[ ,]+" t)) (dolist (tid (split-string (match-string 1 clean) "[[:space:],]+" t))
(let* ((clean-id (replace-regexp-in-string "[\"']\\|id: " "" tid)) (let* ((clean-id (replace-regexp-in-string "[\"']\\|id: " "" tid))
(pos (org-id-find clean-id t)) (pos (org-id-find clean-id t))
(computed-end (gethash clean-id task-end-map)) (computed-end (gethash clean-id task-end-map))
@@ -1497,6 +1547,9 @@ Returns nil if no range found (safe, non-blocking)."
;; Priority 2: Use range end if FIXED ;; Priority 2: Use range end if FIXED
((string-equal "t" (org-entry-get nil "FIXED")) ((string-equal "t" (org-entry-get nil "FIXED"))
(gortium/org--get-range-end m)) (gortium/org--get-range-end m))
;; Priority 3: Fallback to existing range end if it exists
((gortium/org--get-range-end m)
(gortium/org--get-range-end m))
(t nil)))))) (t nil))))))
(t nil))) (t nil)))
@@ -1707,10 +1760,27 @@ Returns list of task IDs involved in cycles, or nil if no cycles found."
(push task done-this-loop)))))))) (push task done-this-loop))))))))
(setq remaining (cl-set-difference remaining done-this-loop)))) (setq remaining (cl-set-difference remaining done-this-loop))))
;; --- DIAGNOSTICS FOR UNSCHEDULED TASKS ---
(if remaining
(progn
(message "!!! WARNING: %d tasks were NOT scheduled !!!" (length remaining))
(dolist (task remaining)
(pcase-let ((`(,_buf ,pos ,id ,_eff ,blocker ,_fix ,_sch ,_off) task))
(let* ((blocker-string (format "%s" blocker))
(clean-blocker (if (string-match "ids(\\(.*?\\))" blocker-string)
(match-string 1 blocker-string)
"None")))
(message " -> Task [%s] at pos %s is BLOCKED by: %s"
id (marker-position pos) clean-blocker)))))
(message "=== All tasks scheduled successfully! ==="))
;; 3. CLEANUP ;; 3. CLEANUP
(setq org-element-use-cache t) (setq org-element-use-cache t)
(org-element-cache-reset 'all) (org-element-cache-reset 'all)
(message "=== Scheduler completed (%d tasks, %d iterations) ===" (length all-tasks) iter)))) (message "=== Scheduler completed (%d tasks, %d iterations) ===" (length all-tasks) iter)
;; (gortium/org-rollup-parent-ranges)
;; (message "=== All Scheduling and Roll-ups Complete ===")
)))
;; --------------------------------------------- ;; ---------------------------------------------
(defun gortium/org-ensure-task-properties () (defun gortium/org-ensure-task-properties ()
@@ -1937,13 +2007,3 @@ fallback to today's daily note. Ensures the daily has an Org-roam ID."
(message "Task refiled under '%s' in %s" (message "Task refiled under '%s' in %s"
headline headline
(file-name-nondirectory daily-file))))) (file-name-nondirectory daily-file)))))
;; Org-edna for advanced task dependencies
(use-package! org-edna
:after org
:config
(setq org-edna-use-inheritance t)
(org-edna-mode 1)
(map! :map org-mode-map
:localleader
:desc "Edit Edna rules" "E" #'org-edna-edit))