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