paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-21 08:01:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

wiki: Mainly fix links in wikiconvert-created chm categorylist in LHelp

Browse Source 
git-svn-id: trunk@49440 -
This commit is contained in:
wp 2015-06-25 11:35:27 +00:00
parent 662f27dbe5
commit b0a915ace6
4 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/wiki/chm/wiki.css
View File

@ -187,10 +187,10 @@ span.keypress {
white-space: nowrap; white-space: nowrap;
} }
div.categories { div.catlinks {
background-color: #F9F9F9; background-color: #F9F9F9;
border: 1px solid #aaa; border: 1px solid #aaa;
color: black; color: #aaa;
padding: 10px; padding: 10px;
margin-top: 20px; margin-top: 20px;
} }

4
components/wiki/html/wiki.css
View File

@ -187,10 +187,10 @@ span.keypress {
white-space: nowrap; white-space: nowrap;
} }
div.categories { div.catlinks {
background-color: #F9F9F9; background-color: #F9F9F9;
border: 1px solid #aaa; border: 1px solid #aaa;
color: black; color: #aaa;
padding: 10px; padding: 10px;
margin-top: 20px; margin-top: 20px;
} }

11
components/wiki/lazwiki/wiki2xhtmlconvert.pas
View File

@ -193,17 +193,17 @@ begin
exit; exit;
CategoriesNode := doc.CreateElement('div'); CategoriesNode := doc.CreateElement('div');
CategoriesNode.SetAttribute('class', 'categories'); CategoriesNode.SetAttribute('class', 'catlinks');
Page.BodyDOMNode.AppendChild(CategoriesNode); Page.BodyDOMNode.AppendChild(CategoriesNode);
// Add "Categories:" // Add "Categories:"
node := doc.CreateElement('a'); node := doc.CreateElement('a');
node.SetAttribute('href', url+'Special:Categories'); node.SetAttribute('href', url+'Special:Categories');
node.AppendChild(doc.CreateTextNode('Categories:'));
CategoriesNode.AppendChild(node); CategoriesNode.AppendChild(node);
CategoriesNode.AppendChild(doc.CreateTextNode('Categories: '));
if not FIndexOfflineLinksOnly then if not FIndexOfflineLinksOnly then
AddIndexItem('Categories (external)', url+'Special:Categories'); AddIndexItem('Categories (external)', url+'Special:Categories');
CategoriesNode.AppendChild(doc.CreateTextNode('  '));
for i:=0 to Page.CategoryList.Count-1 do begin for i:=0 to Page.CategoryList.Count-1 do begin
category := Page.CategoryList[i]; category := Page.CategoryList[i];
// Add link to category // Add link to category
@ -344,10 +344,9 @@ begin
HeaderTxt:=TDOMText(Page.CurDOMNode.FirstChild).Data; HeaderTxt:=TDOMText(Page.CurDOMNode.FirstChild).Data;
if HeaderTxt<>'' then begin if HeaderTxt<>'' then begin
HRef:=WikiHeaderToLink(HeaderTxt); HRef:=WikiHeaderToLink(HeaderTxt);
// add anchor // add anchor - use both old an new syntax:
// modern version: <h2 id="something">Text</h> - commented because not understood by IpHTMLPanel: // modern version: <h2 id="something">Text</h> - commented because not understood by IpHTMLPanel:
// Page.CurDOMNode.SetAttribute('id', HRef); Page.CurDOMNode.SetAttribute('id', HRef);
// old version: <h2><a name="something">Text</a></h2> // old version: <h2><a name="something">Text</a></h2>
Node := doc.CreateElement('a'); Node := doc.CreateElement('a');
Node.SetAttribute('name', HRef); Node.SetAttribute('name', HRef);

4
components/wiki/xhtml/wiki.css
View File

@ -187,10 +187,10 @@ span.keypress {
white-space: nowrap; white-space: nowrap;
} }
div.categories { div.catlinks {
background-color: #F9F9F9; background-color: #F9F9F9;
border: 1px solid #aaa; border: 1px solid #aaa;
color: black; color: #aaa;
padding: 10px; padding: 10px;
margin-top: 20px; margin-top: 20px;
} }