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";
|