Mercurial > hg > chronicle

changeset 34:1fc5a48a9e7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2007-09-03 05:13:09 by steve Added optional --lower-case argument.
author steve
date Mon, 03 Sep 2007 05:13:09 +0000
parents a7324ac2c17e
children 62cfade9c5cb
files bin/chronicle
diffstat 1 files changed, 14 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/bin/chronicle	Mon Sep 03 05:00:43 2007 +0000
+++ b/bin/chronicle	Mon Sep 03 05:13:09 2007 +0000
@@ -54,7 +54,7 @@
  --
  http://www.steve.org.uk/
 
- $Id: chronicle,v 1.13 2007-09-03 05:00:43 steve Exp $
+ $Id: chronicle,v 1.14 2007-09-03 05:13:09 steve Exp $
 
 =cut
 
@@ -319,6 +319,7 @@
                "no-tags",      \$CONFIG{'no-tags'},
                "no-cache",     \$CONFIG{'no-cache'},
                "no-archive",   \$CONFIG{'no-archive'},
+               "lower-case",   \$CONFIG{'lower-case'},
 
                # prefix
                "url-prefix=s", \$CONFIG{'url_prefix'},
@@ -334,7 +335,7 @@
 
     if ( $VERSION )
     {
-        my $REVISION      = '$Revision: 1.13 $';
+        my $REVISION      = '$Revision: 1.14 $';
         if ( $REVISION =~ /1.([0-9.]+) / )
         {
             $REVISION = $1;
@@ -526,7 +527,7 @@
         push( @$results,
             { tag   => $key,
               count => $count,
-              size  => $size} );
+              size  => $size } );
     }
     return $results;
 
@@ -1065,11 +1066,15 @@
     {
         $basename=$2;
     }
+
     #
     #  Read the entry
     #
     my $static = readBlogEntry( $filename );
 
+    #
+    #  Get the pieces of information.
+    #
     my $title = $static->{'title'} || $basename;
     my $tags  = $static->{'tags'};
     my $body  = $static->{'body'};
@@ -1302,6 +1307,12 @@
 
     my $suffix = $CONFIG{'suffix'} ||".html";
     $file .= $suffix;
+
+    #
+    #  Lower case?
+    #
+    $file = lc($file) if ( $CONFIG{'lower-case'} );
+
     return( $file );
 
 }