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 240 (defun sbbs--insert-link (text link) 241 241 "Insert link to LINK as TEXT into buffer. 242 242 243 243 If LINK is a (board, thread or site) local link, modify opening 244 244 behaviour accordingly." 245 245 (save-match-data 246 246 (let ((match (string-match sbbs--link-regexp link)) 247 - range id) 247 + range id other) 248 248 (when match 249 249 (when (match-string 4 link) 250 250 (setq range (sbbs--parse-number-range (match-string 4 link) 300))) 251 - (setq id (string-to-number (match-string 3 link)))) 251 + (setq id (string-to-number (match-string 3 link))) 252 + (setq other (sbbs-make-board 253 + (match-string 1 link) 254 + (match-string 2 link) 255 + (string-match-p "\\`https://" link)))) 252 256 (let* ((board sbbs--board) 253 257 (domain (sbbs--board-domain board)) 254 258 (name (sbbs--board-name board)) 255 - (other (sbbs-make-board (match-string 1 link) 256 - (match-string 2 link) 257 - (string-match-p "\\`https://" link))) 258 259 (func (lambda (&optional _) 259 260 (cond ((not match) (browse-url link)) 260 261 ;; other supported board 261 262 ((or (and (sbbs--board-domain other) 262 263 (not (string= (sbbs--board-domain other) 263 264 domain))) 264 265 (not (string= name (sbbs--board-name other))))