Move the #%top' binding that makes foo:' keywords self evaluating from

`scribble/html/lang' to `scribble/html'.

Since `foo:' keywords are very common in any code that uses
`scribble/html', it is much more convenient to have it provide the
custom `#%top'.  It simplifies code that uses it, for example, files in
`meta/web/common' now use

  #lang at-exp racket/base
  (require scribble/html)

instead of the (only-in scribble/html/lang #%top) which it used before,
or instead of explicitly quoting all `foo:'s.

collects/meta/web/common/extras.rkt

@@ -1,6 +1,6 @@
 #lang at-exp racket/base
 
-(require scribble/html (only-in scribble/html/lang #%top))
+(require scribble/html)
 
 ;; list of a header paragraphs and sub paragraphs (don't use `p' since it looks
 ;; like they should not be nested)

collects/meta/web/common/layout.rkt

@@ -1,7 +1,6 @@
 #lang at-exp racket/base
 
-(require scribble/html (only-in scribble/html/lang #%top)
+(require scribble/html (for-syntax racket/base syntax/name)
-         (for-syntax racket/base syntax/name)
          "utils.rkt" "resources.rkt")
 
 (define-for-syntax (process-contents who layouter stx xs)

collects/meta/web/common/links.rkt

@@ -1,6 +1,6 @@
 #lang at-exp racket/base
 
-(require scribble/html (only-in scribble/html/lang #%top))
+(require scribble/html)
 
 (define-syntax-rule (define* id E) (begin (define id E) (provide id)))
 

collects/meta/web/common/resources.rkt

@@ -1,6 +1,6 @@
 #lang at-exp racket/base
 
-(require scribble/html (only-in scribble/html/lang #%top))
+(require scribble/html)
 
 ;; These are some resources that are shared across different toplevel
 ;; sites.  They could be included from a single place, but then when one

collects/scribble/html/lang.rkt

@@ -1,20 +1,13 @@
 #lang racket/base
 
-(require "main.rkt" scribble/text/lang scribble/text/syntax-utils
+(require "main.rkt" (except-in scribble/text/lang #%top)
-         (for-syntax racket/base))
+         scribble/text/syntax-utils)
 
-(provide (except-out (all-from-out scribble/text/lang) #%top #%module-begin)
+(provide (except-out (all-from-out scribble/text/lang) #%module-begin)
-         (rename-out [top #%top] [module-begin #%module-begin])
+         (rename-out [module-begin #%module-begin])
          (all-from-out "main.rkt"))
 
-(define-syntax (top stx)
+(require (for-syntax racket/base))
-  (syntax-case stx ()
-    [(_ . x)
-     (let ([x* (syntax-e #'x)])
-       (if (and (symbol? x*) (regexp-match? #rx":$" (symbol->string x*)))
-         #''x
-         #'(#%top . x)))]))
-
 (define-syntax-rule (module-begin expr ...)
   (#%plain-module-begin
    (port-count-lines! (current-output-port))

collects/scribble/html/main.rkt

@@ -4,4 +4,14 @@
          ;; includes all of the scribble/text utilities
          scribble/text)
 
-(provide (all-from-out "xml.rkt" "html.rkt" "resource.rkt" scribble/text))
+(provide (all-from-out "xml.rkt" "html.rkt" "resource.rkt" scribble/text)
+         (rename-out [top #%top]))
+
+(require (for-syntax racket/base))
+(define-syntax (top stx)
+  (syntax-case stx ()
+    [(_ . x)
+     (let ([x* (syntax-e #'x)])
+       (if (and (symbol? x*) (regexp-match? #rx":$" (symbol->string x*)))
+         #''x
+         #'(#%top . x)))]))