Changeset 15356 in project

Timestamp:

08/07/09 14:46:27 (10 years ago)

Author:

sjamaan

Message:

Change explicit default/text rules to alist-conv-rules, for readability

Location:

release/4/sxml-fu

Files:

• sxml-pagination.scm (modified) (1 diff)
• sxml-shortcuts.scm (modified) (2 diffs)

release/4/sxml-fu/sxml-pagination.scm

@@ -148 +148 @@
      ,(lambda (tag pg txt . rest)
         `(a (@ (href ,(make-uri-string pg))) ,txt)))
-    (*text* . ,(lambda (tag str) str))
-    (*default* . ,(lambda x x))))
+    ,@alist-conv-rules))
 )

release/4/sxml-fu/sxml-shortcuts.scm

@@ -33 +33 @@
 (import chicken scheme)
 
-(require-extension srfi-1 uri-common)
+(require-extension srfi-1 uri-common sxml-transforms)
 
 (define shortcut-rules
@@ -63 +63 @@
                                   ;; Fallback if no viewer
                                   (url ,src ,title)))))
-    (*text* . ,(lambda (tag str) str))
-    (*default* . ,(lambda x x)))))
+    ,@alist-conv-rules))
+)