From 07c3a926ddf0308f8e452c1295a0a70661cede85 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Sun, 6 Dec 2015 11:05:56 +0100
Subject: [PATCH] remove .note from uuid
---
perl/Gnome-Tomboy/tom | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/perl/Gnome-Tomboy/tom b/perl/Gnome-Tomboy/tom
index d0bb202..806f8a2 100755
--- a/perl/Gnome-Tomboy/tom
+++ b/perl/Gnome-Tomboy/tom
@@ -28,7 +28,7 @@ Refresh table of contents file.
Find notes matching given pattern. If option -e is given, open these notes.
-=head2 show
+=head2 show <note-id>
=head2 diff
@@ -179,6 +179,8 @@ sub find_note
my %uuid;
foreach my $pattern (@_)
{
+ $pattern =~ s#\.note$## if ($where eq 'uuid');
+
my @res= $toc->find ($pattern, $where);
foreach my $res (@res) { $uuid{$res->{'uuid'}}= $res; } # TODO: count hits
}
--
GitLab