www/www-test-data.el


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

;; -*- lexical-binding: t; -*-

( load "~/src/channel/www/build-site" )

( print "publish-test-1" )

( let ( ( publication-instance ( publication-object ) ) )
  ( publish publication-instance
    :data-projects ( list "test.pl" "example.org" ) ) )

( print "publish-test-2" )

( let ( ( publication-instance ( publication-object ) ) )
  ( publish publication-instance

    :data-projects
    ( list "test.pl"

      :property1
      "value1"

      :property2
      "value2" ) ) )

( print "publish-test-3" )

( let ( ( publication-instance ( publication-object ) ) )
  ( publish publication-instance "test.pl"

    :components
    ( list "example.pl" "example.org" ) ) )