Overview
| Comment: | fixed revert buffer bug in thread buffers |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
25999f9e22da597491e373a43a24e81c |
| User & Date: | philip@warpmail.net on 2020-02-26 22:23:35 |
| Other Links: | branch diff | manifest | tags |
Context
|
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 | |
| 22:22 | stopped filling paragraphs after manual line break check-in: 50b5a3c4bd user: philip@warpmail.net tags: master, trunk | |
Changes
Modified sbbs.el from [5ad14f783c] to [63b5169aec].
287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 |
;; 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 (substring-no-properties
(aref (tabulated-list-get-entry ) 2)))
(board sbbs--board)
(buf (get-buffer-create
(format "*loading /%s/%d*"
(sbbs--board-name sbbs--board)
id))))
(with-current-buffer buf
(sbbs-read-mode)
(setq header-line-format (format "Thread %d: %s" id headline)
sbbs--board board
sbbs--thread-id id))
(url-retrieve url #'sbbs--thread-loader (list id buf))
(switch-to-buffer buf)))
(defun sbbs-view-compose ()
"Create buffer to start a new thread."
(interactive)
|
> > | | > | | |
287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 |
;; 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 "*loading /%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 sbbs--thread-id id)) (url-retrieve url #'sbbs--thread-loader (list id buf)) (switch-to-buffer buf))) (defun sbbs-view-compose () "Create buffer to start a new thread." (interactive) |