path: root/lisp/forgejo-buffer.el

;;; forgejo-buffer.el --- Shared display and rendering utilities  -*- lexical-binding: t; -*-

;; Copyright (C) 2026  Free Software Foundation, Inc.

;; Author: Thanos Apollo <public@thanosapollo.org>
;; Keywords: extensions

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:

;; Shared display logic for issues and pull requests: faces, formatting
;; helpers, EWOC pretty-printers, and markdown rendering.

;;; Code:

(require 'cl-lib)
(require 'ewoc)
(require 'forgejo)

(defvar forgejo-repo--host)
(defvar forgejo-repo--owner)
(defvar forgejo-repo--name)

;;; Keymap injection

(defvar-local forgejo-buffer--action-map nil
  "Keymap for interactive text regions (refs, commits, reviews, etc.).
Consumers pass a keymap via `forgejo-buffer-setup' so that rendering
stays decoupled from interactive behavior.")

(defun forgejo-buffer-setup (action-map)
  "Initialize current buffer for forgejo rendering.
ACTION-MAP is the keymap attached to interactive text regions."
  (setq forgejo-buffer--action-map action-map))

;;; Faces

(defface forgejo-number-face
  '((t :inherit shadow))
  "Face for issue/PR numbers."
  :group 'forgejo)

(defface forgejo-open-face
  '((t :inherit success))
  "Face for open issue/PR state."
  :group 'forgejo)

(defface forgejo-closed-face
  '((t :inherit shadow))
  "Face for closed issue/PR state."
  :group 'forgejo)

(defface forgejo-label-face
  '((t :weight bold))
  "Base face for labels."
  :group 'forgejo)

(defface forgejo-comment-author-face
  '((t :inherit font-lock-constant-face))
  "Face for comment author names."
  :group 'forgejo)

(defface forgejo-event-face
  '((t :inherit shadow :slant italic))
  "Face for timeline events (close, label, assign, etc.)."
  :group 'forgejo)

(defface forgejo-separator-face
  '((default :inherit org-hide)
    (((background light)) :strike-through "gray70")
    (t :strike-through "gray30"))
  "Face for separator lines between comments."
  :group 'forgejo)

(defface forgejo-blockquote-face
  '((t :inherit font-lock-doc-face :slant italic))
  "Face for quoted text (blockquotes) in comments."
  :group 'forgejo)

;;; Formatting helpers

(defun forgejo-buffer--format-state (state)
  "Propertize STATE string with appropriate face."
  (propertize state 'face
              (if (string= state "open")
                  'forgejo-open-face
                'forgejo-closed-face)))

(defun forgejo-buffer--readable-color (hex)
  "Adjust HEX color for readability against the current background.
Lightens dark colors on dark themes, darkens light colors on light themes."
  (let* ((hex (replace-regexp-in-string "^#" "" hex))
         (r (/ (string-to-number (substring hex 0 2) 16) 255.0))
         (g (/ (string-to-number (substring hex 2 4) 16) 255.0))
         (b (/ (string-to-number (substring hex 4 6) 16) 255.0))
         (lum (+ (* 0.299 r) (* 0.587 g) (* 0.114 b)))
         (dark-bg (eq (frame-parameter nil 'background-mode) 'dark)))
    (if dark-bg
        (if (< lum 0.4)
            (format "#%02x%02x%02x"
                    (min 255 (round (* (+ r 0.4) 255)))
                    (min 255 (round (* (+ g 0.4) 255)))
                    (min 255 (round (* (+ b 0.4) 255))))
          (concat "#" hex))
      (if (> lum 0.7)
          (format "#%02x%02x%02x"
                  (round (* r 0.6 255))
                  (round (* g 0.6 255))
                  (round (* b 0.6 255)))
        (concat "#" hex)))))

(defun forgejo-buffer--format-labels (labels)
  "Format LABELS alist into a propertized string."
  (if (and labels (listp labels))
      (mapconcat
       (lambda (label)
         (let ((name (alist-get 'name label))
               (color (alist-get 'color label)))
           (if color
               (propertize name 'face
                           (list :foreground
                                 (forgejo-buffer--readable-color color)
                                 :weight 'bold))
             (propertize name 'face 'forgejo-label-face))))
       labels ", ")
    ""))

(defun forgejo-buffer--relative-time (time-string)
  "Convert TIME-STRING to a relative time description."
  (if (or (null time-string) (string-empty-p time-string))
      ""
    (let* ((time (date-to-time time-string))
           (diff (float-time (time-subtract nil time))))
      (cond
       ((< diff 60) "just now")
       ((< diff 3600) (format "%dm ago" (floor (/ diff 60))))
       ((< diff 86400) (format "%dh ago" (floor (/ diff 3600))))
       ((< diff 604800) (format "%dd ago" (floor (/ diff 86400))))
       ((< diff 2592000) (format "%dw ago" (floor (/ diff 604800))))
       (t (format-time-string "%Y-%m-%d" time))))))

(defun forgejo-buffer--login (user-alist)
  "Extract login from USER-ALIST, handling :null safely."
  (when (listp user-alist)
    (alist-get 'login user-alist)))

(defun forgejo-buffer--clean-body (body)
  "Strip carriage returns from BODY text.
Returns nil if BODY is :null, nil, or empty."
  (when (and body (stringp body) (not (string-empty-p body)))
    (replace-regexp-in-string "\r" "" body)))

(defun forgejo-buffer--linkify-refs (start end)
  "Mark bare #N issue/PR references between START and END as clickable.
Skips positions already handled by shr or markdown link rendering.
Sets `forgejo-ref-number' for `forgejo-view-follow-link' to use."
  (save-excursion
    (goto-char start)
    (while (re-search-forward
            "\\(?:\\([A-Za-z0-9._-]+/[A-Za-z0-9._-]+\\)\\)?#\\([0-9]+\\)" end t)
      (unless (or (get-text-property (match-beginning 0) 'forgejo-ref-number)
                  (get-text-property (match-beginning 0) 'keymap))
        (add-text-properties
         (match-beginning 0) (match-end 0)
         (list 'forgejo-ref-number (string-to-number (match-string 2))
               'forgejo-ref-repo (match-string 1)
               'face 'link
               'mouse-face 'highlight
               'help-echo "RET: view this issue/PR"))))))

(defun forgejo-buffer--linkify-commits (start end)
  "Mark bare commit SHAs between START and END as clickable.
Matches 7-40 character hex strings at word boundaries."
  (save-excursion
    (goto-char start)
    (while (re-search-forward
            "\\_<\\([0-9a-f]\\{7,40\\}\\)\\_>" end t)
      (unless (or (get-text-property (match-beginning 1) 'forgejo-commit-sha)
                  (get-text-property (match-beginning 1) 'keymap))
        (add-text-properties
         (match-beginning 1) (match-end 1)
         (list 'forgejo-commit-sha (match-string 1)
               'face 'link
               'mouse-face 'highlight
               'help-echo "RET: view commit"
               'keymap forgejo-buffer--action-map))))))

(defun forgejo-buffer--url-at-point ()
  "Return the URL at point.
Tries `markdown-link-url' if available, otherwise `thing-at-point'."
  (or (and (fboundp 'markdown-link-url) (markdown-link-url))
      (thing-at-point 'url)))

;;; Body rendering

(defconst forgejo-buffer--body-separator "\n\0\n"
  "Separator used to join bodies for batch fontification.
Uses a null byte that won't appear in markdown text.")

(defun forgejo-buffer--fontify-bodies (bodies)
  "Fontify all BODIES in a single temp buffer using `forgejo-markdown-mode'.
Returns a list of fontified strings in the same order.
Much faster than fontifying each body in a separate buffer."
  (if (null bodies)
      nil
    (let ((sep forgejo-buffer--body-separator))
      (with-temp-buffer
        (insert "\n" (mapconcat #'identity bodies sep))
        (funcall forgejo-markdown-mode)
        (font-lock-ensure)
        (split-string (buffer-substring (+ (point-min) 1) (point-max))
                      sep)))))

(defun forgejo-buffer--insert-body (body)
  "Insert BODY into the current buffer.
BODY should already be fontified (via `forgejo-buffer--fontify-bodies')
or a plain string."
  (when (and body (stringp body) (not (string-empty-p body)))
    (let ((start (point)))
      (insert body "\n")
      (forgejo-buffer--linkify-refs start (point))
      (forgejo-buffer--linkify-commits start (point)))))

;;; Separator

(defun forgejo-buffer--insert-separator ()
  "Insert a full-width strike-through separator line."
  (insert "\n"
          (propertize " " 'display '(space :width text)
                      'face 'forgejo-separator-face)
          "\n"))

;;; Edited indicator

(defun forgejo-buffer--insert-edited-indicator ()
  "Insert a styled (edited) indicator at point."
  (insert " "
          (propertize "(edited)"
                      'face 'shadow
                      'mouse-face 'highlight
                      'help-echo "RET: view edit history"
                      'keymap forgejo-buffer--action-map)))

;;; EWOC pretty-printers

(defun forgejo-buffer--pp (node-data)
  "Pretty-print NODE-DATA for the detail EWOC.
NODE-DATA is a plist with :type and type-specific keys."
  (let ((type (plist-get node-data :type)))
    (pcase type
      ('header (forgejo-buffer--pp-header node-data))
      ('comment (forgejo-buffer--pp-comment node-data))
      ('review-link (forgejo-buffer--pp-review-link node-data))
      ('event (forgejo-buffer--pp-event node-data)))))

(defun forgejo-buffer--pp-header (data)
  "Render the issue/PR header from DATA plist."
  (let ((title (plist-get data :title))
        (state (plist-get data :state))
        (author (plist-get data :author))
        (number (plist-get data :number))
        (body (plist-get data :body))
        (labels (plist-get data :labels))
        (milestone (plist-get data :milestone))
        (assignees (plist-get data :assignees))
        (created (plist-get data :created-at))
        (edited (plist-get data :edited))
        (comments-count (plist-get data :comments-count)))
    (insert (propertize (format "#%d " number) 'face 'bold)
            (propertize title 'face 'bold)
            "\n")
    (insert (forgejo-buffer--format-state state)
            "  "
            (propertize author 'face 'forgejo-comment-author-face)
            " opened " (forgejo-buffer--relative-time created))
    (when edited
      (forgejo-buffer--insert-edited-indicator))
    (insert (format "  [%d comments]" (or comments-count 0))
            "\n")
    (when (and labels (listp labels))
      (insert "Labels: " (forgejo-buffer--format-labels labels) "\n"))
    (when milestone
      (insert "Milestone: " milestone "\n"))
    (when (and assignees (listp assignees))
      (insert "Assignees: "
              (mapconcat (lambda (a) (alist-get 'login a)) assignees ", ")
              "\n"))
    (forgejo-buffer--insert-separator)
    (when body
      (insert (propertize author 'face 'forgejo-comment-author-face)
              "\n\n")
      (forgejo-buffer--insert-body body)
      (forgejo-buffer--insert-separator))))

(defun forgejo-buffer--pp-comment (data)
  "Render a comment from DATA plist."
  (let ((author (plist-get data :author))
        (body (plist-get data :body))
        (created (plist-get data :created-at))
        (updated (plist-get data :updated-at)))
    (insert (propertize author 'face 'forgejo-comment-author-face)
            (propertize (concat " commented " (forgejo-buffer--relative-time created))
                        'face 'shadow))
    (when (and created updated (not (string= created updated)))
      (forgejo-buffer--insert-edited-indicator))
    (insert "\n\n")
    (forgejo-buffer--insert-body body)
    (forgejo-buffer--insert-separator)))

(defun forgejo-buffer--pp-event (data)
  "Render a timeline event from DATA plist."
  (let ((event-type (plist-get data :event-type))
        (actor (plist-get data :actor))
        (created (plist-get data :created-at))
        (detail (plist-get data :detail))
        (deadline (plist-get data :deadline))
        (label-color (plist-get data :label-color))
        (ref-number (plist-get data :ref-number))
        (ref-commit (plist-get data :ref-commit))
        (commits (plist-get data :commits))
        (compare-range (plist-get data :compare-range)))
    ;; Actor in author face, verb in event face
    (insert (propertize actor 'face 'forgejo-comment-author-face)
            " "
            (if compare-range
                (concat
                 (propertize event-type
                             'face 'link
                             'mouse-face 'highlight
                             'forgejo-compare-range compare-range
                             'help-echo "RET: view force-push diff"
                             'keymap forgejo-buffer--action-map)
                 " ")
              (propertize (concat event-type " ")
                          'face (pcase event-type
                                  ("closed" 'forgejo-closed-face)
                                  ("reopened" 'forgejo-open-face)
                                  ("merged" 'success)
                                  (_ 'forgejo-event-face)))))
    ;; Detail: deadline, label with color, ref with link, or plain
    (cond
     (deadline
      (insert (propertize deadline 'face '(bold underline))))
     ((and detail ref-number)
      (insert (propertize detail
                          'face 'link
                          'mouse-face 'highlight
                          'forgejo-ref-number ref-number
                          'forgejo-ref-repo (plist-get data :ref-repo)
                          'help-echo "RET: view this issue/PR"
                          'keymap forgejo-buffer--action-map)))
     ((and detail ref-commit)
      (insert (propertize detail
                          'face '(forgejo-event-face :underline t)
                          'mouse-face 'highlight
                          'forgejo-commit-sha ref-commit
                          'help-echo "RET: view diff"
                          'keymap forgejo-buffer--action-map)))
     ((and detail label-color)
      (insert (propertize detail
                          'face (list :foreground
                                      (forgejo-buffer--readable-color
                                       label-color)
                                      :weight 'bold))))
     (detail
      (insert (propertize detail 'face 'forgejo-event-face))))
    ;; Timestamp in shadow
    (insert (propertize (format " %s\n"
                                (forgejo-buffer--relative-time created))
                        'face 'shadow))
    ;; Commit links
    (when commits
      (dolist (sha commits)
        (insert "  "
                (propertize (substring sha 0 (min 8 (length sha)))
                            'face '(forgejo-event-face :underline t)
                            'mouse-face 'highlight
                            'forgejo-commit-sha sha
                            'help-echo "RET: view diff"
                            'keymap forgejo-buffer--action-map)
                "\n")))
    (forgejo-buffer--insert-separator)))

;;; EWOC node builder

(declare-function forgejo-review--summary "forgejo-review.el"
                  (review-id timeline))

;;; Event node builders (pure: event alist -> node plist or nil)

(defun forgejo-buffer--node-comment (event actor)
  "Build a comment node from EVENT with ACTOR."
  (list :type 'comment
        :id (alist-get 'id event)
        :author actor
        :body (alist-get 'body event)
        :created-at (alist-get 'created_at event)
        :updated-at (alist-get 'updated_at event)))

(defun forgejo-buffer--node-state-change (event actor)
  "Build a state change node (close/reopen) from EVENT with ACTOR."
  (list :type 'event
        :event-type (pcase (alist-get 'type event)
                      ("close" "closed")
                      ("reopen" "reopened")
                      (type type))
        :actor actor
        :created-at (alist-get 'created_at event)
        :detail nil))

(defun forgejo-buffer--node-label (event actor)
  "Build a label event node from EVENT with ACTOR."
  (let* ((removed (or (string-empty-p (or (alist-get 'body event) ""))
                      (equal (alist-get 'body event) "0")))
         (label (alist-get 'label event)))
    (list :type 'event
          :event-type (if removed "removed label" "added label")
          :actor actor
          :created-at (alist-get 'created_at event)
          :detail (when (listp label) (alist-get 'name label))
          :label-color (when (listp label) (alist-get 'color label)))))

(defun forgejo-buffer--node-assignees (event actor)
  "Build an assignee event node from EVENT with ACTOR."
  (list :type 'event
        :event-type (if (eq (alist-get 'removed_assignee event) t)
                        "unassigned" "assigned")
        :actor actor
        :created-at (alist-get 'created_at event)
        :detail (forgejo-buffer--login (alist-get 'assignee event))))

(defun forgejo-buffer--node-pull-push (event actor)
  "Build a push event node from EVENT with ACTOR."
  (let* ((body-str (alist-get 'body event))
         (push-data (when (and body-str (stringp body-str))
                      (condition-case nil
                          (json-parse-string body-str
                                             :object-type 'alist
                                             :array-type 'list)
                        (error nil))))
         (commit-ids (when push-data (alist-get 'commit_ids push-data)))
         (force-p (when push-data (eq (alist-get 'is_force_push push-data) t))))
    (if force-p
        (list :type 'event
              :event-type "force pushed"
              :actor actor
              :created-at (alist-get 'created_at event)
              :compare-range (cons (nth 0 commit-ids) (nth 1 commit-ids)))
      (list :type 'event
            :event-type "pushed"
            :actor actor
            :created-at (alist-get 'created_at event)
            :commits commit-ids
            :detail (format "%d commit%s"
                            (length commit-ids)
                            (if (= (length commit-ids) 1) "" "s"))))))

(defun forgejo-buffer--node-ref (event actor)
  "Build a reference event node from EVENT with ACTOR."
  (let* ((ref-issue (alist-get 'ref_issue event))
         (ref-number (when (listp ref-issue) (alist-get 'number ref-issue)))
         (ref-repo (when (listp ref-issue)
                     (let ((repo (alist-get 'repository ref-issue)))
                       (when (listp repo)
                         (alist-get 'full_name repo)))))
         (ref-sha (alist-get 'ref_commit_sha event)))
    (cond
     ;; Commit reference: SHA as clickable detail
     ((and ref-sha (not (string-empty-p ref-sha)) (null ref-number))
      (list :type 'event
            :event-type "referenced this on"
            :actor actor
            :created-at (alist-get 'created_at event)
            :ref-commit ref-sha
            :detail (substring ref-sha 0 (min 8 (length ref-sha)))))
     ;; Issue/PR reference: #N as clickable detail
     (ref-number
      (list :type 'event
            :event-type "referenced this on"
            :actor actor
            :created-at (alist-get 'created_at event)
            :ref-number ref-number
            :ref-repo ref-repo
            :detail (if ref-repo
                        (format "%s#%d" ref-repo ref-number)
                      (format "#%d" ref-number))))
     ;; Fallback
     (t
      (list :type 'event
            :event-type "referenced"
            :actor actor
            :created-at (alist-get 'created_at event)
            :detail nil)))))

(defun forgejo-buffer--node-deadline (event actor)
  "Build a deadline event node from EVENT with ACTOR."
  (let ((type (alist-get 'type event)))
    (list :type 'event
          :event-type (pcase type
                        ("added_deadline" "set deadline")
                        ("modified_deadline" "changed deadline")
                        ("removed_deadline" "removed deadline"))
          :actor actor
          :created-at (alist-get 'created_at event)
          :deadline (unless (string= type "removed_deadline")
                      (alist-get 'body event)))))

(defun forgejo-buffer--node-review (event actor timeline)
  "Build review node(s) from EVENT with ACTOR using TIMELINE for context.
Returns a list of nodes (may be multiple for review with threads)."
  (let* ((body (alist-get 'body event))
         (review-id (alist-get 'review_id event))
         (threads (forgejo-review--summary review-id timeline)))
    (cond
     (threads
      (list (list :type 'review-link
                  :review-id review-id
                  :actor actor
                  :created-at (alist-get 'created_at event)
                  :threads threads
                  :body (when (and body (not (string-empty-p body)))
                          body))))
     ((and body (not (string-empty-p body)))
      (list (list :type 'comment
                  :id (alist-get 'id event)
                  :author actor
                  :body body
                  :created-at (alist-get 'created_at event))))
     (t
      (list (list :type 'event
                  :event-type "reviewed"
                  :actor actor
                  :created-at (alist-get 'created_at event)
                  :detail nil))))))

(defun forgejo-buffer--node-simple-event (event actor event-type)
  "Build a simple event node from EVENT with ACTOR and EVENT-TYPE."
  (list :type 'event
        :event-type event-type
        :actor actor
        :created-at (alist-get 'created_at event)
        :detail nil))

(defun forgejo-buffer--node-dependency (event actor)
  "Build a dependency event node from EVENT with ACTOR."
  (let* ((dep (alist-get 'dependent_issue event))
         (dep-number (when (listp dep) (alist-get 'number dep)))
         (dep-title (when (listp dep) (alist-get 'title dep))))
    (list :type 'event
          :event-type (if (string= (alist-get 'type event) "add_dependency")
                          "added dependency" "removed dependency")
          :actor actor
          :created-at (alist-get 'created_at event)
          :ref-number dep-number
          :detail (when dep-number
                    (format "#%d %s" dep-number (or dep-title ""))))))

(defun forgejo-buffer--node-metadata (event actor)
  "Build a metadata change node (milestone, review_request, etc.) from EVENT."
  (let ((type (alist-get 'type event)))
    (pcase type
      ("review_request"
       (let ((target (or (let ((a (alist-get 'assignee event)))
                           (when (and (listp a) (not (equal a "null")))
                             (alist-get 'login a)))
                         (let ((team (alist-get 'assignee_team event)))
                           (when (and (listp team) (not (equal team "null")))
                             (format "team/%s" (alist-get 'name team)))))))
         (list :type 'event
               :event-type "requested review from"
               :actor actor
               :created-at (alist-get 'created_at event)
               :detail target)))
      ("milestone"
       (let* ((ms (let ((m (alist-get 'milestone event)))
                    (when (listp m) (alist-get 'title m))))
              (removed (string-empty-p (or (alist-get 'body event) ""))))
         (list :type 'event
               :event-type (if removed "removed milestone" "set milestone")
               :actor actor
               :created-at (alist-get 'created_at event)
               :detail ms)))
      ("change_issue_ref"
       (list :type 'event
             :event-type "changed ref"
             :actor actor
             :created-at (alist-get 'created_at event)
             :detail (format "%s -> %s"
                             (if (string-empty-p (or (alist-get 'old_ref event) ""))
                                 "(none)" (alist-get 'old_ref event))
                             (or (alist-get 'new_ref event) "?"))))
      ("change_title"
       (list :type 'event
             :event-type "renamed"
             :actor actor
             :created-at (alist-get 'created_at event)
             :detail (format "\"%s\" -> \"%s\""
                             (or (alist-get 'old_title event) "?")
                             (or (alist-get 'new_title event) "?")))))))

;;; Main node builder

(defun forgejo-buffer--build-event-node (event actor timeline)
  "Build a node plist for EVENT with ACTOR.  TIMELINE for review context.
Returns a node plist, a list of nodes, or nil to skip."
  (pcase (alist-get 'type event)
    ("comment"     (forgejo-buffer--node-comment event actor))
    ((or "close" "reopen") (forgejo-buffer--node-state-change event actor))
    ("label"       (forgejo-buffer--node-label event actor))
    ("assignees"   (forgejo-buffer--node-assignees event actor))
    ("pull_push"   (forgejo-buffer--node-pull-push event actor))
    ((or "pull_ref" "issue_ref" "commit_ref" "comment_ref")
     (forgejo-buffer--node-ref event actor))
    ((or "added_deadline" "modified_deadline" "removed_deadline")
     (forgejo-buffer--node-deadline event actor))
    ("review"      (forgejo-buffer--node-review event actor timeline))
    ("review_comment" nil)
    ((or "add_dependency" "remove_dependency")
     (forgejo-buffer--node-dependency event actor))
    ("merge_pull"  (forgejo-buffer--node-simple-event event actor "merged"))
    ("delete_branch" (forgejo-buffer--node-simple-event event actor "deleted branch"))
    ((or "review_request" "milestone" "change_issue_ref" "change_title")
     (forgejo-buffer--node-metadata event actor))
    (type (when type
            (forgejo-buffer--node-simple-event event actor type)))))

(defun forgejo-buffer--build-nodes (issue-data timeline)
  "Build EWOC node plists from ISSUE-DATA and TIMELINE.
Both should be alists from the DB.  Bodies are batch-fontified
in a single `gfm-view-mode' pass for performance."
  (let ((nodes nil))
    ;; Header node
    (let-alist issue-data
      (push (list :type 'header
                  :number .number
                  :title .title
                  :state .state
                  :author (or (forgejo-buffer--login .user) "unknown")
                  :body .body
                  :labels (when (listp .labels) .labels)
                  :milestone (when (listp .milestone)
                               (alist-get 'title .milestone))
                  :assignees (when (listp .assignees) .assignees)
                  :created-at .created_at
                  :updated-at .updated_at
                  :comments-count .comments
                  :edited (and .previous_body t))
            nodes))
    ;; Timeline nodes
    (dolist (event timeline)
      (let* ((actor (or (forgejo-buffer--login (alist-get 'user event)) "system"))
             (result (forgejo-buffer--build-event-node event actor timeline)))
        (cond
         ((and (listp result) (listp (car result)))
          (dolist (node result) (push node nodes)))
         (result
          (push result nodes)))))
    (setq nodes (nreverse nodes))
    ;; Batch-fontify all bodies in one pass
    (forgejo-buffer--fontify-node-bodies nodes)
    nodes))

(defun forgejo-buffer--fontify-node-bodies (nodes)
  "Batch-fontify :body in all NODES that have one.
Replaces raw markdown with fontified text in place."
  (let (indices bodies)
    ;; Collect bodies and their positions
    (cl-loop for node in nodes
             for i from 0
             for body = (forgejo-buffer--clean-body (plist-get node :body))
             when body do
             (push i indices)
             (push body bodies))
    (when bodies
      (setq bodies (nreverse bodies))
      (setq indices (nreverse indices))
      (let ((fontified (forgejo-buffer--fontify-bodies bodies)))
        (cl-loop for idx in indices
                 for text in fontified
                 do (plist-put (nth idx nodes) :body text))))))

;;; Utilities for detail views

(defun forgejo-buffer--node-at-point (ewoc)
  "Return the data plist of the EWOC node at point, or nil."
  (when-let* ((node (ewoc-locate ewoc)))
    (ewoc-data node)))

;;; Header line

(defun forgejo-buffer--header-line (data)
  "Build a `header-line-format' string from issue/PR DATA alist."
  (let-alist data
    (let ((labels (when (listp .labels)
                    (forgejo-buffer--format-labels .labels)))
          (assignees (when (listp .assignees)
                       (mapconcat (lambda (a) (alist-get 'login a))
                                  .assignees ", "))))
      (concat (propertize (format " #%d" .number) 'face 'forgejo-number-face)
              " "
              (propertize (or .state "") 'face
                          (if (string= .state "open")
                              'forgejo-open-face 'forgejo-closed-face))
              "  "
              (propertize (or .title "") 'face 'bold)
              (when (and labels (not (string-empty-p labels)))
                (concat "  " labels))
              (when (and assignees (not (string-empty-p assignees)))
                (concat "  " (propertize assignees 'face 'shadow)))))))

;;; Diff hunk rendering

(defun forgejo-buffer--insert-diff-hunk (hunk-text)
  "Insert HUNK-TEXT with diff faces applied per line."
  (when (and hunk-text (stringp hunk-text) (not (string-empty-p hunk-text)))
    (let ((start (point)))
      (insert hunk-text)
      (unless (eq (char-before) ?\n) (insert "\n"))
      (save-excursion
        (goto-char start)
        (while (< (point) (point-max))
          (let ((face (cond
                       ((looking-at-p "^\\+") 'diff-added)
                       ((looking-at-p "^-")   'diff-removed)
                       ((looking-at-p "^@@")  'diff-hunk-header))))
            (when face
              (put-text-property (line-beginning-position)
                                 (line-end-position) 'face face)))
          (forward-line 1))))))

;;; Review link rendering

(defun forgejo-buffer--pp-review-link (data)
  "Render a review with thread links from DATA plist."
  (let ((actor (plist-get data :actor))
        (created (plist-get data :created-at))
        (threads (plist-get data :threads))
        (review-id (plist-get data :review-id))
        (body (plist-get data :body)))
    (insert (propertize actor 'face 'forgejo-comment-author-face)
            (propertize (concat " reviewed " (forgejo-buffer--relative-time created))
                        'face 'shadow)
            "\n")
    (dolist (thread threads)
      (let ((count (plist-get thread :count))
            (path (plist-get thread :path))
            (resolved (plist-get thread :resolved)))
        (insert "  "
                (propertize (format "[%d comment%s on %s]"
                                    (or count 0)
                                    (if (= (or count 0) 1) "" "s")
                                    (or (file-name-nondirectory (or path "")) "?"))
                            'face '(link :underline t)
                            'mouse-face 'highlight
                            'forgejo-review-id review-id
                            'forgejo-review-path path
                            'forgejo-review-position (plist-get thread :position)
                            'forgejo-review-opos (plist-get thread :original-position)
                            'help-echo "RET: view review thread"
                            'keymap forgejo-buffer--action-map)
                " "
                (if resolved
                    (propertize "(resolved)" 'face 'success)
                  (propertize "(unresolved)" 'face 'warning))
                "\n")))
    (when body
      (forgejo-buffer--insert-body body))
    (forgejo-buffer--insert-separator)))

(provide 'forgejo-buffer)
;;; forgejo-buffer.el ends here