diff --git a/cache-ns.rkt b/cache-ns.rkt deleted file mode 100644 index 73e2016..0000000 --- a/cache-ns.rkt +++ /dev/null @@ -1,40 +0,0 @@ -#lang racket/base -(require (for-syntax racket/base racket/syntax) sugar/test) -(provide (all-defined-out)) - -(define-syntax (define-caching-ns stx) - (syntax-case stx () - [(_ name) - #'(define-caching-ns name null)] - [(_ name mods) - (with-syntax ([caching-module-name (generate-temporary)]) - #'(begin - (module caching-module-name racket/base - (define-namespace-anchor nsa) ; could handle this macro-introduced name better - (provide nsa)) - (require 'caching-module-name) - (define name (namespace-anchor->namespace nsa)) - (require-in-namespace name mods)))])) - - -;; `namespace-require mod` = (eval '(require mod) namespace) -(define (require-in-namespace ns module-names) - (parameterize ([current-namespace ns]) - (for-each (λ(mod-name) (namespace-require mod-name)) module-names))) - -(define (attach-from-namespace from-ns to-ns module-names) - (for-each (λ(mod-name) (namespace-attach-module from-ns mod-name to-ns)) module-names) - (require-in-namespace to-ns module-names)) - - -(module-test-external - (define module-names '(xml racket/function)) - (define-caching-ns from-ns module-names) - (check-true (eval '(andmap procedure? (list xexpr? curry)) from-ns)) - - (define to-ns (make-base-namespace)) - (attach-from-namespace from-ns to-ns module-names) - (check-true (eval '(andmap procedure? (list xexpr? curry)) to-ns))) - - - diff --git a/cache.rkt b/cache.rkt index 8d71303..70e7617 100644 --- a/cache.rkt +++ b/cache.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require racket/path racket/file compiler/cm file/cache sugar/coerce sugar/list "project.rkt" "rerequire.rkt" "cache-ns.rkt" "debug.rkt" "file.rkt" racket/place "world.rkt") +(require racket/path racket/file compiler/cm file/cache sugar/coerce sugar/list "project.rkt" "rerequire.rkt" "debug.rkt" "file.rkt" racket/place "world.rkt") ;; The cache is a hash with paths as keys. ;; The cache values are also hashes, with key/value pairs for that path. diff --git a/render.rkt b/render.rkt index 8d9a162..adb6c99 100644 --- a/render.rkt +++ b/render.rkt @@ -1,7 +1,7 @@ #lang racket/base (require racket/file racket/path compiler/cm) (require sugar/test sugar/define sugar/file) -(require "file.rkt" "cache.rkt" "debug.rkt" "pagetree.rkt" "project.rkt" "template.rkt" "rerequire.rkt" "cache-ns.rkt" "world.rkt") +(require "file.rkt" "cache.rkt" "debug.rkt" "pagetree.rkt" "project.rkt" "template.rkt" "rerequire.rkt" "world.rkt") ;; used to track renders according to modification dates of component files (define mod-date-hash (make-hash)) diff --git a/tools/os x/register-pollen-source-extensions.app/Contents/Info.plist b/tools/os x/register-pollen-source-extensions.app/Contents/Info.plist deleted file mode 100644 index 6600168..0000000 --- a/tools/os x/register-pollen-source-extensions.app/Contents/Info.plist +++ /dev/null @@ -1,143 +0,0 @@ - - - - - CFBundleAllowMixedLocalizations - - CFBundleDevelopmentRegion - English - CFBundleExecutable - applet - CFBundleIconFile - applet - CFBundleIdentifier - com.apple.ScriptEditor.id.add-pollen-source-extensions - CFBundleInfoDictionaryVersion - 6.0 - CFBundleName - add-pollen-source-extensions - CFBundlePackageType - APPL - CFBundleShortVersionString - 1.0 - CFBundleSignature - aplt - LSMinimumSystemVersionByArchitecture - - x86_64 - 10.6 - - LSRequiresCarbon - - UTExportedTypeDeclarations - - - UTTypeIdentifier - com.pollenpub.pm - UTTypeTagSpecification - - public.filename-extension - - pm - - - UTTypeDescription - Pollen markup source file - UTTypeConformsTo - - public.source-code - - - - - UTTypeIdentifier - com.pollenpub.pmd - UTTypeTagSpecification - - public.filename-extension - - pmd - - - UTTypeDescription - Pollen Markdown source file - UTTypeConformsTo - - public.source-code - - - - - UTTypeIdentifier - com.pollenpub.pp - UTTypeTagSpecification - - public.filename-extension - - pp - - - UTTypeDescription - Pollen preprocessor source file - UTTypeConformsTo - - public.source-code - - - - - UTTypeIdentifier - com.pollenpub.ptree - UTTypeTagSpecification - - public.filename-extension - - ptree - - - UTTypeDescription - Pollen pagetree source file - UTTypeConformsTo - - public.source-code - - - - - UTTypeIdentifier - com.pollenpub.p - UTTypeTagSpecification - - public.filename-extension - - p - - - UTTypeDescription - Pollen null source file - UTTypeConformsTo - - public.source-code - - - - - - - WindowState - - dividerCollapsed - - eventLogLevel - -1 - name - ScriptWindowState - positionOfDivider - 333 - savedFrame - 7 461 602 597 0 0 1920 1058 - selectedTabView - result - - - diff --git a/tools/os x/register-pollen-source-extensions.app/Contents/MacOS/applet b/tools/os x/register-pollen-source-extensions.app/Contents/MacOS/applet deleted file mode 100755 index 4f7d67b..0000000 Binary files a/tools/os x/register-pollen-source-extensions.app/Contents/MacOS/applet and /dev/null differ diff --git a/tools/os x/register-pollen-source-extensions.app/Contents/PkgInfo b/tools/os x/register-pollen-source-extensions.app/Contents/PkgInfo deleted file mode 100644 index 3253614..0000000 --- a/tools/os x/register-pollen-source-extensions.app/Contents/PkgInfo +++ /dev/null @@ -1 +0,0 @@ -APPLaplt \ No newline at end of file diff --git a/tools/os x/register-pollen-source-extensions.app/Contents/Resources/Scripts/main.rtf b/tools/os x/register-pollen-source-extensions.app/Contents/Resources/Scripts/main.rtf deleted file mode 100644 index 116a631..0000000 --- a/tools/os x/register-pollen-source-extensions.app/Contents/Resources/Scripts/main.rtf +++ /dev/null @@ -1,4 +0,0 @@ -{\rtf1\ansi\ansicpg1252\cocoartf1265\cocoasubrtf210 -{\fonttbl} -{\colortbl;\red255\green255\blue255;} -} \ No newline at end of file diff --git a/tools/os x/register-pollen-source-extensions.app/Contents/Resources/Scripts/main.scpt b/tools/os x/register-pollen-source-extensions.app/Contents/Resources/Scripts/main.scpt deleted file mode 100644 index e2b1b1a..0000000 Binary files a/tools/os x/register-pollen-source-extensions.app/Contents/Resources/Scripts/main.scpt and /dev/null differ diff --git a/tools/os x/register-pollen-source-extensions.app/Contents/Resources/applet.icns b/tools/os x/register-pollen-source-extensions.app/Contents/Resources/applet.icns deleted file mode 100644 index 0cdd170..0000000 Binary files a/tools/os x/register-pollen-source-extensions.app/Contents/Resources/applet.icns and /dev/null differ diff --git a/tools/os x/register-pollen-source-extensions.app/Contents/Resources/applet.rsrc b/tools/os x/register-pollen-source-extensions.app/Contents/Resources/applet.rsrc deleted file mode 100644 index 55feaf3..0000000 Binary files a/tools/os x/register-pollen-source-extensions.app/Contents/Resources/applet.rsrc and /dev/null differ diff --git a/tools/os x/register-pollen-source-extensions.app/Contents/Resources/description.rtfd/TXT.rtf b/tools/os x/register-pollen-source-extensions.app/Contents/Resources/description.rtfd/TXT.rtf deleted file mode 100644 index 116a631..0000000 --- a/tools/os x/register-pollen-source-extensions.app/Contents/Resources/description.rtfd/TXT.rtf +++ /dev/null @@ -1,4 +0,0 @@ -{\rtf1\ansi\ansicpg1252\cocoartf1265\cocoasubrtf210 -{\fonttbl} -{\colortbl;\red255\green255\blue255;} -} \ No newline at end of file