diff options
author | Ludovic Courtès | 2008-12-23 01:38:14 +0100 |
---|---|---|
committer | Ludovic Courtès | 2008-12-23 01:38:14 +0100 |
commit | 6fa59c5132a1a8bde543dd4ce4c6b6c33b8d0625 (patch) | |
tree | 894698a610aaa130174e9ba868dcaa5791035f98 /src | |
parent | 46964bfa4da1b9f4c2fb85768bcaca2ccfdab741 (diff) | |
download | skribilo-6fa59c5132a1a8bde543dd4ce4c6b6c33b8d0625.tar.gz skribilo-6fa59c5132a1a8bde543dd4ce4c6b6c33b8d0625.tar.lz skribilo-6fa59c5132a1a8bde543dd4ce4c6b6c33b8d0625.zip |
rss-2: Rename `generic-tag->skribe' to `shtml->skribe'.
Diffstat (limited to 'src')
-rwxr-xr-x | src/guile/skribilo/reader/rss-2.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/guile/skribilo/reader/rss-2.scm b/src/guile/skribilo/reader/rss-2.scm index 946ebdc..c3ae632 100755 --- a/src/guile/skribilo/reader/rss-2.scm +++ b/src/guile/skribilo/reader/rss-2.scm @@ -93,8 +93,9 @@ (string-append "rss-2: " fmt "~%") args)) -(define (generic-tag->skribe tag) - (let loop ((tag tag)) +(define (shtml->skribe tree) + ;; Turn TREE, an SHTML tree, to Skribe/Skribilo document tree (S-exp). + (let loop ((tag tree)) (match tag (('*TOP* body ...) `(list ,@(map loop body))) @@ -278,14 +279,14 @@ (let ((title (find-tag item 'title)) (date (find-tag item 'pubDate)) (desc (find-tag item 'description))) - `(,markup :title ,(generic-tag->skribe (html->shtml (cadr title))) + `(,markup :title ,(shtml->skribe (html->shtml (cadr title))) (p (bold ,(string-trim-both (date->string (english-date->date (cadr date)) "~e ~B ~Y"))) ". ") - ,(generic-tag->skribe + ,(shtml->skribe (html->shtml (cadr desc)))))) (define (feed->document feed) @@ -299,7 +300,7 @@ (let ((title (channel-title (car channels))) (single? (null? (cdr channels)))) ;; When there's only one channel, promote items as chapters. - `(document :title ,(generic-tag->skribe (html->shtml title)) + `(document :title ,(shtml->skribe (html->shtml title)) ,@(if single? (map (lambda (item) (item->section item 'chapter)) |