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

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

218
219
220
221
222
223
224


225
226


227
228
229
230
231
232
233
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)))))
                     (: "#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