Changeset 15356 in project
- Timestamp:
- 08/07/09 14:46:27 (12 years ago)
- Location:
- release/4/sxml-fu
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/sxml-fu/sxml-pagination.scm
r13088 r15356 148 148 ,(lambda (tag pg txt . rest) 149 149 `(a (@ (href ,(make-uri-string pg))) ,txt))) 150 (*text* . ,(lambda (tag str) str)) 151 (*default* . ,(lambda x x)))) 150 ,@alist-conv-rules)) 152 151 ) -
release/4/sxml-fu/sxml-shortcuts.scm
r15354 r15356 33 33 (import chicken scheme) 34 34 35 (require-extension srfi-1 uri-common )35 (require-extension srfi-1 uri-common sxml-transforms) 36 36 37 37 (define shortcut-rules … … 63 63 ;; Fallback if no viewer 64 64 (url ,src ,title))))) 65 (*text* . ,(lambda (tag str) str))66 (*default* . ,(lambda x x)))))65 ,@alist-conv-rules)) 66 ) 67 67
Note: See TracChangeset
for help on using the changeset viewer.