From 96fda11a53a89c6647031f2c05ef12f1a9df6a08 Mon Sep 17 00:00:00 2001
From: Skylar Hill <stellarskylark@posteo.net>
Date: Tue, 31 Jan 2023 21:02:18 -0600
Subject: [PATCH] Change default directory in file browser

---
 src/Gui_gtk/ots_gui2.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/Gui_gtk/ots_gui2.c b/src/Gui_gtk/ots_gui2.c
index ff3366b..1247933 100644
--- a/src/Gui_gtk/ots_gui2.c
+++ b/src/Gui_gtk/ots_gui2.c
@@ -82,6 +82,7 @@ char ots_release_package[]="20.00";
 #include <string.h>
 #include <stdlib.h>
 #include <ctype.h>
+#include <unistd.h>
 #include <sys/stat.h>
 // #include "backcompat.c"
 #include "gtk_utils.c"		/* Include the graphics library. */
@@ -109,6 +110,7 @@ char toolpath[MaxFname]="", *start_cmd;
 int pending_compute=0, supported_pdf_form=1;
 int filingstatus_mfj=1;
 int round_to_whole_nums=0;
+char *working_dir[MaxFname+512];
 
 void pick_file( GtkWidget *wdg, void *data );	/* Prototype */
 void consume_leading_trailing_whitespace( char *line );
@@ -2364,7 +2366,7 @@ void save_taxfile( GtkWidget *wdg, void *data )
  if (cpt != 0)
   strcpy( cpt, "_xxxx.txt" );
  // printf("OTS_save_taxfile: dir='%s', wc='%s', fname='%s'\n", directory_dat, wildcards_fb, filename_fb );
- Browse_Files( "File to Save As:", 2048, directory_dat, wildcards_fb, filename_fb, Save_Tax_File );
+ Browse_Files( "File to Save As:", 2048, working_dir, wildcards_fb, filename_fb, Save_Tax_File );
 }
 
 
@@ -3878,7 +3880,7 @@ void pick_file( GtkWidget *wdg, void *data )
   strcpy( wildcards_fb, ".txt" );
   strcpy( filename_fb, "" );
   // printf("OTS_pick_file: dir='%s', wc='%s', fname='%s'\n", directory_dat, wildcards_fb, filename_fb );
-  Browse_Files( "Select File", 2048, directory_dat, wildcards_fb, filename_fb, receive_filename );
+  Browse_Files( "Select File", 2048, working_dir, wildcards_fb, filename_fb, receive_filename );
 }
 
 
@@ -4019,6 +4021,7 @@ int main(int argc, char *argv[] )
  invocation_path[k] = '\0';
  // printf("Invocation path = '%s'\n", invocation_path);
  set_ots_path();
+ getcwd(working_dir, MaxFname+512);
 
  /* Decode any command-line arguments. */
  argn = 1;  k=1;
-- 
2.38.1

'/guix/log/tests/guix-locate.sh?id=92fba6c72acb2dd5f67e5bb7b0fc6d70e2a4a9ee'>guix-locate.sh</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/guix-locate.sh?id=92fba6c72acb2dd5f67e5bb7b0fc6d70e2a4a9ee&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-11-15 18:29:37 +0100'>2023-11-15</span></td><td><a href='/guix/commit/tests/guix-locate.sh?id=69d9a020949c77c77b449c1faf04397b95eef5b7'>locate: Accept ‘--clear’ without additional arguments.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes a bug whereby ‘guix locate --clear’ would end with the “no files
to search for” error.

Fixes &lt;https://issues.guix.gnu.org/66799&gt;.

* guix/scripts/locate.scm (guix-locate): Do not emit “no files to search
for” error when 'clear? is set in OPTS.
* tests/guix-locate.sh: Test it.

Reported-by: Maciej Kalandyk &lt;m.kalandyk@outlook.com&gt;
Change-Id: Ib8fa125c18481d7f5408bd89df9503713527641d
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-06-18 23:44:29 +0200'>2023-06-18</span></td><td><a href='/guix/commit/tests/guix-locate.sh?id=1b7aabbc79969a89141aadd3d41d7a5329a3462e'>Add 'guix locate'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/locate.scm, tests/guix-locate.sh: New files.
* Makefile.am (MODULES): Add 'guix/scripts/locate.scm'.
(SH_TESTS): Add 'tests/guix-locate.sh'.
* po/guix/POTFILES.in: Add it.
* doc/guix.texi (Invoking guix locate): New node.

Co-authored-by: Antoine R. Dumont &lt;antoine.romain.dumont@gmail.com&gt;
</span></span></td><td>Ludovic Courtès</td></tr>