paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-20 21:02:37 +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;
}
div.categories {
div.catlinks {
background-color: #F9F9F9;
border: 1px solid #aaa;
color: black;
color: #aaa;
padding: 10px;
margin-top: 20px;
}

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

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

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

@ -193,17 +193,17 @@ begin
exit;
CategoriesNode := doc.CreateElement('div');
CategoriesNode.SetAttribute('class', 'categories');
CategoriesNode.SetAttribute('class', 'catlinks');
Page.BodyDOMNode.AppendChild(CategoriesNode);
// Add "Categories:"
node := doc.CreateElement('a');
node.SetAttribute('href', url+'Special:Categories');
node.AppendChild(doc.CreateTextNode('Categories:'));
CategoriesNode.AppendChild(node);
CategoriesNode.AppendChild(doc.CreateTextNode('Categories: '));
if not FIndexOfflineLinksOnly then
AddIndexItem('Categories (external)', url+'Special:Categories');
CategoriesNode.AppendChild(doc.CreateTextNode('  '));
for i:=0 to Page.CategoryList.Count-1 do begin
category := Page.CategoryList[i];
// Add link to category
@ -344,10 +344,9 @@ begin
HeaderTxt:=TDOMText(Page.CurDOMNode.FirstChild).Data;
if HeaderTxt<>'' then begin
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:
// Page.CurDOMNode.SetAttribute('id', HRef);
Page.CurDOMNode.SetAttribute('id', HRef);
// old version: <h2><a name="something">Text</a></h2>
Node := doc.CreateElement('a');
Node.SetAttribute('name', HRef);

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

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