From cc62594699d90492dc190b2aaae127040a6216cf Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Sat, 11 Apr 2015 10:31:31 +0200
Subject: [PATCH] alternative method to find notes path on cygwin
---
perl/Gnome-Tomboy/tom | 16 ++++++++++++++--
1 file changed, 14 insertions(+), 2 deletions(-)
diff --git a/perl/Gnome-Tomboy/tom b/perl/Gnome-Tomboy/tom
index 069ae14..ae48cc2 100755
--- a/perl/Gnome-Tomboy/tom
+++ b/perl/Gnome-Tomboy/tom
@@ -50,9 +50,21 @@ use Tomboy::Directory;
use Tomboy::TOC;
my $toc_file;
-my $note_dir= $ENV{'HOME'} . '/.local/share/tomboy';
-# TODO: does not work on cygwin!
+
my $note_dir_changed= 0;
+my $note_dir;
+if ($ENV{'OSTYPE'} eq 'cygwin')
+{
+ my $p= `cygpath -O`;
+ chop ($p);
+ my @p= split('/', $p);
+ pop (@p);
+ $note_dir= join ('/', @p, qw(AppData Roaming Tomboy notes));
+}
+else
+{
+ $note_dir= $ENV{'HOME'} . '/.local/share/tomboy';
+}
my $start_tb= 0;
my $start_visual_editor= 0; # AKA $EDITOR
--
GitLab