Evalprime/breezewiki
1
0
Fork 0
forked from cadence/breezewiki
Code Pull requests Activity

precompile regexp patterns

Browse source
This commit is contained in:
Artemis Everfree 2023-03-22 21:45:09 -07:00 • committed by Cadence Ember
parent 3f1946a3b8
commit f5529ed12a
Signed by untrusted user: cadence
GPG key ID: BC1C2C61CF521B17
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/tree-updater.rkt
View file

@ -66,6 +66,11 @@
(iframe (@ (src "https://example.com/iframe-src"))))))) (iframe (@ (src "https://example.com/iframe-src")))))))
(define (updater wikiname #:strict-proxy? [strict-proxy? #f]) (define (updater wikiname #:strict-proxy? [strict-proxy? #f])
;; precompute wikiurl regex for efficency
(define wikiurl-regex (pregexp (format "^https://(~a)\\.fandom\\.com(/wiki/.*)$" px-wikiname)))
;; precompute link replacement string for efficiency
(define wiki-substitution (format "/~a\\1" wikiname))
(define classlist-updater (define classlist-updater
(compose1 (compose1
; uncollapse all navbox items (bottom of page mass navigation) ; uncollapse all navbox items (bottom of page mass navigation)
@ -110,8 +115,8 @@
(curry attribute-maybe-update 'href (curry attribute-maybe-update 'href
(λ (href) (λ (href)
((compose1 ((compose1
(λ (href) (regexp-replace #rx"^(/wiki/.*)" href (format "/~a\\1" wikiname))) (λ (href) (regexp-replace #rx"^(/wiki/.*)$" href wiki-substitution))
(λ (href) (regexp-replace (pregexp (format "^https://(~a)\\.fandom\\.com(/wiki/.*)" px-wikiname)) href "/\\1\\2"))) (λ (href) (regexp-replace wikiurl-regex href "/\\1\\2")))
href))) href)))
; add noreferrer to a.image ; add noreferrer to a.image
(curry u (curry u