sbbs.el

Check-in [88a124bbee]
Login
Overview
Comment:Kill buffer after parsing response
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | master | trunk
Files: files | file ages | folders
SHA3-256: 88a124bbee06d4c1d89303c45b6101ea90db345ef89399f979ae0b2f9d71b272
User & Date: zge on 2021-05-29 12:39:51
Other Links: branch diff | manifest | tags
Context
2021-05-29
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
2021-05-28
12:04
Require text-property-search check-in: 5bade98968 user: zge tags: master, trunk
Changes

Modified sbbs.el from [d697b54718] to [dcc35df79d].

458
459
460
461
462
463
464
465


466
467
468
469
470
471
472
458
459
460
461
462
463
464

465
466
467
468
469
470
471
472
473







-
+
+







                                 (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))))))
          (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)
497
498
499
500
501
502
503
504


505
506
507
508
509
510
511
498
499
500
501
502
503
504

505
506
507
508
509
510
511
512
513







-
+
+







          (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))))))))
            (goto-char (point-min)))))))
  (kill-buffer))

 ;; INTERACTIVE FUNCTIONS

(defun sbbs-show-all ()
  "Show all hidden posts."
  (interactive)
  (sbbs-show-pop -1))