;;; index.html-data
;;; Copyright (C) 2010, 2011 Thien-Thi Nguyen
;;; This file is provided under GPLv3+.

(~simple-strict-xhtml
 (~head (~title "Guile-PG")
        ;; apparently savannah needs this, sigh.
        (~meta 'http-equiv "Content-Type"
               'content "text/html; charset=utf-8"))

 (~body

  (~h1 "Guile-PG")
  (~hr)

  (~h2 "What is it?")
  (~p "Guile-PG is a collection of modules for"
      " " (~a 'href "http://www.gnu.org/software/guile/"
              "Guile")
      " allowing access to the " (~a 'href "http://www.postgresql.org/"
                                     "PostgreSQL RDBMS")
      " from Scheme programs.")

  (~p "The low-level module ‘" (~code "(database postgres)") "’"
      ", originally written by " (~a 'href "HISTORY.txt"
                                     "Ian Grant")
      ","
      " provides an almost one-to-one correspondence with the PostgreSQL"
      " \"libpq\" C library interface.  The other modules build on it to"
      " provide abstractions and convenience procedures:")

  (~table
   (map (lambda (pair)
          (~tr (~td (~code (object->string (car pair))))
               (~td (cdr pair))))
        '(((database postgres-qcons)    . "Query Construction")
          ((database postgres-resdisp)  . "Displaying Results")
          ((database postgres-types)    . "Types Conversion")
          ((database postgres-col-defs) . "Column Definitions")
          ((database postgres-resx)     . "Result Transforms")
          ((database postgres-table)    . "Single-Table Abstraction")
          ((database postgres-meta)     . "Introspection")
          ((database postgres-gxrepl)   . "Easy Interaction"))))

  (~p "It is released under the " (~a 'href "http://www.gnu.org/"
                                      "GNU")
      " " (~a 'href "http://www.gnu.org/licenses/#GPL"
              "GPLv3+")
      " along with a fully-indexed manual in texinfo format"
      " (i.e., the source for the " (~a 'href "doc/index.html"
                                        "online documentation")
      ").")

  (~h2 "News")

  (<format-NEWS>)

  (~h2 "Hacking")
  (~p "Check out the " (~a 'href "http://savannah.nongnu.org/projects/guile-pg/"
                           "project page")
      " on " (~a 'href "http://savannah.nongnu.org/"
                 "savannah (nongnu)")
      ".")

  (~hr)
  (~p (copyright-since 2010))
  (~p (strftime "Updated: %F %R UTC" (gmtime (current-time)))
      " " (~~source "NEWS-excerpt"
                    "index.html-data"
                    "common.scm"
                    "GNUmakefile"))))

;;; index.html-data ends here