void access_to_edit_percomm()
{
gchar *personal = "Personal";
if (!main_is_module(personal))
return;
editor_create_new(personal, (gchar *)settings.currentverse,
NOTE_EDITOR);
}
G_MODULE_EXPORT void on_rename_perscomm_activate(GtkMenuItem *menuitem,
gpointer user_data)
{
if (is_dialog)
return;
#if defined(WIN32)
gui_generic_warning(_("Renaming is not available in Windows.\n\n"
"Xiphos is limited by Windows' filesystem,\n"
"because it disallows the renaming of filename\n"
"components of currently-open files,\n"
"such as the contents of this commentary.\n"
"Therefore, personal commentary renaming is\n"
"not available in the Windows environment."));
#else
GS_DIALOG *info;
GString *workstr;
char *s;
char *datapath_old, *datapath_new;
const char *conf_old;
char *conf_new;
char *sworddir, *modsdir;
FILE *result;
// get a new name for the module.
info = gui_new_dialog();
info->title = _("Rename Commentary");
workstr = g_string_new("");
g_string_printf(workstr, "<span weight=\"bold\">%s</span>",
_("Choose Commentary Name"));
info->label_top = workstr->str;
info->text1 = g_strdup(_("New Name"));
info->label1 = N_("Name: ");
info->ok = TRUE;
info->cancel = TRUE;
if (gui_gs_dialog(info) != GS_OK)
goto out1;
for (s = info->text1; *s; ++s) {
if (!isalnum(*s) && (*s != '_')) {
gui_generic_warning_modal(_("Module names must contain [A-Za-z0-9_] only."));
goto out1;
}
}
if (main_is_module(info->text1)) {
gui_generic_warning_modal(_("Xiphos already knows a module by that name."));
goto out1;
}
sworddir = g_strdup_printf("%s/" DOTSWORD, settings.homedir);
modsdir = g_strdup_printf("%s/mods.d", sworddir);
conf_old =
main_get_mod_config_file(settings.CommWindowModule, sworddir);
conf_new = g_strdup(info->text1); // dirname is lowercase.
for (s = conf_new; *s; ++s)
if (isupper(*s))
*s = tolower(*s);
datapath_old =
main_get_mod_config_entry(settings.CommWindowModule,
"DataPath");
datapath_new = g_strdup(datapath_old);
if ((s = strstr(datapath_new, "rawfiles/")) == NULL) {
gui_generic_warning_modal("Malformed datapath in old configuration!");
goto out2;
}
*(s + 9) = '\0'; // skip past "rawfiles/".
s = g_strdup_printf("%s%s", datapath_new, conf_new);
g_free(datapath_new); // out with the old...
datapath_new = s; // ..and in with the new.
// move old data directory to new.
if ((g_chdir(sworddir) != 0) ||
(rename(datapath_old, datapath_new) != 0)) {
gui_generic_warning_modal("Failed to rename directory.");
goto out2;
}
// manufacture new .conf from old.
g_string_printf(workstr,
"( cd \"%s\" && sed -e '/^\\[/s|^.*$|[%s]|' -e '/^DataPath=/s|rawfiles/.*$|rawfiles/%s/|' < \"%s\" > \"%s.conf\" ) 2>&1",
modsdir, info->text1, conf_new, conf_old,
conf_new);
if ((result = popen(workstr->str, "r")) == NULL) {
g_string_printf(workstr,
_("Failed to create new configuration:\n%s"),
strerror(errno));
gui_generic_warning_modal(workstr->str);
goto out2;
} else {
gchar output[258];
if (fgets(output, 256, result) != NULL) {
g_string_truncate(workstr, 0);
g_string_append(workstr,
_("Configuration build error:\n\n"));
g_string_append(workstr, output);
gui_generic_warning_modal(workstr->str);
goto out2; // necessary? advisable?
}
pclose(result);
}
// unlink old conf.
g_string_printf(workstr, "%s/%s", modsdir, conf_old);
if (unlink(workstr->str) != 0) {
g_string_printf(workstr,
"Unlink of old configuration failed:\n%s",
strerror(errno));
gui_generic_warning_modal(workstr->str);
goto out2;
}
main_update_module_lists();
settings.CommWindowModule = g_strdup(info->text1);
main_display_commentary(info->text1, settings.currentverse);
out2:
g_free(conf_new);
g_free((char *)conf_old);
g_free(datapath_old);
g_free(datapath_new);
g_free(modsdir);
g_free(sworddir);
out1:
g_free(info->text1);
g_free(info);
g_string_free(workstr, TRUE);
#endif /* !WIN32 */
}
