return 1;
}
+static quadopt_t quadopt_parse(const char *s)
+{
+ if (!m_strcasecmp("yes", s))
+ return M_YES;
+ if (!m_strcasecmp("no", s))
+ return M_NO;
+ if (!m_strcasecmp("ask-yes", s))
+ return M_ASKYES;
+ if (!m_strcasecmp("ask-no", s))
+ return M_ASKNO;
+ return -1;
+}
+
static int madmutt_assign(lua_State *L)
{
const char *idx = luaL_checkstring(L, 2);
switch ((tk = lua_which_token(idx, -1))) {
char buf[STRING];
+ int i;
default:
- luaL_error(L, "read-only or inexistant property '%s'", idx, tk);
- return 0;
+ return luaL_error(L, "read-only or inexistant property '%s'", idx, tk);
case LTK_DOTLOCK:
case LTK_SENDMAIL:
case LTK_SHELL:
+ case LTK_EDITOR:
_mutt_expand_path(buf, sizeof(buf), val, 0);
- mlua_regsets(tk, buf);
+ val = buf;
+ /* FALLTHROUGH */
+
+ mlua_regsets(tk, val);
+ return 0;
+
+ case LTK_QUIT:
+ i = quadopt_parse(val);
+ if (i < 0)
+ return luaL_error(L, "invalid quad option value: '%s'", val);
+ mlua_regsetq(tk, i);
return 0;
}
}
/* {{{ madmutt magic properties */
+static void madmutt_init_editor(char *buf, ssize_t len)
+{
+ m_strcpy(buf, len, getenv("VISUAL") ?: getenv("EDITOR") ?: "vi");
+}
+
static void madmutt_init_shell(char *buf, ssize_t len)
{
struct passwd *pw = getpwuid(getuid());
** Contains the path of the \fTmadmutt_dotlock(1)\fP binary to be used by
** Madmutt.
*/
+ {"editor", madmutt_init_editor, NULL },
+ /*
+ ** .pp
+ ** This variable specifies which editor is used by Madmutt.
+ ** It defaults to the value of the \fT$$$VISUAL\fP, or \fT$$$EDITOR\fP, environment
+ ** variable, or to the string "\fTvi\fP" if neither of those are set.
+ */
{ "sendmail", NULL, SENDMAIL " -oem -oi" },
/*
** .pp
** Command to use when spawning a subshell. By default, the user's login
** shell from \fT/etc/passwd\fP is used.
*/
+ {"quit", NULL, "yes" }
+ /*
+ ** .pp
+ ** This variable controls whether ``quit'' and ``exit'' actually quit
+ ** from Madmutt. If it set to \fIyes\fP, they do quit, if it is set to \fIno\fP, they
+ ** have no effect, and if it is set to \fIask-yes\fP or \fIask-no\fP, you are
+ ** prompted for confirmation when you try to quit.
+ */
};
/* }}} */