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

scribble/html-render: comment nits

Browse Source 
original commit: e157041497046471cbd4bcb3e65259380d997fea
This commit is contained in:
Samuel Bronson 2012-10-16 11:50:21 -04:00 committed by Matthew Flatt
parent 066db6a0b4
commit 61454baac0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/scribble/html-render.rkt
View File

@ -96,8 +96,8 @@
;; HTML anchors should be case-insensitively unique. To make them ;; HTML anchors should be case-insensitively unique. To make them
;; distinct, add a "." in front of capital letters. Also clean up ;; distinct, add a "." in front of capital letters. Also clean up
;; characters that give browers trouble (i.e., the ones that are not ;; characters that give browsers trouble (i.e., the ones that are not
;; allowed as-in in URI codecs) by using "~" followed by a hex ;; allowed as-is in URI components) by using "~" followed by a hex
;; encoding. (The idea is that the result is still readable, so the ;; encoding. (The idea is that the result is still readable, so the
;; link can be used as a rough indication of where you'll get to.) ;; link can be used as a rough indication of where you'll get to.)
(define (anchor-name v) (define (anchor-name v)
@ -152,8 +152,8 @@
a)) a))
a)))) a))))
;; combine a 'class attribute from both cl and al ;; combine a 'class attribute from both `cl' and `al'
;; if cl starts with one ;; if `cl' starts with one
(define (combine-class cl al) (define (combine-class cl al)
(cond (cond
[(and (pair? cl) [(and (pair? cl)
@ -223,8 +223,8 @@
(inherit-field prefix-file style-file style-extra-files) (inherit-field prefix-file style-file style-extra-files)
(init-field [alt-paths null] (init-field [alt-paths null]
;; up-path is either a link "up", or #t which uses ;; `up-path' is either a link "up", or #t which goes
;; goes to start page (using cookies to get to the ;; to the start page (using cookies to get to the
;; user start page). If it's a path, then it's also ;; user start page). If it's a path, then it's also
;; used for the "top" link on the page. ;; used for the "top" link on the page.
[up-path #f] [up-path #f]