* Add a tail fin^W^Wsidebar plugin by Tuomo Valkonen.

* If a page links to itself, mark up the link text in a span with
  class="selflink" so that it can be styled. I don't have a useful style
  defined for that though.

1 files changed, 48 insertions, 0 deletions

diff --git a/IkiWiki/Plugin/sidebar.pm b/IkiWiki/Plugin/sidebar.pm
new file mode 100644
index 000000000..a6efc6b8e
--- /dev/null
+++ b/IkiWiki/Plugin/sidebar.pm
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+# Sidebar plugin.
+# by Tuomo Valkonen <tuomov at iki dot fi>
+
+package IkiWiki::Plugin::sidebar;
+
+use warnings;
+use strict;
+use IkiWiki;
+
+sub import { #{{{
+	IkiWiki::hook(type => "pagetemplate", id => "sidebar", 
+		call => \&pagetemplate);
+} # }}}
+
+sub sidebar_content ($) { #{{{
+	my $page=shift;
+	
+	my $sidebar_page=IkiWiki::bestlink($page, "sidebar") || return;
+	my $sidebar_file=$IkiWiki::pagesources{$sidebar_page} || return;
+	my $sidebar_type=IkiWiki::pagetype($sidebar_file);
+	
+	if (defined $sidebar_type) {
+		IkiWiki::add_depends($page, $sidebar_page);
+		my $content=IkiWiki::readfile(IkiWiki::srcfile($sidebar_file));
+		return unless length $content;
+		return IkiWiki::htmlize($sidebar_type,
+		       IkiWiki::preprocess($sidebar_page, $page,
+		       IkiWiki::linkify($sidebar_page, $page, $content)));
+	}
+
+} # }}}
+
+sub pagetemplate (@) { #{{{
+	my %params=@_;
+
+	my $page=$params{page};
+	my $template=$params{template};
+	
+	if ($template->query(name => "sidebar")) {
+		my $content=sidebar_content($page);
+		if (defined $content && length $content) {
+		        $template->param(sidebar => $content);
+		}
+	}
+} # }}}
+
+1