alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu: support user scripts (mu stats)

Browse Source
This commit is contained in:
djcb
2012-10-21 18:51:14 +03:00
parent 12eebbcc23
commit 5d5725035b
1 changed files with 72 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
mu/mu-cmd-script.c
View File

@ -37,21 +37,16 @@
#define MU_GUILE_EXT ".scm" #define MU_GUILE_EXT ".scm"
#define MU_GUILE_DESCR_PREFIX ";; DESCRIPTION: " #define MU_GUILE_DESCR_PREFIX ";; DESCRIPTION: "
static MuError static void
list_stats (GError **err) print_stats (GSList *scripts)
{ {
GSList *scripts;
scripts = mu_script_get_script_info_list (MU_STATSDIR,
MU_GUILE_EXT,
MU_GUILE_DESCR_PREFIX,
err);
if (err && *err)
return MU_ERROR;
if (!scripts)
g_print ("No statistics available\n");
else {
GSList *cur; GSList *cur;
if (!scripts) {
g_print ("No statistics available\n");
return;
}
g_print ("Available statistics " g_print ("Available statistics "
"(use with --stat=<stastistic>):\n"); "(use with --stat=<stastistic>):\n");
for (cur = scripts; cur; cur = g_slist_next (cur)) { for (cur = scripts; cur; cur = g_slist_next (cur)) {
@ -69,12 +64,47 @@ list_stats (GError **err)
} }
} }
static GSList*
get_script_info_list (const char *muhome, GError **err)
{
GSList *scripts, *userscripts, *last;
char *userpath;
scripts = mu_script_get_script_info_list (MU_STATSDIR, MU_GUILE_EXT,
MU_GUILE_DESCR_PREFIX,
err);
if (err && *err)
return NULL;
userpath = g_strdup_printf ("%s%c%s",
muhome, G_DIR_SEPARATOR,
"scripts" G_DIR_SEPARATOR_S "stats");
/* is there are userdir for scripts? */
if (!mu_util_check_dir (userpath, TRUE, FALSE))
return scripts;
/* append it to the list we already have */
userscripts = mu_script_get_script_info_list (userpath, MU_GUILE_EXT,
MU_GUILE_DESCR_PREFIX,
err);
/* some error, return nothing */
if (err && *err) {
mu_script_info_list_destroy (scripts); mu_script_info_list_destroy (scripts);
return NULL;
return MU_OK;
} }
/* append the user scripts */
last = g_slist_last (scripts);
if (last) {
last->next = userscripts;
return scripts;
} else
return userscripts; /* apparently, scripts was NULL */
}
static gboolean static gboolean
check_params (MuConfig *opts, GError **err) check_params (MuConfig *opts, GError **err)
@ -100,40 +130,38 @@ mu_cmd_stats (MuConfig *opts, GError **err)
g_return_val_if_fail (opts->cmd == MU_CONFIG_CMD_STATS, g_return_val_if_fail (opts->cmd == MU_CONFIG_CMD_STATS,
MU_ERROR_INTERNAL); MU_ERROR_INTERNAL);
query = NULL;
if (!check_params (opts, err)) if (!check_params (opts, err))
return MU_ERROR; return MU_ERROR;
if (!opts->stat) scripts = get_script_info_list (opts->muhome, err);
return list_stats (err);
scripts = mu_script_get_script_info_list (MU_STATSDIR,
MU_GUILE_EXT,
MU_GUILE_DESCR_PREFIX,
err);
if (err && *err) if (err && *err)
return MU_ERROR; goto leave;
if (!opts->stat) {
print_stats (scripts);
goto leave;
}
msi = mu_script_find_script_with_name (scripts, opts->stat); msi = mu_script_find_script_with_name (scripts, opts->stat);
if (!msi) { if (!msi) {
mu_script_info_list_destroy (scripts);
mu_util_g_set_error (err, MU_ERROR_IN_PARAMETERS, mu_util_g_set_error (err, MU_ERROR_IN_PARAMETERS,
"script not found"); "script not found");
return MU_ERROR_IN_PARAMETERS; goto leave;
} }
if (opts->params[1]) query = (opts->params[1]) ?
query = mu_str_quoted_from_strv mu_str_quoted_from_strv ((const gchar**)&opts->params[1]) :
((const gchar**)&opts->params[1]); NULL;
else
query = NULL;
/* do it! */ /* do it! */
mu_script_guile_run (msi, opts->muhome, query ? query : "", mu_script_guile_run (msi, opts->muhome, query ? query : "",
opts->textonly, err); opts->textonly, err);
leave:
/* this won't be reached, unless there is some error */ /* this won't be reached, unless there is some error */
mu_script_info_list_destroy (scripts); mu_script_info_list_destroy (scripts);
g_free (query); g_free (query);
return MU_ERROR; return (err && *err) ? MU_ERROR : MU_OK;
} }