sbbs.el

Check-in [ae851a4d20]
Login
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: ae851a4d20809d858475e5893563a3e8326f0b5a3a71ab408b90eba08006d18f
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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))))