File Coverage

blib/lib/Kwiki/TableOfContents.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Kwiki::TableOfContents;

use warnings;
use strict;
use Kwiki::Plugin '-Base';
use mixin 'Kwiki::Installer';
use IO::All;
use JSON;
our $VERSION = '0.01';

const class_title => 'Table of Contents';
const class_id => 'toc';
const javascript_file => 'jstree.js';
const css_file => 'jstree.css';

sub register {
	my $registry = shift;
	$registry->add(prerequisite => 'prototype');
	$registry->add(prerequisite => 'scriptaculous');
	$registry->add(prerequisite => 'json');
	$registry->add(preload => 'toc');
	$registry->add(action => 'save_toc');
}

sub save_toc {
	CGI::param('structure') > $self->structure_file;
	return 'success';
}

sub structure_file {
	my $path = $self->plugin_directory;
	io($path)->mkpath unless io($path)->exists;
	$path = io->catfile($path, 'structure');
	unless($path->exists) {
		'[]' > $path;
		$path->close;
		$path->open;
	}
	return $path;
}

sub html {
	my $wrap = defined $_[0]
		? sub { return $_[0]; }
		: sub { return qq{
				style="display: none">$_[0]}};
	return $wrap->(join('', map {
		my $link = $_->{data}->{href};
		$link = '#' if $link eq '';
		my $class = $link eq '#' ? ' class="category"' : '';
		my $text = $_->{data}->{text};
		my $subtree = @{$_->{subtree}} > 0
			? ''.$self->html($_->{subtree}).''
			: '';
		qq{$text$subtree};
	} defined $_[0] ?@{$_[0]}:@{jsonToObj($self->structure_file->slurp)}));
}

1; # End of Kwiki::TableOfContents
__DATA__