View difference between Paste ID: KNDJ1cYG and VbxJYB0m

 -- version: Unspeakable Crawling Rachis
 
 Texter = {}
 Texter._LastInputStr  = ""
 Texter._LastInputArgs = "1, 3"
 Texter._LastInputFont = "7px"
 Texter._Fonts = {}
 
-function Texter.Init()
+------------------ User config zone -------------------
 Texter.FONT_FOLDERS_TO_LOAD = {"TexterFonts", "Scripts", "%."}   -- All file will be "dofile" under this foler name, plus the root dir (in regex form %.)
-	Texter.LoadFont("TexterFonts")
+Texter.DISPLAY_MESSAGES     = true              -- Should show the startup message
-	tpt.register_keypress(Texter._HotkeyHandler)
+Texter.FONT_SEARCH_DEPTH    = 3                 -- How deep should texter search the font folder
 ---------------- User config zone ends ----------------
 
 function Texter.Init(register)
 	Texter._Fontmatrix = {}
 	Texter._Fonts = {}
 	-- Please don't let Texter too far away from font file :)
 	local fontFiles = Texter.LoadAllFontsInFolder(".", Texter.FONT_FOLDERS_TO_LOAD, Texter.FONT_SEARCH_DEPTH)
 	local msg = ""
 	if(Texter._Fontmatrix ~= nil) then
 		for fontName in pairs(Texter._Fontmatrix) do
 			table.insert(Texter._Fonts, fontName)
 		end
 		msg = "Texter: "..#fontFiles.." font file(s) loaded, "..#Texter._Fonts.." font(s) available in total."
 	else
 		msg = "Texter: No font found."
 	end
-function Texter._FindFileInCurrentDir(fileName, rootPath, optionalSuffix, optionalPrefix)
+	if( Texter.DISPLAY_MESSAGES ) then
-	local filePath = nil
+		tpt.log(msg)
-	if( fs.exists(rootPath.."\\"..fileName)) then
+
-		filePath = rootPath.."\\"..fileName
+	if( register == nil or register == true ) then
-	else if( fs.exists(rootPath.."\\"..fileName..optionalSuffix)) then
+		tpt.register_keypress(Texter._HotkeyHandler)
-			filePath = rootPath.."\\"..fileName..optionalSuffix
+
-		else if( fs.exists(rootPath.."\\"..optionalPrefix..fileName)) then
+
-				filePath = rootPath.."\\"..optionalPrefix..fileName
+
-			else if( fs.exists(rootPath.."\\"..optionalPrefix..fileName..optionalSuffix)) then
+
-					filePath = rootPath.."\\"..optionalPrefix..fileName..optionalSuffix
+
 	local _isFolder = false
 	if(path ~= nil) then
 		-- API bug, not fixed right now (ver 85.0)
 		-- if( fs.isDirectory(path)  ) then
-	return filePath
+
 		-- end
-function Texter._FindFile(fileName, rootPath, optionalSuffix, optionalPrefix, depth)
+
-	if( rootPath == nil  ) then
+
 		end
 	end
-	if( optionalSuffix == nil  ) then
+
-		optionalSuffix = ".lua"
+
 function Texter._GetFontHeight(fontName)
-	if( optionalPrefix == nil  ) then
+
-		optionalPrefix = ""
+	if( Texter._Fontmatrix ~= nil and Texter._Fontmatrix[fontName] ~=nil and Texter._Fontmatrix[fontName].height ~= nil  ) then
 		height = Texter._Fontmatrix[fontName].height
-	if( depth == nil  ) then
+
-		depth = 3 -- Find 3 level of subfolders in default
+
 	end
-	local subs = nil
+
-	local filePath = Texter._FindFileInCurrentDir(fileName, rootPath, optionalSuffix, optionalPrefix)
+
 function Texter._Input(eventHandler, fonts, paramsText, strText, fontText)
