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: |
df55ff629320007ff74a6d0db095ab30 |
| 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 |
"/" (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))
| > > | | | 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
|
| ︙ | ︙ |