suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Handle Chinese Hanzi, Hiragana and Katakana in tag

Browse Source
This commit is contained in:
Wei Tang 2017-01-24 14:17:02 +08:00 committed by Matthew Flatt
parent b07234e8ee
commit 640488bab1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scribble-lib/scribble/base.rkt
View File

@ -44,7 +44,12 @@
(define (gen-tag content) (define (gen-tag content)
(datum-intern-literal (datum-intern-literal
(regexp-replace* "[^-a-zA-Z0-9_=]" (content->string content) "_"))) ;; Generate tag from ASCII plus CJK characters. Constraining to
;; ASCII for most purposes helps avoid encoding issues for
;; uncooperative environments, but constraining to ASCII is too
;; uncooperative in another direction for CJK text (i.e., creates
;; too many conflicting tags).
(regexp-replace* #px"[^-a-zA-Z0-9_=\u4e00-\u9fff\u3040-\u309F\u30A0-\u30FF]" (content->string content) "_")))
(define (prefix->string p) (define (prefix->string p)
(and p (if (string? p) (and p (if (string? p)