Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Handling periods in tags when extracting the first doc sentence.

Browse source
This commit is contained in:
Alex Shinn 2015-05-03 08:39:00 +09:00
parent f71d3e18bd
commit 7fa00eb48a
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/chibi/snow/commands.scm
View file

@ -365,7 +365,10 @@
(else '())))) (else '()))))
(define package-description (define package-description
(let ((sent-re (regexp '(: "<p>" (* "\n") (* space) ($ (* (~ ("."))) ".")))) (let ((sent-re (regexp '(: "<p>" (* "\n") (* space)
($ (* (or (: "<" (* (~ (">"))) ">")
(~ ("<."))))
"."))))
(space-re (regexp '(or (: (* space) "\n" (* space)) (>= 2 space)))) (space-re (regexp '(or (: (* space) "\n" (* space)) (>= 2 space))))
(tag-re (regexp '(: "<" (? "/") (* (~ ("<>"))) ">")))) (tag-re (regexp '(: "<" (? "/") (* (~ ("<>"))) ">"))))
(lambda (cfg spec libs docs) (lambda (cfg spec libs docs)