sbbs.el

Diff
Login

Differences From Artifact [75ce247893]:

To Artifact [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