"Viva l'Italia!"

* Polygen plugin from Enrico.

diff --git a/IkiWiki/Plugin/polygen.pm b/IkiWiki/Plugin/polygen.pm
new file mode 100644 (file)
index 0000000..c148891
--- /dev/null
+++ b/IkiWiki/Plugin/polygen.pm
@@ -0,0 +1,56 @@
+#!/usr/bin/perl
+#
+# Include polygen output in a page
+# 
+# by Enrico Zini
+package IkiWiki::Plugin::polygen;
+
+use warnings;
+use strict;
+use IkiWiki;
+use File::Find;
+
+sub import { #{{{
+       IkiWiki::hook(type => "preprocess", id => "polygen",
+               call => \&preprocess);
+} # }}}
+
+sub preprocess (@) { #{{{
+       my %params=@_;
+       my $grammar = ($params{grammar} or 'polygen');
+       my $symbol = ($params{symbol} or undef);
+
+       # Sanitize parameters
+       $grammar =~ IkiWiki::basename($grammar);
+       $grammar =~ s/\.grm$//;
+       $grammar .= '.grm';
+       $symbol =~ s/[^A-Za-z0-9]//g if defined $symbol;
+
+       my $grmfile = '/usr/share/polygen/ita/polygen.grm';
+       find({wanted => sub {
+                       if (substr($File::Find::name, -length($grammar)) eq $grammar) {
+                               $grmfile = IkiWiki::possibly_foolish_untaint($File::Find::name);
+                       }
+               },
+               no_chdir => 1,
+       }, '/usr/share/polygen');
+       
+       my $res;
+       if (defined $symbol) {
+               $res = `polygen -S $symbol $grmfile 2>/dev/null`;
+       }
+       else {
+               $res = `polygen $grmfile 2>/dev/null`;
+       }
+
+       if ($?) {
+               $res="[[polygen failed]]";
+       }
+
+       # Strip trainling spaces and newlines so that we flow well with the
+       # markdown text
+       $res =~ s/\s*$//;
+       return $res;
+} # }}}
+
+1

diff --git a/Makefile.PL b/Makefile.PL
index 05547ff0537d06daa39a2abfc7796db1cf17bd63..58a6b29c3831776a8052c72691225925fba70217 100755 (executable)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -17,7 +17,7 @@ extra_build:
                --exclude=/discussion --no-discussion \
                --plugin=brokenlinks --plugin=pagecount \
                --plugin=orphans --plugin=haiku --plugin=meta \
-               --plugin=tag
+               --plugin=tag --plugin=polygen --plugin=pagestats
        ./mdwn2man ikiwiki 1 doc/usage.mdwn > ikiwiki.man
        ./mdwn2man ikiwiki-mass-rebuild 8 doc/ikiwiki-mass-rebuild.mdwn > ikiwiki-mass-rebuild.man
                

diff --git a/debian/changelog b/debian/changelog
index 84b806b3b03e338342ae849bf8eadd3b5f453d05..f4f0cffab21565db426440440e9b8791e570b612 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,5 +1,6 @@
 ikiwiki (1.13) UNRELEASED; urgency=low
 
+  "Viva l'Italia!"
   * New pagestats plugin from Enrico, which can generate a table counting
     the backlinks for each page, or a del.icio.us style cloud.
   * Build-depend on libtext-wikiformat-perl, so that the syntax check of
@@ -8,6 +9,7 @@ ikiwiki (1.13) UNRELEASED; urgency=low
     display, running them through pagetitle. This removes ugly underscores and
     other gunk from the display, much nicer. You may want to rebuild your wiki
     when upgrading to get the cleanup globally.
+  * Polygen plugin from Enrico.
 
  -- Joey Hess <joeyh@debian.org>  Sat, 29 Jul 2006 14:22:18 -0400
 

diff --git a/doc/plugins/pagestats.mdwn b/doc/plugins/pagestats.mdwn
index 41c853b168d66c02a4107fedfb9e3cd33d16b04d..f750e3cb119bceeca5f5dbd75fc981846b3694b8 100644 (file)
--- a/doc/plugins/pagestats.mdwn
+++ b/doc/plugins/pagestats.mdwn
@@ -10,4 +10,6 @@ And here's how to create a table of all the pages on the wiki:
 
        \[[pagestats style="table"]]
 
-This plugin is included in ikiwiki, but is not enabled by default.
+This plugin is included in ikiwiki, but is not enabled by default. If it is
+enabled, here's a link cloud for this entire wiki:
+[[pagestats ]]

diff --git a/doc/plugins/polygen.mdwn b/doc/plugins/polygen.mdwn
new file mode 100644 (file)
index 0000000..cc88f49
--- /dev/null
+++ b/doc/plugins/polygen.mdwn
@@ -0,0 +1,26 @@
+This plugin allows inserting text generated by polygen into a wiki page.
+For example:
+
+       \[[polygen grammar="genius"]]
+
+It's also possible to specify a starting nonterminal for the grammar by
+including `symbol="text"` in the directive.
+
+This plugin is included in ikiwiki, but not enabled by default.
+
+If this plugin is enabled, and polygen is installed, here are a few notes
+about ikiwiki.
+
+----
+
+Ikiwiki is internally based on a [[polygen grammar="designpatterns"]]
+coupled to a [[polygen grammar="designpatterns"]], as described in
+"[[polygen grammar="paper2"]]" by [[polygen grammar="nipponame"]] of
+[[polygen grammar="boyband"]].
+
+Ikiwiki reviews:
+<ul>
+<li>[[polygen grammar="reviews"]]</li>
+<li>[[polygen grammar="reviews"]]</li>
+<li>[[polygen grammar="reviews"]]</li>
+</ul>