paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-28 20:11:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

wiki: Modify Wiki2XHTMLConvert to convert wiki [code] tags to html <code> tags (instead of <pre> which causes a line break)

Browse Source 
git-svn-id: trunk@49325 -
This commit is contained in:
wp 2015-06-13 12:16:18 +00:00
parent 794294016d
commit 11c6f4dfca
1 changed files with 54 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -823,10 +823,16 @@ begin
doc:=Page.XHTML; doc:=Page.XHTML;
CurName:=lowercase(copy(W.Src,Token.NameStartPos,Token.NameEndPos-Token.NameStartPos)); CurName:=lowercase(copy(W.Src,Token.NameStartPos,Token.NameEndPos-Token.NameStartPos));
CurValue:=copy(W.Src,Token.ValueStartPos,Token.ValueEndPos-Token.ValueStartPos); CurValue:=copy(W.Src,Token.ValueStartPos,Token.ValueEndPos-Token.ValueStartPos);
if CurName = 'code' then begin
CodeNode := doc.CreateElement('code');
Page.CurDomNode.AppendChild(CodeNode);
CodeNode.AppendChild(doc.CreateTextNode(CurValue));
end else
begin
CodeNode:=doc.CreateElement('pre'); CodeNode:=doc.CreateElement('pre');
if (CurName='pascal') if (CurName='pascal')
or (CurName='delphi') or (CurName='delphi')
or (CurName='code')
or (CurName='syntaxhighlight') or (CurName='syntaxhighlight')
or (CurName='source') or (CurName='source')
or (CurName='fpc') or (CurName='fpc')
@ -875,6 +881,7 @@ begin
end; end;
end; end;
end; end;
end;
procedure TWiki2XHTMLConverter.SavePage(Page: TW2XHTMLPage); procedure TWiki2XHTMLConverter.SavePage(Page: TW2XHTMLPage);
var var