-	-- Check if file was here. If not found, continue in subfolders
+
-	if( filePath == nil  ) then
+
-		subs = fs.list(rootPath)
+
 	if( fontText   == nil  ) then fontText   = "" end
-			if( Texter._IsFolder(rootPath.."\\"..subs[i]) and depth > 0  ) then
+
-				filePath = Texter._FindFile(fileName, rootPath.."\\"..subs[i], optionalSuffix, optionalPrefix, depth - 1)
+
 	local isContains = function(inTable, value)
-			if( filePath ~= nil  ) then do break end end
+
 		for i=1, #inTable do
 			if( value == inTable[i]  ) then
-	return filePath
+
 				break
 			end
 		end
-	if( Texter._Fontmatrix[fontName] ~=nil and Texter._Fontmatrix[fontName].height ~= nil  ) then
+
 	end
 
 	local TexterWin = Window:new(-1, -1, 500, 100)
 	local paramsBox = Textbox:new(10, 32, 252, controlHeight, paramsText, "ptype, hspc, vspc")
 	local paramsLabel = Label:new(11, 9, 232, controlHeight, "Enter the element name you want to use and\nthe spacing between letters (horizontal/vertical).")
 	local stringBox = Textbox:new(10, 57, 480, controlHeight, strText, "Input text to create under mouse. Use \\n for new line, \\\\n for \\n. Sorry, you can't get \\\\n.")
 	local fontBtn = Button:new(282, 32, 208, controlHeight, "No font available")
 	local fontLabel = Label:new(283, 9, 150, controlHeight, "Select the font you want to use.")
 	local cancelBtn = Button:new(0, 83, 251, controlHeight, "Cancel")
 	cancelBtn:action(function(sender)interface.closeWindow(TexterWin)end)
 	local okayBtn = Button:new(250, 83, 250, controlHeight, "Okay")
 	okayBtn:action(
 		function(sender)
 			if( eventHandler ~= nil and type(eventHandler) == "function"  ) then
 				-- Use event because I can't make things like tpt.input
 				eventHandler(paramsBox:text(), stringBox:text(), fontBtn:text())
 			end
 			interface.closeWindow(TexterWin)
 		end
 	)
 
 	if(#fonts > 0) then
 		if( isContains(fonts, fontText)  ) then
 			fontBtn:text(fontText)
 		else
 			fontBtn:text(fonts[1])
 		end
 		fontBtn:action(
 			function(sender)
 				local winX, winY = TexterWin:position()
 				local btnX, btnY = fontBtn:position()
 				local btnW, btnH = fontBtn:size()
 				local listWin = Window:new(winX+btnX, winY+btnY-8*(#fonts-1), btnW, (btnH-1)*#fonts)
 				for i=1, #fonts do
 					local optionBtn = Button:new(0, (btnH-1)*(i-1), btnW, btnH, fonts[i])
 					optionBtn:action(
 						function(sender)
 							interface.closeWindow(listWin)
 							fontBtn:text(optionBtn:text())
 						end
 					)
 					listWin:addComponent(optionBtn)
 				end
 				interface.showWindow(listWin)
 			end
 		)
 	end
 
 	TexterWin:addComponent(cancelBtn)
 	TexterWin:addComponent(okayBtn)
 	TexterWin:addComponent(stringBox)
 	TexterWin:addComponent(paramsBox)
 	TexterWin:addComponent(paramsLabel)
 	TexterWin:addComponent(fontBtn)
 	TexterWin:addComponent(fontLabel)
 
 	interface.showWindow(TexterWin)
 end
 function Texter._FindAllFile(rootPath, foldersToLoad, depth)
 	if(  rootPath == nil  ) then
 		rootPath = "."
 	end
 	if(  depth == nil  ) then
 		depth = 1
 	end
 	local files = {}
 	local isTargetFolder = false
 	for i, folderName in ipairs(foldersToLoad) do
 		if( string.match(rootPath, "\\?"..folderName.."$") ~= nil ) then
 			isTargetFolder = true
 			break
 		end
 	end
 	if( isTargetFolder ) then  -- If not the folder we want, ignore it
 		files = fs.list(rootPath)
 	end
 
 	-- Trim match array
 	local index = 1 -- Lua fool
 	for i=1, #files do
 		if( files[index] == "Texter.lua"
--- Load the working font
+		  or string.match(files[index], "%.texterfont$") == nil
-function Texter.LoadFont(fontName, rootPath, optionalSuffix, optionalPrefix, depth)
+		  or Texter._IsFolder(rootPath.."\\"..files[index]) ) then
-	local realPath = Texter._FindFile(fontName, rootPath, optionalSuffix, optionalPrefix, depth)
+			table.remove(files, index)
-	if( realPath ~= nil  ) then
+
-		dofile(realPath)
+			files[index] = rootPath.."\\"..files[index] -- full path
-		if(Texter._Fontmatrix ~= nil) then
+			index = index + 1
-			for fontName in pairs(Texter._Fontmatrix) do
+
-				table.insert(Texter._Fonts, fontName)
+
 
-			tpt.log("Texter: Font file \""..realPath.."\" loaded, "..#Texter._Fonts.." font(s) found.")
+	-- Check subs
 	if(  depth > 0  ) then
-			tpt.log("Texter: File \""..realPath.."\" loaded, invalid font file.")
+		local subs = fs.list(rootPath)
 		local subFiles = nil
 		for i=1, #subs do
-		tpt.log("Texter: Font file not found, please check if the file path is correct")
+			if( Texter._IsFolder(rootPath.."\\"..subs[i]) ) then
 				subFiles = Texter._FindAllFile(rootPath.."\\"..subs[i], foldersToLoad, depth - 1)
 				Texter._AppendArray(files, subFiles)
 			end
--- Draw a single character
+
-function Texter.Tchar(char, x, y, ptype, fontName)
+
 	return files
 end
-	local voffset = 0
+function Texter._AppendArray(oriArray, arrayToAppend) -- Append an array to the original array
-	local hoffset = 0
+	if(  oriArray~= nil and arrayToAppend ~= nil and #arrayToAppend>0  ) then
 		for i=1, #arrayToAppend do
 			table.insert(oriArray, arrayToAppend[i])
 		end
 	end
 	return oriArray
 end
 
 -- Helper methods and handlers
 function Texter._HotkeyHandler(key, keyNum, modifier, event) -- Hotkey handler
 	if( event==1 and keyNum==116 and modifier==64  ) then -- Ctrl + t
 		-- Additional settings
 		local ptype = elements[tpt.selectedl]
 		if( ptype == nil  ) then
 			ptype = 1 --"DUST"
 		end
-	mtx = letter['mtx']
+
-	if( letter['voffset'] ~= nil  ) then
+
-		voffset = letter['voffset']
+
 			Texter._Fonts,
-	if( letter['hoffset'] ~= nil  ) then
+
-		voffset = letter['hoffset']
+
 			Texter._LastInputFont
 		)
-	local height = #mtx
+
-	local width = 3
+
-	for i=1,height do
+function Texter._InputHandler(params, str, fontName) -- Input handler
-		if( mtx[i] ~= nil  ) then
+
-			width = #mtx[i]
+
-			for j=1,width do
+
-				if( mtx[i][j]==1  ) then
+
-					if( pcall(tpt.create, x+j-1+hoffset, y+i-1+voffset, ptype) == false  ) then
+
-						width = 0
+
-					end
+
 	if( string.len(params) > 0  ) then Texter._LastInputArgs = string.gsub(params, "%s*%w*%s*,%s*(.*)", "%1") end
 	local i=1
 	for arg in string.gmatch(params, "%s*(%w*)%s*,?") do
 		args[i] = arg
 		i = i+1
 	end
--- Draw a string
+
-function Texter.Tstr(str, x, y, ptype, hspacing, vspacing, fontName)
+
 	if( pcall(tpt.element, args[1]) == false  ) then
 		args[1] = "DUST"
 	end
 	Texter.Tstr(str, tpt.mousex, tpt.mousey, args[1], args[2], args[3], fontName)
 end
 
 -- APIs
 function Texter.LoadAllFontsInFolder(rootPath, foldersToLoad, depth) -- Load all fonts in target folder(s)
 	local fonts = Texter._FindAllFile(rootPath, foldersToLoad, depth)
 	if(  fonts ~= nil  ) then
 		for i=1, #fonts do
 			dofile(fonts[i])
 		end
 	end
 	return fonts
 end
 function Texter.Tchar(char, x, y, ptype, fontName) -- Draw a single character
 	local mtx     = {}
 	local letter  = {}
 	local margin_L = 0 -- margin left
 	local margin_R = 0 -- margin right
--- Shortcut for better user experience
+	local margin_T = 0 -- margin top
-function T(str, ptype, hspc, vspc, fontName)
+
 	if( fontName == nil or Texter._Fontmatrix[fontName] == nil  ) then
 		for font in pairs(Texter._Fontmatrix) do
 			fontName = font
 			break
 		end
 	end
 	-- if still not available, break
 	if( fontName == nil  ) then return 0 end
 
 	-- get character data
--- Hotkey handler
+
-function Texter._HotkeyHandler(key, keyNum, modifier, event)
+
 		letter = Texter._Fontmatrix[fontName]["nil"]
 	end
 	if( letter == nil  ) then return 0 end -- ["nil"] not defined
 	mtx = letter.Mtx
 	if( letter.Margin ~= nil  ) then
 		if(letter.Margin.Left  ~= nil)then margin_L = letter.Margin.Left  end
 		if(letter.Margin.Right ~= nil)then margin_R = letter.Margin.Right end
 		if(letter.Margin.Top   ~= nil)then margin_T = letter.Margin.Top   end
 	end
 
 	local width  = 0
 	for i=1, #mtx do --mtx height
 		if(#mtx[i] > width)then width = #mtx[i] end
 		for j=1, width do
 			if( mtx[i][j]~=0  ) then --TODO: other ptype support
 				pcall(tpt.create, x+j-1+margin_L, y+i-1+margin_T, ptype)
--- Input handler
+
-function Texter._InputHandler(params, str, fontName)
+
 	end
 	if(width > 0)then
 		width = width + margin_L + margin_R
 	end
 	return width
 end
 function Texter.Tstr(str, x, y, ptype, hspacing, vspacing, fontName) -- Draw a string
 	local ox    = 0
 	local oy    = 0
 	local oy    = 0
 	local fontH = Texter._GetFontHeight(fontName)
 	if( hspacing == nil  ) then
 		hspacing = 1
 	end
 	if( vspacing == nil  ) then
 		vspacing = 3
 	end
 	for i=1,string.len(str) do
 		if( string.sub(str, i, i) == "\n"  ) then
 			oy = vspacing + oy + fontH
 			ox = 0
 		else
 			ox = hspacing + ox + Texter.Tchar(string.sub(str, i, i), x+ox, y+oy, ptype, fontName)
 		end
 	end
 	return string.len(str)
 end
 function T(str, ptype, hspc, vspc, fontName) -- Shortcut for better user experience
 	if( ptype == nil  ) then
 		ptype = elements[tpt.selectedl] -- elements.property(tpt.selectedl, "Name")
 	end
 	if( str == nil  ) then str = "" end
 	if( ptype == nil  ) then
 		ptype = "DUST"
 	end
 	Texter.Tstr(str, tpt.mousex, tpt.mousey, ptype, hspc, vspc, fontName)
 	return string.len(str)
 end
 
 Texter.Init()