general/random/tagtheora.kaptn

#!/sw/bin/kaptain

start "tagtheora" -> command buttons;

command -> "/usr/bin/env python tagtheora.py " options;

options :framed ->  tags " " inputfile;

inputfile "File to tag:" -> " "@infile;

tags :vertical :double -> title_tag artist_tag album_tag license_tag copyright_tag date_tag location_tag organization_tag comment_tag;

title_tag "Title" -> " --title=\"" title_disp "\" " | !@ ;
title_disp -> @string="" ;

artist_tag "Artist" -> " --artist=\"" artist_disp "\" " | !@ ;
artist_disp -> @string="" ;

album_tag "Album" -> " --album=\"" album_disp "\" " | !@ ;
album_disp -> @string="" ;

license_tag "License" -> " --license=\"" license_disp "\" " | !@ ;
license_disp -> @string="" ;

copyright_tag "Copyright" -> " --copyright=\"" copyright_disp "\" " | !@ ;
copyright_disp -> @string="" ;

date_tag "Date" -> " --date=\"" date_disp "\" " | !@ ;
date_disp -> @string="" ;

location_tag "Location" -> " --location=\"" location_disp "\" " | !@ ;
location_disp -> @string="" ;

organization_tag "Organization" -> " --organization=\"" organization_disp "\" " | !@ ;
organization_disp -> @string="" ;

comment_tag "Comment" -> " --comment=\"" comment_disp "\" " | !@ ;
comment_disp -> @string="" ;

buttons :horizontal -> @action(command)="Run tagtheora" @close="Close" @preview(start,"Lucidatypewriter",400,100,"Close Preview")="Preview";
1	#!/sw/bin/kaptain
2
3	start "tagtheora" -> command buttons;
4
5	command -> "/usr/bin/env python tagtheora.py " options;
6
7	options :framed -> tags " " inputfile;
8
9	inputfile "File to tag:" -> " "@infile;
10
11	tags :vertical :double -> title_tag artist_tag album_tag license_tag copyright_tag date_tag location_tag organization_tag comment_tag;
12
13	title_tag "Title" -> " --title=\"" title_disp "\" " \| !@ ;
14	title_disp -> @string="" ;
15
16	artist_tag "Artist" -> " --artist=\"" artist_disp "\" " \| !@ ;
17	artist_disp -> @string="" ;
18
19	album_tag "Album" -> " --album=\"" album_disp "\" " \| !@ ;
20	album_disp -> @string="" ;
21
22	license_tag "License" -> " --license=\"" license_disp "\" " \| !@ ;
23	license_disp -> @string="" ;
24
25	copyright_tag "Copyright" -> " --copyright=\"" copyright_disp "\" " \| !@ ;
26	copyright_disp -> @string="" ;
27
28	date_tag "Date" -> " --date=\"" date_disp "\" " \| !@ ;
29	date_disp -> @string="" ;
30
31	location_tag "Location" -> " --location=\"" location_disp "\" " \| !@ ;
32	location_disp -> @string="" ;
33
34	organization_tag "Organization" -> " --organization=\"" organization_disp "\" " \| !@ ;
35	organization_disp -> @string="" ;
36
37	comment_tag "Comment" -> " --comment=\"" comment_disp "\" " \| !@ ;
38	comment_disp -> @string="" ;
39
40	buttons :horizontal -> @action(command)="Run tagtheora" @close="Close" @preview(start,"Lucidatypewriter",400,100,"Close Preview")="Preview";