Differences From Artifact [e87c43e082]:
- File sbbs.el — part of check-in [aa9e221e24] at 2020-10-07 17:09:51 on branch master — Add separate face for post headers (user: zge, size: 26737) [annotate] [blame] [check-ins using]
To Artifact [53a852f77e]:
- File sbbs.el — part of check-in [43bf3542e7] at 2020-10-07 17:19:49 on branch master — Add a "/" as initial content when prompting to open a board (user: zge, size: 26737) [annotate] [blame] [check-ins using]
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)
|