about.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

;;;; about.lisp -- an about page.

(in-package :vampire)

(defun about-page (body)
  (include-style body)
  (with-clog-create body
      (div ()
           (navigation-header ())
           (div (:class "centered-column") 
                (div ())
                (div () 
                     (p ( :content "Vampire is a small private app shared
  between friends. Its purpose is to create and share audio playlists,
  and to collaborate on playlists with your friends in real time."))
                     (p ( :content "The app is called vampire because it sucks
           content from other sources, backed by the popular
           youtube-dl tool."))

                     (p ( :content "Vampire is written in Common Lisp using the
           CLOG system."))
                     (p ( :content "I hope you enjoy using Vampire.")))
                (div ())))))