From 7fa00eb48a8b722ca11697308cac07bdb9935676 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Sun, 3 May 2015 08:39:00 +0900
Subject: [PATCH] Handling periods in tags when extracting the first doc
 sentence.

---
 lib/chibi/snow/commands.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm
index 1c8e4b5d..d0b485dc 100644
--- a/lib/chibi/snow/commands.scm
+++ b/lib/chibi/snow/commands.scm
@@ -365,7 +365,10 @@
      (else '()))))
 
 (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))))
         (tag-re (regexp '(: "<" (? "/") (* (~ ("<>"))) ">"))))
     (lambda (cfg spec libs docs)