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

meta/new-web: fix #:html-only? keyword arguments

Browse Source
This commit is contained in:
Matthew Flatt 2014-04-03 07:14:04 -06:00
parent 120d17fccc
commit 1cda4e4f83
4 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/plt-services/meta/new-web/stubs/dirlist.rkt
View File

@ -13,7 +13,7 @@
(lazy (regexp-split #rx"{{{BODY}}}" (lazy (regexp-split #rx"{{{BODY}}}"
(xml->string @page[#:site dirlist-site (xml->string @page[#:site dirlist-site
#:id 'browse-downloads #:id 'browse-downloads
#:html-only #t #:html-only? #t
#:part-of 'download #:part-of 'download
"{{{BODY}}}"])))) "{{{BODY}}}"]))))

2
pkgs/plt-services/meta/new-web/stubs/git.rkt
View File

@ -21,7 +21,7 @@
(lazy (cdr (or (regexp-match (lazy (cdr (or (regexp-match
;; extract just the meat between the <body>...</body> ;; extract just the meat between the <body>...</body>
#rx"<body[^<>]*>(.*?){{{BODY}}}(.*?)</body>" #rx"<body[^<>]*>(.*?){{{BODY}}}(.*?)</body>"
(xml->string @page[#:site git-site #:id 'git #:html-only #t "{{{BODY}}}"])) (xml->string @page[#:site git-site #:id 'git #:html-only? #t "{{{BODY}}}"]))
(error 'gitweb-skeleton "internal error"))))) (error 'gitweb-skeleton "internal error")))))
(define header @plain[#:site git-site #:file "header.html" (car (force header+footer))]) (define header @plain[#:site git-site #:file "header.html" (car (force header+footer))])
(define footer @plain[#:site git-site #:file "footer.html" (cadr (force header+footer))]) (define footer @plain[#:site git-site #:file "footer.html" (cadr (force header+footer))])

10
pkgs/plt-services/meta/new-web/stubs/mailman.rkt
View File

@ -51,7 +51,7 @@
(define generic-templates (define generic-templates
(split-template @page[#:site mailman-site (split-template @page[#:site mailman-site
#:html-only #t #:title HOLE #:html-only? #t #:title HOLE
#:extra-headers style-header #:part-of 'community #:extra-headers style-header #:part-of 'community
HOLE] HOLE]
"header1.html" "header2.html" "footer.html")) "header1.html" "header2.html" "footer.html"))
@ -401,14 +401,14 @@
(require (for-syntax racket/base)) (require (for-syntax racket/base))
(define-syntax (page%% stx) (define-syntax (page%% stx)
(syntax-case stx () (syntax-case stx ()
[(page%% #:html-only #t x ...) [(page%% #:html-only? #t x ...)
#`(lazy (encode-%s (page #:site mailman-site #:html-only #t x ...)))] #`(lazy (encode-%s (page #:site mailman-site #:html-only? #t x ...)))]
[(page%% x ...) [(page%% x ...)
(let ([id (or (syntax-property stx 'inferred-name) (let ([id (or (syntax-property stx 'inferred-name)
(syntax-local-name))]) (syntax-local-name))])
#`(plain #:site mailman-site #`(plain #:site mailman-site
#,@(if id #`(#:id '#,id) #`()) #:suffix "html" #:newline #f #,@(if id #`(#:id '#,id) #`()) #:suffix "html" #:newline #f
(page%% #:html-only #t x ...)))])) (page%% #:html-only? #t x ...)))]))
(define private (define private
@page%%[#:title @list{%(realname)s private archives authentication} @page%%[#:title @list{%(realname)s private archives authentication}
@ -544,7 +544,7 @@
(define archiveidx-templates (define archiveidx-templates
(split-template (split-template
@page%%[#:html-only #t @page%%[#:html-only? #t
#:title "%(listname)s %(archive)s archives by %(archtype)s" #:title "%(listname)s %(archive)s archives by %(archtype)s"
#:part-of 'community #:part-of 'community
#:extra-headers @list{@style-header #:extra-headers @list{@style-header

4
pkgs/plt-services/meta/new-web/www/techreports.rkt
View File

@ -64,7 +64,7 @@
title = {|@title}, title = {|@title},
author = {|@(add-between author-strings " and ")}, author = {|@(add-between author-strings " and ")},
number = {|@tr-name}, number = {|@tr-name},
institution = {PLT Inc.}, institution = {PLT Design Inc.},
year = {2010}, year = {2010},
note = {\url{|@(url-of cite-page #t)}} note = {\url{|@(url-of cite-page #t)}}
}}| }}|
@ -73,7 +73,7 @@
(make-bib #:title "|@title" (make-bib #:title "|@title"
#:author |@(format "~s" (cons 'authors author-strings)) #:author |@(format "~s" (cons 'authors author-strings))
#:date "2010" #:date "2010"
#:location (techrpt-location #:institution "PLT Inc." #:location (techrpt-location #:institution "PLT Design Inc."
#:number "|@tr-name") #:number "|@tr-name")
#:url "|@(url-of cite-page #t)"))}| #:url "|@(url-of cite-page #t)"))}|
@h4{Specific Versions} @h4{Specific Versions}