'");
## tidy :: used merely to indent
Markup('^::2: :','<^: :2->','/^(:+)(:[^:]+)$/','$1 $2');
Markup('^: :2->',' per
Markup('::','',PSS('$2'))");
## teaser markups T[:*#] Name and (:para Name#id:)
Markup('para','directives',"/\(:para\s+(.+?)(?:#([^:\s]+))?:\)/e",
"TeaseParagraph(\$pagename,'$1','$2')");
Markup('tfl','directives',"/^T([:*#]+)\s*(\[\[.+?\]\])/e",
"TeaserFL(\$pagename,'$1','$2')");
Markup('tww','directives',
"/^T([:*#]+)\s*((?:$GroupPattern([\/.]))?$WikiWordPattern)/e",
"Teaser(\$pagename,'$1','$2')");
SDV($ParaBadAnchorFmt,"'''\$Anchor''' \$[not found in] \$PageName\n");
function TeaserFL($pagename,$markup,$linkword) {
return "$markup$linkword: " .
TeaseParagraph($pagename,FLRef($linkword),'');
}
function FLRef($linkword) {
$l = preg_replace('/\\s*\\|[^\\]]+/','',$linkword);
$l = preg_replace('/[^\\]]+-+>\\s*/','',$l);
return $l;
}
function Teaser($pagename,$markup,$linkword) {
return "$markup$linkword: " . TeaseParagraph($pagename,$linkword,'');
}
function TeaseParagraph($pagename,$teasername,$teaseranch) {
global $ParaBadAnchorFmt;
$tname = MakePageName($pagename,$teasername);
if ($tname==$pagename) return '';
$tpage=RetrieveAuthPage($tname,'read',false,'');
$ttext=$tpage['text'];
$tgroup = FmtPageName('$Group',$tname);
if ($teaseranch=='')
$tpara = CleanParagraph($pagename,$tgroup,
substr($ttext,0,strpos($ttext."\n","\n")));
elseif (preg_match("/\\[\\[#+$teaseranch\\]\\]\\n?([^\\n]+)/",$ttext,$m))
$tpara = CleanParagraph($pagename,$tgroup,$m[1]);
else
$tpara = str_replace('$Anchor',$teaseranch,
FmtPageName($ParaBadAnchorFmt,$tname));
return $tpara;
}
function CleanParagraph($pagename,$group,$para) {
global $GroupPattern,$WikiWordPattern;
$pgroup = FmtPageName('$Group',$pagename);
$p = preg_replace("/^[#*!]+\s*/","",$para);
$p = preg_replace("/^:.*?:/","",$p);
$p = preg_replace("/`\\..*?$/","...",$p);
$p = preg_replace("/\\[@(.*?)@\\]/","@@[=$1=]@@",$p);
$p = preg_replace("/\\[=(.*?)=\\]/e",'Keep(PSS("$1"))',$p);
$p = preg_replace("/\\[\\[#.*?\\]\\]/","",$p);
$p = preg_replace("/\\b(($GroupPattern([\\/.]))?$WikiWordPattern)/e",
'QualifyWLink($pgroup,$group,"$1")',$p);
$p = preg_replace("/\\[\\[(.*?)\\]\\]/e",
"'[['.QualifyFLink('$pgroup','$group','$1').']]'",$p);
return FmtPageName(preg_replace("/{(\\$.*?)}/",'$1',$p),$pagename);
}
function QualifyWLink($pgroup,$group,$link) {
$g = ($pgroup==$group) ? '' : "$group/";
return (preg_match("/[.\\/]/",$link)) ? $link : "$g$link";
}
function QualifyFLink($pgroup,$group,$link) {
$g = ($pgroup==$group) ? '' : "$group/";
$l = FLRef($link);
return (preg_match("/[.\\/]/",$l)) ? $link :
str_replace("$l","$g$l",$link);
}
## lazy web links (an alternative to the one from Pm)
Markup('lazyweb','@wikilink',"/\\b($GroupPattern([\\/.]))?($WikiWordPattern)/e",
"Keep(WikiLinkSpaced(\$pagename,'$0'),'L')");
$SpaceWikiWords = 1;
$AsSpacedFunction = 'SpaceWikiWords';
$SpaceWikiWordsFunction = 'SpaceWikiWords';
$RecentChangesFmt = array(
'Main.AllRecentChanges' =>
'* [[$Group.$Title]] . . . $CurrentTime by $AuthorLink',
'$Group.RecentChanges' =>
'* [[$Group/$Title]] . . . $CurrentTime by $AuthorLink');
$DefaultPageTextFmt = 'Describe [[$Group/$Title]] here.';
$FPLByGroupIFmt = "\$Title";
$StopList = array(
'A',
'An',
'And',
'But',
'By',
'For',
'From',
'In',
'Is',
'It',
'Of',
'On',
'Or',
'The',
'To',
);
$UnspacedList = array(
'Mac ',
'Mc ',
'Pm Wiki',
'Side Bar'
);
function SpaceWikiWords($text) {
global $StopList,$UnspacedList;
# $text = AsSpaced($text);
$text = preg_replace('/([[:lower:]])([[:upper:]\\d])/','$1 $2',$text);
$text = preg_replace('/([[:upper:]\\d])([[:upper:]][[:lower:]\\d])/',
'$1 $2',$text);
foreach((array)$StopList as $s)
$text = preg_replace("/(\\s$s\\s)/e","strtolower('$1')",$text);
foreach((array)$UnspacedList as $u)
$text = str_replace($u,str_replace(' ','',$u),$text);
return $text;
}
function WikiLinkSpaced($pagename,$word) {
global $LinkWikiWords,$SpaceWikiWords,$SpaceWikiWordsFunction;
$word = ($SpaceWikiWords) ? $SpaceWikiWordsFunction($word) : $word;
$text = preg_replace('!.*/!','',$word);
if (!$LinkWikiWords) return $text;
return MakeLink($pagename,$word,$text);
}
## smart quotes
Markup('',')/",' $1');
Markup('squo','>style',"/(<.*?>['\"]*)|(.?['\"]+)/e",
"BypassHTML(PSS('$1'),PSS('$2'))");
Markup('sq|','>inline',"/(\\[\\[[^|\\]]+\\|)(.*?)(\\]\\])/e",
"'$1'.SmartenLinkText(PSS('$2')).'$3'");
Markup('sq->','>inline',"/(\\[\\[)([^\\]]+?)(-+>.*?\\]\\])/e",
"'$1'.SmartenLinkText(PSS('$2')).'$3'");
function SmartenLinkText($txt) {
global $LinkPattern,$UrlExcludeChars,$ImgExtPattern;
if (!preg_match("/($LinkPattern)([^$UrlExcludeChars]+$ImgExtPattern)/",$txt))
$txt = preg_replace("/(<.*?>['\"]*)|(.?['\"]+)/e",
"BypassHTML(PSS('$1'),PSS('$2'))",$txt);
return $txt;
}
function BypassHTML($hstring,$qstring) {
if ($qstring=='') {
$qstring = preg_replace("/.*>/",'',$hstring);
$hstr = preg_replace("/>.*/",'>',$hstring);
if ($qstring=='') return $hstr;
else { if (strstr($hstr," '...',
"/\\[\\[([^|\\]]+)\\|\\s*(.*?)\\]\\]($SuffixPattern)/e" =>
"MakeLink(\$pagename,PSS('$1'),PSS('$2'),'$3','\$LinkText')",
"/\\[\\[([^\\]]+?)\\s*-+>\\s*(.*?)\\]\\]($SuffixPattern)/e" =>
"MakeLink(\$pagename,PSS('$2'),PSS('$1'),'$3','\$LinkText')",
'/\\[\\[#([A-Za-z][-.:\\w]*)\\]\\]/' => "",
"/\\[\\[(.*?)\\]\\]($SuffixPattern)/e" =>
"MakeLink(\$pagename,PSS('$1'),NULL,'$2','\$LinkText')",
'/[\\[\\{](.*?)\\|(.*?)[\\]\\}]/' => '$1',
"/`(($GroupPattern([\\/.]))?($WikiWordPattern))/" => '$1'
);
$oLinkPageFunction = $LinkFunctions['<:page>'];
$LinkFunctions['<:page>'] = 'LinkPageTitle';
$LinkPageSelfFmt = "\$LinkText";
$LinkPageExistsTitleFmt =
"\$LinkText";
function LinkPageTitle($pagename,$imap,$path,$title,$txt,$fmt=NULL) {
global $oLinkPageFunction,$LinkPageExistsTitleFmt,$UrlExcludeChars;
if ($fmt!='')
return $oLinkPageFunction($pagename,$imap,$path,$title,$txt,$fmt);
if (preg_match("/^([^#?]+)(?:#([^\\s$UrlExcludeChars]*))?$/",$path,$match)) {
$tgtname = MakePageName($pagename,$match[1]); $anch=@$match[2];
if (PageExists($tgtname) && $tgtname!=$pagename) {
$title = TitleParagraph($tgtname,$anch);
if ($title) {
$title = (strstr($title,"'")) ? '"'.$title.'"' : "'$title'";
$fmt = str_replace('$ToolTip',$title,$LinkPageExistsTitleFmt);
}
}
}
return $oLinkPageFunction($pagename,$imap,$path,$title,$txt,$fmt);
}
function TitleParagraph($pagename,$anch) {
global $LinkCleanser, $WikiStylePattern, $ParaBadAnchorFmt;
$refpage = ReadPage($pagename); $para = '';
$title = ($anch=='') ?
preg_match("/^(?:!+|:.*?:)\\s*(?:\\[\\[#.*?\\]\\])?([^\\n]+)/",
$refpage['text'],$match) :
preg_match("/\\[\\[#+$anch\\]\\]\\n?([^\\n]+)/",
$refpage['text'],$match);
if ($title) {
$para = preg_replace("/!.*?$/",'',$match[1]);
$para = preg_replace("/(''+|@@)(.*?)\\1/",'$2',$para);
$para = preg_replace("/'([-_^;+\\/])(.*?)\\1'/",'$2',$para);
$para = preg_replace("/\\[([@=]|[-+]+)(.*?)\\1\\]/",'$2',$para);
$para = preg_replace("/$WikiStylePattern/",'',$para);
foreach ($LinkCleanser as $p => $c) $para = preg_replace($p,$c,$para);
$para = str_replace('"','"',str_replace('`','',$para));
} elseif ($anch!='') $para = str_replace("'''","'",
str_replace('$Anchor',$anch,FmtPageName($ParaBadAnchorFmt,$pagename)));
return $para;
}
## ||table attributes
Markup('^||','>^||||','/^\\|\\|(.*)$/e',
"PZZ(\$GLOBALS['BlockMarkups']['table'][0] = PSS(''))");
function QuoteAttrs($attr) {
return preg_replace('/([a-zA-Z])\\s*=\\s*([^\'"]\\S*)/',"\$1='\$2'",$attr);
}
/*
# superseded items
## category markup
SDV($CategoryGroup,'Category');
Markup('[[!','<[[','/\[\[!(.*?)\]\]/',"[[$CategoryGroup/$1]]");
*/
?>