luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[GB.MARKDOWN]

Browse source 
* NEW: Support for "standard" markdown ordered list syntax.


git-svn-id: svn://localhost/gambas/trunk@6656 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2014-11-19 09:38:48 +00:00
parent 348a30d013
commit 9a89ed795c
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
comp/src/gb.markdown/.src/Markup.module
View file

@ -68,6 +68,7 @@ Private Sub ConvertMarkup(aLine As String[], Optional bDoNotSetLine As Boolean)
Dim aSaveTablePos As Integer[]
Dim aSaveTableClass As String[]
Dim sClass As String
Dim sList As String
aResult = New String[]
@ -207,7 +208,10 @@ Private Sub ConvertMarkup(aLine As String[], Optional bDoNotSetLine As Boolean)
Endif
Endif
If sLine Begins "* " Or If sLine Begins "- " Then
iPos = InStr(sLine, " ")
If iPos Then sList = Left(sLine, iPos - 1)
If sList = "*" Or If sList = "-" Then
hMarkupList = New MarkupList
hMarkupList.sType = "ul"
@ -230,7 +234,7 @@ Private Sub ConvertMarkup(aLine As String[], Optional bDoNotSetLine As Boolean)
aResult.Add(Space$(iCurrentIndent) & "<li>")
sLine = Mid$(sLine, 3)
Else If sLine Begins "+ " Then
Else If sList = "+" Or If Right(sList) = "." And IsDigit(Left(sList, -1)) Then
hMarkupList = New MarkupList
hMarkupList.sType = "ol"