Commits

Moritz Heidkamp  committed 28b439f

Make auto-link work with uppercase letters, too

  • Participants
  • Parent commits 4d53a6e

Comments (0)

Files changed (1)

File lowdown-impl.scm

 (define auto-link-email
   (sequence* ((_ (preceded-by (is #\<) (maybe (char-seq "mailto:"))))
               (email (-> (sequence
-                           (one-or-more (in #[-a-za-z0-9+_./!%~$]))
+                           (one-or-more (in #[-a-zA-Z0-9+_./!%~$]))
                            (is #\@)
                            (one-or-more (none-of* new-line (is #\>) item)))
                          (as-string)))
 
 (define auto-link-url
   (sequence* ((_ (is #\<))
-              (uri (-> (sequence (one-or-more (in #[a-za-z]))
+              (uri (-> (sequence (one-or-more (in #[a-zA-Z]))
                                  (char-seq "://")
                                  (-> (none-of* new-line (is #\>) item)
                                      (one-or-more)))