changeset 29:a1db5223ced1

luan changes
author Franklin Schmidt <fschmidt@gmail.com>
date Mon, 25 Jul 2022 21:28:10 -0600
parents d9d7aa2a79db
children 8ff35379cc89
files src/error_log.js.luan src/lib/Bbcode.luan src/login.html.luan
diffstat 3 files changed, 30 insertions(+), 26 deletions(-) [+]
line wrap: on
line diff
--- a/src/error_log.js.luan	Thu Jul 21 23:44:49 2022 -0600
+++ b/src/error_log.js.luan	Mon Jul 25 21:28:10 2022 -0600
@@ -1,7 +1,6 @@
 local Luan = require "luan:Luan.luan"
 local error = Luan.error
 local String = require "luan:String.luan"
-local matches = String.matches or error()
 local trim = String.trim or error()
 local Table = require "luan:Table.luan"
 local Http = require "luan:http/Http.luan"
--- a/src/lib/Bbcode.luan	Thu Jul 21 23:44:49 2022 -0600
+++ b/src/lib/Bbcode.luan	Mon Jul 25 21:28:10 2022 -0600
@@ -15,9 +15,8 @@
 local is_list = Table.is_list or error()
 local concat = Table.concat or error()
 local String = require "luan:String.luan"
-local gsub = String.gsub or error()
-local matches = String.matches or error()
-local match = String.match or error()
+local regex = String.regex or error()
+local ends_with = String.ends_with or error()
 local User = require "site:/lib/User.luan"
 local Shared = require "site:/lib/Shared.luan"
 local list_to_set = Shared.list_to_set or error()
@@ -28,6 +27,8 @@
 
 local Bbcode = {}
 
+local starting_cr_regex = regex[[^\n]]
+
 local to_html
 local html = {}
 
@@ -67,7 +68,7 @@
 end
 
 function html.code(bbcode,options)
-	local s = gsub(bbcode.contents,[[^\n]],"")
+	local s = starting_cr_regex.gsub(bbcode.contents,"")
 	%><code><%= html_encode(s) %></code><%
 	options.strip_newline = true
 end
@@ -108,12 +109,12 @@
 
 local video_handlers = {}
 do
