@rbxts/uiblox 0.2.0-alpha.21 → 0.2.0-alpha.23

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

@@ -0,0 +1,459 @@
+-- Compiled with roblox-ts v3.0.0
+local function trimEnd(value)
+	local stop = #value
+	while stop > 0 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" then
+			break
+		end
+		stop -= 1
+	end
+	local _value = value
+	local _stop = stop
+	return string.sub(_value, 1, _stop)
+end
+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" 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" 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 headingLevel(line)
+	local n = 0
+	while true do
+		local _condition = n < #line and n < 6
+		if _condition then
+			local _line = line
+			local _arg0 = n + 1
+			local _arg1 = n + 1
+			_condition = string.sub(_line, _arg0, _arg1) == "#"
+		end
+		if not _condition then
+			break
+		end
+		n += 1
+	end
+	if n == 0 then
+		return nil
+	end
+	local _condition = n < #line
+	if _condition then
+		local _line = line
+		local _arg0 = n + 1
+		local _arg1 = n + 1
+		_condition = string.sub(_line, _arg0, _arg1) ~= " "
+	end
+	if _condition then
+		return nil
+	end
+	return n
+end
+local function parseInlines(source)
+	local out = {}
+	local i = 1
+	local n = #source
+	local buf = ""
+	local flush = function()
+		if #buf > 0 then
+			local _arg0 = {
+				kind = "text",
+				text = buf,
+			}
+			table.insert(out, _arg0)
+			buf = ""
+		end
+	end
+	while i <= n do
+		local _source = source
+		local _i = i
+		local _i_1 = i
+		local ch = string.sub(_source, _i, _i_1)
+		if ch == "`" then
+			local _source_1 = source
+			local _arg1 = i + 1
+			local close = { string.find(_source_1, "`", _arg1, true) }
+			local endAt = close[1]
+			if endAt ~= nil then
+				flush()
+				local _object = {
+					kind = "code",
+				}
+				local _left = "text"
+				local _source_2 = source
+				local _arg0 = i + 1
+				local _arg1_1 = endAt - 1
+				_object[_left] = string.sub(_source_2, _arg0, _arg1_1)
+				table.insert(out, _object)
+				i = endAt + 1
+				continue
+			end
+		end
+		if ch == "[" then
+			local _source_1 = source
+			local _arg1 = i + 1
+			local mid = { string.find(_source_1, "](", _arg1, true) }
+			local midAt = mid[1]
+			if midAt ~= nil then
+				local _source_2 = source
+				local _arg1_1 = midAt + 2
+				local closeParen = { string.find(_source_2, ")", _arg1_1, true) }
+				local endAt = closeParen[1]
+				if endAt ~= nil then
+					flush()
+					local _object = {
+						kind = "link",
+					}
+					local _left = "text"
+					local _source_3 = source
+					local _arg0 = i + 1
+					local _arg1_2 = midAt - 1
+					_object[_left] = string.sub(_source_3, _arg0, _arg1_2)
+					local _left_1 = "href"
+					local _source_4 = source
+					local _arg0_1 = midAt + 2
+					local _arg1_3 = endAt - 1
+					_object[_left_1] = string.sub(_source_4, _arg0_1, _arg1_3)
+					table.insert(out, _object)
+					i = endAt + 1
+					continue
+				end
+			end
+		end
+		local _condition = ch == "*" and i + 1 <= n
+		if _condition then
+			local _source_1 = source
+			local _arg0 = i + 1
+			local _arg1 = i + 1
+			_condition = string.sub(_source_1, _arg0, _arg1) == "*"
+		end
+		if _condition then
+			local _source_1 = source
+			local _arg1 = i + 2
+			local close = { string.find(_source_1, "**", _arg1, true) }
+			local endAt = close[1]
+			if endAt ~= nil then
+				flush()
+				local _object = {
+					kind = "bold",
+				}
+				local _left = "text"
+				local _source_2 = source
+				local _arg0 = i + 2
+				local _arg1_1 = endAt - 1
+				_object[_left] = string.sub(_source_2, _arg0, _arg1_1)
+				table.insert(out, _object)
+				i = endAt + 2
+				continue
+			end
+		end
+		local _condition_1 = ch == "*"
+		if _condition_1 then
+			local _condition_2 = i == 1
+			if not _condition_2 then
+				local _source_1 = source
+				local _arg0 = i - 1
+				local _arg1 = i - 1
+				_condition_2 = string.sub(_source_1, _arg0, _arg1) ~= "*"
+			end
+			_condition_1 = _condition_2
+		end
+		if _condition_1 then
+			local _source_1 = source
+			local _arg1 = i + 1
+			local close = { string.find(_source_1, "*", _arg1, true) }
+			local endAt = close[1]
+			local _condition_2 = endAt ~= nil
+			if _condition_2 then
+				local _source_2 = source
+				local _arg0 = endAt + 1
+				local _arg1_1 = endAt + 1
+				_condition_2 = string.sub(_source_2, _arg0, _arg1_1) ~= "*"
+			end
+			if _condition_2 then
+				flush()
+				local _object = {
+					kind = "italic",
+				}
+				local _left = "text"
+				local _source_2 = source
+				local _arg0 = i + 1
+				local _arg1_1 = endAt - 1
+				_object[_left] = string.sub(_source_2, _arg0, _arg1_1)
+				table.insert(out, _object)
+				i = endAt + 1
+				continue
+			end
+		end
+		buf = `{buf}{ch}`
+		i += 1
+	end
+	flush()
+	return if #out > 0 then out else { {
+		kind = "text",
+		text = "",
+	} }
+end
+local function isHr(line)
+	local t = trim(line)
+	if #t < 3 then
+		return false
+	end
+	local ch = string.sub(t, 1, 1)
+	if ch ~= "-" and ch ~= "*" and ch ~= "_" then
+		return false
+	end
+	for i = 1, #t do
+		local _i = i
+		local _i_1 = i
+		local c = string.sub(t, _i, _i_1)
+		if c ~= ch and c ~= " " then
+			return false
+		end
+	end
+	return true
+end
+local function listMarker(line)
+	local t = trim(line)
+	if #t >= 2 and (string.sub(t, 1, 2) == "- " or string.sub(t, 1, 2) == "* ") then
+		return {
+			ordered = false,
+			rest = string.sub(t, 3),
+		}
+	end
+	local i = 1
+	while i <= #t do
+		local _i = i
+		local _i_1 = i
+		local c = string.sub(t, _i, _i_1)
+		if c < "0" or c > "9" then
+			break
+		end
+		i += 1
+	end
+	local _condition = i > 1 and i + 1 <= #t
+	if _condition then
+		local _i = i
+		local _arg1 = i + 1
+		_condition = string.sub(t, _i, _arg1) == ". "
+	end
+	if _condition then
+		local _object = {
+			ordered = true,
+		}
+		local _left = "rest"
+		local _arg0 = i + 2
+		_object[_left] = string.sub(t, _arg0)
+		return _object
+	end
+	return nil
+end
+--* Small markdown subset → blocks. Unsupported syntax stays plain text. 
+local function parseMarkdown(source)
+	local lines = string.split(source, "\n")
+	local blocks = {}
+	local i = 0
+	while i < #lines do
+		local raw = lines[i + 1]
+		local line = trimEnd(raw)
+		if trim(line) == "" then
+			i += 1
+			continue
+		end
+		if #line >= 3 and string.sub(line, 1, 3) == "```" then
+			local body = {}
+			i += 1
+			while i < #lines and not (#lines[i + 1] >= 3 and string.sub(trim(lines[i + 1]), 1, 3) == "```") do
+				local _arg0 = lines[i + 1]
+				table.insert(body, _arg0)
+				i += 1
+			end
+			if i < #lines then
+				i += 1
+			end
+			local _arg0 = {
+				kind = "code",
+				text = table.concat(body, "\n"),
+			}
+			table.insert(blocks, _arg0)
+			continue
+		end
+		if isHr(line) then
+			table.insert(blocks, {
+				kind = "hr",
+			})
+			i += 1
+			continue
+		end
+		local level = headingLevel(line)
+		if level ~= nil then
+			local _object = {
+				kind = "heading",
+				level = level,
+			}
+			local _left = "inlines"
+			local _arg0 = level + 1
+			_object[_left] = parseInlines(trim(string.sub(line, _arg0)))
+			table.insert(blocks, _object)
+			i += 1
+			continue
+		end
+		if string.sub(line, 1, 1) == ">" and (#line == 1 or string.sub(line, 2, 2) == " ") then
+			local parts = {}
+			while i < #lines do
+				local cur = trimEnd(lines[i + 1])
+				if not (string.sub(cur, 1, 1) == ">" and (#cur == 1 or string.sub(cur, 2, 2) == " ")) then
+					break
+				end
+				local _arg0 = if #cur >= 2 then string.sub(cur, 3) else ""
+				table.insert(parts, _arg0)
+				i += 1
+			end
+			local _arg0 = {
+				kind = "blockquote",
+				inlines = parseInlines(table.concat(parts, " ")),
+			}
+			table.insert(blocks, _arg0)
+			continue
+		end
+		local marker = listMarker(line)
+		if marker ~= nil then
+			local ordered = marker.ordered
+			local items = { parseInlines(marker.rest) }
+			i += 1
+			while i < #lines do
+				local following = listMarker(trimEnd(lines[i + 1]))
+				if following == nil or following.ordered ~= ordered then
+					break
+				end
+				local _arg0 = parseInlines(following.rest)
+				table.insert(items, _arg0)
+				i += 1
+			end
+			local _arg0 = {
+				kind = "list",
+				ordered = ordered,
+				items = items,
+			}
+			table.insert(blocks, _arg0)
+			continue
+		end
+		local para = { line }
+		i += 1
+		while i < #lines do
+			local cur = trimEnd(lines[i + 1])
+			if trim(cur) == "" then
+				break
+			end
+			if #cur >= 3 and string.sub(cur, 1, 3) == "```" then
+				break
+			end
+			if isHr(cur) then
+				break
+			end
+			if headingLevel(cur) ~= nil then
+				break
+			end
+			if string.sub(cur, 1, 1) == ">" and (#cur == 1 or string.sub(cur, 2, 2) == " ") then
+				break
+			end
+			if listMarker(cur) ~= nil then
+				break
+			end
+			-- two trailing spaces = hard break
+			local prev = para[#para]
+			local _condition = #prev >= 2
+			if _condition then
+				local _arg0 = #prev - 1
+				_condition = string.sub(prev, _arg0) == "  "
+			end
+			if _condition then
+				local _arg1 = #prev - 2
+				para[#para] = trimEnd(string.sub(prev, 1, _arg1))
+				table.insert(para, cur)
+			else
+				para[#para] = `{prev} {cur}`
+			end
+			i += 1
+		end
+		local _arg0 = {
+			kind = "paragraph",
+			inlines = parseInlines(table.concat(para, "\n")),
+		}
+		table.insert(blocks, _arg0)
+	end
+	return blocks
+end
+local function inlinesToPlain(inlines)
+	local out = ""
+	for _, part in inlines do
+		if part.kind == "link" then
+			out = `{out}{part.text}`
+		else
+			out = `{out}{part.text}`
+		end
+	end
+	return out
+end
+local function escapeRich(text)
+	local out = text
+	for _, _binding in { { "&", "&amp;" }, { "<", "&lt;" }, { ">", "&gt;" } } do
+		local from = _binding[1]
+		local to = _binding[2]
+		local replaced = string.gsub(out, from, to)
+		out = replaced
+	end
+	return out
+end
+--* Turn inline nodes into Roblox RichText. Links become colored label + (url). 
+local function inlinesToRichText(inlines)
+	local out = ""
+	for _, part in inlines do
+		if part.kind == "text" then
+			local chunk = escapeRich(part.text)
+			local withBreaks = string.gsub(chunk, "\n", "<br/>")
+			out = `{out}{withBreaks}`
+		elseif part.kind == "bold" then
+			out = `{out}<b>{escapeRich(part.text)}</b>`
+		elseif part.kind == "italic" then
+			out = `{out}<i>{escapeRich(part.text)}</i>`
+		elseif part.kind == "code" then
+			out = `{out}<font face="RobotoMono">{escapeRich(part.text)}</font>`
+		elseif part.kind == "link" then
+			out = `{out}<font color="#4C9AFF">{escapeRich(part.text)}</font> ({escapeRich(part.href)})`
+		end
+	end
+	return out
+end
+return {
+	parseMarkdown = parseMarkdown,
+	inlinesToPlain = inlinesToPlain,
+	inlinesToRichText = inlinesToRichText,
+}

package/out/ui/packages/menu/components/Menu.luau

@@ -77,7 +77,7 @@ local function Menu(props)
 			_newValue[_k] = _callback(_v, _k - 1, items)
 		end
 		-- ▲ ReadonlyArray.map ▲
-		_result = _newValue
+		_result = (React.createElement(React.Fragment, nil, _newValue))
 	end
 	return React.createElement(Popup, {
 		anchor = anchor,

package/out/ui/packages/select/components/Select.luau

@@ -17,7 +17,6 @@ local canActivate = TS.import(script, script.Parent.Parent.Parent, "button", "co
 local spinnerPixels = TS.import(script, script.Parent.Parent.Parent, "button", "components", "buttonLook").spinnerPixels
 local CircularProgress = TS.import(script, script.Parent.Parent.Parent, "circularProgress").CircularProgress
 local Input = TS.import(script, script.Parent.Parent.Parent, "input").Input
-local playProperty = TS.import(script, script.Parent.Parent.Parent, "motion").playProperty
 local Popup = TS.import(script, script.Parent.Parent.Parent, "popup").Popup
 local Shadow = TS.import(script, script.Parent.Parent.Parent, "shadow").Shadow
 local _virtualList = TS.import(script, script.Parent.Parent.Parent, "virtualList")
@@ -33,7 +32,6 @@ local _selectGroups = TS.import(script, script.Parent, "selectGroups")
 local groupRows = _selectGroups.groupRows
 local rowForOption = _selectGroups.rowForOption
 local shouldHandleSelectKey = TS.import(script, script.Parent, "selectKey").shouldHandleSelectKey
-local menuHold = TS.import(script, script.Parent, "selectMotion").menuHold
 local _selectMulti = TS.import(script, script.Parent, "selectMulti")
 local includesChoice = _selectMulti.includesChoice
 local selectionLabel = _selectMulti.selectionLabel
@@ -75,7 +73,6 @@ local function Select(props)
 	local active = canActivate(disabled, loading)
 	local anchor, setAnchor = useState()
 	local open, setOpen = useState(defaultOpen == true and not loading)
-	local held, setHeld = useState(false)
 	local focused, setFocused = useState(false)
 	local highlight, setHighlight = useState(-1)
 	local _condition = defaultQuery
@@ -87,7 +84,6 @@ local function Select(props)
 	local typed = useRef()
 	local onKeyRef = useRef()
 	local listRef = useRef()
-	local menuRef = useRef()
 	-- ▼ ReadonlyArray.find ▼
 	local _callback = function(option)
 		return option.value == value
@@ -242,40 +238,12 @@ local function Select(props)
 			_result_1.ensureVisible(rowForOption(rows, highlight))
 		end
 	end, { shown, highlight })
-	useEffect(function()
-		if shown then
-			setHeld(true)
-		end
-	end, { shown })
 	useEffect(function()
 		if loading and open then
 			setOpen(false)
 			setQuery("")
 		end
 	end, { loading, open })
-	useEffect(function()
-		local menu = menuRef.current
-		if not menu or not held then
-			return nil
-		end
-		local stop = playProperty(menu, {
-			GroupTransparency = if shown then 0 else 1,
-		}, 0.12, reducedMotion)
-		local seconds = menuHold(shown, reducedMotion)
-		if seconds == 0 then
-			if not shown then
-				setHeld(false)
-			end
-			return stop
-		end
-		local wait = task.delay(seconds, function()
-			return setHeld(false)
-		end)
-		return function()
-			stop()
-			task.cancel(wait)
-		end
-	end, { shown, held, reducedMotion })
 	local _attributes = {}
 	local _condition_2 = id
 	if not (_condition_2 ~= 0 and _condition_2 == _condition_2 and _condition_2 ~= "" and _condition_2) then
@@ -360,7 +328,7 @@ local function Select(props)
 			Position = UDim2.new(1, -theme.padding.calc(1), 0.5, 0),
 		},
 	})))
-	local _condition_3 = (shown or held)
+	local _condition_3 = shown
 	if _condition_3 then
 		local _attributes_5 = {
 			key = "Menu",
@@ -405,11 +373,6 @@ local function Select(props)
 			onInput = function(input)
 				return onKey(input, true)
 			end,
-		}, React.createElement("canvasgroup", {
-			ref = menuRef,
-			Size = UDim2.fromScale(1, 1),
-			BackgroundTransparency = 1,
-			GroupTransparency = 1,
 		}, React.createElement("frame", _attributes_5, _exp_3, _exp_4, _exp_5, _exp_6, _condition_4, React.createElement("frame", {
 			key = "ListHost",
 			Size = UDim2.new(1, 0, 1, if search then -row else 0),
@@ -469,7 +432,7 @@ local function Select(props)
 				setmetatable(_attributes_9, nil)
 				return React.createElement("textbutton", _attributes_8, React.createElement("uipadding", _attributes_9))
 			end,
-		}))))))
+		})))))
 	end
 	return React.createElement("frame", _attributes, _exp_2, _condition_3)
 end

package/out/ui/packages/splitPane/components/splitLook.d.ts

@@ -1,5 +1,5 @@
 export type SplitPointer = "rest" | "hover" | "press";
 export declare function splitPointer(hovering: boolean, pressed: boolean): SplitPointer;
-export declare function splitRuleTransparency(pointer: SplitPointer, disabled?: boolean): 0.25 | 0.35 | 0.7 | 0.55;
+export declare function splitRuleTransparency(pointer: SplitPointer, disabled?: boolean): 0.25 | 0.7 | 0.55 | 0.35;
 export declare function splitMarkTransparency(pointer: SplitPointer, disabled?: boolean): 0 | 0.55 | 0.1;
 export declare function splitHitTransparency(pointer: SplitPointer, disabled?: boolean): 1 | 0.9 | 0.94;