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: |
92c5d475658a1a21fc200b5d6f13df40 |
| 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 |
(if sbbs-open-at-last-post
(sbbs-goto-end)
(goto-char (point-min))))))))
;;; INTERACTIVE FUNCTIONS
(defun sbbs-show-all ()
"Show all hidden posts."
(interactive)
(sbbs-show-pop -1))
(defun sbbs-show-pop (&optional n)
"Show all hidden posts.
|
> > > > > > > |
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.
|