-	local ptn1 = [[https://youtu.be/([a-zA-Z0-9_-]+)(?:\?t=([0-9]+))?]]
-	local ptn2 = [[https://www.youtube.com/watch\?v=([a-zA-Z0-9_-]+)(?:&t=([0-9]+)s)?]]
+	local ptn1 = regex[[https://youtu.be/([a-zA-Z0-9_-]+)(?:\?t=([0-9]+))?]]
+	local ptn2 = regex[[https://www.youtube.com/watch\?v=([a-zA-Z0-9_-]+)(?:&t=([0-9]+)s)?]]
 	function video_handlers.youtube(url)
-		local id, start = match(url,ptn1)
+		local id, start = ptn1.match(url)
 		if id == nil then
-			id, start = match(url,ptn2)
+			id, start = ptn2.match(url)
 		end
 		if id == nil then
 			return false
@@ -127,9 +128,9 @@
 	end
 end
 do
-	local ptn = [[https://rumble.com/embed/[a-z0-9]+/\?pub=[a-z0-9]+]]
+	local ptn = regex[[https://rumble.com/embed/[a-z0-9]+/\?pub=[a-z0-9]+]]
 	function video_handlers.rumble(url)
-		if not matches(url,ptn) then
+		if not ptn.matches(url) then
 			return false
 		end
 		video_iframe(url)
@@ -137,9 +138,9 @@
 	end
 end
 do
-	local ptn = [[https://www.bitchute.com/video/([a-zA-Z0-9]+)/]]
+	local ptn = regex[[https://www.bitchute.com/video/([a-zA-Z0-9]+)/]]
 	function video_handlers.bitchute(url)
-		local id = match(url,ptn)
+		local id = ptn.match(url)
 		if id == nil then
 			return false
 		end
@@ -149,9 +150,9 @@
 	end
 end
 do
-	local ptn = [[https://vimeo.com/([0-9]+)]]
+	local ptn = regex[[https://vimeo.com/([0-9]+)]]
 	function video_handlers.vimeo(url)
-		local id = match(url,ptn)
+		local id = ptn.match(url)
 		if id == nil then
 			return false
 		end
@@ -161,9 +162,9 @@
 	end
 end
 do
-	local ptn = [[https://dai.ly/([a-z0-9]+)]]
+	local ptn = regex[[https://dai.ly/([a-z0-9]+)]]
 	function video_handlers.dailymotion(url)
-		local id = match(url,ptn)
+		local id = ptn.match(url)
 		if id == nil then
 			return false
 		end
@@ -173,9 +174,9 @@
 	end
 end
 do
-	local ptn = [[https://www.tiktok.com/[^/]+/video/([0-9]+)]]
+	local ptn = regex[[https://www.tiktok.com/[^/]+/video/([0-9]+)]]
 	function video_handlers.tiktok(url)
-		local id = match(url,ptn)
+		local id = ptn.match(url)
 		if id == nil then
 			return false
 		end
@@ -185,9 +186,9 @@
 	end
 end
 do
-	local ptn = [[\.[a-zA-Z0-9]+$]]
+	local ptn = regex[[\.[a-zA-Z0-9]+$]]
 	function video_handlers.file(url)
-		if not matches(url,ptn) then
+		if not ptn.matches(url) then
 			return false
 		end
 		%><video controls width="560"><source src="<%=html_encode(url)%>"></video><%
@@ -229,7 +230,7 @@
 function to_html(bbcode,options)
 	if options.strip_newline then
 		if type(bbcode) == "string" then
-			bbcode = gsub(bbcode,[[^\n]],"")
+			bbcode = starting_cr_regex.gsub(bbcode,"")
 		end
 		options.strip_newline = false
 	end
@@ -263,9 +264,11 @@
 	"video"
 }
 
+local url_regex = regex[[(^|\s)(https?://\S+)]]
+
 local function preprocess(bbcode)
 	if type(bbcode) == "string" then
-		bbcode = gsub( bbcode, [[(^|\s)(https?://\S+)]], "$1[url]$2[/url]" )
+		bbcode = url_regex.gsub( bbcode, "$1[url]$2[/url]" )
 		%><%= bbcode %><%
 	else
 		type(bbcode) == "table" or error()
@@ -303,7 +306,7 @@
 end
 
 function Bbcode.remove_html(text)
-	local ends_with_newline = matches(text,[[\n$]])
+	local ends_with_newline = ends_with(text,"\n")
 	local t = {}
 	local html = html_parse(text)
 	local is_first = true
--- a/src/login.html.luan	Thu Jul 21 23:44:49 2022 -0600
+++ b/src/login.html.luan	Mon Jul 25 21:28:10 2022 -0600
@@ -2,7 +2,7 @@
 local error = Luan.error
 local String = require "luan:String.luan"
 local trim = String.trim or error()
-local matches = String.matches or error()
+local regex = String.regex or error()
 local Html = require "luan:Html.luan"
 local url_encode = Html.url_encode or error()
 local Io = require "luan:Io.luan"
@@ -21,6 +21,8 @@
 local run_in_transaction = Db.run_in_transaction or error()
 
 
+local name_regex = regex "^[a-zA-Z0-9_-]+$"
+
 local function get_user(email,password)
 	local user = User.get_by_email(email)
 	user or error "email not found"
@@ -116,7 +118,7 @@
 		end
 	else
 		name = trim(name)
-		matches( name, "^[a-zA-Z0-9_-]+$" ) or error "invalid name"
+		name_regex.matches(name) or error "invalid name"
 		local error_message = nil
 		local user
 		run_in_transaction( function()