31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
(define (make-template-contents title)
◊string-append{
#lang pollen
◊comment{Copyright ◊(substring date-string 0 4) by ◊|default-authorname|. All Rights Reserved.}
◊"◊"(define-meta published "◊date-string")
◊"◊"(define-meta series "seriesname")
◊"◊"title{◊title}
Write here!})
(define (main)
(display "Enter title: ")
|
>
|
|
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
(define (make-template-contents title)
◊string-append{
#lang pollen
◊comment{Copyright ◊(substring date-string 0 4) by ◊|default-authorname|. All Rights Reserved.}
◊"◊"(define-meta published "◊date-string")
◊"◊"(define-meta conceal "blog,feed") ; Edit/delete this line when ready to publish
◊"◊;"(define-meta series "seriesname")
◊"◊"title{◊title}
Write here!})
(define (main)
(display "Enter title: ")
|
