Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?

Markdown to BBCode Converter

Write your forum posts in Markdown and convert them to BBCode for display on the forum.

Very useful for publishing scripts stored on GitHub!

https://gist.githubusercontent.com/G33kDude/349c4b88f4f047692c1a33b2a9677857/raw/demo.gif

Usage

Simply paste in your markdown code, hit the convert button, and copy out the BBCode for your forum post.

This converter offers a few special additions to Markdown to make it easier to create consistent posts.

Alternate sections:

<!-- alternate
Any text in here will be put literally into the BBCode.
This is useful for adding features to your bbcode that are
not available in Markdown.
-->
Any text in here will be omitted from your BBCode. 
This is useful for adding features to your Markdown that
are not available in BBCode.
<!-- /alternate -->

Spoilers:

<!-- spoiler -->
Text in here will always be visible in Markdown, but
will be wrapped in spoiler tags in the BBCode.
<!-- /spoiler -->

Releases

The latest version can always be found on the GitHub Gist page below.

https://gist.github.com/G33kDude/349c4b88f4f047692c1a33b2a9677857

#NoEnv
SetBatchLines, -1
Gui, Add, Button, gDoConversion, Convert from Markdown to BBCode
Gui, Add, Edit, w640 h480 vPost
Gui, Show
return
GuiClose:
ExitApp
return
DoConversion:
Gui, Submit, NoHide
GuiControl,, Post, % Convert(Post)
GuiControl, +ReadOnly, Post
GuiControl, +Disabled, Button1
return
Convert(Post)
{
Post := RegExReplace(Post, "`a)\R", "`r`n")
; Pull out alternate sections
Alternatives := []
for Match, Ctx in new RegExMatchAll(Post, "sO)<!-- alternate[\s\R]+(.+?)[\s\R]+-->.+?<!-- /alternate -->")
{
Alternatives.Push(Match[1])
Ctx.Replacement := "@@Alternate" A_Index "@@"
}
Post := Ctx.Haystack
; Pull out code blocks
CodeBlocks := []
for Match, Ctx in new RegExMatchAll(Post, "sO)``````.*?\R(.+?)\R``````")
{
CodeBlocks.Push(Match[1])
Ctx.Replacement := "@@CodeBlock" A_Index "@@"
}
Post := Ctx.Haystack
; Pull out spoilers
Spoilers := []
for Match, Ctx in new RegExMatchAll(Post, "sO)<!-- spoiler -->(.+?)<!-- /spoiler -->")
{
Spoilers.Push(Match[1])
Ctx.Replacement := "@@Spoiler" A_Index "@@"
}
Post := Ctx.Haystack
; Parse each paragraph
Post := ParseBlocks(Post)
; Restore spoilers
for Match, Ctx in new RegExMatchAll(Post, "O)@@Spoiler(\d+)@@")
Ctx.Replacement := "[spoiler]" ParseBlocks(Spoilers[Match[1]]) "[/spoiler]"
Post := Ctx.Haystack
; Restore code block
for Match, Ctx in new RegExMatchAll(Post, "O)@@CodeBlock(\d+)@@")
Ctx.Replacement := "[code]" CodeBlocks[Match[1]] "[/code]"
Post := Ctx.Haystack
; Restore alternatives
for Match, Ctx in new RegExMatchAll(Post, "O)@@Alternate(\d+)@@")
Ctx.Replacement := Alternatives[Match[1]]
Post := Ctx.Haystack
return Trim(Post, "`r`n `t")
}
; https://gist.github.com/G33kDude/1601bd24996cf380e03bcf2c2d9c2372#regular-expressions
class RegExMatchAll
{
__New(ByRef Haystack, ByRef Needle)
{
this.Haystack := Haystack
this.Needle := Needle
}
_NewEnum()
{
this.Pos := 0
return this
}
Next(ByRef Match, ByRef Context)
{
if this.HasKey("Replacement")
{
Len := StrLen(IsObject(this.Match) ? this.Match.Value : this.Match)
this.Haystack := SubStr(this.Haystack, 1, this.Pos-1)
. this.Replacement
. SubStr(this.Haystack, this.Pos + Len)
this.Delete("Replacement")
}
Context := this
this.Pos := RegExMatch(this.Haystack, this.Needle, Match, this.Pos+1)
this.Match := Match
return !!this.Pos
}
}
ParseBlocks(Post)
{
Post := RegExReplace(Trim(Post, "`r`n `t"), "`\R{2,}", "`r`n`r`n")
Paras := []
for i, Para in Strsplit(Post, "`r`n`r`n")
Paras.Push(ParseBlock(Para))
Post := ""
for i, Para in Paras
Post .= Para "`r`n`r`n"
return Post
}
ParseBlock(Post)
{
; Parse lists
Lists := "m`n)(^(\*|\d\.)\s+.+(?:\R[ \t]+.+)*\R?)+"
for Match, Ctx in new RegExMatchAll(Post, Lists)
{
Match := RTrim(Match, "`r`n")
Ctx.Replacement := "[list" (Match ~= "^\d" ? "=1" : "") "]"
Lines := StrSplit(Match, "`n", "`r")
while Lines.length()
{
; Trim off list item marker
Line := RegExReplace(Lines.RemoveAt(1), "^(\*|\d\.)\s+")
; Get whole list item
if RegExMatch(Lines[1], "^\s+", Whitespace)
{
while (Lines[1] ~= "^" Whitespace)
Line .= "`r`n" SubStr(Lines.RemoveAt(1), 1+StrLen(Whitespace))
}
; Parse the list item
Ctx.Replacement .= "[*]" ParseBlocks(Line)
}
Ctx.Replacement .= "[/list]"
}
Post := Ctx.Haystack
Replacements :=
( LTrim Join Comments
[
["s)!\[.+?\]\(\s*(.+?)\s*\)", "[img]$1[/img]"],
["s)\[([^\[\]]+?)\]\(\s*(.+?)\s*\)", "[url=$2]$1[/url]"],
["\*\*(.+?)\*\*", "[b]$1[/b]"],
["&sup1;", Chr(0xB9)],
["&sup2;", Chr(0xB2)],
["&sup3;", Chr(0xB3)],
["m)(?<!^|\[)\*(.+?)\*", "[i]$1[/i]"],
["m)^###\s*(.+)", "[size=125]$1[/size]"],
["m)^##\s*(.+)", "<br>[size=150]$1[/size]"],
["m)^#\s*(.+)", "<br><br>[size=200]$1[/size]"],
["<!-- spoiler -->", "[spoiler]"],
["<!-- /spoiler -->", "[/spoiler]"],
["&#9888;", " :!: "],
["<sub>", "[size=85]"],
["</sub>", "[/size]"],
["s)``(.+?)``", "[c]$1[/c]"],
["m)^[-=]{3,}$", "[hr][/hr]"]
]
)
for k, v in Replacements
Post := RegExReplace(Post, v[1], v[2])
Post := RegExReplace(Post, "^\R", "")
Post := RegExReplace(Post, "\R", " ")
Post := RegExReplace(Post, "<br>", "`r`n")
return Post
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.