diff options
| -rw-r--r-- | cljssss-g.clj | 10 | ||||
| -rw-r--r-- | footer.st | 9 | ||||
| -rw-r--r-- | header.st | 17 | ||||
| -rw-r--r-- | index.st | 16 |
4 files changed, 35 insertions, 17 deletions
diff --git a/cljssss-g.clj b/cljssss-g.clj index 6dcefd7..315cbc4 100644 --- a/cljssss-g.clj +++ b/cljssss-g.clj @@ -111,11 +111,11 @@ (sql/with-query-results [{id :id password :password}] ["SELECT id, password FROM user WHERE name = ?" (params :name)] - (if (= password (params :password)) - (do - (alter session assoc :id id) - (redirect-to "/")) - (redirect-to "/login?valuesofbetawillgiverisetodom=true")))))) + (if (= password (params :password)) + (do + (alter session assoc :id id) + (redirect-to "/")) + (redirect-to "/login?valuesofbetawillgiverisetodom=true")))))) (GET "/feedlist.opml" (with-session (opml-string (session :id)))) (GET "/lynxy-feedlist.html" diff --git a/footer.st b/footer.st new file mode 100644 index 0000000..bea2fe1 --- /dev/null +++ b/footer.st @@ -0,0 +1,9 @@ +</body> +</html> + +<!-- +Local Variables: + mode: html + coding: utf-8 +End: +--> diff --git a/header.st b/header.st new file mode 100644 index 0000000..16d1864 --- /dev/null +++ b/header.st @@ -0,0 +1,17 @@ +<?xml version="1.0" ?> +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" + "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> + +<html xmlns="http://www.w3.org/1999/xhtml"> +<head> + <title>$title$ — Gödel-Gentzen Clojure Syndication Services Super System</title> +</head> + +<body> + +<!-- +Local Variables: + mode: html + coding: utf-8 +End: +--> @@ -1,17 +1,9 @@ -<?xml version="1.0" ?> -<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" - "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> +$header(title=title)$ -<html xmlns="http://www.w3.org/1999/xhtml"> -<head> - <title>$title$ — Gödel-Gentzen Clojure Syndication Services Super System</title> -</head> +<h1 class="title">$title$</h1> +<p>$mainParagraph$</p> -<body> - <h1 class="title">$title$</h1> - <p>$mainParagraph$</p> -</body> -</html> +$footer()$ <!-- Local Variables: |