Overview
Comment: | Use Shift-JIS font for text if installed |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
5ffdf5dd20d7a3255e1b218f14abbfe8 |
User & Date: | zge on 2020-06-05 21:38:45 |
Other Links: | branch diff | manifest | tags |
Context
2020-06-06
| ||
16:06 | Only generate "other" board when link matches regexp Fixes [ed8a04be6b] check-in: ae851a4d20 user: zge tags: master, trunk | |
2020-06-05
| ||
21:38 | Use Shift-JIS font for text if installed check-in: 5ffdf5dd20 user: zge tags: master, trunk | |
20:45 | Fixed non-ASCII encoding issues check-in: 17bd3b2661 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [cec4081882] to [47b32ff1b0].
︙ | ︙ | |||
63 64 65 66 67 68 69 70 71 72 73 74 75 76 | "Face for spoiler text in threads.") (defface sbbs--code-face '((((background light)) :background "gray89" :extend t) (((background dark)) :background "gray11" :extend t)) "Face for code blocks in threads.") ;; VARIABLES (defvar-local sbbs--board nil "Buffer local reference to current board. See `sbbs-make-board'.") | > > > > > > > | 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | "Face for spoiler text in threads.") (defface sbbs--code-face '((((background light)) :background "gray89" :extend t) (((background dark)) :background "gray11" :extend t)) "Face for code blocks in threads.") (defface sbbs--variable-pitch (if (x-list-fonts "Mona-") '((nil :font "Mona" :inherit variable-pitch)) '((nil :inherit variable-pitch))) "Face for code blocks in threads.") ;; VARIABLES (defvar-local sbbs--board nil "Buffer local reference to current board. See `sbbs-make-board'.") |
︙ | ︙ | |||
259 260 261 262 263 264 265 | (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)))))) | | | | | | 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 | (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 'sbbs--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 'sbbs--variable-pitch))) ((eq (car it) 'br) (newline)) ((eq (car it) 'b) (insert (propertize (cadr it) 'face '(bold sbbs--variable-pitch)))) ((eq (car it) 'i) (insert (propertize (cadr it) 'face '(italic sbbs--variable-pitch)))) ((eq (car it) 'code) (insert (propertize (cadr it) 'face 'fixed-pitch))) ((eq (car it) 'del) (insert (propertize (cadr it) 'face 'sbbs--spoiler-face))) ((eq (car it) 'a) (let* ((text (caddr it)) (link (plist-get (cadadr it) 'href))) |
︙ | ︙ | |||
384 385 386 387 388 389 390 | (push (list (car thread) (vector (substring (cdr (assq 'date (cdr thread))) 0 16) (number-to-string (cdr (assq 'messages (cdr thread)))) (propertize (cdr (assq 'headline (cdr thread))) | | | 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 | (push (list (car thread) (vector (substring (cdr (assq 'date (cdr thread))) 0 16) (number-to-string (cdr (assq 'messages (cdr thread)))) (propertize (cdr (assq 'headline (cdr thread))) 'face 'sbbs--variable-pitch))) ent)) (setq-local tabulated-list-entries ent) (tabulated-list-print t t) (hl-line-highlight)))))) (defun sbbs--thread-loader (status id buf range) "Callback function for `url-retrieve' when loading thread. |
︙ | ︙ |