Linked, which * contains the "linked" value. * * This also allows multiple values, separated by commas. * * This requires PmWiki 2.2.56 or later. * * To activate this script, copy it into the cookbook/ directory, then add * the following line to your local/config.php: * * include_once("$FarmD/cookbook/tagger.php"); * * File modified by Petko Yotov to work with PHP 5.5 * File modified by Hans Bracker to work with PHP 7.2 */ $RecipeInfo['Tagger']['Version'] = '2017-06-21'; SDVA($TaggerGroups, array()); SDV($TaggerTagSeparators, array(',','/','&')); /*====================================================================== * Tagger */ // set up multiple category groups function TaggerSetup () { global $TaggerGroups; global $FmtPV; if ($TaggerGroups) { foreach ($TaggerGroups as $tagname => $catgroup) { $FmtPV['$' . $tagname . 'Linked'] = "TaggerLinksVar(\$pn, '$tagname', '$catgroup', 'LinkedTitle')"; $FmtPV['$' . $tagname . 'LinkedName'] = "TaggerLinksVar(\$pn, '$tagname', '$catgroup', 'LinkedName')"; $FmtPV['$' . $tagname . 'Name'] = "TaggerLinksVar(\$pn, '$tagname', '$catgroup', 'Name')"; } // markup to insert the links $tags = array_keys($TaggerGroups); $tagpat = implode('|', $tags); Markup("tagger", 'links", '/^$:\w[-\w]*:.*?:$$/', ''); } } TaggerSetup(); // deal with hidden PTVs function TaggerHiddenVars($m) { global $TaggerGroups; $varname = $m[1]; $varval = $m[2]; if (strpos($varval, "\n") !== false) { // Multi-line PTVs shall be fully hidden return ''; } else { // if this is a Tagger tag, keep it, otherwise hide it if ($TaggerGroups["$varname"]) { return "(:$varname:$varval:)"; } else { return ''; } } } // process link shortcut markup function TaggerLinks($m) { global $TaggerGroups; extract($GLOBALS['MarkupToHTML']); //gets $pagename $prefix = $m[1]; //may be (: for hidden PTV tag $tagname = $m[2]; //tag group $inval = $m[3]; //tag value $postfix = $m[4]; //may be :) for hidden PTV tag $catgroup = $TaggerGroups["$tagname"]; //print "prefix=$prefix, tagname=$tagname, inval=$inval, postfix=$postfix\n"; $out = "$prefix$tagname: "; $out .= TaggerProcessTags($pagename, $catgroup, $inval); $out .= "$postfix"; return $out; } // Page-Variable function TaggerLinksVar($pagename, $tagname, $catgroup, $label) { $inval = PageTextVar($pagename, $tagname); $outval = TaggerProcessTags($pagename, $catgroup, $inval, $label); rtrim($outval); return $outval; } function TaggerProcessTags($pagename, $catgroup, $inval, $label='LinkedName') { global $TaggerTagSeparators; $inval = htmlspecialchars_decode($inval); $out = ''; // don't process if there are already links there if (strpos($inval, '[[') !== false) { $out = $inval; } else { $array_sep = ''; foreach ($TaggerTagSeparators as $tsep) { if (strpos($inval, $tsep) !== false) { $array_sep = $tsep; break; } } $oo = array(); if ($label == 'Name') // one page name, not parts { $pn = str_replace($array_sep, ' ', $inval); $cpage = MakePageName($pagename, "$catgroup.$pn"); $out = PageVar($cpage, '$Name'); } else { $parts = ($array_sep ? explode($array_sep, $inval) : array($inval)); foreach($parts as $part) { $part = trim($part); if ($part) { $cpage = MakePageName($pagename, "$catgroup.$part"); if ($label == 'LinkedTitle') { $oo[] = "[[$cpage|+]]"; } else { $oo[] = "[[$cpage|$part]]"; } } } } if ($array_sep == ',') { $out .= implode("$array_sep ", $oo); } else if ($array_sep == '/') { $out .= implode($array_sep, $oo); } else { $out .= implode(" $array_sep ", $oo); } } return $out; }