[clckwrks-plugin-bugs-0.7.1: add BugList stuff to navbar and preprocessor Jeremy Shaw **20140220201316 Ignore-this: 18c3034b16e6039c8b4a54a09d466b3d ] hunk ./clckwrks-plugin-bugs/Clckwrks/Bugs/Plugin.hs 41 - timelineLink = NamedLink { namedLinkTitle = "Timeline", namedLinkURL = showBugsURL Timeline [] } - return ("Bugs", [submitLink, timelineLink]) + timelineLink = NamedLink { namedLinkTitle = "Timeline", namedLinkURL = showBugsURL Timeline [] } + bugListLink = NamedLink { namedLinkTitle = "Bug List", namedLinkURL = showBugsURL BugList [] } + return ("Bugs", [submitLink, timelineLink, bugListLink]) hunk ./clckwrks-plugin-bugs/Clckwrks/Bugs/PreProcess.hs 27 + | BugListLink hunk ./clckwrks-plugin-bugs/Clckwrks/Bugs/PreProcess.hs 50 - choice [ parseAttr (pack "id") *> (ShowBug . BugId <$> decimal) + choice [ parseAttr (pack "id") *> (ShowBug . BugId <$> decimal) hunk ./clckwrks-plugin-bugs/Clckwrks/Bugs/PreProcess.hs 52 + , asciiCI (pack "list-link") *> pure BugListLink hunk ./clckwrks-plugin-bugs/Clckwrks/Bugs/PreProcess.hs 69 +applyCmd bugsShowURL BugListLink = + do html <- unXMLGenT $ Bug List + return $ mconcat $ map B.fromLazyText $ TL.lines $ renderAsHTML html hunk ./clckwrks-plugin-bugs/clckwrks-plugin-bugs.cabal 2 -Version: 0.7.0 +Version: 0.7.1