bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

main.rkt (498B)

      1 #lang racket/base
      2 
      3 (require "xml.rkt" "html.rkt" "resource.rkt"
      4          ;; includes all of the scribble/text utilities
      5          scribble/text)
      6 
      7 (provide (all-from-out "xml.rkt" "html.rkt" "resource.rkt" scribble/text)
      8          (rename-out [top #%top]))
      9 
     10 (require (for-syntax racket/base))
     11 (define-syntax (top stx)
     12   (syntax-case stx ()
     13     [(_ . x)
     14      (let ([x* (syntax-e #'x)])
     15        (if (and (symbol? x*) (regexp-match? #rx":$" (symbol->string x*)))
     16          #''x
     17          #'(#%top . x)))]))