Prepare release 1.0.0.

marhop · Jul 31, 2017 · 38662d9 · 38662d9
1 parent 2bddea2
commit 38662d9
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 22 deletions.
diff --git a/Makefile b/Makefile
@@ -1,4 +1,4 @@
-version = 0.0.0
+app_version = 1.0.0
 sdistfiles = verso.pl verso.conf verso.desktop README.md Makefile LICENSE.txt
 
 bin = $(DESTDIR)/usr/bin/verso
@@ -10,12 +10,12 @@ man = $(DESTDIR)/usr/share/man/man1/verso.1.gz
 all: verso.1.gz
 
 .PHONY: sdist
-sdist: dist/verso-$(version).tar.gz
+sdist: dist/verso-$(app_version).tar.gz
 
-dist/verso-$(version).tar.gz: $(sdistfiles)
-	@mkdir -p dist/verso-$(version)/
-	@cp $^ dist/verso-$(version)/
-	@tar -C dist/ -czf $@ verso-$(version)/
+dist/verso-$(app_version).tar.gz: $(sdistfiles)
+	@mkdir -p dist/verso-$(app_version)/
+	@cp $^ dist/verso-$(app_version)/
+	@tar -C dist/ -czf $@ verso-$(app_version)/
 
 verso.1.gz: verso.pl
 	@pod2man $^ | gzip -9 > $@

diff --git a/verso.pl b/verso.pl
@@ -32,13 +32,17 @@
 use File::Copy;
 use List::Util qw(min);
 
+my $app_name        = 'Verso';
+my $app_version     = '1.0.0';
+my $app_description = 'editor for embedded image metadata';
+my $app_copyright   = 'Copyright 2013-2017 Martin Hoppenheit';
+my $app_website     = 'https://martin.hoppenheit.info/code/verso/';
 
 my $directory;  # full path of current directory (including ending '/')
 my @files;      # full paths of all files in the current directory
 my $index;      # index of current file in @files
 my $exiftool = Image::ExifTool->new();
 
-
 ## Command line options. ##
 
 my $opt_help     = 0;     # Help message.
@@ -56,7 +60,6 @@
 
 pod2usage(1) if $opt_help;
 
-
 ## Load config. ##
 
 my $conf;
@@ -126,7 +129,6 @@
 $config{viewer}       //= 'xdg-open';
 $config{extension}    //= [qw(jpg jpeg JPG JPEG)];
 
-
 ## Build GUI: basic stuff. ##
 
 my $window = Gtk3::Window->new('toplevel');
@@ -138,7 +140,6 @@
 my $grid1 = Gtk3::Grid->new();
 $window->add($grid1);
 
-
 ## Build GUI: menubar. Also keyboard shortcuts. ##
 
 # Hex representations of key values (like 0x006f for the 'o' key) can be found
@@ -305,7 +306,6 @@
     'activate' => \&on_menu_help_about_activate
 );
 
-
 ## Build GUI: workspace pt. 1 (general layout, image display). ##
 
 my $paned = Gtk3::Paned->new('GTK_ORIENTATION_VERTICAL');
@@ -332,7 +332,6 @@
 $grid2->set_column_spacing(5);
 $paned->pack2($grid2, 0, 0);
 
-
 ## Build GUI: workspace pt. 2 (metadata entry fields). ##
 
 # Every metadata field we want to be able to edit needs an entry in the array
@@ -388,7 +387,6 @@
     $fields[$i]{'widget'} = $entry;
 }
 
-
 ## Build GUI: workspace pt. 3 (buttons). ##
 
 my $button_line_offset = 1 + scalar @fields;
@@ -420,7 +418,6 @@
 
 Gtk3::main();
 
-
 ## Menu callback routines. ##
 
 sub on_menu_file_open_activate {
@@ -491,19 +488,17 @@ sub on_menu_view_fullscreen_activate {
 sub on_menu_help_about_activate {
     my $dialog = Gtk3::AboutDialog->new();
     $dialog->set_transient_for($window);
-    $dialog->set_program_name('Verso');
-    # TODO Set version number.
-    # $dialog->set_version();
-    $dialog->set_copyright('Copyright 2013-2017 Martin Hoppenheit');
-    $dialog->set_comments('editor for embedded image metadata');
+    $dialog->set_program_name($app_name);
+    $dialog->set_version($app_version);
+    $dialog->set_copyright($app_copyright);
+    $dialog->set_comments($app_description);
     $dialog->set_license_type('GTK_LICENSE_GPL_3_0');
-    $dialog->set_website('http://martin.hoppenheit.info/code/verso/');
+    $dialog->set_website($app_website);
     $dialog->run();
     $dialog->destroy();
     return;
 }
 
-
 ## Button callback routines. ##
 
 sub on_save_button_clicked {
@@ -542,7 +537,6 @@ sub on_previous_button_clicked {
     return;
 }
 
-
 ## Other subroutines. ##
 
 sub init_files {