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: |
093b218ae8d11efcf0325f4049a083bb |
| 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 |
(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 text '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)
|
> | |
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)
'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)
|