Overview
| Comment: | Add a "/" as initial content when prompting to open a board |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
43bf3542e75391e5699bc7cff4769160 |
| User & Date: | zge on 2020-10-07 17:19:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-12-16
| ||
| 12:13 | Don't break compatibility with emacs -nw check-in: 3b3f5a4071 user: zge tags: master, trunk | |
|
2020-10-07
| ||
| 17:19 | Add a "/" as initial content when prompting to open a board check-in: 43bf3542e7 user: zge tags: master, trunk | |
| 17:09 | Add separate face for post headers check-in: aa9e221e24 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [e87c43e082] to [53a852f77e].
161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 |
boards))
(let ((choice (completing-read
(if def
(format "Board (default %s/%s): "
(sbbs--board-domain def)
(sbbs--board-name def))
"Board: ")
boards nil nil nil nil def)))
(if (stringp choice)
(cdr (assoc choice boards))
choice))))
;; UTILITY FUNCTIONS
(defun sbbs--reload-thread (&optional _ignore-auto _noconfirm)
|
| |
161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 |
boards))
(let ((choice (completing-read
(if def
(format "Board (default %s/%s): "
(sbbs--board-domain def)
(sbbs--board-name def))
"Board: ")
boards nil nil "/" nil def)))
(if (stringp choice)
(cdr (assoc choice boards))
choice))))
;; UTILITY FUNCTIONS
(defun sbbs--reload-thread (&optional _ignore-auto _noconfirm)
|