You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
pollen/world.rkt

54 lines
1.5 KiB
Racket

11 years ago
#lang racket/base
11 years ago
(provide (all-defined-out))
11 years ago
(define POLLEN_VERSION "0.001")
11 years ago
(define POLLEN_PREPROC_EXT 'p)
(define POLLEN_SOURCE_EXT 'pd)
(define TEMPLATE_FILE_PREFIX "-")
(define POLLEN_EXPRESSION_DELIMITER #\◊)
(define TEMPLATE_FIELD_DELIMITER POLLEN_EXPRESSION_DELIMITER)
11 years ago
(define DEFAULT_TEMPLATE_PREFIX "-main")
(define FALLBACK_TEMPLATE_NAME "-temp-fallback-template.html")
(define TEMPLATE_META_KEY "template")
(define POLLEN_TREE_EXT 'ptree)
(define DEFAULT_POLLEN_TREE "main.ptree")
(define POLLEN_TREE_PARENT_NAME 'parent)
(define POLLEN_TREE_ROOT_NAME 'ptree-root)
(define MAIN_POLLEN_EXPORT 'main)
;(define META_POLLEN_TAG 'metas)
;(define META_POLLEN_EXPORT 'metas)
(define EXTRAS_DIR (string->path "pollen-require"))
11 years ago
(define MISSING_FILE_BOILERPLATE "#lang pollen\n\n")
(define LINE_BREAK "\n")
(define PARAGRAPH_BREAK "\n\n")
(define OUTPUT_SUBDIR 'public)
11 years ago
(require racket/string racket/port racket/system)
;; todo: is path to racket already available as an environment variable?
(define RACKET_PATH (string-trim (with-output-to-string (λ() (system "which racket")))))
(define POLLEN_ROOT 'main)
11 years ago
(define POLLEN_COMMAND_FILE "polcom")
; get the starting directory, which is the parent of 'run-file
(define POLLEN_PROJECT_DIR
(let-values ([(dir ignored also-ignored)
(split-path (find-system-path 'run-file))])
(if (equal? dir 'relative)
(string->path ".")
dir)))
11 years ago
(require "readability.rkt")
(define RESERVED_PATHS
(map ->path (list POLLEN_COMMAND_FILE EXTRAS_DIR)))