diff --git a/pkgs/plt-services/meta/new-web/stubs/dirlist.rkt b/pkgs/plt-services/meta/new-web/stubs/dirlist.rkt index e1f97e21f0..c346b89006 100644 --- a/pkgs/plt-services/meta/new-web/stubs/dirlist.rkt +++ b/pkgs/plt-services/meta/new-web/stubs/dirlist.rkt @@ -13,7 +13,7 @@ (lazy (regexp-split #rx"{{{BODY}}}" (xml->string @page[#:site dirlist-site #:id 'browse-downloads - #:html-only #t + #:html-only? #t #:part-of 'download "{{{BODY}}}"])))) diff --git a/pkgs/plt-services/meta/new-web/stubs/git.rkt b/pkgs/plt-services/meta/new-web/stubs/git.rkt index 4244ec33ed..f989adf8a1 100644 --- a/pkgs/plt-services/meta/new-web/stubs/git.rkt +++ b/pkgs/plt-services/meta/new-web/stubs/git.rkt @@ -21,7 +21,7 @@ (lazy (cdr (or (regexp-match ;; extract just the meat between the ... #rx"]*>(.*?){{{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"))))) (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))]) diff --git a/pkgs/plt-services/meta/new-web/stubs/mailman.rkt b/pkgs/plt-services/meta/new-web/stubs/mailman.rkt index ac73834f85..e35916be4e 100644 --- a/pkgs/plt-services/meta/new-web/stubs/mailman.rkt +++ b/pkgs/plt-services/meta/new-web/stubs/mailman.rkt @@ -51,7 +51,7 @@ (define generic-templates (split-template @page[#:site mailman-site - #:html-only #t #:title HOLE + #:html-only? #t #:title HOLE #:extra-headers style-header #:part-of 'community HOLE] "header1.html" "header2.html" "footer.html")) @@ -401,14 +401,14 @@ (require (for-syntax racket/base)) (define-syntax (page%% stx) (syntax-case stx () - [(page%% #:html-only #t x ...) - #`(lazy (encode-%s (page #:site mailman-site #:html-only #t x ...)))] + [(page%% #:html-only? #t x ...) + #`(lazy (encode-%s (page #:site mailman-site #:html-only? #t x ...)))] [(page%% x ...) (let ([id (or (syntax-property stx 'inferred-name) (syntax-local-name))]) #`(plain #:site mailman-site #,@(if id #`(#:id '#,id) #`()) #:suffix "html" #:newline #f - (page%% #:html-only #t x ...)))])) + (page%% #:html-only? #t x ...)))])) (define private @page%%[#:title @list{%(realname)s private archives authentication} @@ -544,7 +544,7 @@ (define archiveidx-templates (split-template - @page%%[#:html-only #t + @page%%[#:html-only? #t #:title "%(listname)s %(archive)s archives by %(archtype)s" #:part-of 'community #:extra-headers @list{@style-header diff --git a/pkgs/plt-services/meta/new-web/www/techreports.rkt b/pkgs/plt-services/meta/new-web/www/techreports.rkt index 96b68070d2..28a2a400c7 100644 --- a/pkgs/plt-services/meta/new-web/www/techreports.rkt +++ b/pkgs/plt-services/meta/new-web/www/techreports.rkt @@ -64,7 +64,7 @@ title = {|@title}, author = {|@(add-between author-strings " and ")}, number = {|@tr-name}, - institution = {PLT Inc.}, + institution = {PLT Design Inc.}, year = {2010}, note = {\url{|@(url-of cite-page #t)}} }}| @@ -73,7 +73,7 @@ (make-bib #:title "|@title" #:author |@(format "~s" (cons 'authors author-strings)) #:date "2010" - #:location (techrpt-location #:institution "PLT Inc." + #:location (techrpt-location #:institution "PLT Design Inc." #:number "|@tr-name") #:url "|@(url-of cite-page #t)"))}| @h4{Specific Versions}