/[general]/random/tagtheora.kaptn
ViewVC logotype

Contents of /random/tagtheora.kaptn

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations) (download)
Sun Apr 26 02:18:38 2009 UTC (14 years, 11 months ago) by nieder
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +1 -1 lines
don't hardcode kaptain location

1 #!/usr/bin/env kaptain
2
3 # TagTheora.kaptn
4 # A Kaptain based front-end for the the tagtheora.py script.
5 #
6 # Copyright (c) 2009 Hanspeter Niederstrasser
7 #
8 # This program is free software; you can redistribute it and/or
9 # modify it under the terms of the GNU General Public License
10 # as published by the Free Software Foundation; either version
11 # 2 of the License, or (at your option) any later version.
12 #
13 # This program is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 # General Public License for more details.
17 #
18 # You should have received a copy of the GNU General Public License
19 # along with this program. If not, see <http://www.gnu.org/licenses/>.
20
21 start "tagtheora" -> command buttons;
22
23 command -> "/usr/bin/env python tagtheora.py " options;
24
25 options :framed -> tags " " inputfile;
26
27 inputfile "File to tag:" -> " \"" @infile "\"";
28
29 tags :vertical :double -> title_tag artist_tag album_tag license_tag copyright_tag date_tag location_tag organization_tag comment_tag;
30
31 title_tag "Title" -> " --title=\"" title_disp "\" " | !@ ;
32 title_disp -> @string="" ;
33
34 artist_tag "Artist" -> " --artist=\"" artist_disp "\" " | !@ ;
35 artist_disp -> @string="" ;
36
37 album_tag "Album" -> " --album=\"" album_disp "\" " | !@ ;
38 album_disp -> @string="" ;
39
40 license_tag "License" -> " --license=\"" license_disp "\" " | !@ ;
41 license_disp -> @string="" ;
42
43 copyright_tag "Copyright" -> " --copyright=\"" copyright_disp "\" " | !@ ;
44 copyright_disp -> @string="" ;
45
46 date_tag "Date" -> " --date=\"" date_disp "\" " | !@ ;
47 date_disp -> @string="" ;
48
49 location_tag "Location" -> " --location=\"" location_disp "\" " | !@ ;
50 location_disp -> @string="" ;
51
52 organization_tag "Organization" -> " --organization=\"" organization_disp "\" " | !@ ;
53 organization_disp -> @string="" ;
54
55 comment_tag "Comment" -> " --comment=\"" comment_disp "\" " | !@ ;
56 comment_disp -> @string="" ;
57
58 buttons :horizontal -> @action(command)="Run tagtheora" @close="Close" @preview(start,"Lucidatypewriter",400,100,"Close Preview")="Preview";

  ViewVC Help
Powered by ViewVC 1.1.17