ikiwiki/IkiWiki/Plugin/hnb.pm

#!/usr/bin/perl
# hnb markup
# Licensed under the GPL v2 or greater
# Copyright (C) 2008 by Axel Beckert <abe@deuxchevaux.org>
# 
# TODO: Make a switch to allow both HTML export routines of hnb 
# (`export_html` and `export_htmlcss`) to be used.

package IkiWiki::Plugin::hnb;

use warnings;
use strict;
use IkiWiki 3.00;
use File::Temp qw(:mktemp);

sub import {
	hook(type => "getsetup", id => "hnb", call => \&getsetup);
	hook(type => "htmlize", id => "hnb", call => \&htmlize);
}

sub getsetup () {
	return
		plugin => {
			safe => 1,
			rebuild => 1, # format plugin
			section => "format",
		},
}

sub htmlize (@) {
	my %params = @_;

	# hnb outputs version number etc. every time to STDOUT, so
	# using files makes it easier to seprarate.

	my ($infh, $tmpin)  = mkstemp( "/tmp/ikiwiki-hnbin.XXXXXXXXXX"  );
	my ($outfh, $tmpout) = mkstemp( "/tmp/ikiwiki-hnbout.XXXXXXXXXX" );

	open(TMP, '>', $tmpin) or die "Can't write to $tmpin: $!";
	print TMP $params{content};
	close TMP;

	system("hnb '$tmpin' 'go root' 'export_html $tmpout' > /dev/null");
	unlink $tmpin;

	open(TMP, '<', $tmpout) or die "Can't read from $tmpout: $!";
	local $/;
	my $ret = <TMP>;
	close TMP;
	unlink $tmpout;

	$ret =~ s/.*<body>//si;
	$ret =~ s/<body>.*//si;

	return $ret;
}

1;
initial add 2008-06-15 22:25:18 +02:00			`#!/usr/bin/perl`
			`# hnb markup`
style changes Reindented, moved a TODO from page to code, trimmed some unnecessary comments, and simplified the use of mkstemp. 2008-06-15 22:26:15 +02:00			`# Licensed under the GPL v2 or greater`
initial add 2008-06-15 22:25:18 +02:00			`# Copyright (C) 2008 by Axel Beckert <abe@deuxchevaux.org>`
style changes Reindented, moved a TODO from page to code, trimmed some unnecessary comments, and simplified the use of mkstemp. 2008-06-15 22:26:15 +02:00			`#`
			`# TODO: Make a switch to allow both HTML export routines of hnb`
			# (`export_html` and `export_htmlcss`) to be used.
initial add 2008-06-15 22:25:18 +02:00
style changes Reindented, moved a TODO from page to code, trimmed some unnecessary comments, and simplified the use of mkstemp. 2008-06-15 22:26:15 +02:00			`package IkiWiki::Plugin::hnb;`
initial add 2008-06-15 22:25:18 +02:00
			`use warnings;`
			`use strict;`
finalise version 3.00 of the plugin api 2008-12-23 22:34:19 +01:00			`use IkiWiki 3.00;`
initial add 2008-06-15 22:25:18 +02:00			`use File::Temp qw(:mktemp);`

Coding style change: Remove explcit vim folding markers. 2008-12-17 21:22:16 +01:00			`sub import {`
add plugin safe/rebuild info (part 1 of 2) too many plugins.. brain exploding.. 2008-08-03 22:40:12 +02:00			`hook(type => "getsetup", id => "hnb", call => \&getsetup);`
style changes Reindented, moved a TODO from page to code, trimmed some unnecessary comments, and simplified the use of mkstemp. 2008-06-15 22:26:15 +02:00			`hook(type => "htmlize", id => "hnb", call => \&htmlize);`
Coding style change: Remove explcit vim folding markers. 2008-12-17 21:22:16 +01:00			`}`
initial add 2008-06-15 22:25:18 +02:00
Coding style change: Remove explcit vim folding markers. 2008-12-17 21:22:16 +01:00			`sub getsetup () {`
add plugin safe/rebuild info (part 1 of 2) too many plugins.. brain exploding.. 2008-08-03 22:40:12 +02:00			`return`
			`plugin => {`
			`safe => 1,`
			`rebuild => 1, # format plugin`
format plugin categorization 2010-02-12 07:10:36 +01:00			`section => "format",`
add plugin safe/rebuild info (part 1 of 2) too many plugins.. brain exploding.. 2008-08-03 22:40:12 +02:00			`},`
Coding style change: Remove explcit vim folding markers. 2008-12-17 21:22:16 +01:00			`}`
add plugin safe/rebuild info (part 1 of 2) too many plugins.. brain exploding.. 2008-08-03 22:40:12 +02:00
Coding style change: Remove explcit vim folding markers. 2008-12-17 21:22:16 +01:00			`sub htmlize (@) {`
style changes Reindented, moved a TODO from page to code, trimmed some unnecessary comments, and simplified the use of mkstemp. 2008-06-15 22:26:15 +02:00			`my %params = @_;`
initial add 2008-06-15 22:25:18 +02:00
style changes Reindented, moved a TODO from page to code, trimmed some unnecessary comments, and simplified the use of mkstemp. 2008-06-15 22:26:15 +02:00			`# hnb outputs version number etc. every time to STDOUT, so`
			`# using files makes it easier to seprarate.`
initial add 2008-06-15 22:25:18 +02:00
hnb: Fixed broken use of mkstemp that had caused dangling temp files, and prevented actually rendering hnb files. 2010-06-27 19:49:51 +02:00			`my ($infh, $tmpin) = mkstemp( "/tmp/ikiwiki-hnbin.XXXXXXXXXX" );`
			`my ($outfh, $tmpout) = mkstemp( "/tmp/ikiwiki-hnbout.XXXXXXXXXX" );`
initial add 2008-06-15 22:25:18 +02:00
style changes Reindented, moved a TODO from page to code, trimmed some unnecessary comments, and simplified the use of mkstemp. 2008-06-15 22:26:15 +02:00			`open(TMP, '>', $tmpin) or die "Can't write to $tmpin: $!";`
			`print TMP $params{content};`
			`close TMP;`
initial add 2008-06-15 22:25:18 +02:00
style changes Reindented, moved a TODO from page to code, trimmed some unnecessary comments, and simplified the use of mkstemp. 2008-06-15 22:26:15 +02:00			`system("hnb '$tmpin' 'go root' 'export_html $tmpout' > /dev/null");`
			`unlink $tmpin;`
initial add 2008-06-15 22:25:18 +02:00
style changes Reindented, moved a TODO from page to code, trimmed some unnecessary comments, and simplified the use of mkstemp. 2008-06-15 22:26:15 +02:00			`open(TMP, '<', $tmpout) or die "Can't read from $tmpout: $!";`
			`local $/;`
			`my $ret = <TMP>;`
			`close TMP;`
			`unlink $tmpout;`
initial add 2008-06-15 22:25:18 +02:00
style changes Reindented, moved a TODO from page to code, trimmed some unnecessary comments, and simplified the use of mkstemp. 2008-06-15 22:26:15 +02:00			`$ret =~ s/.*<body>//si;`
			`$ret =~ s/<body>.*//si;`
initial add 2008-06-15 22:25:18 +02:00
style changes Reindented, moved a TODO from page to code, trimmed some unnecessary comments, and simplified the use of mkstemp. 2008-06-15 22:26:15 +02:00			`return $ret;`
Coding style change: Remove explcit vim folding markers. 2008-12-17 21:22:16 +01:00			`}`
initial add 2008-06-15 22:25:18 +02:00
			`1;`