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
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)
        (headline (substring-no-properties
                   (aref (tabulated-list-get-entry ) 2)))
                      (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)
            sbbs--board board
        (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)