sbbs.el: Diff

Differences From Artifact [730ca416cd]:

File sbbs.el — part of check-in [f577027486] at 2021-05-28 11:59:37 on branch master — Avoid arithmetic error in sbbs-compose-format (user: zge, size: 28956) [annotate] [blame] [check-ins using]

To Artifact [0404974fcc]:

File sbbs.el — part of check-in [57ac49ce55] at 2021-05-28 12:00:22 on branch master — Remove debugging (message ...) from sbbs--process-sxml (user: zge, size: 28934) [annotate] [blame] [check-ins using]

                              (sbbs-view-open id range)))
                           ;; this thread
                           (range (sbbs--limit-to-range range))))))
        (propertize text 'action func 'sbbs-ref range)))))

(defun sbbs--process-sxml (sxml)
  "Process SXML into a formatted string."
  (message "%S" sxml)
  (let (processed)
    (dolist (it (if (listp sxml) sxml (list sxml)))
      (push (cond ((stringp it)
                   (propertize it 'face 'sbbs--variable-pitch))
                  ((eq (car it) 'br)
                   "\n")
                  ((eq (car it) 'b)

                              (sbbs-view-open id range)))
                           ;; this thread
                           (range (sbbs--limit-to-range range))))))
        (propertize text 'action func 'sbbs-ref range)))))

(defun sbbs--process-sxml (sxml)
  "Process SXML into a formatted string."

  (let (processed)
    (dolist (it (if (listp sxml) sxml (list sxml)))
      (push (cond ((stringp it)
                   (propertize it 'face 'sbbs--variable-pitch))
                  ((eq (car it) 'br)
                   "\n")
                  ((eq (car it) 'b)