Feufochmar
/
feuforeve.v4
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add a default author and title in adaptable-template. Add an horizontal separator between the title and the content.

This commit is contained in:
Feufochmar 2021-05-06 17:23:27 +02:00
parent 4b2739f516
commit ede7ce01ae
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/pages/templates.rkt
View File

@ -74,6 +74,7 @@
(span ((class "author")) ,author) (br)
,(if date date ""))
(h1 ,title)
(hr)
,(apply-or-return content param))
(footer ,(string-append "©2015-" (number->string (date-year (current-date))) " Feufochmar"))
)))))
@ -84,9 +85,9 @@
(lambda (param)
(define result (content param))
((pages:template
#:title (hash-ref result 'title)
#:title (hash-ref result 'title "Untitled page")
#:content (hash-ref result 'content)
#:author (hash-ref result 'author)
#:author (hash-ref result 'author "feuforeve.fr")
#:date (hash-ref result 'date #f)
#:stylesheets (hash-ref result 'stylesheets (list))
#:scripts (hash-ref result 'scripts (list))