Update generated emacs config
This commit is contained in:
@@ -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))
|
|
||||||
|
|||||||
Reference in New Issue
Block a user