<?php if (!defined('PmWiki')) exit(); 
/*  copyright 2008 Henrik Bechmann, Toronto, Canada.
    This file is distributed under the terms of the GNU General Public 
    License as published by the Free Software Foundation; either 
    version 2 of the License, or (at your option) any later version.  

    This module enables creation of group titles, analagous to creation of page titles with the (:title:) directive.

    Users add page text variables to Site.GroupTitles (by defalt), in the format
	GroupName:Group Title
	
The recipe adds two Page Variables ($GroupTitle and $GroupTitlespaced), 
and markup to place GroupTitlespaced in link text: [[target|!+]]

So page titles and group titles now have exact analogues:

Page titles have $Title and $Titlespaced page variables, 
	and the markup [[target|+]], 
	set by (:title:)
Group titles have $GroupTitle and $GroupTitlespaced page variables, 
	and the markup [[target|!+]], 
	set by page text variable entries in Site.GroupTitles
*/	
$RecipeInfo['GroupTitles']['Version'] = '2008-5-21';

# Create $GroupTitle, $GroupTitlespaced, [[..|!+]] markup

## [[target |!+]] grouptitle links
Markup('[[|!+', '<[[|',
  "/(?>\\[\\[([^|\\]]+))\\|\\s*!\\+\\s*]]/e",
  "Keep(MakeLink(\$pagename, PSS('$1'),
                 $AsSpacedFunction(MakeGroupTitle(PSS('$1')))
                ),'L')");

## page variables
$FmtPV['$GroupTitle']='MakeGroupTitle("$group.$name")';
$FmtPV['$GroupTitlespaced']='$AsSpacedFunction(MakeGroupTitle("$group.$name"))';

SDV($GroupTitlesPageFmt,'$SiteGroup.GroupTitles');

function MakeGroupTitle($pn,$group='') {
global $GroupTitlesPageFmt,$pagename;
if (!$group) {
	$page=MakePageName($pagename,$pn);
	if (preg_match('/^(.+)[.\\/]([^.\\/]+)$/', $page, $match))
		@list($d, $group, $name) = $match;
	if (!$group) return $pn;
}
$gptv=PageTextVar(FmtPageName($GroupTitlesPageFmt,$pagename),$group);
return $gptv?$gptv:$group;
}