Hi there APLers!
I found it too annoying that APL creates .apl.history file in whatever
is current directory and spams my filesystem, so I've patched it to
create this file in user's $HOME directory by default. Maybe you'll
find it useful as well.
./danfe
--- gnu-apl.d/preferences.in.orig 2019-06-23 12:39:20 UTC
+++ gnu-apl.d/preferences.in
@@ -301,10 +301,11 @@
# execution mode and ∇-edit mode.
#
# Below the number of history lines and the location of the history file
-# can be configured.
+# can be configured. If the file path starts with "~/", tilde (~) would
+# be expanded to the value of the 'HOME' environment variable.
#
READLINE_HISTORY_LEN 500
-READLINE_HISTORY_PATH .apl.history
+READLINE_HISTORY_PATH ~/.apl.history
# The history can serve two purposes: to recall lines that were previously
# and to list what was done (with command )HISTORY). For the latter purpose
--- src/UserPreferences.cc.orig 2019-06-23 12:39:20 UTC
+++ src/UserPreferences.cc
@@ -1299,7 +1299,25 @@ int file_profile = 0; // the current profile in the
}
else if (!strcasecmp(opt, "READLINE_HISTORY_PATH"))
{
- line_history_path = UTF8_string(arg);
+ // If 'arg' starts with "~/", expand ~ -> $HOME
+ if (arg[0] == '~' && arg[1] == '/')
+ {
+ const char * HOME = getenv("HOME");
+ if (HOME == 0)
+ {
+ if (log_startup)
+ CERR << "environment variable 'HOME' is not "
+ "defined for '~' expansion, will use "
+ << (arg + 2) << endl;
+ line_history_path = UTF8_string(arg + 2);
+ }
+ else
+ {
+ line_history_path = UTF8_string(HOME);
+ line_history_path.append_ASCII(arg + 1);
+ }
+ }
+ else line_history_path = UTF8_string(arg);
}
else if (!strcasecmp(opt, "NABLA-TO-HISTORY"))
{
