Add preliminary support for OSC "133;A"

veltza · Mar 17, 2024 · b696051 · b696051
1 parent 2b577c6
commit b696051
Show file tree

Hide file tree

Showing 4 changed files with 43 additions and 0 deletions.
diff --git a/config.def.h b/config.def.h
@@ -268,6 +268,8 @@ static Shortcut shortcuts[] = {
 	{ TERMMOD,              XK_space,       keyboard_select, { 0 } },
 	{ TERMMOD,              XK_F,           searchforward,   { 0 } },
 	{ TERMMOD,              XK_B,           searchbackward,  { 0 } },
+	{ TERMMOD,              XK_Z,           scrolltoprompt,  {.i = -1}, S_PRI },
+	{ TERMMOD,              XK_X,           scrolltoprompt,  {.i =  1}, S_PRI },
 };
 
 /*

diff --git a/st.c b/st.c
@@ -2409,6 +2409,18 @@ strhandle(void)
 				tfulldirt();
 			}
 			return;
+		case 133: /* OSC 133 */
+			if (narg < 2)
+				break;
+			switch (*strescseq.args[1]) {
+			case 'A':
+				term.c.attr.mode |= ATTR_FTCS_PROMPT;
+				break;
+			default:
+				fprintf(stderr, "erresc: unknown OSC 133 argument: %c\n", *strescseq.args[1]);
+				break;
+			}
+			return;
 		}
 		break;
 	case 'k': /* old title set compatibility */
@@ -3072,6 +3084,7 @@ tputc(Rune u)
 	}
 
 	tsetchar(u, &term.c.attr, term.c.x, term.c.y);
+	term.c.attr.mode &= ~ATTR_FTCS_PROMPT;
 	term.lastc = u;
 
 	if (width == 2) {

diff --git a/st.h b/st.h
@@ -61,6 +61,7 @@ enum glyph_attribute {
 	ATTR_BOXDRAW        = 1 << 13,
 	ATTR_DIRTYUNDERLINE = 1 << 14,
 	ATTR_HIGHLIGHT      = 1 << 15,
+	ATTR_FTCS_PROMPT    = 1 << 16,  /* OSC "133;A" */
 	ATTR_BOLD_FAINT = ATTR_BOLD | ATTR_FAINT,
 	ATTR_SIXEL          = 1 << 31,
 };

diff --git a/x.c b/x.c
@@ -39,6 +39,7 @@ static void ttysend(const Arg *);
 static void zoom(const Arg *);
 static void zoomabs(const Arg *);
 static void zoomreset(const Arg *);
+static void scrolltoprompt(const Arg *);
 
 char *font2_xresources[FONT2_XRESOURCES_SIZE];
 
@@ -291,6 +292,32 @@ zoomreset(const Arg *arg)
 	}
 }
 
+void
+scrolltoprompt(const Arg *arg)
+{
+	int x, y;
+	int top = term.scr - term.histf;
+	int bot = term.scr + term.row-1;
+	int dy = arg->i;
+	Line line;
+
+	if (!dy || tisaltscr())
+		return;
+
+	for (y = dy; y >= top && y <= bot; y += dy) {
+		for (line = TLINE(y), x = 0; x < term.col; x++) {
+			if (line[x].mode & ATTR_FTCS_PROMPT)
+				goto scroll;
+		}
+	}
+
+scroll:
+	if (dy < 0)
+		kscrollup(&((Arg){ .i = -y }));
+	else
+		kscrolldown(&((Arg){ .i = y }));
+}
+
 int
 evcol(XEvent *e)
 {