From cedb48765b52d3e074f43703cf55611b3bce101d Mon Sep 17 00:00:00 2001
From: joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Date: Fri, 18 Aug 2006 00:24:22 +0000
Subject: * 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.

---
 IkiWiki/Plugin/sidebar.pm | 48 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 IkiWiki/Plugin/sidebar.pm

(limited to 'IkiWiki')

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
-- 
cgit v1.2.3