ScriptFu: rename the init scripts to have suffix .scm

So an editor recognizes them.

Renames script-fu.init to init.scm since that is a Scheme convention.
Scheme interpreter maintainers expect that name.
The same name as upstream TinyScheme.
This commit is contained in:
lloyd konneker
2024-10-24 06:35:50 -04:00
committed by Lloyd Konneker
parent b4a67b661f
commit b70fad8c94
5 changed files with 11 additions and 6 deletions

View File

@ -585,14 +585,19 @@ ts_define_procedure (sc, "load-extension", scm_load_ext);
/* Load script defining much of Scheme in Scheme language.
* This hides the actual name.
* By convention in Scheme, the name is init.scm.
* Other Schemes use a same named file for the same purpose.
* The contents are more or less same as upstream TinyScheme.
* The contents only define a Lisp dialect,
* and not ScriptFu's additional bindings to the PDB.
*
* Returns TRUE on successful load.
*/
static gboolean
ts_load_main_init_script (gchar *dir)
{
return ts_load_file (dir, "script-fu.init");
return ts_load_file (dir, "init.scm");
}
/* Load certain Scheme init scripts from certain directories.
@ -644,12 +649,12 @@ ts_load_init_and_compatibility_scripts (GList *paths)
/* Improve compatibility with older Script-Fu scripts,
* load definitions for old dialects of Lisp (SIOD) or older ScriptFu.
*/
(void) ts_load_file (dir, "script-fu-compat.init");
(void) ts_load_file (dir, "script-fu-compat.scm");
/* Improve compatibility with older GIMP version,
* load definitions that alias/adapt older PDB procedures or plugins.
*/
(void) ts_load_file (dir, "plug-in-compat.init");
(void) ts_load_file (dir, "plug-in-compat.scm");
g_free (dir);

View File

@ -1,9 +1,9 @@
# scripts loaded by ScriptFu to initialize the embedded interpreter
init_scripts = [
'plug-in-compat.init',
'script-fu.init',
'script-fu-compat.init',
'plug-in-compat.scm',
'init.scm',
'script-fu-compat.scm',
]
install_data(