Overview
| Comment: | Don't kill random buffer after parsing response |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ba466181bd729fd919b3f408bdc33042 |
| User & Date: | zge on 2021-05-29 12:45:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-05-29
| ||
| 12:45 | Disable recenter-to-top by default check-in: e70b45d979 user: zge tags: master, trunk | |
| 12:45 | Don't kill random buffer after parsing response check-in: ba466181bd user: zge tags: master, trunk | |
| 12:39 | Kill buffer after parsing response check-in: 88a124bbee user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [dcc35df79d] to [d697b54718].
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
...
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
|
(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)))))
(kill-buffer))
(defun sbbs--thread-loader (status id buf range)
"Callback function for `url-retrieve' when loading thread.
The attribute ID determines what thread from board BOARD to
load. STATUS is used to check for errors."
(when (buffer-live-p buf)
................................................................................
(dolist (post (cadr (assq 'posts thread)))
(sbbs--thread-insert-post post))
(delete-blank-lines)
(when range
(sbbs--limit-to-range range))
(if sbbs-open-at-last-post
(sbbs-goto-end)
(goto-char (point-min)))))))
(kill-buffer))
;; INTERACTIVE FUNCTIONS
(defun sbbs-show-all ()
"Show all hidden posts."
(interactive)
(sbbs-show-pop -1))
|
|
<
|
<
|
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
...
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
|
(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.
The attribute ID determines what thread from board BOARD to
load. STATUS is used to check for errors."
(when (buffer-live-p buf)
................................................................................
(dolist (post (cadr (assq 'posts thread)))
(sbbs--thread-insert-post post))
(delete-blank-lines)
(when range
(sbbs--limit-to-range range))
(if sbbs-open-at-last-post
(sbbs-goto-end)
(goto-char (point-min))))))))
;; INTERACTIVE FUNCTIONS
(defun sbbs-show-all ()
"Show all hidden posts."
(interactive)
(sbbs-show-pop -1))
|