creare una azione per nautilus Text2Speech
gedit .gnome2/nautilus-scripts/Text2Speech
#!/usr/bin/perl -w
use strict;
my @files = split("\n", $ENV{NAUTILUS_SCRIPT_SELECTED_FILE_PATHS});
foreach my $file (@files)
{
if ( -e $file )
{
`cat '$file'| recode utf8..lat1 |festival --tts`;
}
}
chmod +x .gnome2/nautilus-scripts/Text2Speech
gedit .gnome2/nautilus-scripts/Text2SpeechEN
#!/usr/bin/perl -w
use strict;
my @files = split("\n", $ENV{NAUTILUS_SCRIPT_SELECTED_FILE_PATHS});
foreach my $file (@files)
{
if ( -e $file )
{
`cat '$file'| recode utf8..lat1 |festival --tts --language english`;
}
}
gedit .gnome2/nautilus-scripts/Text2SpeechIT
#!/usr/bin/perl -w
use strict;
my @files = split("\n", $ENV{NAUTILUS_SCRIPT_SELECTED_FILE_PATHS});
foreach my $file (@files)
{
if ( -e $file )
{
`cat '$file'| recode utf8..lat1 |festival --tts --language italian`;
}
}