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