Changeset 271

Show
Ignore:
Timestamp:
02/02/08 21:04:19 (10 months ago)
Author:
ingy
Message:
Testing svk with emacs.
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/src/ingy/Document-Tools/lib/Document/Parser/Creole.pm

    r255 r271  
    55    my $all_blocks = [ 
    66        'h6', 'h5', 'h4', 'h3', 'h2', 'h1', 
    7         'ul', 'ol', 'in', 'p', 
     7        'ul', 'ol', 'hr', 'table', 'p', 
    88    ]; 
    99 
    1010    my $all_phrases = [ 
    11         'tt', 'b', 'i', 's', 
     11        'b', 'i', 'tt', 'br', 
    1212    ]; 
    1313 
    …… 
    9393            phrases =>$all_phrases, 
    9494        }, 
     95        hr => { 
     96            match => qr/\ *----\ *\n/, 
     97        }, 
    9598         
    96         in => { 
    97             match => qr/^(          # Block must start at beginning 
    98                 (?:>+.*\n)+         # Capture lines starting with '>' 
    99             )(?:\s*\n)?/x,          # Eat trailing empty lines 
    100             blocks => $all_blocks, 
    101             filter => sub { s/^> *//mg }, 
    102         }, 
    10399        b => { 
    104100            phrases => $all_phrases, 
    105             match => [re_huggy('\*'), re_bracket('\*')], 
     101            match => regexp('\*\*'), 
    106102        }, 
    107103        i => { 
    108104            phrases => $all_phrases, 
    109             match => [re_huggy('_'), re_bracket('_')], 
    110         }, 
    111         s => { 
    112             phrases => $all_phrases, 
    113             match => [re_huggy('-'), re_bracket('-')], 
     105            match => regexp('\/\/'), 
    114106        }, 
    115107        tt => { 
    116             phrases => $all_phrases, 
    117             match => [re_huggy('`'), re_bracket('`')], 
     108            match => regexp('{{{', '}}}'), 
     109        }, 
     110        br => { 
     111            match => qr/\\\\/, 
    118112        }, 
    119113    };