This update incorporates Thomas Dickey's advice concerning "xt".
curs_main.c | 81 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
globals.h | 3 ++
init.h | 30 ++++++++++++++++++++++
main.c | 3 ++
mutt.h | 1 +
mutt_menu.h | 3 ++
pager.c | 7 +++++
status.c | 2 +
8 files changed, 130 insertions(+), 0 deletions(-)
# HG changeset patch
# User David Champion <d...@uchicago.edu>
# Date 1334366508 18000
# Node ID 2491e0d4f51693ba0f5caab7455174eccfe2501e
# Parent f467353f5657d9504dc5924fefc804fadc586f57
Terminal status line support, based on the xterm title patch.
Christoph Berg took the xterm title patch from the mutt mailing list and
maintained it for Debian:
* Changes made:
- 2007-01-27 myon: using %P caused a segfault, updated status.c to catch
menu==NULL.
- 2007-02-20 myon: make the note about the xterm_set_titles defaults a
comment.
- 2008-08-02 myon: move set_xterm_* prototypes into the proper header file
(cleaner code, no functional change, evades conflict with sidebar patch)
This update reworks the Debian version as generic support for tsl/fsl
terminfo capability. It no longer depends on a static list of supported
terminal types, although it will use default support for these terminal
types *if* they do not advertise tsl/fsl or xt in terminfo.
The generic terminal status line can be implemented in any fashion, and
on hardware terminals it can be a special out-of-screen region of the
display. Most modern terminal emulators appear to emulate the status
line in the window title; thus the notion of the tsl escape as an xterm
window title escape.
Configuration variables have been renamed:
$ts_status_format
format string (using $status_format codes) for the terminal status line
$ts_icon_format
format string (using $status_format codes) for the xterm icon name
$ts_enabled
toggle for whether to issue status updates
The old configuration names exist as synonyms.
Logic flow:
* If tsl (string) is set in terminfo, mutt will use that escape to switch
to the status area, and will use fsl to switch back to the regular
display area.
* Otherwise, if xt (boolean) is set in terminfo, mutt will use the
standard xterm-compatible escapes.
* Otherwise, if $TERM matches a known terminal type, mutt will use the
standard xterm-compatible escapes.
* Otherwise, this feature is disabled.
= NOTE =
The XTerm icon escape sequence is not formalized in terminfo, so the
egregious kludge of hardcoding the escape is necessary in this case.
However, some terminal emulators (e.g. MacOS X Terminal.app) will set
the status line (window title) when the icon sequence is received.
Since there is no way to detect this behavior, the only solution is to
write your configuration to take it into account. Rather than add a
variable to control icon escapes separately, we just provide the advice:
if you use such a terminal, you may wish to set ts_icon_format to an
empty string. This will cause it not to be used.
diff --git a/curs_main.c b/curs_main.c
--- a/curs_main.c
+++ b/curs_main.c
@@ -112,6 +112,80 @@
extern size_t UngetCount;
+/* de facto standard escapes for tsl/fsl */
+static char *tsl = "\033]0;";
+static char *fsl = "\007";
+
+/* terminal status capability check. terminfo must have been initialized. */
+short mutt_ts_capability(void)
+{
+ char *term = getenv("TERM");
+ char *tcaps;
+ int tcapi;
+ char **termp;
+ char *known[] = {
+ "color-xterm",
+ "cygwin",
+ "eterm",
+ "kterm",
+ "nxterm",
+ "putty",
+ "rxvt",
+ "screen",
+ "xterm",
+ NULL
+ };
+
+ /* If tsl is set, then terminfo says that status lines work. */
+ tcaps = tigetstr("tsl");
+ if (tcaps && tcaps != (char *)-1 && *tcaps)
+ {
+ /* update the static defns of tsl/fsl from terminfo */
+ tsl = safe_strdup(tcaps);
+
+ tcaps = tigetstr("fsl");
+ if (tcaps && tcaps != (char *)-1 && *tcaps)
+ fsl = safe_strdup(tcaps);
+
+ return 1;
+ }
+
+ /* If xt (boolean) is set, then this terminal supports the standard escape.
*/
+ /* Beware: tigetflag returns -1 if xt is invalid or not a boolean. */
+ tcapi = tigetflag("xt");
+ if (tcapi == 1)
+ return 1;
+
+ /* Check term types that are known to support the standard escape without
+ * necessarily asserting it in terminfo. */
+ for (termp = known; termp; termp++)
+ {
+ if (term && *termp && mutt_strncasecmp (term, *termp, strlen(*termp)))
+ return 1;
+ }
+
+ /* not supported */
+ return 0;
+}
+
+void mutt_ts_status(char *str)
+{
+ /* If empty, do not set. To clear, use a single space. */
+ if (str == NULL || *str == '\0')
+ return;
+ fprintf(stderr, "%s%s%s", tsl, str, fsl);
+}
+
+void mutt_ts_icon(char *str)
+{
+ /* If empty, do not set. To clear, use a single space. */
+ if (str == NULL || *str == '\0')
+ return;
+
+ /* icon setting is not supported in terminfo, so hardcode the escape - yuck
*/
+ fprintf(stderr, "\033]1;%s\007", str);
+}
+
void index_make_entry (char *s, size_t l, MUTTMENU *menu, int num)
{
format_flag flag = M_FORMAT_MAKEPRINT | M_FORMAT_ARROWCURSOR |
M_FORMAT_INDEX;
@@ -574,6 +648,13 @@
SETCOLOR (MT_COLOR_NORMAL);
BKGDSET (MT_COLOR_NORMAL);
menu->redraw &= ~REDRAW_STATUS;
+ if (option(OPTTSENABLED) && TSSupported)
+ {
+ menu_status_line (buf, sizeof (buf), menu, NONULL (TSStatusFormat));
+ mutt_ts_status(buf);
+ menu_status_line (buf, sizeof (buf), menu, NONULL (TSIconFormat));
+ mutt_ts_icon(buf);
+ }
}
menu->redraw = 0;
diff --git a/globals.h b/globals.h
--- a/globals.h
+++ b/globals.h
@@ -142,6 +142,9 @@
WHERE char *Status;
WHERE char *Tempdir;
WHERE char *Tochars;
+WHERE char *TSStatusFormat;
+WHERE char *TSIconFormat;
+WHERE short TSSupported;
WHERE char *Username;
WHERE char *Visual;
diff --git a/init.h b/init.h
--- a/init.h
+++ b/init.h
@@ -2852,6 +2852,27 @@
** by \fIyou\fP. The sixth character is used to indicate when a mail
** was sent to a mailing-list you subscribe to (default: L).
*/
+ {"ts_icon_format", DT_STR, R_BOTH, UL &TSIconFormat, UL "M%?n?AIL&ail?"},
+ /*
+ ** .pp
+ ** Controls the format of the icon title, as long as ``$$ts_enabled'' is set.
+ ** This string is identical in formatting to the one used by
+ ** ``$$status_format''.
+ */
+ {"ts_enabled", DT_BOOL, R_BOTH, OPTTSENABLED, 0},
+ /* The default must be off to force in the validity checking. */
+ /*
+ ** .pp
+ ** Controls whether mutt tries to set the terminal status line and icon name.
+ ** Most terminal emulators emulate the status line in the window title.
+ */
+ {"ts_status_format", DT_STR, R_BOTH, UL &TSStatusFormat, UL "Mutt with
%?m?%m messages&no messages?%?n? [%n NEW]?"},
+ /*
+ ** .pp
+ ** Controls the format of the terminal status line (or window title),
+ ** provided that ``$$ts_enabled'' has been set. This string is identical in
+ ** formatting to the one used by ``$$status_format''.
+ */
#ifdef USE_SOCKET
{ "tunnel", DT_STR, R_NONE, UL &Tunnel, UL 0 },
/*
@@ -2994,6 +3015,15 @@
** option does nothing: mutt will never write out the BCC header
** in this case.
*/
+ {"xterm_icon", DT_SYN, R_NONE, UL "ts_icon_format", 0 },
+ /*
+ */
+ {"xterm_title", DT_SYN, R_NONE, UL "ts_status_format", 0 },
+ /*
+ */
+ {"xterm_set_titles", DT_SYN, R_NONE, UL "ts_enabled", 0 },
+ /*
+ */
/*--*/
{ NULL }
};
diff --git a/main.c b/main.c
--- a/main.c
+++ b/main.c
@@ -701,6 +701,9 @@
if (!option (OPTNOCURSES))
start_curses ();
+ /* check whether terminal status is supported (must follow curses init) */
+ TSSupported = mutt_ts_capability();
+
/* set defaults and read init files */
mutt_init (flags & M_NOSYSRC, commands);
mutt_free_list (&commands);
diff --git a/mutt.h b/mutt.h
--- a/mutt.h
+++ b/mutt.h
@@ -437,6 +437,7 @@
OPTTHOROUGHSRC,
OPTTHREADRECEIVED,
OPTTILDE,
+ OPTTSENABLED,
OPTUNCOLLAPSEJUMP,
OPTUSE8BITMIME,
OPTUSEDOMAIN,
diff --git a/mutt_menu.h b/mutt_menu.h
--- a/mutt_menu.h
+++ b/mutt_menu.h
@@ -103,6 +103,9 @@
void menu_current_bottom (MUTTMENU *);
void menu_check_recenter (MUTTMENU *);
void menu_status_line (char *, size_t, MUTTMENU *, const char *);
+short mutt_ts_capability (void);
+void mutt_ts_status (char *);
+void mutt_ts_icon (char *);
MUTTMENU *mutt_new_menu (void);
void mutt_menuDestroy (MUTTMENU **);
diff --git a/pager.c b/pager.c
--- a/pager.c
+++ b/pager.c
@@ -1762,6 +1762,13 @@
addstr (topline == 0 ? "all)" : "end)");
BKGDSET (MT_COLOR_NORMAL);
SETCOLOR (MT_COLOR_NORMAL);
+ if (option(OPTTSENABLED) && TSSupported)
+ {
+ menu_status_line (buffer, sizeof (buffer), index, NONULL
(TSStatusFormat));
+ mutt_ts_status(buffer);
+ menu_status_line (buffer, sizeof (buffer), index, NONULL
(TSIconFormat));
+ mutt_ts_icon(buffer);
+ }
}
if ((redraw & REDRAW_INDEX) && index)
diff --git a/status.c b/status.c
--- a/status.c
+++ b/status.c
@@ -191,6 +191,8 @@
break;
case 'P':
+ if (!menu)
+ break;
if (menu->top + menu->pagelen >= menu->max)
cp = menu->top ? "end" : "all";
else
