sbbs.el

Check-in [25999f9e22]
Login
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: 25999f9e22da597491e373a43a24e81cdb8add455853f779b0d16962b10f4c75
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)