Changeset 15356 in project


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/sxml-fu/sxml-pagination.scm

    r13088 r15356  
    148148     ,(lambda (tag pg txt . rest)
    149149        `(a (@ (href ,(make-uri-string pg))) ,txt)))
    150     (*text* . ,(lambda (tag str) str))
    151     (*default* . ,(lambda x x))))
     150    ,@alist-conv-rules))
    152151)
  • release/4/sxml-fu/sxml-shortcuts.scm

    r15354 r15356  
    3333(import chicken scheme)
    3434
    35 (require-extension srfi-1 uri-common)
     35(require-extension srfi-1 uri-common sxml-transforms)
    3636
    3737(define shortcut-rules
     
    6363                                  ;; Fallback if no viewer
    6464                                  (url ,src ,title)))))
    65     (*text* . ,(lambda (tag str) str))
    66     (*default* . ,(lambda x x)))))
     65    ,@alist-conv-rules))
     66)
    6767
Note: See TracChangeset for help on using the changeset viewer.