From be6946cf4991caa3afdf619b9d26948ca50a4bac Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Wed, 19 Feb 2014 23:15:30 -0800
Subject: [PATCH] remove some dependencies

---
 main.rkt | 30 +++++++++++++-----------------
 1 file changed, 13 insertions(+), 17 deletions(-)

diff --git a/main.rkt b/main.rkt
index 0360c8b..b0243f2 100644
--- a/main.rkt
+++ b/main.rkt
@@ -7,43 +7,39 @@
   (#%module-begin
    (module inner pollen/lang/doclang_raw
      ;; first three lines are positional arguments for doclang_raw
+     ;; doclang_raw is a version of scribble/doclang with the decoder disabled
      main-raw ; id of export
      (λ(x) x) ; post-process function
      () ; prepended exprs
      
      (require pollen/lang/lang-helper)
      (require-project-require-files)
-     (provide (all-defined-out))
      
-     ;; Change behavior of undefined identifiers
+     ;; Change behavior of undefined identifiers with #%top
      (require pollen/top)
      (provide (all-from-out pollen/top))
      
      ;; Build 'inner-here-path and 'inner-here
      (define inner-here-path (get-here-path))
-     (require (only-in pollen/world PROJECT_ROOT))
      (require (only-in racket/path find-relative-path))
-     (require (only-in pollen/file-tools ->output-path))
-     (define inner-here (path->string (->output-path (find-relative-path PROJECT_ROOT inner-here-path))))
+     (define inner-here (path->string (path-replace-suffix (find-relative-path (current-directory) inner-here-path) "")))
+     
+     (provide (all-defined-out))
      
      body-exprs ...)
    
    (require 'inner)
    
-   ;; Split out the metas. We want to catch user-defined metas too.
-   ;; First, append "here-path" and "here" as metas.
-   ;; Because they might have been overridden by custom metas in the source.
+   ;; Split out the metas. 
    (require txexpr)   
-   (define one-with-everything `(placeholder-root 
-                                 (meta "here-path" ,inner-here-path)
-                                 (meta "here" ,inner-here)                         
-                                 ,@(cdr main-raw))) ;; cdr strips initial linebreak
-   
-   (define is-meta-element? (λ(x) (and (txexpr? x) (equal? 'meta (get-tag x)))))
+   (define main-txexpr `(placeholder-root ,@(cdr main-raw))) ;; cdr strips initial linebreak
+   (define is-meta-element? (λ(x) (and (txexpr? x) (equal? 'meta (car x)))))
    (define-values (main-without-metas meta-elements) 
-     (splitf-txexpr one-with-everything is-meta-element?))
+     (splitf-txexpr main-txexpr is-meta-element?))
    (define meta-element->assoc (λ(x) (cons (cadr x) (caddr x))))
-   (define metas (make-hash (map meta-element->assoc meta-elements)))
+   ;; Prepend 'here-path and 'here as metas so they can be overridden by metas embedded in source.
+   (define metas (make-hash (map meta-element->assoc (cons `(meta "here-path" ,inner-here-path) 
+                                                           (cons `(meta "here" ,inner-here) meta-elements)))))
    
    
    ;; set up the 'main export
@@ -53,7 +49,7 @@
                            ;; 'root is the hook for the decoder function.
                            ;; If it's not a defined identifier, it just hits #%top and becomes `(root ,@body ...)
                            root
-                           ;; for textual (preprocessor-style) output. Converts x-expressions to HTML.
+                           ;; for preprocessor output, just make a string. Converts x-expressions to HTML.
                            (λ xs (apply string-append (map (dynamic-require 'xml 'xexpr->string) xs))))
                        (cdr main-without-metas))) ;; cdr strips placeholder-root tag