> * * <> * * <> * * <> * * * Updated to use new HTML(). It mostly works, but it's still a giant hackish mess. */ class WikiPlugin_PageGroup extends WikiPlugin { function getName() { return _("PageGroup"); } function getDescription() { return sprintf(_("PageGroup for %s"), '[pagename]'); } function getDefaultArguments() { return array( 'parent' => '', 'rev' => false, 'section' => _("Contents"), 'label' => '', 'loop' => false, ); } // Stolen from IncludePage.php function extractGroupSection($section, $content, $page) { $qsection = preg_replace('/\s+/', '\s+', preg_quote($section, '/')); if (preg_match("/ ^(!{1,})\\s*$qsection" // section header . " \\s*$\\n?" // possible blank lines . " ( (?: ^.*\\n? )*? )" // some lines . " (?= ^\\1 | \\Z)/xm", // sec header (same or higher level) (or EOF) implode("\n", $content), $match) ) { $result = array(); //FIXME: return list of Wiki_Pagename objects foreach (explode("\n", $match[2]) as $line) { $text = trim($line); // Strip trailing blanks lines and ----

---

s $text = preg_replace("/\\s*^-{4,}\\s*$/", "", $text); // Strip leading list chars: * or # $text = preg_replace("/^[\*#]+\s*(\S.+)$/", "\\1", $text); // Strip surrounding [] // FIXME: parse [ name | link ] $text = preg_replace("/^\[\s*(\S.+)\s*\]$/", "\\1", $text); if (!empty($text)) $result[] = $text; } return $result; } return array(sprintf(_("<%s: no such section>"), $page . " " . $section)); } function run($dbi, $argstr, &$request, $basepage) { $args = $this->getArgs($argstr, $request); extract($args); if (empty($parent)) { return $this->error(sprintf(_("A required argument “%s” is missing."), 'parent')); } $directions = array('next' => _("Next"), 'previous' => _("Previous"), 'contents' => _("Contents"), 'first' => _("First"), 'last' => _("Last") ); global $WikiTheme; $sep = $WikiTheme->getButtonSeparator(); if (!$sep) $sep = " | "; // force some kind of separator // default label if (!$label) $label = $WikiTheme->makeLinkButton($parent); // This is where the list extraction occurs from the named // $section on the $parent page. $p = $dbi->getPage($parent); if ($rev) { $r = $p->getRevision($rev); if ((!$r) || ($r->hasDefaultContents())) { return $this->error(sprintf(_("%s: no such revision %d."), $parent, $rev)); } } else { $r = $p->getCurrentRevision(); } $c = $r->getContent(); $c = $this->extractGroupSection($section, $c, $parent); $pagename = $request->getArg('pagename'); // The ordered list of page names determines the page // ordering. Right now it doesn't work with a WikiList, only // normal lines of text containing the page names. $thispage = array_search($pagename, $c); $go = array('previous', 'next'); $links = HTML(); $links->pushcontent($label); $links->pushcontent(" [ "); // an experiment $lastindex = count($c) - 1; // array is 0-based, count is 1-based! foreach ($go as $go_item) { //yuck this smells, needs optimization. if ($go_item == 'previous') { if ($loop) { if ($thispage == 0) { $linkpage = $c[$lastindex]; } else { $linkpage = $c[$thispage - 1]; } // mind the French : punctuation $text = fmt("%s: %s", $directions[$go_item], $WikiTheme->makeLinkButton($linkpage)); $links->pushcontent($text); $links->pushcontent($sep); // this works because // there are only 2 go // items, previous,next } else { if ($thispage == 0) { // skip it } else { $linkpage = $c[$thispage - 1]; $text = fmt("%s: %s", $directions[$go_item], $WikiTheme->makeLinkButton($linkpage)); $links->pushcontent($text); $links->pushcontent($sep); //this works //because there are //only 2 go items, //previous,next } } } elseif ($go_item == 'next') { if ($loop) { if ($thispage == $lastindex) { $linkpage = $c[1]; } else { $linkpage = $c[$thispage + 1]; } $text = fmt("%s: %s", $directions[$go_item], $WikiTheme->makeLinkButton($linkpage)); } else { if ($thispage == $lastindex) { // skip it } else { $linkpage = $c[$thispage + 1]; $text = fmt("%s: %s", $directions[$go_item], $WikiTheme->makeLinkButton($linkpage)); } } $links->pushcontent($text); } } $links->pushcontent(" ] "); // an experiment return $links; } } // Local Variables: // mode: php // tab-width: 8 // c-basic-offset: 4 // c-hanging-comment-ender-p: nil // indent-tabs-mode: nil // End: