| 1 |
nieder |
1.1 |
#!/sw/bin/kaptain
|
| 2 |
|
|
|
| 3 |
nieder |
1.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 |
nieder |
1.1 |
start "tagtheora" -> command buttons;
|
| 22 |
|
|
|
| 23 |
|
|
command -> "/usr/bin/env python tagtheora.py " options;
|
| 24 |
|
|
|
| 25 |
|
|
options :framed -> tags " " inputfile;
|
| 26 |
|
|
|
| 27 |
nieder |
1.2 |
inputfile "File to tag:" -> " \"" @infile "\"";
|
| 28 |
nieder |
1.1 |
|
| 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";
|
Parent Directory
| 
Revision Log