Changeset 20060 in project

Timestamp:

09/04/10 02:41:53 (10 years ago)

Author:

Moritz Heidkamp

Message:

gazette: add permalink to all issues, unlink title, remove title.sxml layout and add rudimentary archive page

Location:

gazette

Files:

• hyde.scm (modified) (1 diff)
• layouts/article.sxml (modified) (1 diff)
• layouts/default.sxml (modified) (1 diff)
• layouts/title.sxml (deleted)
• src/archive.sxml (added)
• src/feed.atom (modified) (1 diff)
• src/gazette.scss (modified) (1 diff)
• src/index.sxml (modified) (1 diff)
• src/issues/1.wiki (modified) (2 diffs)

gazette/hyde.scm

@@ -13 +13 @@
                    (environment-ref (page-eval-env) 'pages))))
 
+(define (format-seconds seconds)
+  (time->string (seconds->utc-time seconds) "%Y-%m-%d %Z"))
+
 (for-each (lambda (binding)
             (apply environment-extend! (cons (page-eval-env) binding)))
           `((page-updated ,page-updated)
-            (all-issues ,(lambda ()
-                           (sort-by (pages-matching "issues/.+") page-updated)))))
+            (format-seconds ,format-seconds)
+            (all-issues ,(let ((issues #f))
+                           (lambda () 
+                             (or issues
+                                 (begin
+                                   (set! issues (sort-by (pages-matching "issues/.+") page-updated))
+                                   issues)))))))

gazette/layouts/article.sxml

@@ -1 +1 @@
 ()
-`((div (@ (class "article-meta"))
+`((h1 ,($ 'title))
+
+  (div (@ (class "article-meta"))
        (p (@ (class "authors")) 
           "by "
-          ,(fold (lambda (name authors)
-                   (append authors
-                           `(,(and (pair? authors) ", ")
-                             (span (@ (class "author")) ,name))))
-                 '()
-                 ($ 'authors)))
-       (p  (@ (class "date")) ,(time->string (seconds->utc-time ($ 'date)) "%Y-%m-%d %Z")))
-  (inject ,contents))
+          ,(car ($ 'authors))
+          ,@(if (null? (cdr ($ 'authors))) 
+                '()
+                (map (lambda (author)
+                       `(,(car author) (span (@ (class "author")) ,(cdr author))))
+                     (append (map (cut cons ", " <>) (butlast (cdr ($ 'authors))))
+                             `((" and " . ,(last ($ 'authors))))))))
+       (p  (@ (class "date")) ,(format-seconds ($ 'date))))
+
+  (inject ,contents)
+
+  (ul (@ (class "links"))
+      (li (a (@ (href ,(page-path))) "Permalink to this issue"))
+      (li (a (@ (href "/archive.html")) "The Chicken Gazette Archive"))))

gazette/layouts/default.sxml

@@ -15 +15 @@
               (inject ,contents))
 
-         (p (@ (class "fineprint"))
-            "The chicken image used in the logo is kindly provided by Manfred Wischner ©"))))
+         (p (@ (id "fineprint"))
+            "The chicken image used in the logo is kindly provided and © 2010 by Manfred Wischner"))))

gazette/src/feed.atom

@@ -24 +24 @@
                     entries))
     id: (format ($ 'tag) ($ 'date) "/")
-    links: (list (make-link uri: (conc ($ 'base-uri) current-path) relation: "self" type: 'atom))
+    links: (list (make-link uri: (conc ($ 'base-uri) (page-path)) relation: "self" type: 'atom))
     entries: (map (lambda (p)
                     (make-entry title: (make-title ($ 'title p))

gazette/src/gazette.scss

@@ -1 +1 @@
 ()
-'((|#content|
-   (background "#fff")
-   (padding-top "1em"))
-
-  (|#header|
+'((|#header|
    (float "right")
    (margin-left "1em")
    (margin-bottom "1em"))
 
-  (.date
-   (font-style "italic"))
+  (|#content|
+   (background "#fff")
+   (padding-top "1em")
+   (padding-bottom "1em")
+   (overflow "auto")
 
-  (h1 
-   (margin-left "1em"))
+   ((// .date)
+    (font-style "italic"))
 
-  (.article-meta
-   (margin-left "2.2em")
-   (margin-bottom "7em"))
+   ((// h1) 
+    (margin-left "1em"))
 
-  (.fineprint
+   ((// .article-meta)
+    (margin-left "2.2em")
+    (margin-bottom "7em"))
+
+   ((// ul.links)
+    (text-align "right")
+    (margin-top "2em")
+    ((// li)
+     (list-style-type "none"))))
+
+  (|#fineprint|
    (text-align "center")
    (font-size ".9em")

gazette/src/index.sxml

@@ -1 +1 @@
 ()
-(map (lambda (page)
-       `((h1 (a (@ (href ,(page-path page)))
-                ,($ 'title page)))
-         (inject ,(read-page page "article.sxml"))))
-     (all-issues))
+(let ((latest-issue (fold (lambda (p l)
+                            (if (> (page-updated p) (page-updated l)) p l))
+                          (car (all-issues))
+                          (cdr (all-issues)))))
+
+  `((inject ,(read-page latest-issue "article.sxml"))))

gazette/src/issues/1.wiki

@@ -2 +2 @@
  (authors "Christian Kellermann")
  (date . 1282909270)
- (layouts "article.sxml" "title.sxml" "default.sxml"))
+ (layouts "article.sxml" "default.sxml"))
 
 == 0. Introduction
@@ -14 +14 @@
 things left out, omitted or plainly misunderstood. Feel free to
 discuss and add corrections to each issue as you see fit.
-
 
 == 1. New Infrastructure - Update Your Bookmarks!