diff options
Diffstat (limited to 'pearl.el')
| -rw-r--r-- | pearl.el | 31 |
1 files changed, 31 insertions, 0 deletions
@@ -4063,6 +4063,36 @@ provenance advances on a refresh." (when (re-search-forward "^#\\+LINEAR-TRUNCATED: .*$" nil t) (replace-match (format "#+LINEAR-TRUNCATED: %s" (if truncated "yes" "no")) t t)))) +(defun pearl--update-derived-todo-header (states) + "Rewrite the buffer's `#+TODO:' line from the final headings plus STATES. +Scans every Linear issue heading (carrying `LINEAR-ID') for its TODO keyword +and `:LINEAR-STATE-TYPE:' drawer, unions those with STATES (the fetched teams' +states, see `pearl--gather-header-states'), and rewrites the line via +`pearl--derive-todo-line'. Scanning the final buffer -- not just the fetched +issue list -- keeps retained / skipped dirty subtrees declared. A heading with +no state-type drawer (a legacy render) is classified by `org-done-keywords'. +Creates the line after `#+STARTUP:' if it is absent." + (save-excursion + (let (scanned) + (goto-char (point-min)) + (while (re-search-forward "^\\*+ " nil t) + (when (org-entry-get nil "LINEAR-ID") + (let ((kw (org-get-todo-state)) + (type (org-entry-get nil "LINEAR-STATE-TYPE"))) + (when kw + (push (list :name kw + :type (cond ((and type (not (string-empty-p type))) type) + ((member kw org-done-keywords) "completed") + (t nil))) + scanned))))) + (let ((line (pearl--derive-todo-line (append states (nreverse scanned))))) + (goto-char (point-min)) + (if (re-search-forward "^#\\+TODO: .*$" nil t) + (replace-match (format "#+TODO: %s" line) t t) + (when (re-search-forward "^#\\+STARTUP: .*$" nil t) + (end-of-line) + (insert (format "\n#+TODO: %s" line)))))))) + (defun pearl--merge-query-result (result source) "Merge a query RESULT into the current buffer by `LINEAR-ID', tagged with SOURCE. The same-source refresh counterpart to `pearl--render-query-result': rather than @@ -4083,6 +4113,7 @@ of the replace path." (truncated (pearl--query-result-truncated-p result)) (counts (pearl--merge-issues-into-buffer issues))) (pearl--update-source-header (length issues) truncated) + (pearl--update-derived-todo-header (pearl--gather-header-states issues)) (pearl-highlight-comments) (pearl--restore-page-visibility) (pearl--surface-buffer (current-buffer)) |