summaryrefslogtreecommitdiff
path: root/perl/IkiWiki/Plugin/h1title.pm
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2010-09-16 01:10:17 +0200
committerJonas Smedegaard <dr@jones.dk>2010-09-16 01:10:17 +0200
commit6dff29457c2723101f65d405927a6d5c206fbe58 (patch)
tree8e5954cae88321707253fb8c9bd70fec685fbb01 /perl/IkiWiki/Plugin/h1title.pm
parent562a50a0a920ec1794517e9229e559c29bf5bbf2 (diff)
parentffc4fbdd9d004ce2cae5158c51bf2f7c66fc30a5 (diff)
Merge branch '_clean' into allinone
Diffstat (limited to 'perl/IkiWiki/Plugin/h1title.pm')
-rw-r--r--perl/IkiWiki/Plugin/h1title.pm87
1 files changed, 87 insertions, 0 deletions
diff --git a/perl/IkiWiki/Plugin/h1title.pm b/perl/IkiWiki/Plugin/h1title.pm
new file mode 100644
index 0000000..be29216
--- /dev/null
+++ b/perl/IkiWiki/Plugin/h1title.pm
@@ -0,0 +1,87 @@
+#!/usr/bin/perl
+
+package IkiWiki::Plugin::h1title;
+
+use warnings;
+use strict;
+use IkiWiki 2.00;
+
+sub import {
+ hook(type => "filter", id => "h1title", call => \&filter);
+}
+
+sub filter(@) {
+ my %params = @_;
+ my $page = $params{page};
+ my $content = $params{content};
+
+ if ($content =~ s/^\#[ \t]+(.*?)[ \t]*\#*\n//) {
+ $pagestate{$page}{meta}{title} = $1;
+ }
+ return $content;
+}
+
+1
+
+__END__
+
+=head1 NAME
+
+ikiwiki Plug-in: h1title
+
+=head1 SYNOPSIS
+
+If there is a level 1 Markdown atx-style (hash mark) header on the first line,
+this plugin uses it to set the page title and removes it from the page body so
+that it won't be rendered twice. Level 1 headers in the remainder of the page
+will be ignored.
+
+For example, the following page will have title "My Title" and the rendered
+page body will begin with the level two header "Introduction."
+
+ # My Title
+
+ ## Introduction
+
+ Introductory text with a list:
+
+ * Item 1
+ * Item 2
+
+ ## Second header
+
+ Second section
+
+This plugin can be used with page templates that use <h1> tags for the page
+title to produce a consistent header hierarchy in rendered pages while keeping
+the Markdown source clean and free of meta directives.
+
+=head1 AUTHOR
+
+Jason Blevins <jrblevin@sdf.lonestar.org>,
+
+=head1 SEE ALSO
+
+ikiwiki Homepage:
+http://ikiwiki.info/
+
+ikiwiki Plugin Documentation:
+http://ikiwiki.info/plugins/write/
+
+=head1 LICENSE
+
+Copyright (C) 2008 Jason Blevins
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License along
+with this program; if not, write to the Free Software Foundation, Inc.,
+51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.