#!/usr/bin/perl # normalize Markdown use Getopt::Long; use File::Slurp; use Lingua::Sentence; use strict; use warnings; use charnames ':full'; # setup sentence splitter my $splitter = Lingua::Sentence->new("en"); my $force; GetOptions ("force|f"); my $stem = shift; $_ = read_file( $stem . '.md' ); # join non-headline multi-lines s/([^\n=])\n/$1 /g; #s/(?<=[\S^=])\h*\n(?=[\S^=])/ /g; # split into sentences $_ = $splitter->split($_); # split after comma, and before and after ellipsis #s/,\s(?=[^\v=]*\v)/,\n/mg; s/\h+(\(\N{HORIZONTAL ELLIPSIS}\))/\n$1/mg; s/(\(\N{HORIZONTAL ELLIPSIS}\))\h+/$1\n/mg; write_file( $stem . '.mdwn', $_ ); print "DONE: $0 stem $stem\n"; '/>
summaryrefslogtreecommitdiff
path: root/tags/2c/0d/09a801c9bd3b%24b5b6b560%248202a8c0@proshop/inbox
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2023-06-27 09:35:08 +0200
committerJonas Smedegaard <dr@jones.dk>2023-06-27 09:35:08 +0200
commitfd54908da2b05c526dd3bee9b6dcd093214a220d (patch)
treec69c845069c99d1d01044f6fafda7c08433329c6 /tags/2c/0d/09a801c9bd3b%24b5b6b560%248202a8c0@proshop/inbox
parentba46132213560cf3335d53560d519c0ec0190da2 (diff)
master
Diffstat (limited to 'tags/2c/0d/09a801c9bd3b%24b5b6b560%248202a8c0@proshop/inbox')