annotate src/lib/Utils.luan @ 36:2737eeedc1d5

autoplay
author Franklin Schmidt <fschmidt@gmail.com>
date Tue, 05 Aug 2025 17:24:47 -0600
parents d34d709a7a8e
children df72d5d5d9dc
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 local Luan = require "luan:Luan.luan"
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2 local error = Luan.error
9
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
3 local pairs = Luan.pairs or error()
2
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 local Http = require "luan:http/Http.luan"
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
7 local Utils = {}
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9 function Utils.base_url()
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10 local request = Http.request
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11 return request.scheme.."://"..request.headers["Host"]
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 end
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13
9
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
14 function Utils.shallow_copy(t)
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
15 local rtn = {}
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
16 for key, val in pairs(t) do
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
17 rtn[key] = val
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
18 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
19 return rtn
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
20 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
21
32
Franklin Schmidt <fschmidt@gmail.com>
parents: 16
diff changeset
22 --[[
16
f5425a3c1898 add languages
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
23 function Utils.get_first(t)
f5425a3c1898 add languages
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
24 return pairs(t)()
f5425a3c1898 add languages
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
25 end
32
Franklin Schmidt <fschmidt@gmail.com>
parents: 16
diff changeset
26 ]]
16
f5425a3c1898 add languages
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
27
2
78708fa556a0 add login
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
28 return Utils