sbbs.el

Check-in [92c5d47565]
Login
Overview
Comment:Add sbbs-open-externally command
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | master | trunk
Files: files | file ages | folders
SHA3-256: 92c5d475658a1a21fc200b5d6f13df40d2cc2f475c2b68dc83ef9905dbb519c8
User & Date: philip on 2022-01-22 18:12:35
Other Links: branch diff | manifest | tags
Context
2022-01-22
18:27
Add support for VIP-posting check-in: 46949449f3 user: zge tags: master, trunk
18:12
Add sbbs-open-externally command check-in: 92c5d47565 user: philip tags: master, trunk
2021-05-29
14:28
Fix outlines check-in: 80dcfa319c user: zge tags: master, trunk
Changes

Modified sbbs.el from [deeb5b67a8] to [187923b54c].

508
509
510
511
512
513
514







515
516
517
518
519
520
521
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528







+
+
+
+
+
+
+







          (if sbbs-open-at-last-post
              (sbbs-goto-end)
            (goto-char (point-min))))))))


;;; INTERACTIVE FUNCTIONS

(defun sbbs-open-externally ()
  "Open the current thread using `browse-url'."
  (interactive)
  (unless sbbs--thread-id
    (user-error "No thread to open"))
  (browse-url (sbbs--board-url sbbs--thread-id)))

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

(defun sbbs-show-pop (&optional n)
  "Show all hidden posts.