Commit 31e1d777 authored by Serge Wroclawski's avatar Serge Wroclawski

Current version of website

parent d6449a64
......@@ -2,7 +2,7 @@
;;; Copyright © 2019 Christopher Lemmer Webber <[email protected]>
;;; Released under Apache v2; see LICENSE for details.
(use-modules (ice-9 match)
(srfi srfi-1)
(srfi srfi-11)
......@@ -21,7 +21,7 @@
(haunt reader commonmark)
(web uri))
;;; Utilities
;;; ---------
......@@ -30,7 +30,7 @@
(define (prefix-url url)
(string-append (%site-prefix) url))
;;; Templates
;;; ---------
......@@ -49,6 +49,7 @@
("contact" ,(prefix-url "/contact/"))))
(define* (base-tmpl site body
#:key title #;big-logo)
`((doctype "html")
......@@ -174,16 +175,19 @@
(div (@ (class "content-box bigger-text")
(style "margin-top: 20px; margin-bottom: 20px;"))
(p "Datashards brings secure storage foundations to the modern web. "
"Blah blah blah blah blah. "
"Make this sound good, Serge!")
;; and now for some hacker ipsum
(p "Haxx0r ipsum highjack new regex spoof semaphore recursively ack root afk win continue server. System then char L0phtCrack hack the mainframe printf it's a feature int gnu grep. Ddos sudo alloc eof double infinite loop tunnel in *.* protocol exception I'm sorry Dave, I'm afraid I can't do that. Endif Leslie Lamport Linus Torvalds function leapfrog worm tcp Dennis Ritchie irc frack todo shell gc cache null thread foad throw.")
"It allows users and application developers to reason about "
"secure, private data online or offline." )
(p "Applications can be built on top of Datashards that provide "
"features such as shared storage, always-available data, "
"private communication and more" )
(h2 (@ (class "title")
(id "subscribe"))
"Tutorials & Specifications")
(p "Bang null injection January 1, 1970 gnu script kiddies client void foo. Flood shell blob float perl fatal tarball bang firewall semaphore sudo pwned todo interpreter cd finally. Back door packet sniffer exception /dev/null python vi public Donald Knuth fork grep fail. Wannabee piggyback mega ban back door epoch flood foad private printf data gurfle man pages linux unix brute force malloc Starcraft for.")
(p "A whole mess of docs here:")
(p "Datashards is still in early development and is subject to "
"change as it becomes more mature. As of now there are no official"
", formal specifications. Nonethless we provide the following "
"writeups that explain the rationale and some implementation "
"details." )
(ul (li (a (@ (href ""))
"Datashards Rationale"))
(li (a (@ (href ""))
......@@ -193,13 +197,20 @@
(h2 (@ (class "title")
(id "subscribe"))
(p (a (@ (href "https://machine.code/"))
"Machine code")
" protected back door *.* afk syn wannabee printf ifdef ack recursively script kiddies function. Bytes blob foad fatal irc wabbit bin then bytes piggyback ip James T. Kirk it's a feature stdio.h tarball big-endian. Loop bubble sort hash mainframe gcc epoch hello world gnu alloc ddos server port firewall ascii. Worm packet highjack terminal segfault cat error overflow Dennis Ritchie concurrently public root stack boolean for. "))
;; News updates and etc
;; Coming some day!
#;(div (@ (class "content-box homepage-news-box")
(p "As Datashards is still in the early specification phase, all the"
" implementation should be considered ongoing works in the alpha "
"stage, nontheless they may be useful to examine")
(ul (li (a (@ (href ""))
"Spritely Golem"))
(li (a (@ (href ""))
#;(div (@ (class "content-box homepage-news-box")
(style "margin-top: 20px; margin-bottom: 20px;"))
(h1 (@ (class "title"))
"Episodes and news")
......@@ -209,7 +220,7 @@
(take-up-to 10 (posts/reverse-chronological posts))))
(p (@ (style "text-align: center"))
(a (@ (href "/archive/"))
(define (index-page site posts)
......@@ -221,7 +232,6 @@
;;; Site
(define max-entries 1024)
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment