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

61 lines
1.5 KiB
Racket

#lang racket/base
11 years ago
(provide (prefix-out world: (all-defined-out)))
(define pollen-version "0.001")
(define preproc-source-ext 'pp)
(define markup-source-ext 'pm)
(define null-source-ext 'p)
(define ptree-source-ext 'ptree)
(define template-source-ext 'pt)
11 years ago
(define reader-mode-auto 'auto)
(define reader-mode-preproc 'pre)
(define reader-mode-markup 'markup)
(define reader-mode-ptree 'ptree)
(define decodable-extensions (list markup-source-ext ptree-source-ext))
11 years ago
(define default-ptree "main.ptree")
(define ptree-root-node 'ptree-root)
11 years ago
(define template-source-prefix "-")
(define expression-delimiter #\◊)
(define template-field-delimiter expression-delimiter)
(define default-template-prefix "main")
(define fallback-template "fallback.html.pt")
(define template-meta-key "template")
(define main-pollen-export 'main)
(define extras-dir (string->path "pollen-require"))
(define missing-file-boilerplace "#lang pollen\n\n")
(define line-break "\n")
(define paragraph-break "\n\n")
(define output-subdir 'public)
(define racket-path "/usr/bin/racket")
(define command-file "polcom")
(define reserved-paths
(map string->path (list command-file (path->string extras-dir) "poldash.css" "compiled")))
11 years ago
(define current-project-root (make-parameter (current-directory)))
11 years ago
(define server-port 8088)
11 years ago
(define dashboard-name "index.ptree")
(define dashboard-css "poldash.css")
(define current-module-root (make-parameter #f))
(define current-server-extras-path (make-parameter #f))