Overview
| Comment: | stopped renaming thread buffers from "loading..." to "reading..." |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
42800999ca0419547bb5d310759f216d |
| User & Date: | philip@warpmail.net on 2020-02-26 22:23:57 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-02-27
| ||
| 23:53 | removed author and url from package header check-in: e61fee62a1 user: philip@warpmail.net tags: master, trunk | |
|
2020-02-26
| ||
| 22:23 | stopped renaming thread buffers from "loading..." to "reading..." check-in: 42800999ca user: philip@warpmail.net tags: master, trunk | |
| 22:23 | fixed revert buffer bug in thread buffers check-in: 25999f9e22 user: philip@warpmail.net tags: master, trunk | |
Changes
Modified sbbs.el from [63b5169aec] to [cff74e11bf].
| ︙ | ︙ | |||
276 277 278 279 280 281 282 |
(erase-buffer)
(setq header-line-format
(format "Thread %d: %s" id
(cdr (assq 'headline thread))))
(dolist (post (cadr (assq 'posts thread)))
(sbbs--thread-insert-post post))
(delete-blank-lines)
| | < < < | | 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 |
(erase-buffer)
(setq header-line-format
(format "Thread %d: %s" id
(cdr (assq 'headline thread))))
(dolist (post (cadr (assq 'posts thread)))
(sbbs--thread-insert-post post))
(delete-blank-lines)
(goto-char (point-min)))))))
;; INTERACTIVE FUNCTIONS
(defun sbbs-view-open (id)
"Open thread ID in new buffer."
(interactive (list (tabulated-list-get-id)))
(let ((url (sbbs--board-url (format "/%d" id) t))
(headline (or (and (not (tabulated-list-get-entry))
header-line-format)
(substring-no-properties
(aref (tabulated-list-get-entry) 2))))
(board sbbs--board)
(buf (get-buffer-create
(format "*reading /%s/%d*"
(sbbs--board-name sbbs--board)
id))))
(with-current-buffer buf
(sbbs-read-mode)
(when headline
(setq header-line-format (format "Thread %d: %s" id headline)))
(setq sbbs--board board
|
| ︙ | ︙ |