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 154 (dolist (b (sbbs--list-boards)) 155 155 (when (and sbbs-default-board 156 156 (string= (sbbs--board-domain b) 157 157 (car sbbs-default-board)) 158 158 (string= (sbbs--board-name b) 159 159 (cdr sbbs-default-board))) 160 160 (setq def b)) 161 - (push (cons (format "/%s/ (%s)" 162 - (sbbs--board-name b) 163 - (sbbs--board-domain b)) 161 + (push (cons (format "%s/%s/" 162 + (sbbs--board-domain b) 163 + (sbbs--board-name b)) 164 164 b) 165 165 boards)) 166 166 (let ((choice (completing-read 167 167 (if def 168 168 (format "Board (default %s/%s): " 169 169 (sbbs--board-domain def) 170 170 (sbbs--board-name def))