Changeset 13617 for lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.scm

Timestamp:

06/10/08 21:03:22 (5 years ago)

Author:

kiyoka

Message:

Improved RSS feed feature.

Files:

• lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.scm (modified) (2 diffs)

lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.scm

@@ -54 +54 @@
           oldtype:date-string->date-alist
           oldtype:utc->date-string
+          oldtype:utc->RFC822-date-string
           oldtype:utc->ago-string
           oldtype:grouping-blog-entries
@@ -242 +243 @@
 
 ;;
+;; Convert utc seconds to "2008-03-20T18:36:00+00:00" RFC822
+;;
+(define (oldtype:utc->RFC822-date-string utc)
+  (sys-strftime "%Y-%m-%dT%H:%M:%S+00:00" (sys-gmtime utc)))
+
+
+;;
 ;; Convert utc seconds to "    (10 seconds ago)"
 ;;