diff --git a/command.rkt b/command.rkt index 3314d4c..241f8a7 100644 --- a/command.rkt +++ b/command.rkt @@ -59,7 +59,7 @@ polcom [filename] (renders individual file)")] [else (let ([possible-file (->path arg)]) (if (file-exists? possible-file) `(begin - (require (planet mb/pollen/render)) + (require pollen/render) (render ,possible-file)) `(displayln (format "No command defined for '~a'" ,arg))))])))) diff --git a/lang/reader.rkt b/lang/reader.rkt index f90a72a..112143a 100644 --- a/lang/reader.rkt +++ b/lang/reader.rkt @@ -18,7 +18,7 @@ (mb-read-syntax (object-name p) p))) (define (make-output-datum i) - `(module pollen-lang-module (planet mb/pollen) + `(module pollen-lang-module pollen ,@i)) @@ -27,7 +27,7 @@ (datum->syntax i ;; select pollen dialect based on file type `(module pollen-lang-module ,(if (preproc-source? path-string) - '(planet mb/pollen/main-preproc) - '(planet mb/pollen/main)) + 'pollen/main-preproc + 'pollen/main) ,@i) i)) diff --git a/library/css/core.rkt b/library/css/core.rkt index dd60d3f..8dce549 100644 --- a/library/css/core.rkt +++ b/library/css/core.rkt @@ -1,9 +1,9 @@ #lang racket/base (require racket/string racket/list racket/contract) -(require (planet mb/pollen/readability)) +(require pollen/readability) (provide (all-defined-out) - (all-from-out racket/string racket/list racket/contract (planet mb/pollen/readability))) + (all-from-out racket/string racket/list racket/contract pollen/readability)) (define css-property-prefixes '("-moz-" "-webkit-" "-o-" "-ms-" "")) diff --git a/library/css/font-face.rkt b/library/css/font-face.rkt index ee63522..14cfa41 100644 --- a/library/css/font-face.rkt +++ b/library/css/font-face.rkt @@ -1,6 +1,6 @@ #lang racket/base (require "core.rkt") -(require (planet mb/pollen/file-tools)) +(require pollen/file-tools) (require net/url-structs net/base64 racket/file) (provide (all-defined-out)) diff --git a/main-helper.rkt b/main-helper.rkt index 19e3e23..6b69122 100644 --- a/main-helper.rkt +++ b/main-helper.rkt @@ -1,8 +1,6 @@ #lang racket (require racket/contract/region) -;; use full planet paths because this file is evaluated from source directory, -;; not module directory (require (for-syntax racket/rerequire pollen/tools pollen/world)) (require pollen/tools pollen/world) diff --git a/main-imports.rkt b/main-imports.rkt index b7732de..a1f9ef4 100644 --- a/main-imports.rkt +++ b/main-imports.rkt @@ -6,13 +6,13 @@ (require racket/list - (planet mb/pollen/tools) - (planet mb/pollen/main-helper) - (only-in (planet mb/pollen/ptree) ptree-source-decode path->ptree-name) - (only-in (planet mb/pollen/predicates) ptree?)) + pollen/tools + pollen/main-helper + (only-in pollen/ptree ptree-source-decode path->ptree-name) + (only-in pollen/predicates ptree?)) (provide (all-from-out racket/list - (planet mb/pollen/tools) - (planet mb/pollen/main-helper) - (planet mb/pollen/ptree) - (planet mb/pollen/predicates))) \ No newline at end of file + pollen/tools + pollen/main-helper + pollen/ptree + pollen/predicates)) \ No newline at end of file diff --git a/main-preproc-imports.rkt b/main-preproc-imports.rkt index 4a9c9d2..c0f0711 100644 --- a/main-preproc-imports.rkt +++ b/main-preproc-imports.rkt @@ -4,11 +4,11 @@ ;; so they can be imported into the render.rkt namespace ;; and cached for the benefit of the render eval function. -(require (only-in (planet mb/pollen/readability) ->list) - (only-in (planet mb/pollen/tools) trim) - (only-in (planet mb/pollen/predicates) whitespace?)) +(require (only-in pollen/readability ->list) + (only-in pollen/tools trim) + (only-in pollen/predicates whitespace?)) (provide (all-from-out - (planet mb/pollen/readability) - (planet mb/pollen/tools) - (planet mb/pollen/predicates))) \ No newline at end of file + pollen/readability + pollen/tools + pollen/predicates)) \ No newline at end of file diff --git a/main-preproc.rkt b/main-preproc.rkt index ee783e4..0dca4a1 100644 --- a/main-preproc.rkt +++ b/main-preproc.rkt @@ -17,8 +17,8 @@ ; doclang2_raw is a clone of scribble/doclang2 with decode disabled ; helpful because it collects & exports content via 'doc - (module pollen-inner (planet mb/pollen/lang/doclang2_raw) - (require (planet mb/pollen/tools) (planet mb/pollen/main-helper)) + (module pollen-inner pollen/lang/doclang2_raw + (require pollen/tools pollen/main-helper) (require-and-provide-extras) ; brings in the project require files expr ...) ; body of module diff --git a/main.rkt b/main.rkt index cfc33ed..69ea131 100644 --- a/main.rkt +++ b/main.rkt @@ -19,10 +19,10 @@ ;; doclang2_raw is a clone of scribble/doclang2 with decode disabled ;; helpful because it collects & exports content via 'doc - (module pollen-inner (planet mb/pollen/lang/doclang2_raw) + (module pollen-inner pollen/lang/doclang2_raw ;; use same requires as top of main.rkt ;; (can't import them from surrounding module due to submodule rules) - (require (planet mb/pollen/tools) (planet mb/pollen/main-helper)) + (require pollen/tools pollen/main-helper) (require-and-provide-extras) ; brings in the project require files ;; #%top binding catches ids that aren't defined @@ -45,7 +45,7 @@ (define inner-here-path here-path) (provide (all-defined-out)) (provide (all-from-out ; pollen file should bring its requires - (planet mb/pollen/tools)))) + pollen/tools))) (require 'pollen-inner) ; provides doc & #%top, among other things diff --git a/predicates.rkt b/predicates.rkt index 9c579ee..3d4ab17 100644 --- a/predicates.rkt +++ b/predicates.rkt @@ -160,45 +160,6 @@ (check-false (elements-unique? "foo"))) -;; certain ptree requirements are enforced at compile-time. -;; (such as names must be valid strings, and unique.) -;; otherwise this becomes a rather expensive contract -;; because every function in ptree.rkt uses it. -;; note that a ptree is just a bunch of recursively nested ptrees. -(define/contract (ptree? xs) - (any/c . -> . boolean?) - (and (list? xs) (andmap (λ(x) (or (ptree-name? x) (ptree? x))) xs))) - -(module+ test - (check-true (ptree? '(foo))) - (check-true (ptree? '(foo (hee)))) - (check-true (ptree? '(foo (hee ((uncle "foo"))))))) - - - - -;; ptree location must represent a possible valid filename -(define/contract (ptree-name? x #:loud [loud #f]) - ((any/c) (#:loud boolean?) . ->* . boolean?) - ;; todo: how to express the fact that the ptree-location must be - ;; a valid base name for a file? - ;; however, don't restrict it to existing files - ;; (author may want to use ptree as wireframe) - (define result (and x (not (list? x)) (not (whitespace? (->string x))))) - (if (and (not result) loud) - (error "Not a valid ptree key:" x) - result)) - -(module+ test - (check-true (ptree-name? "foo-bar")) - (check-true (ptree-name? "Foo_Bar_0123")) - (check-true (ptree-name? 'foo-bar)) - (check-true (ptree-name? "foo-bar.p")) - (check-true (ptree-name? "/Users/MB/foo-bar")) - (check-false (ptree-name? #f)) - (check-false (ptree-name? "")) - (check-false (ptree-name? " "))) - ;; recursive whitespace test (define/contract (whitespace? x) diff --git a/render.rkt b/render.rkt index 7624e00..ab4ee2e 100644 --- a/render.rkt +++ b/render.rkt @@ -287,17 +287,17 @@ (require web-server/templates racket/list xml/path - (planet mb/pollen/debug) - (planet mb/pollen/decode) - (planet mb/pollen/file-tools) - (planet mb/pollen/main-imports) - (planet mb/pollen/main-preproc-imports) - (planet mb/pollen/predicates) - (planet mb/pollen/ptree) - (planet mb/pollen/readability) - (planet mb/pollen/template) - (planet mb/pollen/tools) - (planet mb/pollen/world)) + pollen/debug + pollen/decode + pollen/file-tools + pollen/main-imports + pollen/main-preproc-imports + pollen/predicates + pollen/ptree + pollen/readability + pollen/template + pollen/tools + pollen/world) (define original-ns (current-namespace)) (define/contract (render-through-eval base-dir eval-string) @@ -318,17 +318,17 @@ racket/rerequire racket/contract racket/list - (planet mb/pollen/debug) - (planet mb/pollen/decode) - (planet mb/pollen/file-tools) - (planet mb/pollen/main-imports) - (planet mb/pollen/main-preproc-imports) - (planet mb/pollen/predicates) - (planet mb/pollen/ptree) - (planet mb/pollen/readability) - (planet mb/pollen/template) - (planet mb/pollen/tools) - (planet mb/pollen/world))) + pollen/debug + pollen/decode + pollen/file-tools + pollen/main-imports + pollen/main-preproc-imports + pollen/predicates + pollen/ptree + pollen/readability + pollen/template + pollen/tools + pollen/world)) (namespace-require 'racket) ; use namespace-require for FIRST require, then eval after (eval eval-string (current-namespace)))) @@ -350,7 +350,7 @@ ;; for include-template (used below) (require web-server/templates) ;; for ptree navigation functions, and template commands - (require (planet mb/pollen/debug) (planet mb/pollen/ptree) (planet mb/pollen/template)) + (require pollen/debug pollen/ptree pollen/template) ;; import source into eval space. This sets up main & metas (require ,(->string source-name)) (set-current-ptree (make-project-ptree ,PROJECT_ROOT)) diff --git a/tests/requires/include-me.rkt b/tests/requires/include-me.rkt index 191943e..d7c7d33 100644 --- a/tests/requires/include-me.rkt +++ b/tests/requires/include-me.rkt @@ -1,7 +1,7 @@ #lang racket/base (require racket/contract racket/list racket/match) -(require (planet mb/pollen/tools) (planet mb/pollen/decode) - (planet mb/pollen/library/decode-tools)) +(require pollen/tools pollen/decode + pollen/library/decode-tools) (provide (all-defined-out))