Litter  Check-in [6e63b41857]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:More stub code
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:6e63b41857b79cdbd7005293ac661f7a8268396a
User & Date: jesper 2016-04-18 21:26:08
Context
2018-06-26
13:55
Create app stub Leaf check-in: 7683efeb03 user: jesper tags: trunk
2016-04-18
21:26
More stub code check-in: 6e63b41857 user: jesper tags: trunk
2016-04-15
08:24
just add a stub check-in: 4a4cbe5ca7 user: jesper tags: trunk
Changes

Added litter.scm.















































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
;;; Copyright (c) 2016 Jesper Raftegard <jesper@huggpunkt.org>
;;;
;;; Permission to use, copy, modify, and distribute this software for any
;;; purpose with or without fee is hereby granted, provided that the above
;;; copyright notice and this permission notice appear in all copies.
;;;
;;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

(use r7rs)

(include "loris/init.scm")
(include "loader.scm")

(loris-version:assert "2.0.0-devel")
(config:init "Litter" "0.0.0-devel")

(define (configure)
  (let* ((data-root "data-root/")
         (www-root "www-root/")
         (template-dir (string-append data-root "template/"))
         (log-dir (string-append data-root "log/"))
         (site-dir (string-append data-root "site/")))
    (config:ref set: data-root		'paths	'data-root)
    (config:ref set: www-root		'paths	'www-root)
    (config:ref set: template-dir	'paths	'template-dir)
    (config:ref set: log-dir		'paths	'log-dir)
    (config:ref set: site-dir		'paths	'site-dir)
    (config:ref set: 5			'log	'entries-per-page)))

(configure)

;; Index all log entries in the log-subdir and any subdirectories.
;; Index all static entries in site-dir and any subdirectories.

;; Create a link index of the static pages.

;; Loop through the static entries, creating one output file in
;; www-root per entry.

;; Loop through the log entries, creating one output file in www-root
;; per entry. Meanwhile, create an index of all log entry metadata
;; minus the actual entry contents.

;; Write the index pages:
;;  - One great "all entries" page
;;  - Paginated multiple entry pages (config:ref 'log 'entries-per-page)

(pp (config:ref))
(pp (platform:ref))

Added loader.scm.



































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
;;; Copyright (c) 2016 Jesper Raftegard <jesper@huggpunkt.org>
;;;
;;; Permission to use, copy, modify, and distribute this software for any
;;; purpose with or without fee is hereby granted, provided that the above
;;; copyright notice and this permission notice appear in all copies.
;;;
;;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

;; Put your build system in this file.
;; If building with includes, ensure that all symbols from every library
;; external to this codebase is imported before the first (include ...)