Changeset 15363 in project


Ignore:
Timestamp:
08/07/09 15:26:33 (10 years ago)
Author:
sjamaan
Message:

Fix "special" handling

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/wiki-parse/wiki-parse.scm

    r15361 r15363  
    150150        (wiki-url-rx
    151151         (irregex "((?:https?|ftp):/+[\\-+.,_/%?&~=:\\w]+[\\-+_/%?&~=:\\w])"))
     152        (wiki-special-rx
     153         (irregex "\\[\\[([a-z]+):([^\\]]*)\\]\\]"))       
    152154        (wiki-word-rx
    153          (irregex "\\[\\[([^\\]|]+)(?:\\| *([^\\]|]+))?\\]\\]"))
    154         (wiki-special-rx
    155          (irregex "\\[\\[([a-z]+):([^\\]]*)\\]\\]")))
     155         (irregex "\\[\\[([^\\]|]+)(?:\\| *([^\\]|]+))?\\]\\]")))
    156156    (lambda (str)
    157157      (irregex-multi-fold
     
    195195                   (irregex-match-substring m 1)
    196196                   (irregex-match-substring m 1))))
     197         (,wiki-special-rx
     198          ,(lambda (m) (list 'special (string->symbol (irregex-match-substring m 1))
     199                             (string-trim-both (irregex-match-substring m 2)))))
    197200         (,wiki-word-rx
    198201          ,(lambda (m)
     
    200203                   (irregex-match-substring m 1)
    201204                   (irregex-match-substring m 2))))
    202          (,wiki-special-rx
    203           ,(lambda (m) (list 'special (string->symbol (irregex-match-substring m 1))
    204                              (string-trim-both (irregex-match-substring m 2)))))
    205205         (,wiki-blockquote-rx
    206206          ,(lambda (m) (list 'blockquote (irregex-match-substring m 1))))
Note: See TracChangeset for help on using the changeset viewer.