suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

downcase index entries

Browse Source 
svn: r10007
This commit is contained in:
Eli Barzilay 2008-05-28 18:58:25 +00:00
parent 748943eac8
commit 347b8bee28
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribblings/main/private/make-search.ss
View File

@ -49,9 +49,10 @@
;; (and (exported-index-desc? desc) ;; (and (exported-index-desc? desc)
;; (list (exported-index-desc-name desc) ;; (list (exported-index-desc-name desc)
;; (exported-index-desc-from-libs desc))) ;; (exported-index-desc-from-libs desc)))
;; Note: using ~s to have javascript-quoted strings
(format "~a[~s, ~s, ~s]" (format "~a[~s, ~s, ~s]"
(if (eq? i (car l)) "" ",\n") (if (eq? i (car l)) "" ",\n")
(string-join texts " ") (string-downcase (string-join texts " "))
href href
html))) html)))
@script[#:noscript @list{Sorry, you must have JavaScript to use this page.}]{ @script[#:noscript @list{Sorry, you must have JavaScript to use this page.}]{