all repos — min @ 3babdef752debb327486d11a262b42966cb52a20

A small but practical concatenative programming language.

site/rules.min

 1
 2
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 
'hastysite import

;Routing
(
  =meta
  meta /id :id
  meta /ext :ext
  (
    ((id "home" ==) (
      meta "index" %id #meta
      meta ".html" %ext #meta
    ))
    ((ext ".md" ==) (
      meta ".html" %ext #meta
      meta "$1/index" (id) => % %id #meta
    ))
  ) case
  meta
) :set-destination

;Processing operators
(
  :tpl
  =meta
  meta /path :path
  " - Processing $1: $2" (tpl path) => % notice
  meta input-fread :contents
  meta settings /title %site #meta
  meta settings /version %version #meta
  contents meta markdown @contents
  meta contents %contents #meta
  tpl meta mustache :page
  meta page %contents #meta
  meta
) :process-md-with-template

(
  =meta
  meta /content-type :ct
  meta ct process-md-with-template
) :process-md-content

(
  =meta
  meta /path :path
  " - Processing stylesheet: $1" (path) => % notice
  meta input-fread :contents
  contents preprocess-css @contents
  meta contents %contents #meta
  meta
) :preprocess-css-content

(
  =meta
  meta /ext :ext
  meta
  (
    ((".md" ext ==) (process-md-content))
  ) case
) :process-content

;Main
assets (
  =meta
  meta /ext :ext
  meta
  (
    ((".css" ext ==) (
      preprocess-css-content
      output-fwrite
    ))
    ((true) (copy2output))
  ) case
) foreach

contents (
  dup
  (
    ((/id "^_includes" match) ()) ;Ignore files starting with underscore.
    ((true) (process-content set-destination output-fwrite)) 
  ) case
) foreach