From eb88b014c33e5a3d36e7b44885940f70289c00bf Mon Sep 17 00:00:00 2001 From: Alexander Biehl Date: Tue, 29 Aug 2017 11:40:19 +0200 Subject: QuickNav: Make docbase configurable --- haddock-api/resources/html/index.js | 14 ++++++++++++-- haddock-api/src/Haddock/Backends/Xhtml.hs | 7 ++++++- 2 files changed, 18 insertions(+), 3 deletions(-) diff --git a/haddock-api/resources/html/index.js b/haddock-api/resources/html/index.js index 6d5b2bfc..109a106b 100644 --- a/haddock-api/resources/html/index.js +++ b/haddock-api/resources/html/index.js @@ -1,3 +1,7 @@ +quickNav = (function() { + +var baseUrl; + // alias preact's hyperscript reviver since it's referenced a lot: var h = preact.h; @@ -256,7 +260,7 @@ var App = createClass({ var renderItem = function(item) { return h('li', { class: 'search-result' }, - this.navigationLink(item.link, {}, + this.navigationLink(baseUrl + "/" + item.link, {}, h(DocHtml, { html: item.display_html }) ) ); @@ -379,4 +383,10 @@ var NoResultsMsg = function(props) { return messages[(props.searchString || 'a').charCodeAt(0) % messages.length]; }; -preact.render(h(App), document.body); +return { + init: function(docBaseUrl) { + baseUrl = docBaseUrl || ""; + preact.render(h(App), document.body); + } +} +})(); diff --git a/haddock-api/src/Haddock/Backends/Xhtml.hs b/haddock-api/src/Haddock/Backends/Xhtml.hs index 80469929..f85ee6b3 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml.hs @@ -194,7 +194,12 @@ bodyHtml doctitle iface script ! [src jsPreactFile, thetype "text/javascript"] << noHtml, script ! [src jsFuseFile, thetype "text/javascript"] << noHtml, - script ! [src jsIndexFile, thetype "text/javascript"] << noHtml + script ! [src jsIndexFile, thetype "text/javascript"] << noHtml, + script ! [thetype "text/javascript"] + -- NB: Within XHTML, the content of script tags needs to be + -- a \n" ] moduleInfo :: Interface -> Html -- cgit v1.2.3