@rbxts/uiblox 0.2.0-alpha.36 → 0.2.0-alpha.38

package/out/ui/packages/codeEditor/highlightCode.luau

@@ -0,0 +1,503 @@
+-- Compiled with roblox-ts v3.0.0
+-- ponytail: lines over 2000 chars stay one plain run. A real lexer if a minified file shows up.
+local MAX_LINE = 2000
+local LUAU = {
+	["and"] = true,
+	["break"] = true,
+	continue = true,
+	["do"] = true,
+	["else"] = true,
+	["elseif"] = true,
+	["end"] = true,
+	["false"] = true,
+	["for"] = true,
+	["function"] = true,
+	["if"] = true,
+	["in"] = true,
+	["local"] = true,
+	["nil"] = true,
+	["not"] = true,
+	["or"] = true,
+	["repeat"] = true,
+	["return"] = true,
+	["then"] = true,
+	["true"] = true,
+	["until"] = true,
+	["while"] = true,
+}
+local SCRIPT = {
+	as = true,
+	async = true,
+	await = true,
+	["break"] = true,
+	case = true,
+	catch = true,
+	class = true,
+	const = true,
+	continue = true,
+	default = true,
+	["do"] = true,
+	["else"] = true,
+	export = true,
+	extends = true,
+	["false"] = true,
+	finally = true,
+	["for"] = true,
+	from = true,
+	["function"] = true,
+	["if"] = true,
+	import = true,
+	["in"] = true,
+	interface = true,
+	let = true,
+	new = true,
+	null = true,
+	of = true,
+	["return"] = true,
+	static = true,
+	super = true,
+	switch = true,
+	this = true,
+	throw = true,
+	["true"] = true,
+	try = true,
+	type = true,
+	typeof = true,
+	undefined = true,
+	var = true,
+	void = true,
+	["while"] = true,
+	yield = true,
+}
+local JSON_WORD = {
+	["false"] = true,
+	null = true,
+	["true"] = true,
+}
+local function words(language)
+	if language == "luau" then
+		return LUAU
+	end
+	if language == "ts" then
+		return SCRIPT
+	end
+	if language == "json" then
+		return JSON_WORD
+	end
+	return nil
+end
+local function escapeRich(text)
+	local out = ""
+	for i = 1, #text do
+		local _text = text
+		local _i = i
+		local _i_1 = i
+		local ch = string.sub(_text, _i, _i_1)
+		if ch == "&" then
+			out ..= "&"
+		elseif ch == "<" then
+			out ..= "&lt;"
+		elseif ch == ">" then
+			out ..= "&gt;"
+		elseif ch == '"' then
+			out ..= "&quot;"
+		elseif ch == "'" then
+			out ..= "&apos;"
+		else
+			out ..= ch
+		end
+	end
+	return out
+end
+local function paint(text, kind, colors)
+	local safe = escapeRich(text)
+	if kind == "plain" or #safe == 0 then
+		return safe
+	end
+	local color = colors[kind]
+	if kind == "keyword" then
+		return `<font color="{color}"><b>{safe}</b></font>`
+	end
+	return `<font color="{color}">{safe}</font>`
+end
+local function isDigit(ch)
+	return ch >= "0" and ch <= "9"
+end
+local function isIdentStart(ch)
+	return (ch >= "A" and ch <= "Z") or (ch >= "a" and ch <= "z") or ch == "_"
+end
+local function isIdent(ch)
+	return isIdentStart(ch) or isDigit(ch)
+end
+local function isHex(ch)
+	return isDigit(ch) or (ch >= "a" and ch <= "f") or (ch >= "A" and ch <= "F")
+end
+local function findPair(text, a, b, from)
+	local last = #text - 1
+	do
+		local i = from
+		local _shouldIncrement = false
+		while true do
+			if _shouldIncrement then
+				i += 1
+			else
+				_shouldIncrement = true
+			end
+			if not (i <= last) then
+				break
+			end
+			local _text = text
+			local _i = i
+			local _i_1 = i
+			local _condition = string.sub(_text, _i, _i_1) == a
+			if _condition then
+				local _text_1 = text
+				local _arg0 = i + 1
+				local _arg1 = i + 1
+				_condition = string.sub(_text_1, _arg0, _arg1) == b
+			end
+			if _condition then
+				return i
+			end
+		end
+	end
+	return nil
+end
+local function scanLine(line, language, state, colors)
+	local dict = words(language)
+	if dict == nil then
+		return {
+			text = escapeRich(line),
+			state = state,
+		}
+	end
+	if #line > MAX_LINE and state.block == nil then
+		return {
+			text = escapeRich(line),
+			state = {
+				wantName = false,
+			},
+		}
+	end
+	local i = 1
+	local limit = math.min(#line, MAX_LINE)
+	local out = ""
+	local block = state.block
+	local wantName = state.wantName
+	while i <= limit do
+		if block ~= nil then
+			local closer = if block == "luau" then "]]" else "*/"
+			local at = findPair(line, string.sub(closer, 1, 1), string.sub(closer, 2, 2), i)
+			if at == nil or at > limit then
+				local _line = line
+				local _i = i
+				out ..= paint(string.sub(_line, _i), "comment", colors)
+				i = #line + 1
+				break
+			end
+			local _line = line
+			local _i = i
+			local _arg1 = at + 1
+			out ..= paint(string.sub(_line, _i, _arg1), "comment", colors)
+			i = at + 2
+			block = nil
+			wantName = false
+			continue
+		end
+		local _line = line
+		local _i = i
+		local _i_1 = i
+		local ch = string.sub(_line, _i, _i_1)
+		local _result
+		if i < #line then
+			local _line_1 = line
+			local _arg0 = i + 1
+			local _arg1 = i + 1
+			_result = string.sub(_line_1, _arg0, _arg1)
+		else
+			_result = ""
+		end
+		local ahead = _result
+		if language == "luau" and ch == "-" and ahead == "-" then
+			local _line_1 = line
+			local _arg0 = i + 2
+			local _arg1 = i + 3
+			if string.sub(_line_1, _arg0, _arg1) == "[[" then
+				block = "luau"
+				i += 4
+				wantName = false
+				continue
+			end
+			local _line_2 = line
+			local _i_2 = i
+			out ..= paint(string.sub(_line_2, _i_2), "comment", colors)
+			wantName = false
+			i = #line + 1
+			break
+		end
+		if language ~= "luau" and ch == "/" and ahead == "/" then
+			local _line_1 = line
+			local _i_2 = i
+			out ..= paint(string.sub(_line_1, _i_2), "comment", colors)
+			wantName = false
+			i = #line + 1
+			break
+		end
+		if language ~= "luau" and ch == "/" and ahead == "*" then
+			block = "ts"
+			i += 2
+			wantName = false
+			continue
+		end
+		if ch == '"' or ch == "'" then
+			local j = i + 1
+			while j <= #line do
+				local _line_1 = line
+				local _j = j
+				local _j_1 = j
+				local c = string.sub(_line_1, _j, _j_1)
+				if c == "\\" then
+					j += 2
+					continue
+				end
+				if c == ch then
+					j += 1
+					break
+				end
+				j += 1
+			end
+			local _line_1 = line
+			local _i_2 = i
+			local _arg1 = j - 1
+			out ..= paint(string.sub(_line_1, _i_2, _arg1), "string", colors)
+			i = j
+			wantName = false
+			continue
+		end
+		if language == "luau" and ch == "[" and ahead == "[" then
+			local at = findPair(line, "]", "]", i + 2)
+			local stop = if at == nil then #line else at + 1
+			local _line_1 = line
+			local _i_2 = i
+			out ..= paint(string.sub(_line_1, _i_2, stop), "string", colors)
+			i = stop + 1
+			wantName = false
+			continue
+		end
+		if isDigit(ch) then
+			local j = i
+			if ch == "0" and (ahead == "x" or ahead == "X") and language ~= "json" then
+				j = i + 2
+				while true do
+					local _condition = j <= #line
+					if _condition then
+						local _line_1 = line
+						local _j = j
+						local _j_1 = j
+						_condition = isHex(string.sub(_line_1, _j, _j_1))
+					end
+					if not _condition then
+						break
+					end
+					j += 1
+				end
+			else
+				while true do
+					local _condition = j <= #line
+					if _condition then
+						local _line_1 = line
+						local _j = j
+						local _j_1 = j
+						_condition = isDigit(string.sub(_line_1, _j, _j_1))
+					end
+					if not _condition then
+						break
+					end
+					j += 1
+				end
+				local _line_1 = line
+				local _j = j
+				local _j_1 = j
+				local _condition = string.sub(_line_1, _j, _j_1) == "."
+				if _condition then
+					local _line_2 = line
+					local _arg0 = j + 1
+					local _arg1 = j + 1
+					_condition = isDigit(string.sub(_line_2, _arg0, _arg1))
+				end
+				if _condition then
+					j += 1
+					while true do
+						local _condition_1 = j <= #line
+						if _condition_1 then
+							local _line_2 = line
+							local _j_2 = j
+							local _j_3 = j
+							_condition_1 = isDigit(string.sub(_line_2, _j_2, _j_3))
+						end
+						if not _condition_1 then
+							break
+						end
+						j += 1
+					end
+				end
+				local _line_2 = line
+				local _j_2 = j
+				local _j_3 = j
+				local exp = string.sub(_line_2, _j_2, _j_3)
+				if exp == "e" or exp == "E" then
+					local k = j + 1
+					local _line_3 = line
+					local _k = k
+					local _k_1 = k
+					local sign = string.sub(_line_3, _k, _k_1)
+					if sign == "+" or sign == "-" then
+						k += 1
+					end
+					local _line_4 = line
+					local _k_2 = k
+					local _k_3 = k
+					if isDigit(string.sub(_line_4, _k_2, _k_3)) then
+						j = k
+						while true do
+							local _condition_1 = j <= #line
+							if _condition_1 then
+								local _line_5 = line
+								local _j_4 = j
+								local _j_5 = j
+								_condition_1 = isDigit(string.sub(_line_5, _j_4, _j_5))
+							end
+							if not _condition_1 then
+								break
+							end
+							j += 1
+						end
+					end
+				end
+			end
+			local _line_1 = line
+			local _i_2 = i
+			local _arg1 = j - 1
+			out ..= paint(string.sub(_line_1, _i_2, _arg1), "number", colors)
+			i = j
+			wantName = false
+			continue
+		end
+		if isIdentStart(ch) then
+			local j = i + 1
+			while true do
+				local _condition = j <= #line
+				if _condition then
+					local _line_1 = line
+					local _j = j
+					local _j_1 = j
+					_condition = isIdent(string.sub(_line_1, _j, _j_1))
+				end
+				if not _condition then
+					break
+				end
+				j += 1
+			end
+			local _line_1 = line
+			local _i_2 = i
+			local _arg1 = j - 1
+			local word = string.sub(_line_1, _i_2, _arg1)
+			if dict[word] == true then
+				out ..= paint(word, "keyword", colors)
+				wantName = word == "function"
+			elseif wantName then
+				out ..= paint(word, "func", colors)
+				wantName = false
+			else
+				out ..= paint(word, "plain", colors)
+			end
+			i = j
+			continue
+		end
+		if ch ~= " " and ch ~= "\t" then
+			wantName = false
+		end
+		out ..= escapeRich(ch)
+		i += 1
+	end
+	if i <= #line then
+		local _line = line
+		local _i = i
+		out ..= escapeRich(string.sub(_line, _i))
+	end
+	return {
+		text = out,
+		state = {
+			block = block,
+			wantName = wantName,
+		},
+	}
+end
+local function highlightCode(source, language, colors)
+	if language == "text" then
+		return escapeRich(source)
+	end
+	local out = ""
+	local state = {
+		wantName = false,
+	}
+	local start = 1
+	local first = true
+	local n = #source
+	local emit = function(line)
+		local step = scanLine(line, language, state, colors)
+		if not first then
+			out ..= "\n"
+		end
+		first = false
+		out ..= step.text
+		state = step.state
+	end
+	do
+		local i = 1
+		local _shouldIncrement = false
+		while true do
+			if _shouldIncrement then
+				i += 1
+			else
+				_shouldIncrement = true
+			end
+			if not (i <= n) then
+				break
+			end
+			local _source = source
+			local _i = i
+			local _i_1 = i
+			if string.sub(_source, _i, _i_1) == "\n" then
+				local _source_1 = source
+				local _start = start
+				local _arg1 = i - 1
+				emit(string.sub(_source_1, _start, _arg1))
+				start = i + 1
+			end
+		end
+	end
+	local _source = source
+	local _start = start
+	emit(string.sub(_source, _start, n))
+	return out
+end
+local HEX = "0123456789ABCDEF"
+local function colorHex(color)
+	local byte = function(channel)
+		local value = math.clamp(math.floor(channel * 255 + 0.5), 0, 255)
+		local hi = math.floor(value / 16)
+		local _arg0 = hi + 1
+		local _arg1 = hi + 1
+		local _exp = string.sub(HEX, _arg0, _arg1)
+		local _arg0_1 = (value % 16) + 1
+		local _arg1_1 = (value % 16) + 1
+		return _exp .. string.sub(HEX, _arg0_1, _arg1_1)
+	end
+	return `#{byte(color.R)}{byte(color.G)}{byte(color.B)}`
+end
+return {
+	escapeRich = escapeRich,
+	highlightCode = highlightCode,
+	colorHex = colorHex,
+}

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

@@ -0,0 +1,2 @@
+export { default as CodeEditor } from "./components/CodeEditor";
+export type { CodeEditorProps } from "./components/CodeEditor";

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

@@ -0,0 +1,5 @@
+-- Compiled with roblox-ts v3.0.0
+local TS = _G[script]
+local exports = {}
+exports.CodeEditor = TS.import(script, script, "components", "CodeEditor").default
+return exports

package/out/ui/packages/collapse/components/Collapse.d.ts

@@ -0,0 +1,8 @@
+import React from "@rbxts/react";
+import { CustomizedProps } from "../../../../theme/index";
+export interface CollapseProps {
+    open?: boolean;
+    children?: React.ReactNode;
+}
+declare function Collapse(props: CustomizedProps<Frame, CollapseProps>): JSX.Element;
+export default Collapse;

package/out/ui/packages/collapse/components/Collapse.luau

@@ -0,0 +1,34 @@
+-- Compiled with roblox-ts v3.0.0
+local TS = _G[script]
+local React = TS.import(script, TS.getModule(script, "@rbxts", "react"))
+local SxHost = TS.import(script, script.Parent.Parent.Parent, "host").SxHost
+local collapseOpen = TS.import(script, script.Parent, "collapseOpen").collapseOpen
+local useCollapseStyles = TS.import(script, script.Parent, "Collapse.styles").default
+local function Collapse(props)
+	local _binding = props
+	local open = _binding.open
+	local children = _binding.children
+	local className = _binding.className
+	local sx = _binding.sx
+	local id = _binding.id
+	local ref = _binding.ref
+	local styles = useCollapseStyles()
+	local _attributes = {
+		tag = "frame",
+	}
+	local _condition = id
+	if not (_condition ~= 0 and _condition == _condition and _condition ~= "" and _condition) then
+		_condition = "Collapse"
+	end
+	_attributes.key = _condition
+	_attributes.hostRef = ref
+	_attributes.base = styles.root
+	_attributes.className = className
+	_attributes.sx = sx
+	_attributes.Visible = collapseOpen(open)
+	return React.createElement(SxHost, _attributes, children)
+end
+local default = Collapse
+return {
+	default = default,
+}

package/out/ui/packages/collapse/components/Collapse.styles.d.ts

@@ -0,0 +1,2 @@
+declare const useCollapseStyles: () => import("../../../../theme/index").ClassNameMap<string>;
+export default useCollapseStyles;

package/out/ui/packages/collapse/components/Collapse.styles.luau

@@ -0,0 +1,20 @@
+-- Compiled with roblox-ts v3.0.0
+local TS = _G[script]
+local _theme = TS.import(script, script.Parent.Parent.Parent.Parent.Parent, "theme")
+local componentStyles = _theme.componentStyles
+local createStyles = _theme.createStyles
+local useCollapseStyles = componentStyles("Collapse", function(_theme)
+	return createStyles({
+		root = {
+			AutomaticSize = Enum.AutomaticSize.Y,
+			Size = UDim2.new(1, 0, 0, 0),
+			BackgroundTransparency = 1,
+			BorderSizePixel = 0,
+			ClipsDescendants = true,
+		},
+	})
+end)
+local default = useCollapseStyles
+return {
+	default = default,
+}

package/out/ui/packages/collapse/components/collapseOpen.d.ts

@@ -0,0 +1 @@
+export declare function collapseOpen(open?: boolean): open is true;

package/out/ui/packages/collapse/components/collapseOpen.luau

@@ -0,0 +1,7 @@
+-- Compiled with roblox-ts v3.0.0
+local function collapseOpen(open)
+	return open == true
+end
+return {
+	collapseOpen = collapseOpen,
+}

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

@@ -0,0 +1,3 @@
+export { default as Collapse } from "./components/Collapse";
+export { CollapseProps } from "./components/Collapse";
+export { collapseOpen } from "./components/collapseOpen";

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

@@ -0,0 +1,6 @@
+-- Compiled with roblox-ts v3.0.0
+local TS = _G[script]
+local exports = {}
+exports.Collapse = TS.import(script, script, "components", "Collapse").default
+exports.collapseOpen = TS.import(script, script, "components", "collapseOpen").collapseOpen
+return exports

package/out/ui/packages/colorPicker/components/ColorPicker.luau

@@ -7,6 +7,7 @@ local useRef = _react.useRef
 local useState = _react.useState
 local UserInputService = TS.import(script, TS.getModule(script, "@rbxts", "services")).UserInputService
 local useTheme = TS.import(script, script.Parent.Parent.Parent.Parent.Parent, "theme").useTheme
+local useEditorHover = TS.import(script, script.Parent.Parent.Parent, "editorFace").useEditorHover
 local SxHost = TS.import(script, script.Parent.Parent.Parent, "host").SxHost
 local canActivate = TS.import(script, script.Parent.Parent.Parent, "button", "components", "activation").canActivate
 local Input = TS.import(script, script.Parent.Parent.Parent, "input").Input
@@ -363,6 +364,7 @@ local function ColorPicker(props)
 	local id = _binding.id
 	local ref = _binding.ref
 	local styles = useColorPickerStyles()
+	local hover = useEditorHover(disabled)
 	local _binding_1 = useTheme()
 	local theme = _binding_1.theme
 	local active = canActivate(disabled)
@@ -401,12 +403,18 @@ local function ColorPicker(props)
 	end
 	_attributes.key = _condition
 	_attributes.hostRef = ref
-	_attributes.base = styles.field
+	local _object = table.clone(styles.field)
+	setmetatable(_object, nil)
+	for _k, _v in hover.face do
+		_object[_k] = _v
+	end
+	_attributes.base = _object
 	_attributes.className = className
 	_attributes.sx = sx
 	_attributes.state = {
 		disabled = disabled,
 	}
+	_attributes.Event = hover.event
 	local _attributes_1 = table.clone(styles.rowLayout)
 	setmetatable(_attributes_1, nil)
 	local _exp = React.createElement("uilistlayout", _attributes_1)