...
 
Commits (2)
......@@ -42,15 +42,8 @@
`(img (@ (src ,(prefix-url (string-append "/static/images/" image)))
(alt ,alt))))
#;(define (header-menu)
`(("subscribe" ,(prefix-url "/#subscribe"))
("archive" ,(prefix-url "/archive/"))
("about" ,(prefix-url "/about/"))
("contact" ,(prefix-url "/contact/"))))
(define* (base-tmpl site body
#:key title #;big-logo)
#:key title)
`((doctype "html")
(head
(meta (@ (charset "utf-8")))
......@@ -58,12 +51,7 @@
(string-append title " -- " (site-title site))
(site-title site)))
;; css
,(stylesheet "main")
;; rss feed
#;(link (@ (rel "alternate")
(title "Datashards")
(type "application/rss+xml")
(href ,(prefix-url "/rss-feed.rss")))))
,(stylesheet "main"))
(body
(div (@ (class "main-wrapper"))
(header (@ (id "site-header"))
......@@ -71,12 +59,7 @@
(div (@ (class "header-logo-wrapper"))
(a (@ (href ,(prefix-url "/"))
(class "header-logo"))
"DATASHARDS"
#;,(base-image "datashards-green3-anim2.gif"
#;(if big-logo
"datashards-logo-500px.png"
"datashards-logo-300px.png")
"Datashards: secure storage foundations for the modern world"))))
"DATASHARDS")))
(div (@ (class "site-main-content"))
,body))
;; TODO: Link to source.
......@@ -210,18 +193,6 @@
)
)
#;(div (@ (class "content-box homepage-news-box")
(style "margin-top: 20px; margin-bottom: 20px;"))
(h1 (@ (class "title"))
"Episodes and news")
(ul (@ (class "homepage-news-items"))
,@(map (lambda (post)
(post-preview post site))
(take-up-to 10 (posts/reverse-chronological posts))))
(p (@ (style "text-align: center"))
(a (@ (href "/archive/"))
"[--archive--]")))
(define (index-page site posts)
(make-page
"index.html"
......@@ -240,7 +211,6 @@
;; #:base-uri (string->uri "https://librelounge.org")
#:default-metadata
'((author . "Datashards Team")
#;(email . "[email protected]"))
#:readers (list skribe-reader commonmark-reader)
#:builders (list (blog #:prefix "/news"
#:theme datashards-haunt-theme)
......