Mercurial > hg > chronicle

changeset 178:2353a39f57e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handle non-alphanumerical characters in titles.
author Steve Kemp <steve@steve.org.uk>
date Tue, 01 Apr 2008 22:16:25 +0100
parents 210e50f5e1bf
children 9605ec6f91af
files bin/chronicle
diffstat 1 files changed, 37 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/bin/chronicle	Tue Apr 01 22:10:04 2008 +0100
+++ b/bin/chronicle	Tue Apr 01 22:16:25 2008 +0100
@@ -584,6 +584,11 @@
     #
     my $pattern = $CONFIG{'pattern'} || "*";
 
+
+
+    #
+    #  Find the filenames.
+    #
     foreach my $file ( sort( glob( $CONFIG{'input'} . "/" . $pattern ) ) )
     {
 
@@ -606,8 +611,8 @@
     {
         print <<EOF;
 
-  There were no text files found in the input directory
- $CONFIG{'input'} which matched the pattern '$pattern'.
+  There were no files found in the input directory $CONFIG{'input'}
+ which matched the pattern '$pattern'.
 
   Aborting.
 
@@ -635,7 +640,7 @@
 
     foreach my $f ( keys %data )
     {
-        my $h = $data{$f};
+        my $h    = $data{$f};
         my $tags = $h->{'tags'} || undef;
         foreach my $t (@$tags)
         {
@@ -667,7 +672,6 @@
 
     foreach my $key ( sort keys(%unique) )
     {
-
         # count.
         my $count = $unique{$key};
 
@@ -1134,8 +1138,14 @@
         my $blog = readBlogEntry($f);
         if ( keys(%$blog) )
         {
+            #
+            #  Test for the cut in a quick fashion.
+            #
             if ( $blog->{'body'} =~ /<cut/i )
             {
+                #
+                #  Properly process a "cut"
+                #
                 $blog->{'body'} =
                   processCut( $blog->{'body'}, $blog->{'link'} );
             }
@@ -1204,7 +1214,21 @@
 
 =begin doc
 
-  Process the body for <cut text="xx"></cut>
+  Process the body for any present cut tags which might be present.
+
+  The cut text looks like this:
+
+=for example begin
+
+   Blah blah
+   This is visible
+   <cut [text="xx"]>
+   This is hidden
+   So is this
+   </cut>
+   This is visible
+
+=for example end
 
 =end doc
 
@@ -1669,16 +1693,18 @@
 {
     my ($file) = (@_);
 
+    #
+    #  Strip suffix.
+    #
     if ( $file =~ /(.*)\.(.*)/ )
     {
         $file = $1;
     }
-    $file =~ s/ /_/g;
-    $file =~ s/'/_/g;
-    $file =~ s/!/_/g;
-    $file =~ s/\?/_/g;
-    $file =~ s/\///g;
-    $file =~ s/\\//g;
+
+    #
+    #  Get rid of non-alphanumerical characters
+    #
+    $file =~ s/[^a-z0-9]/_/gi;
 
     my $suffix = $CONFIG{'suffix'} || ".html";
     $file .= $suffix;