CALLER_OWN HV *owl_new_hv(const owl_dict *d, SV *(*to_sv)(const void *))
{
HV *ret;
GPtrArray *keys;
const char *key;
void *element;
int i;
ret = newHV();
/* TODO: add an iterator-like interface to owl_dict */
keys = owl_dict_get_keys(d);
for (i = 0; i < keys->len; i++) {
key = keys->pdata[i];
element = owl_dict_find_element(d, key);
(void)hv_store(ret, key, strlen(key), to_sv(element), 0);
}
owl_ptr_array_free(keys, g_free);
return ret;
}
void owl_help(void)
{
const owl_variable *v;
owl_fmtext fm;
const char *varname;
GPtrArray *varnames;
int i;
owl_fmtext_init_null(&fm);
owl_fmtext_append_bold
(&fm,
"OWL HELP\n\n");
owl_fmtext_append_normal
(&fm,
" If you're new to BarnOwl, the first thing you should type is\n\n"
" :show quickstart\n\n"
" For help on a specific command use 'help <command>'\n"
" For information on advanced keys, use 'show keymaps'.\n"
" For information on advanced commands, use 'show commands'.\n"
" For information on variables, use 'show variables'.\n\n");
owl_fmtext_append_bold
(&fm,
" Basic Keys:\n"
);
owl_fmtext_append_normal
(&fm,
" n Move to next non-deleted message\n"
" p Move to previous non-deleted message\n"
" C-n , down Move to next message\n"
" C-p , up Move to previous message\n"
" < , > Move to first, last message\n"
" right , left Scroll screen left or right\n"
" C-v Page down\n"
" M-v Page up\n"
" i Print more information about a message\n"
" P Move to the next personal message\n"
" M-P Move to the previous personal message\n"
" C-space Move the mark (asterisk) to the current message\n"
" C-x C-x Move the mark to the current message while moving to previous mark\n"
"\n"
" d Mark message for deletion\n"
" u Undelete a message marked for deletion\n"
" x Expunge deleted messages\n"
" X Expunge deleted messages and switch to home view\n"
" T Mark all 'trash' messages for deletion\n"
" M-D Mark all messages in current view for deletion\n"
" M-u Unmark all messages in the current view for deletion\n"
"\n"
" z Start a zwrite command\n"
" a Start an aimwrite command\n"
" r Reply to the current message\n"
" R Reply to sender\n"
" C-r Reply but allow editing of reply line\n"
"\n"
" M-n View zephyrs in selected conversation\n"
" M-N View zephyrs in selected conversation of instance\n"
" M-p View only personal zephyrs\n"
" V Change to back to home view ('all' by default)\n"
" v Start a view command\n"
" ! Invert the current view\n"
"\n"
" l Print a zephyr/AIM buddy listing\n"
" A Toggle away\n"
" o Toggle one-line display mode\n"
" w Open a URL in the current message\n"
" C-l Refresh the screen\n"
" C-z Suspend BarnOwl\n"
" h Print this help message\n"
" : , M-x Enter command mode\n"
"\n"
" / Forward search\n"
" ? Reverse search\n"
"\n\n"
);
owl_fmtext_append_bold
(&fm,
" Basic Commands:\n"
);
owl_fmtext_append_normal
(&fm,
" quit, exit Exit BarnOwl\n"
" help Get help about commands\n"
" show Show information about BarnOwl (see detailed help)\n"
"\n"
" zwrite Send a zephyr\n"
" aimlogin Login to AIM\n"
" aimwrite Send an AIM message\n"
"\n"
" addbuddy Add a zephyr or AIM buddy\n"
" zaway Turn zaway on or off, or set the message\n"
" zlocate Locate a user\n"
" subscribe Subscribe to a zephyr class or instance\n"
" unsubscribe Unsubscribe to a zephyr class or instance\n"
" blist Print a list of zephyr and AIM buddies logged in\n"
" search Search for a text string\n"
"\n"
" set Set a variable (see list below)\n"
" print Print a variable's value (variables listed below)\n"
" startup Set a command to be run at every BarnOwl startup\n"
" unstartup Remove a command to be run at every BarnOwl startup\n"
"\n"
" getsubs Print a list of current subscriptions\n"
" unsuball Unsubscribe from all zephyr classes\n"
" load-subs Load zephyr subscriptions from a file\n"
" zpunt Suppress messages from a zephyr triplet\n"
" zlog Send a login or logout notification\n"
" zlist Print a list of zephyr buddies logged in\n"
" alist Print a list of AIM buddies logged in\n"
" info Print detailed information about the current message\n"
" filter Create a message filter\n"
" view View messages matching a filter\n"
" viewuser View messages to or from a particular user\n"
" viewclass View messages to a particular class\n"
" expunge Expunge messages marked for deletion\n"
" bindkey Create a new key binding\n"
" alias Create a command alias\n"
" dump Dump messagelist as text to a file\n"
"\n"
" about Print information about BarnOwl\n"
" status Print status information about the running BarnOwl\n"
" version Print the version number of BarnOwl\n"
"\n");
/* help for variables */
owl_fmtext_append_bold(&fm,
"Variables:\n");
varnames = owl_variable_dict_get_names(owl_global_get_vardict(&g));
for (i = 0; i < varnames->len; i++) {
varname = varnames->pdata[i];
if (varname && varname[0]!='_') {
v = owl_variable_get_var(owl_global_get_vardict(&g), varname);
owl_variable_describe(v, &fm);
}
}
owl_ptr_array_free(varnames, g_free);
owl_fmtext_append_normal(&fm, "\n");
owl_function_popless_fmtext(&fm);
owl_fmtext_cleanup(&fm);
}
/* note that this will free the memory for the bindings! */
void owl_keymap_cleanup(owl_keymap *km)
{
g_free(km->name);
g_free(km->desc);
owl_ptr_array_free(km->bindings, (GDestroyNotify)owl_keybinding_delete);
}
