feat: allow variants depending on user agent

Author: Olivier Bonnaure

.init.lua

@@ -60,6 +60,8 @@ end
 
 -- OnHttpRequest hook
 function OnHttpRequest()
+	SetDevice() -- comment if you do not need this feature
+
 	Params = GetParams()
 	PrepareMultiPartParams() -- if you handle file uploads
 
@@ -77,3 +79,12 @@ function OnHttpRequest()
 
 	HandleRequest()
 end
+
+function SetDevice()
+	local user_agent = GetHeader("User-Agent")
+	Variant = ""
+	local preg = assert(re.compile("iPhone"))
+	if preg:search(user_agent) then
+		Variant = "iphone"
+	end
+end

.lua/luaonbeans.lua

@@ -30,20 +30,44 @@ function LoadViewsRecursively(path)
 end
 
 function Page(view, layout, bindVarsView, bindVarsLayout)
-	if (BeansEnv == "development") then
-		Views["app/views/layouts/" .. layout .. "/index.html.etlua"] = Etlua.compile(LoadAsset("app/views/layouts/" ..
-			layout .. "/index.html.etlua"))
-	end
+	Variant = Variant or ""
 
 	if (BeansEnv == "development") then
-		Views["app/views/" .. view .. ".etlua"] = Etlua.compile(LoadAsset("app/views/" .. view .. ".etlua"))
+		local asset = nil
+		if Variant == "" then
+			asset = LoadAsset("app/views/layouts/" ..	layout .. "/index.html.etlua")
+			Views["app/views/layouts/" .. layout .. "/index.html.etlua"] = Etlua.compile(asset)
+		else
+			asset = LoadAsset("app/views/layouts/" ..	layout .. "/index.html+" .. Variant .. ".etlua")
+			if asset == nil then
+				asset = LoadAsset("app/views/layouts/" ..	layout .. "/index.html.etlua")
+			end
+			Views["app/views/layouts/" .. layout .. "/index.html+" .. Variant .. ".etlua"] = Etlua.compile(asset)
+		end
+
+		if Variant == "" then
+			asset = LoadAsset("app/views/" ..	view .. ".etlua")
+			Views["app/views/" .. view .. ".etlua"] = Etlua.compile(asset)
+		else
+			asset = LoadAsset("app/views/" ..	view  .. "+" ..  Variant .. ".etlua")
+			if asset == nil then
+				asset = LoadAsset("app/views/" ..	view .. ".etlua")
+			end
+			Views["app/views/" .. view .. "+" .. Variant .. ".etlua"] = Etlua.compile(asset)
+		end
 	end
 
-	layout = Views["app/views/layouts/" .. layout .. "/index.html.etlua"](bindVarsLayout or {})
+	compiled_layout = Views["app/views/layouts/" .. layout .. "/index.html.etlua"]
+	if Variant ~= "" then
+		compiled_layout = Views["app/views/layouts/" .. layout .. "/index.html+" .. Variant .. ".etlua"] or compiled_layout
+	end
+	layout = compiled_layout(bindVarsLayout or {})
 
-	if Views["app/views/" .. view .. ".etlua"] then
-		view = Views["app/views/" .. view .. ".etlua"](bindVarsView or {})
+	compiled_view = Views["app/views/" .. view .. ".etlua"]
+  if Variant ~= "" then
+		compiled_view = Views["app/views/" .. view .. "+" .. Variant .. ".etlua"] or compiled_view
 	end
+	view = compiled_view(bindVarsView or {})
 
 	local content
 	if view:find("%%") then

app/views/layouts/app/index.html+iphone.etlua

@@ -0,0 +1 @@
+@yield

app/views/welcome/index+iphone.etlua

@@ -0,0 +1 @@
+Hello iphone