@rbxts/uiblox 0.2.0-alpha.22 → 0.2.0-alpha.24

package/out/ui/packages/markdown/htmlToMarkdown.luau

@@ -0,0 +1,350 @@
+-- Compiled with roblox-ts v3.0.0
+local function trim(value)
+	local start = 1
+	local stop = #value
+	while start <= stop do
+		local _value = value
+		local _start = start
+		local _start_1 = start
+		local ch = string.sub(_value, _start, _start_1)
+		if ch ~= " " and ch ~= "\t" and ch ~= "\r" and ch ~= "\n" then
+			break
+		end
+		start += 1
+	end
+	while stop >= start do
+		local _value = value
+		local _stop = stop
+		local _stop_1 = stop
+		local ch = string.sub(_value, _stop, _stop_1)
+		if ch ~= " " and ch ~= "\t" and ch ~= "\r" and ch ~= "\n" then
+			break
+		end
+		stop -= 1
+	end
+	if start > stop then
+		return ""
+	end
+	local _value = value
+	local _start = start
+	local _stop = stop
+	return string.sub(_value, _start, _stop)
+end
+local function decodeEntities(value)
+	local out = value
+	for _, _binding in { { "&lt;", "<" }, { "&gt;", ">" }, { "&amp;", "&" }, { "&quot;", '"' }, { "&nbsp;", " " } } do
+		local from = _binding[1]
+		local to = _binding[2]
+		local replaced = string.gsub(out, from, to)
+		out = replaced
+	end
+	return out
+end
+local function collapseSpace(value)
+	local out = ""
+	local gap = false
+	for i = 1, #value do
+		local _value = value
+		local _i = i
+		local _i_1 = i
+		local ch = string.sub(_value, _i, _i_1)
+		if ch == " " or ch == "\t" or ch == "\n" or ch == "\r" then
+			gap = true
+			continue
+		end
+		if gap then
+			out = `{out} `
+			gap = false
+		end
+		out = `{out}{ch}`
+	end
+	if gap then
+		out = `{out} `
+	end
+	return out
+end
+local function attr(tag, name)
+	local needle = `{name}="`
+	local found = { string.find(string.lower(tag), needle, 1, true) }
+	local at = found[1]
+	if at == nil then
+		return nil
+	end
+	local start = at + #needle
+	local close = { string.find(tag, '"', start, true) }
+	local endAt = close[1]
+	if endAt == nil then
+		return nil
+	end
+	local _tag = tag
+	local _arg1 = endAt - 1
+	return string.sub(_tag, start, _arg1)
+end
+local function tokenize(html)
+	local toks = {}
+	local i = 1
+	local n = #html
+	while i <= n do
+		local _html = html
+		local _i = i
+		local lt = { string.find(_html, "<", _i, true) }
+		local ltAt = lt[1]
+		if ltAt == nil then
+			local _object = {
+				kind = "text",
+			}
+			local _left = "text"
+			local _html_1 = html
+			local _i_1 = i
+			_object[_left] = string.sub(_html_1, _i_1)
+			table.insert(toks, _object)
+			break
+		end
+		if ltAt > i then
+			local _object = {
+				kind = "text",
+			}
+			local _left = "text"
+			local _html_1 = html
+			local _i_1 = i
+			local _arg1 = ltAt - 1
+			_object[_left] = string.sub(_html_1, _i_1, _arg1)
+			table.insert(toks, _object)
+		end
+		local _html_1 = html
+		local _arg1 = ltAt + 1
+		local gt = { string.find(_html_1, ">", _arg1, true) }
+		local gtAt = gt[1]
+		if gtAt == nil then
+			local _arg0 = {
+				kind = "text",
+				text = string.sub(html, ltAt),
+			}
+			table.insert(toks, _arg0)
+			break
+		end
+		local _html_2 = html
+		local _arg0 = ltAt + 1
+		local _arg1_1 = gtAt - 1
+		local raw = string.sub(_html_2, _arg0, _arg1_1)
+		if string.sub(raw, 1, 3) == "!--" then
+			i = gtAt + 1
+			continue
+		end
+		local isClose = string.sub(raw, 1, 1) == "/"
+		local body = if isClose then string.sub(raw, 2) else raw
+		local nameEnd = 1
+		while nameEnd <= #body do
+			local _nameEnd = nameEnd
+			local _nameEnd_1 = nameEnd
+			local c = string.sub(body, _nameEnd, _nameEnd_1)
+			if c == " " or c == "\t" or c == "/" or c == "\n" or c == "\r" then
+				break
+			end
+			nameEnd += 1
+		end
+		local _arg1_2 = nameEnd - 1
+		local name = string.lower(string.sub(body, 1, _arg1_2))
+		local _condition = not isClose
+		if _condition then
+			local _arg0_1 = #body
+			local _arg1_3 = #body
+			local _condition_1 = string.sub(body, _arg0_1, _arg1_3) == "/"
+			if not _condition_1 then
+				_condition_1 = name == "br" or name == "hr"
+			end
+			_condition = _condition_1
+		end
+		local selfClose = _condition
+		if name == "script" or name == "style" then
+			if not isClose and not selfClose then
+				local closer = `</{name}>`
+				local _exp = string.lower(html)
+				local _arg1_3 = gtAt + 1
+				local closeTag = { string.find(_exp, closer, _arg1_3, true) }
+				local endAt = closeTag[1]
+				i = if endAt ~= nil then endAt + #closer else gtAt + 1
+				continue
+			end
+			i = gtAt + 1
+			continue
+		end
+		if isClose then
+			local _arg0_1 = {
+				kind = "close",
+				name = name,
+			}
+			table.insert(toks, _arg0_1)
+		elseif selfClose then
+			local _arg0_1 = {
+				kind = "void",
+				name = name,
+			}
+			table.insert(toks, _arg0_1)
+		else
+			local _arg0_1 = {
+				kind = "open",
+				name = name,
+				raw = body,
+			}
+			table.insert(toks, _arg0_1)
+		end
+		i = gtAt + 1
+	end
+	return toks
+end
+local function hashes(level)
+	local out = ""
+	do
+		local i = 0
+		local _shouldIncrement = false
+		while true do
+			if _shouldIncrement then
+				i += 1
+			else
+				_shouldIncrement = true
+			end
+			if not (i < level) then
+				break
+			end
+			out = `{out}#`
+		end
+	end
+	return out
+end
+--* Map a small HTML subset to the markdown preview subset. Unknown tags unwrap to text. 
+local function htmlToMarkdown(html)
+	local toks = tokenize(html)
+	local out = ""
+	local listOrdered
+	local listIndex = 0
+	local inPre = false
+	local pending = ""
+	local hrefs = {}
+	local flushPending = function()
+		local t = trim(pending)
+		pending = ""
+		if #t > 0 then
+			out = `{out}{t}\n\n`
+		end
+	end
+	local pushInline = function(text)
+		pending = `{pending}{text}`
+	end
+	for _, tok in toks do
+		if tok.kind == "text" then
+			if inPre then
+				pending = `{pending}{tok.text}`
+			else
+				pushInline(collapseSpace(decodeEntities(tok.text)))
+			end
+			continue
+		end
+		local name = tok.name
+		if tok.kind == "void" then
+			if name == "br" then
+				pushInline("  \n")
+			elseif name == "hr" then
+				flushPending()
+				out = `{out}---\n\n`
+			end
+			continue
+		end
+		if tok.kind == "open" then
+			if #name == 2 and string.sub(name, 1, 1) == "h" then
+				local level = tonumber(string.sub(name, 2))
+				if level ~= nil and level >= 1 and level <= 6 then
+					flushPending()
+					pending = `{hashes(level)} `
+				end
+			elseif name == "p" then
+				flushPending()
+			elseif name == "strong" or name == "b" then
+				pushInline("**")
+			elseif name == "em" or name == "i" then
+				pushInline("*")
+			elseif name == "code" and not inPre then
+				pushInline("`")
+			elseif name == "pre" then
+				flushPending()
+				inPre = true
+				pending = "```\n"
+			elseif name == "a" then
+				pushInline("[")
+				local _condition = attr(tok.raw, "href")
+				if _condition == nil then
+					_condition = ""
+				end
+				table.insert(hrefs, _condition)
+			elseif name == "ul" then
+				flushPending()
+				listOrdered = false
+				listIndex = 0
+			elseif name == "ol" then
+				flushPending()
+				listOrdered = true
+				listIndex = 0
+			elseif name == "li" then
+				flushPending()
+				if listOrdered == true then
+					listIndex += 1
+					pending = `{listIndex}. `
+				else
+					pending = "- "
+				end
+			elseif name == "blockquote" then
+				flushPending()
+				pending = "> "
+			end
+			continue
+		end
+		if #name == 2 and string.sub(name, 1, 1) == "h" then
+			flushPending()
+		elseif name == "p" then
+			flushPending()
+		elseif name == "strong" or name == "b" then
+			pushInline("**")
+		elseif name == "em" or name == "i" then
+			pushInline("*")
+		elseif name == "code" and not inPre then
+			pushInline("`")
+		elseif name == "pre" then
+			inPre = false
+			local _condition = #pending > 0
+			if _condition then
+				local _pending = pending
+				local _arg0 = #pending
+				_condition = string.sub(_pending, _arg0) ~= "\n"
+			end
+			if _condition then
+				pending = `{pending}\n`
+			end
+			pending = `{pending}\`\`\``
+			flushPending()
+		elseif name == "a" then
+			-- ▼ Array.pop ▼
+			local _length = #hrefs
+			local _result = hrefs[_length]
+			hrefs[_length] = nil
+			-- ▲ Array.pop ▲
+			local _condition = _result
+			if _condition == nil then
+				_condition = ""
+			end
+			local href = _condition
+			pushInline(`]({href})`)
+		elseif name == "ul" or name == "ol" then
+			flushPending()
+			listOrdered = nil
+			listIndex = 0
+		elseif name == "li" or name == "blockquote" then
+			flushPending()
+		end
+	end
+	flushPending()
+	local result = trim(out)
+	return if #result > 0 then `{result}\n` else ""
+end
+return {
+	htmlToMarkdown = htmlToMarkdown,
+}

