Permalink
Browse files

Added about page

  • Loading branch information...
1 parent 568263d commit a322814b8c9e4528e38be0a9e55fffa7c1d32859 @ckeen committed May 22, 2011
Showing with 24 additions and 2 deletions.
  1. +24 −2 pastiche.scm
View
@@ -138,7 +138,8 @@
(<li> (link (make-pathname base-path (car m))
(cdr m))))
'(("" . "New Paste")
- ("browse" . "Browse pastes")))))))
+ ("browse" . "Browse pastes")
+ ("about" . "What is this?")))))))
(define (recent-pastes n)
(<div> class: "paste-list"
@@ -356,5 +357,26 @@
(link (sprintf "~a?from=~a;to=~a" history-path older-from older-to)
"older >")
"older >")))
- (navigation-links))))))))))
+ (navigation-links)))))))
+ (define-page "about"
+ (lambda ()
+ (html-page
+ (++ (<div> id: "content"
+ (<h2> "You have reached the CHICKEN scheme pasting service")
+ (<p> (htmlize "These pages are maintained by the CHICKEN scheme
+ project team. Anyone that enters a correct CAPTCHA response is allowed
+ to post anything he likes. If you find objectionable content, fell
+ free to drop a mail at chicken-janitors <at> nongnu dot org"))
+ (<p> "The source code for these pages is
+ distributed under a BSD license at C-Keen's "
+ (link "https://github.com/ckeen/pastiche" "github repo"))
+ (<p> "Our thanks go to chandler for the famous "
+ (link "http://paste.lisp.org" "lisppaste") " "
+ (link "http://www.cliki.net/lisppaste" "(cliki page)")
+ " bot and the same disclaimer applies:")
+ (<p> "Lisppaste pastes can be made by anyone at
+ any time. Imagine a fearsomely comprehensive disclaimer of
+ liability. Now fear, comprehensively."))
+ (navigation-links))))))))
+

0 comments on commit a322814

Please sign in to comment.