sbbs.el

Check-in [093b218ae8]
Login
Overview
Comment:use variable-pitch face for links
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | master | trunk
Files: files | file ages | folders
SHA3-256: 093b218ae8d11efcf0325f4049a083bb71cdaf4a6beadffff86a1d6ae890e08b
User & Date: philip@warpmail.net on 2020-05-05 19:49:38
Other Links: branch diff | manifest | tags
Context
2020-05-26
10:35
updated board list check-in: 3836dcc4c0 user: philip@warpmail.net tags: master, trunk
2020-05-05
19:49
use variable-pitch face for links check-in: 093b218ae8 user: philip@warpmail.net tags: master, trunk
19:49
added formatting functions for compose-mode check-in: 9cf3c77a3c user: philip@warpmail.net tags: master, trunk
Changes

Modified sbbs.el from [a69b270c46] to [8f395ca288].

257
258
259
260
261
262
263

264

265
266
267
268
269
270
271
257
258
259
260
261
262
263
264

265
266
267
268
269
270
271
272







+
-
+







                              (sbbs-view-open id range)))
                           ;; other thread
                           ((/= id sbbs--thread-id)
                            (let ((sbbs--board board))
                              (sbbs-view-open id range)))
                           ;; this thread
                           (range (sbbs--limit-to-range range))))))
        (insert-button (propertize text  'face 'variable-pitch)
        (insert-button text 'action func 'sbbs-ref range)))))
                       'action func 'sbbs-ref range)))))

(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)