sbbs.el: Diff

Differences From Artifact [c6978dc733]:

File sbbs.el — part of check-in [99f8459c8b] at 2021-01-19 15:39:17 on branch master — Add sbbs-goto-end for jumping to the end of a thread (user: zge, size: 27306) [annotate] [blame] [check-ins using]

To Artifact [7cb8f67ab8]:

File sbbs.el — part of check-in [b0f8109722] at 2021-01-22 17:08:47 on branch master — Make sbbs-read-board prompt easier to use (user: zge, size: 27303) [annotate] [blame] [check-ins using]

    (dolist (b (sbbs--list-boards))
      (when (and sbbs-default-board
                 (string= (sbbs--board-domain b)
                          (car sbbs-default-board))
                 (string= (sbbs--board-name b)
                          (cdr sbbs-default-board)))
        (setq def b))
      (push (cons (format "/%s/ (%s)"
                          (sbbs--board-name b)
                          (sbbs--board-domain b))
                  b)
            boards))
    (let ((choice (completing-read
                   (if def
                       (format "Board (default %s/%s): "
                               (sbbs--board-domain def)
                               (sbbs--board-name def))








|
|
|

    (dolist (b (sbbs--list-boards))
      (when (and sbbs-default-board
                 (string= (sbbs--board-domain b)
                          (car sbbs-default-board))
                 (string= (sbbs--board-name b)
                          (cdr sbbs-default-board)))
        (setq def b))
      (push (cons (format "%s/%s/"
                          (sbbs--board-domain b)
                          (sbbs--board-name b))
                  b)
            boards))
    (let ((choice (completing-read
                   (if def
                       (format "Board (default %s/%s): "
                               (sbbs--board-domain def)
                               (sbbs--board-name def))