Overview
| Comment: | Only generate "other" board when link matches regexp Fixes [ed8a04be6b] |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ae851a4d20809d858475e5893563a3e8 |
| User & Date: | zge on 2020-06-06 16:06:18 |
| Other Links: | branch diff | manifest | tags |
References
|
2020-06-06
| ||
| 16:09 | • Fixed ticket [ed8a04be6b]: Error is thrown when rendering some links plus 5 other changes artifact: e8742dc99f user: zge | |
Context
|
2020-06-06
| ||
| 16:28 | Fix sbbs-compose-format on when region is active See http://textboard.org/prog/81/49 check-in: d5347562aa user: zge tags: master, trunk | |
| 16:06 | Only generate "other" board when link matches regexp Fixes [ed8a04be6b] check-in: ae851a4d20 user: zge tags: master, trunk | |
|
2020-06-05
| ||
| 21:38 | Use Shift-JIS font for text if installed check-in: 5ffdf5dd20 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [47b32ff1b0] to [676c904eb1].
| ︙ | ︙ | |||
240 241 242 243 244 245 246 |
(defun sbbs--insert-link (text link)
"Insert link to LINK as TEXT into buffer.
If LINK is a (board, thread or site) local link, modify opening
behaviour accordingly."
(save-match-data
(let ((match (string-match sbbs--link-regexp link))
| | | > > > > < < < | 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 |
(defun sbbs--insert-link (text link)
"Insert link to LINK as TEXT into buffer.
If LINK is a (board, thread or site) local link, modify opening
behaviour accordingly."
(save-match-data
(let ((match (string-match sbbs--link-regexp link))
range id other)
(when match
(when (match-string 4 link)
(setq range (sbbs--parse-number-range (match-string 4 link) 300)))
(setq id (string-to-number (match-string 3 link)))
(setq other (sbbs-make-board
(match-string 1 link)
(match-string 2 link)
(string-match-p "\\`https://" link))))
(let* ((board sbbs--board)
(domain (sbbs--board-domain board))
(name (sbbs--board-name board))
(func (lambda (&optional _)
(cond ((not match) (browse-url link))
;; other supported board
((or (and (sbbs--board-domain other)
(not (string= (sbbs--board-domain other)
domain)))
(not (string= name (sbbs--board-name other))))
|
| ︙ | ︙ |