Changeset 21624 for lang/gauche

Show
Ignore:
Timestamp:
10/19/08 17:33:42 (5 years ago)
Author:
kiyoka
Message:

Supported generate wiki contents as CDATA section for RSS feed.

Location:
lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype
Files:
2 modified

Legend:

Unmodified
Added
Removed

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

    r19763 r21624  
    395395 
    396396;; define elements for RSS 2.0 
    397 (define-elements channel rss description lastBuildDate docs generator item pubDate author guid atom:link) 
     397(define-elements channel rss description lastBuildDate docs generator item pubDate author guid atom:link no-escape) 
     398 
     399;; Added no-esacpe element to Kahua framework 
     400(define-element no-escape (attrs auxs contents context cont) 
     401  (cont (list (apply make-no-escape-text-element contents)) 
     402        context)) 
     403 
    398404 
    399405;; get-rss entry 
    … …  
    438444                (item/ 
    439445                 (title/            (string-append (name-of e) "::" (oldtype-first-line e))) 
    440                  (description/      (string-join (get-plain-list e) "\n")) 
     446                 (description/ 
     447                  (no-escape/ 
     448                   (string-append 
     449                    "<![CDATA[<pre>" 
     450                    (regexp-replace-all #/\]\]>/  
     451                                        (string-join (get-plain-list e) "\n") 
     452                                        "") 
     453                    "</pre>]]>"))) 
    441454                 (link/             uri) 
    442455                 (guid/             uri) 

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

    r21126 r21624  
    77 
    88;;--------------------------------------------------------- 
    9 (define *oldtype-version* "0.3.5") 
     9(define *oldtype-version* "0.3.6")