sbbs.el

Check-in [b0f8109722]
Login
Overview
Comment:Make sbbs-read-board prompt easier to use
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | master | trunk
Files: files | file ages | folders
SHA3-256: b0f8109722d7419fee9c5216f7e51094423b3fe277a0a324c207734a7b2598de
User & Date: zge on 2021-01-22 17:08:47
Other Links: branch diff | manifest | tags
Context
2021-03-09
21:16
Bind TAB to forward-button check-in: 9d746ddc9a user: zge tags: master, trunk
2021-01-22
17:08
Make sbbs-read-board prompt easier to use check-in: b0f8109722 user: zge tags: master, trunk
2021-01-19
15:39
Add sbbs-goto-end for jumping to the end of a thread check-in: 99f8459c8b user: zge tags: master, trunk
Changes

Modified sbbs.el from [c6978dc733] to [7cb8f67ab8].

154
155
156
157
158
159
160
161
162
163



164
165
166
167
168
169
170
154
155
156
157
158
159
160



161
162
163
164
165
166
167
168
169
170







-
-
-
+
+
+







    (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))
      (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))