sbbs.el: Diff

Differences From Artifact [cec0dbd9ca]:

File sbbs.el — part of check-in [9ba0256b5c] at 2020-02-26 22:17:08 on branch master — removed risky flag from sbbs-boards (user: philip@warpmail.net, size: 15713) [annotate] [blame] [check-ins using]

To Artifact [5ad14f783c]:

File sbbs.el — part of check-in [50b5a3c4bd] at 2020-02-26 22:22:49 on branch master — stopped filling paragraphs after manual line break (user: philip@warpmail.net, size: 15685) [annotate] [blame] [check-ins using]


(defun sbbs--insert-sxml-par (sxml)
  "Insert paragraph contents SXML at point."
  (dolist (it sxml)
    (cond ((stringp it)
           (insert (propertize it 'face 'variable-pitch)))
          ((eq (car it) 'br)
           (fill-paragraph)
           (newline))
          ((eq (car it) 'b)
           (insert (propertize (cadr it) 'face '(bold variable-pitch))))
          ((eq (car it) 'i)
           (insert (propertize (cadr it) 'face '(italic variable-pitch))))
          ((eq (car it) 'code)
           (insert (propertize (cadr it) 'face 'fixed-pitch)))


(defun sbbs--insert-sxml-par (sxml)
  "Insert paragraph contents SXML at point."
  (dolist (it sxml)
    (cond ((stringp it)
           (insert (propertize it 'face 'variable-pitch)))
          ((eq (car it) 'br)

           (newline))
          ((eq (car it) 'b)
           (insert (propertize (cadr it) 'face '(bold variable-pitch))))
          ((eq (car it) 'i)
           (insert (propertize (cadr it) 'face '(italic variable-pitch))))
          ((eq (car it) 'code)
           (insert (propertize (cadr it) 'face 'fixed-pitch)))