(include "macros") (import news-macros) (use posix uri-common) (generate-path-parameters (/ site-root "/" ;; static files (/ res "res" (/ css "/css" (/ fonts "/fonts") (/ css-news "/news.css") (/ css-lib "/lib.css")) (/ js "/js" (/ js-vendor "/vendor") (/ js-lib "/lib.js") (/ js-news "/news.js")) (/ img "/img" (/ img-original "/original") (/ source-icon "/source-icons") (/ img-raster "/raster" (/ site-icon "/icon.png") (/ site-logo-normal "/logo-normal.png")) (/ img-icon "/icons")) (/ font-awesome-fonts "/fonts")) ;; dynamic pages (/ popular "popular") (/ select-sources "select-sources") (/ select-sources-trampoline "select-sources-trampoline") (/ select-interests "select-interests") (/ select-interests-trampoline "select-interests-trampoline") (/ not-interested-trampoline "not-interested-trampoline") (/ author "author") (/ personalize "personalize") (/ account "account" (/ account-create "/create") (/ account-create-trampoline "/create-trampoline") (/ account-sign-in "/sign-in") (/ account-sign-in-trampoline "/sign-in-trampoline") (/ account-password-reset "/password-reset") (/ account-sign-out "/sign-out") (/ account-hide-viewed "/hide-viewed") (/ account-show-viewed "/show-viewed") (/ account-user-metrics-opt-out "/user-metrics-opt-out") (/ account-user-metrics-opt-out-trampoline "/user-metrics-opt-out-trampoline")) (/ doc "doc" (/ doc-api "/api" (/ doc-api-landing "/landing"))) (/ source "source" (/ source-change-trampoline "/change-trampoline")) (/ ajax "ajax" (/ subscribe "/subscribe") (/ unsubscribe "/unsubscribe") (/ recommended "/recommended") (/ article-viewed "/article-viewed") (/ up-vote "/up-vote") (/ feed "/feed") (/ subscribe-to-mailing-list "/subscribe-to-mailing-list") (/ get-invited "/get-invited") (/ author-search "/author-search")) (/ admin "admin" (/ admin-add-article-trampoline "/add-article-trampoline") (/ admin-articles "/articles") (/ admin-add-article "/add-article") (/ admin-save-article "/save-article"))) uri-reference uri- js-uri-var) ;; => (define uri-res (make-parameter (uri-reference "/res"))) ;; (define uri-css (make-parameter (uri-reference "/res/css"))) ;; ... ;; => (define js-uri-var "var uri = {}; uri.uriRes = '/res'; uri.uriCss = '/res/css'; ...") (generate-path-parameters (/ root (or (get-environment-variable "NEWS_DIR") "/home/tjhintz/src/scheme/news") (/ res "/res" (/ scss "/scss") (/ css "/css" (/ css-lib "/lib.css") (/ css-news "/news.css")) (/ img "/img" (/ img-original "/original") (/ source-icon "/source-icons") (/ img-raster "/raster" (/ site-icon "/icon.png") (/ site-logo-normal "/logo-normal.png")) (/ img-icon "/icons")) (/ js "/js" (/ js-vendor "/vendor" (/ js-jquery "/jquery.js")) (/ js-lib "/lib.js") (/ js-news "/news.js") (/ js-pre-jquery-news "/pre-jquery-news.js"))) (/ build-static-resources "/build") (/ pre-generated-html "/pre-generated-html.scm") (/ widgets "/widgets")) values filesystem-path- js-filesystem-uri-var) ;; (generate-path-parameters ;; (/ site-root "/" ;; (/ res "res" ;; (/ css "/css" ;; (/ fonts "/fonts")) ;; (/ js "/js" ;; (/ js-vendor "/vendor")) ;; (/ img "/img" ;; (/ img-original "/original")) ;; (/ font-awesome-fonts "/fonts") ;; (/ scss "/scss"))) ;; path-)