annotate src/stt.js.luan @ 15:49e9138b5460

add list.html
author Franklin Schmidt <fschmidt@gmail.com>
date Tue, 29 Jul 2025 20:59:47 -0600
parents 47b00cce8b53
children d3f5448743bf
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
14
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 local Luan = require "luan:Luan.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2 local error = Luan.error
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
3 local Parsers = require "luan:Parsers.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 local json_string = Parsers.json_string or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 local json_parse = Parsers.json_parse or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6 local Io = require "luan:Io.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
7 local uri = Io.uri or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8 local Http = require "luan:http/Http.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9 local Config = require "site:/private/Config.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10 local key = Config.chatgpt.key or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11 local Logging = require "luan:logging/Logging.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 local logger = Logging.logger "sst.js"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
14
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
15 local url = "https://api.openai.com/v1/audio/transcriptions"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
16 local headers = {
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
17 Authorization = "Bearer "..key
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
18 ["Content-Type"] = "multipart/form-data"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
19 }
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
20
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
21 local function speech_to_text(audio)
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
22 local options = {
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
23 method = "POST"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
24 headers = headers
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
25 enctype = "multipart/form-data"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
26 parameters = {
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
27 model = "whisper-1"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
28 file = audio
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
29 }
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
30 }
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
31 local json = uri(url,options).read_text()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
32 -- logger.info(json)
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
33 local result = json_parse(json)
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
34 return result.text or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
35 end
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
36
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
37 return function()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
38 local audio = Http.request.parameters.audio or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
39 local text = speech_to_text(audio)
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
40 Io.stdout = Http.response.text_writer()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
41 %>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
42 setText(<%=json_string(text)%>);
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
43 <%
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
44 end