sbbs.el

Check-in [df55ff6293]
Login
Overview
Comment:Fixed URL handeling with ","-ranges
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | master | trunk
Files: files | file ages | folders
SHA3-256: df55ff629320007ff74a6d0db095ab301aac3a57b433f10a9421f58d9a48e026
User & Date: zge on 2020-06-18 13:11:24
Other Links: branch diff | manifest | tags
Context
2020-10-07
17:09
Add separate face for post headers check-in: aa9e221e24 user: zge tags: master, trunk
2020-06-18
13:11
Fixed URL handeling with ","-ranges check-in: df55ff6293 user: zge tags: master, trunk
2020-06-08
10:26
Fix sbbs-compose-format when mark is before point check-in: a9ee28fa6d user: zge tags: master, trunk
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Modified sbbs.el from [75ce247893] to [e334160be5].

218
219
220
221
222
223
224


225
226
227
228
229
230
231
232
233
              "/" (group-n 4 (: (+ digit) (? "-" (+ digit)))
                           (* "," (+ digit) (? "-" (+ digit)))))
           (: "http" (? "s") "://"
              (group-n 1 (or ,@(mapcar #'sbbs--board-domain
                                       (sbbs--list-boards))))
              "/" (group-n 2 (+ alnum))
              "/" (group-n 3 (+ digit))


              (? "#t" (backref 3)
                 "p" (group-n 4 (+ digit)))))
       eos))
  "Regular expression to destruct internal links.")

(defun sbbs--limit-to-range (spec &optional no-push-p)
  "Hide all posts in the current thread, that aren't in SPEC.

Unless NO-PUSH-P is non-nil, SPEC will be pushed onto







>
>
|
|







218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
              "/" (group-n 4 (: (+ digit) (? "-" (+ digit)))
                           (* "," (+ digit) (? "-" (+ digit)))))
           (: "http" (? "s") "://"
              (group-n 1 (or ,@(mapcar #'sbbs--board-domain
                                       (sbbs--list-boards))))
              "/" (group-n 2 (+ alnum))
              "/" (group-n 3 (+ digit))
              (? (or (: "/" (group-n 4 (: (+ digit) (? "-" (+ digit)))
                                     (* "," (+ digit) (? "-" (+ digit)))))
                     (: "#t" (backref 3)
                        "p" (group-n 4 (+ digit)))))))
       eos))
  "Regular expression to destruct internal links.")

(defun sbbs--limit-to-range (spec &optional no-push-p)
  "Hide all posts in the current thread, that aren't in SPEC.

Unless NO-PUSH-P is non-nil, SPEC will be pushed onto