artemis/breezewiki
1
0
Fork 0
forked from cadence/breezewiki
Code Issues Pull requests 2 Projects Releases Packages Wiki Activity

optimizations #1

Open
artemis wants to merge 2 commits from optimizations into main
pull from: optimizations
merge into: artemis:main
Conversation 0 Commits 2 Files changed 2 +3 -1
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 2694eb7245 - Show all commits

4
lib/xexpr-utils.rkt
View file

@ -190,7 +190,9 @@
'(body "Hey" (& nbsp) (a (@ (href "/")))))) '(body "Hey" (& nbsp) (a (@ (href "/"))))))
(define (has-class? name attributes) (define (has-class? name attributes)
(and (member name (string-split (or (get-attribute 'class attributes) "") " ")) #t)) ; splitting without specifying separator or splitting on #px"\\s+" makes
; string-split use a faster whitespace-specialized implementation.
(and (member name (string-split (or (get-attribute 'class attributes) "") #px"\\s+")) #t))
(module+ test (module+ test
(check-true (has-class? "red" '((class "yellow red blue")))) (check-true (has-class? "red" '((class "yellow red blue"))))
(check-false (has-class? "red" '((class "yellow blue")))) (check-false (has-class? "red" '((class "yellow blue"))))