package/out/ui/packages/markdown/index.d.ts

@@ -0,0 +1,8 @@
+export { default as Markdown } from "./components/Markdown";
+export type { MarkdownProps } from "./components/Markdown";
+export { default as MarkdownEditor } from "./components/MarkdownEditor";
+export type { MarkdownEditorProps } from "./components/MarkdownEditor";
+export type { MarkdownEditorMode } from "./components/MarkdownEditor.styles";
+export { parseMarkdown, inlinesToPlain, inlinesToRichText } from "./parseMarkdown";
+export type { MdBlock, MdInline } from "./parseMarkdown";
+export { htmlToMarkdown } from "./htmlToMarkdown";

package/out/ui/packages/markdown/init.luau

@@ -0,0 +1,11 @@
+-- Compiled with roblox-ts v3.0.0
+local TS = _G[script]
+local exports = {}
+exports.Markdown = TS.import(script, script, "components", "Markdown").default
+exports.MarkdownEditor = TS.import(script, script, "components", "MarkdownEditor").default
+local _parseMarkdown = TS.import(script, script, "parseMarkdown")
+exports.parseMarkdown = _parseMarkdown.parseMarkdown
+exports.inlinesToPlain = _parseMarkdown.inlinesToPlain
+exports.inlinesToRichText = _parseMarkdown.inlinesToRichText
+exports.htmlToMarkdown = TS.import(script, script, "htmlToMarkdown").htmlToMarkdown
+return exports

package/out/ui/packages/markdown/parseMarkdown.d.ts

@@ -0,0 +1,42 @@
+export type MdInline = {
+    kind: "text";
+    text: string;
+} | {
+    kind: "bold";
+    text: string;
+} | {
+    kind: "italic";
+    text: string;
+} | {
+    kind: "code";
+    text: string;
+} | {
+    kind: "link";
+    text: string;
+    href: string;
+};
+export type MdBlock = {
+    kind: "heading";
+    level: number;
+    inlines: MdInline[];
+} | {
+    kind: "paragraph";
+    inlines: MdInline[];
+} | {
+    kind: "code";
+    text: string;
+} | {
+    kind: "list";
+    ordered: boolean;
+    items: MdInline[][];
+} | {
+    kind: "blockquote";
+    inlines: MdInline[];
+} | {
+    kind: "hr";
+};
+/** Small markdown subset → blocks. Unsupported syntax stays plain text. */
+export declare function parseMarkdown(source: string): MdBlock[];
+export declare function inlinesToPlain(inlines: MdInline[]): string;
+/** Turn inline nodes into Roblox RichText. Links become colored label + (url). */
+export declare function inlinesToRichText(inlines: MdInline[]): string;