XQuery/XHTML + Voice
Appearance
< XQuery
Motivation
[edit | edit source]You want to have your browser read Twitter updates using a text-to-speech conversion extension that is built into your browser.
Method
[edit | edit source]XHTML + Voice is supported by the Opera Browser with the Voice extension installed. In this simple application it is used as a browser-based Text-to-Speech engine.
Twitter Radio
[edit | edit source]This script creates a simple text-to-speech version of Twitter Search.
Limitations
[edit | edit source]- Window has to be active for the T2S to play on refresh
- The cleaned text to speak is held in a div which is rendered as white on white text. Initially it was output as a block in the header but it did not seen possible to apply styles. Applying a style display:none hid the text from the T2S engine as well!
- Transforming the atom content to a a string suitable to speak needs more work.
- Retweets and similar tweets could be removed using levenstein
- Male and female voices are assigned randomly by tweet. I'd like to cache the voice assigned to a tweeter so that tweets are consistently spoken in the same voice
- The initial load doesn't seem to trigger playing, hence the play button, but this also re-fetches the page.
- This is an ideal situation to use AJAX instead of refresh
- The T2S engine is quite good at rendering the text but it needs be helped in places, for example by replacing texting abbreviations with their expanded form.
declare namespace atom = "http://www.w3.org/2005/Atom";
declare variable $n := xs:integer( request:get-parameter("n",6));
declare variable $search := request:get-parameter("search","");
declare variable $timestamp := request:get-parameter("timestamp",());
declare variable $seconds := $n * 12;
declare variable $noise :=
( "<b>",
"</b>",
"<.+?>",
"http://[^ ]+",
"#\w+",
"RT *@\w+",
"@\w+",
"[\[\]\\=«»:;()_?!~\|]",
'"',
"\.\.+"
);
declare function local:clean ($talk as xs:string, $noise as xs:string*) as xs:string {
if (empty($noise))
then $talk
else
local:clean(replace($talk,string($noise[1])," "),subsequence($noise,2))
};
declare function local:clean($talk as xs:string) as xs:string {
local:clean($talk,$noise)
};
declare option exist:serialize "method=xhtml media-type=application/xv+xml";
let $entries := doc(concat("http://search.twitter.com/search.atom?lang=en&q=",encode-for-uri($search)))//atom:entry
let $entries := if (exists($timestamp))
then $entries[atom:published>$timestamp]
else $entries
let $entries := $entries[position() <= $n]
let $newtimestamp := if (exists($entries)) then string($entries[1]/atom:published) else $timestamp
let $entries := reverse($entries)
return
<html xmlns="http://www.w3.org/1999/xhtml"
xmlns:vxml="http://www.w3.org/2001/vxml"
xmlns:xv="http://www.voicexml.org/2002/xhtml+voice"
xmlns:ev="http://www.w3.org/2001/xml-events"
>
<head>
<meta http-equiv="refresh" content="{$seconds};url=?search={encode-for-uri($search)}&timestamp={$newtimestamp}&n={$n}"/>
<title>Tweets matching {$search}</title>
<vxml:form id="say">
<vxml:block>
<vxml:prompt src="#news"/>
</vxml:block>
</vxml:form>
<link rel="stylesheet" type="text/css" href="voice2.css" title="Normal"/>
</head>
<body ev:event="load" ev:handler="#say" >
<h1>Twitter radio, listening to tweets matching {$search}</h1>
<form method="get" >
Listen for <input type="text" name="search" value="{$search}" />
Max items <input type="text" name="n" value="{$n}" size="4" />
<input type="submit" value="Tune"/>
<button ev:event="click" ev:handler="#say">Play</button>
</form>
{for $entry in $entries
return
<div>
<a href="{$entry/atom:author/atom:uri}">{substring-before($entry/atom:author/atom:name, "(")}</a>  
{util:parse(concat("<span xmlns='http://www.w3.org/1999/xhtml' >",$entry/atom:content/(text(),*),"</span>"))}
</div>
}
<div id="news">
{for $entry in $entries
return
<p class='{if (math:random ()< 0.5) then "male" else "female"}'>
{ local:clean($entry/atom:content/text())}
</p>
}
</div>
</body>
</html>
With the style sheet:
.male {
voice-family: male;
pause-after:1.5s;
}
.female {
voice-family:female;
pause-after:1s
}
#news {
color:white;
background-color:white
}