Add the web site source.

4 files changed, 476 insertions, 0 deletions

diff --git a/web/.gitignore b/web/.gitignore
new file mode 100644
index 0000000..dcaf716
--- /dev/null
+++ b/web/.gitignore
@@ -0,0 +1 @@
+index.html
diff --git a/web/GNUmakefile b/web/GNUmakefile
new file mode 100644
index 0000000..37b2a5e
--- /dev/null
+++ b/web/GNUmakefile
@@ -0,0 +1,18 @@
+SKRIBILO := skribilo -v2
+
+docs := index.skb
+products := $(docs:%.skb=%.html)
+
+
+all: $(products)
+
+%.html: %.skb
+	$(SKRIBILO) --target=html -o $@ $^
+
+clean:
+	-rm -f $(products)
+
+
+.PHONY: all clean
+
+# arch-tag: c5c7c80c-5cb1-47f2-a93d-53c690e30bd6
diff --git a/web/index.skb b/web/index.skb
new file mode 100644
index 0000000..bbe09bd
--- /dev/null
+++ b/web/index.skb
@@ -0,0 +1,297 @@
+;;;
+;;; Skribilo's Wonderful Website.
+;;;
+
+(use-modules (skribilo ast)
+	     (skribilo engine)
+	     (skribilo source lisp)
+	     (skribilo package html-navtabs))
+
+(define (html-tabs n e)
+  ;; Create one "navigation tab" for each chapter.
+  (let ((doc (ast-document n)))
+    (map handle
+         (container-search-down (lambda (n)
+                                  (is-markup? n 'chapter))
+                                doc))))
+
+
+(let ((html (find-engine 'html)))
+  (if (engine? html)
+      (begin
+        ;; Customizing the HTML output...
+	(engine-custom-set! html 'css "skribilo.css")
+        (engine-custom-set! html 'html-navtabs-produce-css? #f)
+        (engine-custom-set! html 'html-navtabs html-tabs))))
+
+
+
+;;;
+;;; List of useful URLs.
+;;;
+
+(define (wikipedia/markup . body)
+  (ref :url "http://en.wikipedia.org/wiki/Markup_language"
+     :text body))
+
+(define (wikipedia/markup-less . body)
+  (ref :url "http://en.wikipedia.org/wiki/Lightweight_markup_language"
+     :text body))
+
+(define (scheme . body)
+  (ref :url "http://schemers.org/" :text body))
+
+(define (guile . body)
+  (ref :url "http://www.gnu.org/software/guile/guile.html" :text body))
+
+(define (r6rs . body)
+  (ref :url "http://r6rs.org/" :text body))
+
+(define (latex . body)
+  (ref :url "http://www.latex-project.org/" :text body))
+  
+(define (context . body)
+  (ref :url "http://www.pragma-ade.nl/" :text body))
+
+(define (lout . body)
+  (ref :url "http://lout.sf.net/" :text body))
+
+(define (ploticus . body)
+  (ref :url "http://ploticus.sf.net/" :text body))
+
+(define (guile-lib . body)
+  (ref :url "http://home.gna.org/guile-lib/" :text body))
+
+(define (freedom . body)
+  (ref :url "http://www.gnu.org/philosophy/free-sw.html" :text body))
+
+(define (gpl . body)
+  (ref :url "http://www.gnu.org/licenses/gpl.html" :text body))
+
+(define (emacs/outline . body)
+  (ref :url "http://www.gnu.org/software/emacs/manual/html_node/Outline-Format.html"
+     :text body))
+
+(define (skribilo-ml . body)
+  (ref :url "http://lists.nongnu.org/mailman/listinfo/skribilo-users"
+     :text body))
+
+(define (git . body)
+  (ref :url "http://git.or.cz/" :text body))
+
+(define (skribe* . body)
+  (ref :url "http://www-sop.inria.fr/mimosa/fp/Skribe/" :text body))
+
+(define (scribe . body)
+  (ref :url "http://www-sop.inria.fr/mimosa/fp/Scribe/" :text body))
+
+(define (bigloo . body)
+  (ref :url "http://www-sop.inria.fr/mimosa/fp/Bigloo/" :text body))
+
+(define (stklos . body)
+  (ref :url "http://www.stklos.org/" :text body))
+
+
+;;;
+;;; The website.
+;;;
+
+(document :title [Skribilo: The Ultimate Document Programming Framework]
+   :author #f
+   :keywords '("Skribilo" "document programming"
+               "document formatting" "authoring"
+               "Scheme" "Guile"
+               "Skribe" "Lout" "LaTeX" "HTML")
+
+   (mark "intro")
+
+   (p [Skribilo is a ,(freedom [free]) document production tool that
+takes a structured document representation as its input and renders that
+document in a variety of output formats: HTML for on-line browsing, and
+,(lout [Lout]) and ,(latex [LaTeX]) for high-quality hard copies.])
+
+   (p [The input document can use Skribilo's ,(wikipedia/markup [markup
+language]) to provide information about the document's structure, which
+is similar to HTML or ,(latex [LaTeX]) and does not require expertise.
+Alternatively, it can use a simpler, ``,(wikipedia/markup-less
+[markup-less])'' format that borrows from ,(emacs/outline [Emacs'
+outline mode]) and from other conventions used in emails, Usenet and
+text.])
+
+   (p [Last but not least, Skribilo can be thought of as a complete
+,(emph [document programming framework]) for the ,(scheme [Scheme
+programming language]) that may be used to automate a variety of
+document generation tasks.  Skribilo uses ,(guile [GNU Guile]) 1.8 as
+the underlying Scheme implementation.])
+
+
+   (chapter :title [Features] :number #f :file #f
+
+      (itemize
+         (item [Output in a variety of formats: HTML, XML, ,(lout
+[Lout]), ,(latex [LaTeX]), ,(context [ConTeXt]).])
+         (item [Input using ,(skribe* [Skribe])'s markup (see
+,(ref :mark "self" :text [this example])) or using free form,
+markup-less text and conventions similar to those used in
+,(emacs/outline [Emacs' outline mode]).])
+         (item [Packages are available to produce: slides (overhead
+transparencies), pie charts, equation formatting, syntax highlighting of
+computer programs, and others.])
+         (item [Bibliography management, i.e., BibTeX on steroids thanks
+to the programmability brought by ,(scheme [Scheme]).])
+         (item [Use of a proper module system (currently that of ,(guile
+[Guile])) rather than ,(tt [load])-style interactions.])
+         (item [And much more!  :-)])))
+
+   (chapter :title [Availability] :number #f :file #f
+
+      (p [Releases are available from the ,(ref :text [download area]
+:url "http://dl.sv.nongnu.org/releases/skribilo/").])
+
+      (p [Skribilo is distributed under the terms of the ,(gpl [GNU
+General Public Licence]), version 2 or later.  In order to use Skribilo,
+you need the following pieces of software:
+
+,(itemize
+    (item [,(guile [GNU Guile]) 1.8.3 or later;])
+    (item [,(ref :url "http://www.nongnu.org/guile-reader/"
+               :text [Guile-Reader]) 0.3 or later;])
+    (item [either ,(lout [Lout]) (3.31 or later) or ,(latex [LaTeX]) to produce
+hard copies (PostScript/PDF);])
+    (item [optionally, ,(ploticus [Ploticus]) to produce pie charts
+(alternatively, ,(lout [Lout]) can be used for that purpose).]))]))
+
+   (chapter :title [Documentation] :number #f :file #f ;; FIXME: Do it!
+
+      (p [The user manual is available in the following formats:
+
+,(itemize
+    (item (ref :text [HTML] :url "doc/user.html"))
+    (item (ref :text [PDF] :url "doc/user.pdf")))]))
+
+   (chapter :title [Example] :number #f :file #f
+
+      (p [Here is a live example: the source code of this web page,
+colored using Skribilo's computer program coloring features.])
+
+      (mark "self")
+      (tt (prog
+	     (source :language skribe
+		:file "index.skb"))))
+
+   (chapter :title [Mailing List] :number #f :file #f
+      :ident "mailing-list"
+
+      (p [If you want to complain or tell how bright and shinning your
+life has become since you discovered Skribilo, then go ahead and
+subscribe to the ,(skribilo-ml [,(tt [skribilo-users]) mailing list])!
+If you want to suggest improvements, that's also where they should go!]))
+
+   (chapter :title [Development] :number #f :file #f
+
+      (p [Development is done using the ,(git [Git]) distributed
+revision control system.  You can fetch a copy of the source code
+repository using the following incantation:
+
+,(frame :class "code-excerpt" :border #f :margin #f
+    (code [git-clone git://git.sv.gnu.org/skribilo.git]))
+
+You can then happily hack on your side and eventually promote your
+changes ,(ref :ident "mailing-list" :text [on the mailing-list]).])
+      
+      (p [The repository can also be ,(ref :url
+"http://git.sv.gnu.org/gitweb/?p=skribilo.git;a=summary" :text
+[browsed on-line]).]))
+
+   (chapter :title [History] :number #f :file #f
+
+      (p [Skribilo is a direct descendant of ,(skribe* [Skribe]), a
+document production tool written by Manuel Serrano for ,(bigloo
+[Bigloo]) and ported to ,(stklos [STkLos]) by Erick Gallesio.
+Development of ,(skribe* [Skribe]) started around 2003 as a successor of
+Manuel's previous documentation system named ,(scribe [Scribe]).])
+
+      (p [Skribilo derives from Skribe 1.2d but it differs in a number
+of ways:
+
+,(itemize
+    (item [It contains new packages (pie charts, equation formatting)
+and a new engine (the ,(lout [Lout]) engine).])
+    (item [Symmetrically to the notion of engine (rendering back-ends),
+Skribilo has the concept of ,(emph [readers]).  A reader is the part
+that reads an input document in a specific syntax and returns an
+abstract syntax tree understandable by the core mechanisms.  Skribilo
+currently comes with two readers: one that implements the standard
+Skribe syntax, and one that reads free form text with annotations
+similar to those found in ,(emacs/outline [Emacs' outline mode]).])
+    (item [It's been reworked to be used as a framework or library,
+rather than as a stand-alone program.  As a result, the logical
+separation of modules has been improved, the globally shared state has
+been significantly reduced, and ,(ref :url
+"http://srfi.schemers.org/srfi-35/srfi-35.html" :text [SRFI-35
+exceptions]) are used rather than plain ,(tt [error]) or ,(tt [exit])
+calls.  The idea is to expose ,(emph [all the core mechanisms]) of
+Skribilo to the user, thereby blurring the border between the user
+program or document and the core of the system.])
+    (item [Although Skribilo only runs on ,(guile [GNU Guile]), care was
+taken to use mostly portable APIs (,(ref :url "http://srfi.schemers.org/"
+:text [SRFIs])) so that the code is intelligible to most Scheme
+programmers.]))]))
+
+    (chapter :title [Related Links] :number #f :file #f
+
+       (itemize
+          (item [,(skribe* [Skribe]), the father of Skribilo.  Its
+predecessor is ,(scribe [Scribe]) and their goals were expressed in
+,(ref :url "http://www-sop.inria.fr/mimosa/fp/Scribe/doc/scribe.html"
+:text [the Scribe white paper]) by Manuel Serrano and Erick Gallesio.])
+          (item [Andy Wingo's ,(ref :url
+"http://wingolog.org/software/guile-lib/texinfo/" :text [STexi]) (,(ref
+:text [Texinfo] :url "http://www.gnu.org/software/texinfo/") as
+S-expressions), available in ,(guile-lib [Guile-lib]).  The purely
+functional ,(ref :text (tt [fold-layout]) :url
+"http://home.gna.org/guile-lib/doc/ref/sxml.fold/") operator is also
+very interesting.])
+          (item [,(ref :url "http://okmij.org/ftp/Scheme/SXML.html"
+:text [SXML]), XML as S-expressions.])
+	  (item [,(ref :url
+	  "http://www.ccs.neu.edu/home/dorai/mistie/mistie.html" :text
+[Mistie]), a ``programmable filter'' in Scheme (for MzScheme) that
+allows the definition of filters from one markup language to another
+one.])
+	  (item [,(ref :url "http://www.it.usyd.edu.au/~jeff/nonpareil/"
+:text [Nonpareil]), Jeff Kingston's much anticipated successor to ,(lout
+[Lout]), both being purely functional document formatting
+systems/languages.  Although Nonpareil is more ambitious than Skribilo,
+the document entitled ,(it [Nonpareil Document Formatting]) shows
+interesting similarities between both systems: separation of document
+syntax and programming syntax (``readers'' and Scheme in Skribilo),
+representation of document structure separated from the representation
+of a laid out document (Nonpareil's ,(it [doc]) objects resemble
+Skribilo's ,(tt [<ast>]) objects; its ,(it [scene]) objects have no
+equivalent in Skribilo since Skribilo doesn't address text layout by
+itself).  It also includes interesting discussions about text selection
+and document traversal (Nonpareil's ,(it [doc]) objects have no parent
+pointers, unlike Skribilo's ,(tt [<ast>])).])
+	  (item [Good ol' ,(ref :url
+"http://www.gnu.org/software/texinfo/" :text [GNU Texinfo]) abstracts
+the various kinds of back-ends very well (in particular its
+cross-reference-related commands).])
+          (item [,(ref :url
+"http://www.coyotos.org/docs/osdoc/osdoc.html" :text [OSDoc]), a
+derivative of ,(ref :url "http://docbook.org/" :text [Docbook]).])
+          (item [Systems that produce documents in various formats from
+(almost) markup-less input text: ,(ref :url "http://txt2tags.sf.net/"
+:text [txt2tags]), ,(ref :url
+"http://os.inf.tu-dresden.de/~nf2/files/GOSH/" :text [GOSH]), ,(ref :url
+"http://mercnet.pt/plaindoc/pd.html" :text [PlainDoc]), ,(ref :url
+"http://www.methods.co.nz/asciidoc/" :text [AsciiDoc]), and many
+others.]))))
+
+
+;;; Local Variables:
+;;; coding: latin-1
+;;; ispell-local-dictionary: "american"
+;;; End:
+
+;;; arch-tag: fd51e0ce-d99f-4b70-8b92-9afbcfcf8855
diff --git a/web/skribilo.css b/web/skribilo.css
new file mode 100644
index 0000000..403defb
--- /dev/null
+++ b/web/skribilo.css
@@ -0,0 +1,160 @@
+pre { font-family: monospace }
+tt { font-family: monospace }
+code { font-family: monospace }
+body { margin: 1em 1.5em 1.5em 1.5em; background: #ffffff; }
+p { text-align: justify; }
+p.flushright { text-align: right }
+p.flushleft { text-align: left }
+span.sc { font-variant: small-caps }
+span.sf { font-family: sans-serif }
+li { margin: 1%; text-align: justify; }
+
+
+.skribilo-title {
+  font-family: sans-serif;
+  font-weight: bolder;
+  font-size: large;
+  text-align: right;
+  background: #ee7777; /* #dddde0; */
+  border-top-color: black;
+  border-top-style: solid;
+  border-top-width: 1px;
+}
+
+.skribilo-body {
+  font-family: sans-serif;
+  font-weight: normal;
+  text-align: left;
+  background: #ffffff;
+  padding: 0 5% 0 5%
+}
+
+.skribilo-ending {
+  /* The Skribilo advertising message.  */
+  font-family: sans-serif;
+  font-weight: normal;
+  font-size: small;
+  text-align: right;
+  color: #999;
+  border-top-style: dashed;
+  border-top-width: 1px;
+  border-top-color: #aaa;
+  margin: 20px 0 0 0;
+}
+
+.chapter {  /* chapter title when `:file' is #f */
+  font-family: sans-serif;
+  font-weight: bolder;
+  font-size: x-large;
+  text-align: right;
+  background: #eeeeee;
+}
+
+.section-title {
+  background: #eeeef0;
+  font-family: sans-serif;
+  text-align: right;
+}
+
+.subsection-title { font-family: sans-serif; }
+
+.code-excerpt {
+  background: #eeeef0;
+  font-family: fixed-width, Courier;
+  text-align: left;
+  margin: 20px;
+  padding: 10px 25px 10px 25px;
+  border-width: 0px;
+  align: center;
+}
+
+/* Links.  */
+
+a { text-decoration: none; border: 0 0 0 0; border-style: none; }
+a:link { color: #333344; }
+a:hover { background: #ee7777; color: #333344; }
+a:visited { color: #443333; }
+
+
+/* Navigation tabs (currently unused) */
+
+a.inactive { padding: 0px 10px 0px 10px; }
+
+div.navtabs-title {
+  padding: 0 0 0 0;
+  margin: 0 0 0 0;
+  border: 0 0 0 0;
+  text-align: right;
+  background: #8381de;
+}
+div.navtabs-bar {
+  margin: 0 0 0 0;
+  border: 0 0 0 0;
+  text-align: right;
+  border-top-color: black;
+  border-top-style: solid;
+  border-top-width: 1px;
+  padding: 0 0 0 20%;
+  margin-bottom: 5%;
+  background: white;
+}
+div.navtabs-tabs {
+  color: black;
+  border-width: 0;
+  border-color: black;
+  border-style: dotted;
+  padding: 2px 10px 0px 10px;
+  margin: 0 1px 0 0;
+  text-decoration: none;
+  background: white;
+  font-family: sans-serif;
+}
+
+
+/* Margins */
+
+table.left-margin-menu {
+  border-radius: 10pt;
+  -moz-border-radius: 10pt;
+  background: #eee;
+  margin: 10px;
+}
+
+
+td.skribilo-left-margin {
+  border-width: 0;
+  padding: 0 10px 0 10px;
+  height: 100%;
+  background: #ffffff;
+  font-family: sans-serif, Helvetica, Arial;
+  font-size: small;
+}
+
+div.skribilo-left-margin {
+  position: fixed;
+  /* width: 10%; */
+}
+
+table.skribilo-margins {
+  border-width: 1px 0 0 0;
+  border-style: solid;
+  border-color: black;
+  margin: 0px;
+  height: 100%;
+}
+
+div.skribilo-right-margin {
+  border-width: 0 0 0 1px;
+  border-left-style: solid;
+  border-left-color: black;
+  margin: 0;
+  height: 100%;
+}
+table.skribilo-margins td.skribilo-right-margin {
+  border-bottom-width: 1px;
+  border-bottom-style: solid;
+  border-bottom-color: black;
+}
+
+/* arch-tag: 96319a9d-c819-48dd-b7c9-dd3a64a21dde
+ */