Changeset 14609 for lang/gauche

Show
Ignore:
Timestamp:
06/25/08 23:34:37 (5 months ago)
Author:
kiyoka
Message:

Changed build-date rule of RSS.

Location:
lang/gauche/oldtype/trunk
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/oldtype.kahua

    r14347 r14609  
    394394                             (list index-page) 
    395395                             entry-pages)) 
    396          (build-date-utc (last 
    397                           (sort 
    398                            (map 
    399                             (lambda (e) 
    400                               (utc-of 
    401                                (get-latest-log 
    402                                 (timeline-of e)))) 
    403                             entry-pages))))) 
     396         (build-date-utc 
     397          (last 
     398           (sort 
     399            (map 
     400             (lambda (e) 
     401               (utc-of 
     402                (get-latest-log 
     403                 (timeline-of e)))) 
     404             entry-pages)))) 
     405         (build-date-utc 
     406          (- build-date-utc (* 60 5))))  ;; build date is 5 minutes ago from latest entry 
    404407    (rss/ (@/ (version "2.0") 
    405408              (xmlns:atom "http://www.w3.org/2005/Atom")) 

  • lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/version.kahua

    r14372 r14609  
    77 
    88;;--------------------------------------------------------- 
    9 (define *oldtype-version* "0.2.8") 
     9(define *oldtype-version* "0.2.9") 

  • lang/gauche/oldtype/trunk/command/blog

    r14139 r14609  
    3030           (lambda () 
    3131             (when (#/[.][0-9]+/ filename) 
    32                (display "----") (newline) 
    33                (display  
    34                 (string-append "* [[" (oldtype:otpath->wikiname filename) "]]"))) 
     32               (begin 
     33                 (display "----") (newline) 
     34                 (display  
     35                  (string-append "* [[" (oldtype:otpath->wikiname filename) "]]")) 
     36                 (newline) 
     37                 (newline))) 
    3538             (for-each print (port->string-list (current-input-port)))))) 
    3639       entrylist))))