annotate src/tts.mp3.luan @ 12:2d4b3f003ec2

tts
author Franklin Schmidt <fschmidt@gmail.com>
date Thu, 24 Jul 2025 22:14:49 -0600
parents
children f5425a3c1898
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
12
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 xml_encode = Parsers.xml_encode or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 local Io = require "luan:Io.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6 local uri = Io.uri or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
7 local Http = require "luan:http/Http.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8 local Config = require "site:/private/Config.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11 local region = Config.azure_tts.region or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 local url = "https://"..region..".tts.speech.microsoft.com/cognitiveservices/v1"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13 local headers = {
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
14 ["Ocp-Apim-Subscription-Key"] = Config.azure_tts.key or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
15 ["Content-Type"] = "application/ssml+xml"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
16 ["X-Microsoft-OutputFormat"] = "audio-16khz-128kbitrate-mono-mp3"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
17 }
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
18
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
19 local function text_to_speech(lang,text)
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
20 local xml = `%>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
21 <speak version='1.0' xml:lang='<%=lang%>'>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
22 <voice name='en-US-BrandonMultilingualNeural'>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
23 <%= xml_encode(text) %>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
24 </voice>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
25 </speak>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
26 <% `
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
27 local options = {
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
28 method = "POST"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
29 headers = headers
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
30 content = xml
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
31 }
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
32 return uri(url,options)
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
33 end
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
34
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
35 return function()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
36 local text = Http.request.parameters.text or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
37 local input = text_to_speech("ja-JP",text)
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
38 Http.response.binary_writer().write_from(input)
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
39 end