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

scribble: Rename attribute pltdoc -> data-pltdoc, which is valid in HTML5.

Browse Source 
(pltdoc isn't valid in any version of HTML.)

original commit: 5a216cc4ce2b789f4f6cd6c7f1dd4d44099fb325
This commit is contained in:
Samuel Bronson 2012-10-13 18:39:35 -04:00 committed by Matthew Flatt
parent b647bf3ad8
commit fa69afbe71
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -420,7 +420,7 @@
[class ,(if (or (eq? t d) (and show-mine? (memq t toc-chain))) [class ,(if (or (eq? t d) (and show-mine? (memq t toc-chain)))
"tocviewselflink" "tocviewselflink"
"tocviewlink")] "tocviewlink")]
[pltdoc "x"]) [data-pltdoc "x"])
,@(render-content (or (part-title-content t) '("???")) d ri))) ,@(render-content (or (part-title-content t) '("???")) d ri)))
(format-number (collected-info-number (part-collected-info t ri)) (format-number (collected-info-number (part-collected-info t ri))
'(nbsp)))) '(nbsp))))
@ -610,7 +610,7 @@
[(part? p) "tocsubseclink"] [(part? p) "tocsubseclink"]
[any-parts? "tocsubnonseclink"] [any-parts? "tocsubnonseclink"]
[else "tocsublink"])] [else "tocsublink"])]
[pltdoc "x"]) [data-pltdoc "x"])
,@(render-content ,@(render-content
(if (part? p) (if (part? p)
(or (part-title-content p) (or (part-title-content p)
@ -813,7 +813,7 @@
url)) url))
(make-attributes (make-attributes
`([title . ,(if title* (string-append label " to " title*) label)] `([title . ,(if title* (string-append label " to " title*) label)]
[pltdoc . "x"] [data-pltdoc . "x"]
,@more))))) ,@more)))))
(define top-link (define top-link
(titled-url (titled-url
@ -1150,7 +1150,7 @@
;; Normal link: ;; Normal link:
(dest->url dest)])) (dest->url dest)]))
,@(attribs) ,@(attribs)
[pltdoc "x"]] [data-pltdoc "x"]]
,@(if (empty-content? (element-content e)) ,@(if (empty-content? (element-content e))
(render-content (strip-aux (dest-title dest)) part ri) (render-content (strip-aux (dest-title dest)) part ri)
(render-content (element-content e) part ri)))) (render-content (element-content e) part ri))))

2
collects/scribble/scribble-common.js
View File

@ -26,7 +26,7 @@ function GetPageArg(key, def) {
function MergePageArgsIntoLink(a) { function MergePageArgsIntoLink(a) {
if (page_args.length == 0 || if (page_args.length == 0 ||
(!a.attributes["pltdoc"]) || (a.attributes["pltdoc"].value == "")) (!a.attributes["data-pltdoc"]) || (a.attributes["data-pltdoc"].value == ""))
return; return;
a.href.search(/^([^?#]*)(?:\?([^#]*))?(#.*)?$/); a.href.search(/^([^?#]*)(?:\?([^#]*))?(#.*)?$/);
if (RegExp.$2.length == 0) { if (RegExp.$2.length == 0) {