path: root/tmenu.c

#include <sys/ioctl.h>
#include <unistd.h>
#include <termios.h>
#include <fcntl.h>
#include <stdbool.h>
#include <stdarg.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>

#define ARRLEN(x) (sizeof(x)/sizeof((x)[0]))
#define MAX(a, b) ((a) > (b) ? (a) : (b))
#define MIN(a, b) ((a) < (b) ? (a) : (b))
#define EPRINTF(...) fprintf(stderr, __VA_ARGS__)

#define KEY_CTRL(c) (((int) (c)) & 0b11111)

#define CSI_CLEAR_LINE   "\x1b[K\r"
#define CSI_CUR_HIDE     "\x1b[?25l"
#define CSI_CUR_SHOW     "\x1b[?25h"
#define CSI_CUR_UP       "\x1b[A"
#define CSI_CUR_DOWN     "\x1b[B"
#define CSI_CUR_RIGHT    "\x1b[C"
#define CSI_CUR_LEFT     "\x1b[D"
#define CSI_STYLE_BOLD   "\x1b[1m"
#define CSI_STYLE_RESET  "\x1b[0m"
#define CSI_CLEAR_SCREEN "\x1b[2J"
#define CSI_CUR_GOTO     "\x1b[%i%iH"

enum {
	BWD = -1,
	FWD = 1,
};

enum {
	MODE_BROWSE,
	MODE_SEARCH,
};

enum {
	SEARCH_SUBSTR,
	SEARCH_FUZZY,
};

enum {
	CASE_SENSITIVE,
	CASE_INSENSITIVE,
};

enum {
	KEY_NONE = 0,
	KEY_DEL = 0x7f,
	KEY_UP = 0x100,
	KEY_DOWN,
	KEY_LEFT,
	KEY_RIGHT,
	KEY_PGUP,
	KEY_PGDN,
};

struct mode {
	void (*prompt)(void);
	void (*cleanup)(void);
	bool (*handlekey)(int c);
};

struct searchmode {
	const char *sh;
	ssize_t (*match)(ssize_t, int, bool, size_t, ssize_t);
};

static void browse_prompt(void);
static bool browse_handlekey(int c);
static void browse_cleanup(void);

static void search_prompt(void);
static bool search_handlekey(int c);
static void search_cleanup(void);

static ssize_t search_match(ssize_t start, int dir,
	bool new, size_t cnt, ssize_t fallback);
static ssize_t search_match_substr(ssize_t start, int dir,
	bool new, size_t cnt, ssize_t fallback);
static ssize_t search_match_fuzzy(ssize_t start, int dir,
	bool new, size_t cnt, ssize_t fallback);

static const char *usage = \
	"Usage: tmenu [-h] [-m] [-a LINES] [-b LINES]";

static const struct searchmode searchmodes[] = {
	[SEARCH_SUBSTR] = {
		.sh = "SUB",
		.match = search_match_substr,
	},
	[SEARCH_FUZZY] = {
		.sh = "FUZ",
		.match = search_match_fuzzy,
	}
};

static const struct mode modes[] = {
	[MODE_BROWSE] = {
		.prompt = browse_prompt,
		.handlekey = browse_handlekey,
		.cleanup = browse_cleanup
	},
	[MODE_SEARCH] = {
		.prompt = search_prompt,
		.handlekey = search_handlekey,
		.cleanup = search_cleanup
	}
};

static char *input = NULL;
static size_t input_len = 0;
static size_t input_cap = 0;

static size_t *delims = NULL;
static size_t delims_cnt = 0;
static size_t delims_cap = 0;

static ssize_t selected = -1;
static const char *entry = NULL;

static char searchbuf[1024];
static size_t searchlen = 0;

static int mode = MODE_BROWSE;
static int searchcase = CASE_SENSITIVE;
static int searchmode = SEARCH_SUBSTR;

static size_t fwdctx = 1;
static size_t bwdctx = 1;
static size_t termw = 80;

static bool multiout = false;
static bool verbose = false;
static bool prompt = true;

static char delim = '\n';

static void
die(const char *fmt, ...)
{
	va_list ap;

	va_start(ap, fmt);
	fputs("tmenu: ", stderr);
	vfprintf(stderr, fmt, ap);
	if (*fmt && fmt[strlen(fmt) - 1] == ':') {
		fputc(' ', stderr);
		perror(NULL);
	} else {
		fputc('\n', stderr);
	}
	va_end(ap);

	exit(1);
}

static void *
addcap(void *alloc, size_t dsize, size_t min, size_t *cap)
{
	if (min > *cap) {
		*cap = *cap * 2;
		if (*cap < min) *cap = min;
		alloc = realloc(alloc, dsize * *cap);
		if (!alloc) die("realloc:");
	}

	return alloc;
}

static inline char
lower(char c)
{
	if (c >= 'A' && c <= 'Z')
		c += 'a' - 'A';
	return c;
}

static size_t
entry_len(size_t index)
{
	return delims[index] - (index > 0 ? delims[index-1] + 1 : 0);
}

static inline char *
get_entry(size_t index)
{
	return input + (index > 0 ? delims[index-1] + 1 : 0);
}

static int
readkey(FILE *f)
{
	int c;

	c = fgetc(f);
	if (c != '\x1b')
		return c;

	if (fgetc(f) != '[')
		return KEY_NONE;

	switch (fgetc(f)) {
	case 'A':
		return KEY_UP;
	case 'B':
		return KEY_DOWN;
	case 'C':
		return KEY_RIGHT;
	case 'D':
		return KEY_LEFT;
	case '5':
		return fgetc(f) == '~' ? KEY_PGUP : KEY_NONE;
	case '6':
		return fgetc(f) == '~' ? KEY_PGDN : KEY_NONE;
	}

	return KEY_NONE;
}

static int
search_cmp(const char *a, const char *b, size_t size)
{
	size_t i;

	for (i = 0; i < size; i++) {
		if (searchcase == CASE_SENSITIVE) {
			if (a[i] != b[i])
				return a[i] - b[i];
		} else {
			if (lower(a[i]) != lower(b[i]))
				return lower(a[i]) - lower(b[i]);
		}
	}

	return 0;
}

static const char*
search_find(const char *a, char c, size_t size)
{
	size_t i;

	for (i = 0; i < size; i++) {
		if (searchcase == CASE_SENSITIVE) {
			if (a[i] == c) return a + i;
		} else if (searchcase == CASE_INSENSITIVE) {
			if (lower(a[i]) == lower(c))
				return a + i;
		}
	}

	return NULL;
}

static void
browse_prompt(void)
{
	static const char promptstr[] = "(browse): ";
	size_t linew, entlen;
	ssize_t i;

	if (selected < 0) selected = 0;

	linew = termw;
	if (prompt) linew -= ARRLEN(promptstr) - 1;

	i = (ssize_t) selected - (ssize_t) bwdctx;
	for (; i <= (ssize_t) selected + (ssize_t) fwdctx; i++) {
		EPRINTF(CSI_CLEAR_LINE);

		if (i == selected)
			EPRINTF(CSI_STYLE_BOLD);

		if (prompt) {
			if (i == selected) {
				EPRINTF("(browse): ");
			} else {
				EPRINTF("%*.s", 10, " ");
			}
		}

		if (selected >= 0 && i >= 0 && i < delims_cnt) {
			entry = get_entry((size_t) i);
			entlen = entry_len((size_t) i);
			if (entlen > linew) {
				EPRINTF(" ..%.*s\n", (int) (linew - 3),
					entry + entlen - (linew - 3));
			} else {
				EPRINTF("%.*s\n", (int) linew, entry);
			}
		} else {
			EPRINTF("\n");
		}

		if (i == selected)
			EPRINTF(CSI_STYLE_RESET);
	}

	for (i = 0; i < bwdctx + fwdctx + 1; i++)
		EPRINTF(CSI_CUR_UP);
}

static bool
browse_handlekey(int c)
{
	size_t cnt;

	switch (c) {
	case 'g':
		selected = 0;
		break;
	case 'G':
		selected = (ssize_t) delims_cnt - 1;
		break;
	case 'q':
		return true;
	case KEY_PGUP:
		cnt = fwdctx + bwdctx + 1;
		if (selected > cnt)
			selected -= (ssize_t) cnt;
		else
			selected = 0;
		break;
	case KEY_PGDN:
		cnt = fwdctx + bwdctx + 1;
		if (selected < delims_cnt - cnt)
			selected += (ssize_t) cnt;
		else
			selected = (ssize_t) delims_cnt - 1;
		break;
	case KEY_UP:
		if (selected != 0)
			selected--;
		break;
	case KEY_DOWN:
		if (selected != delims_cnt - 1)
			selected++;
		break;
	}

	return false;
}

static void
browse_cleanup(void)
{
	size_t i;

	for (i = 0; i < bwdctx + 1 + fwdctx; i++)
		EPRINTF(CSI_CLEAR_LINE "\n");
	for (i = 0; i < bwdctx + 1 + fwdctx; i++)
		EPRINTF(CSI_CUR_UP);
}

static void
search_prompt(void)
{
	char promptbuf[256];
	ssize_t i, index;
	ssize_t len, entlen;
	size_t linew;

	if (selected < 0) selected = 0;

	index = search_match(selected, FWD, 0, 1, -1);
	if (index != -1) {
		selected = index;
	} else {
		selected = search_match(selected, BWD, 1, 1, -1);
	}

	len = snprintf(promptbuf, sizeof(promptbuf), "(search[%c:%s]) %.*s",
			(searchcase == CASE_SENSITIVE) ? 'I' : 'i',
			searchmodes[searchmode].sh, (int) searchlen, searchbuf);
	if (len < 0) die("snprintf:");

	linew = termw;
	if (prompt) linew -= (size_t) len + 3;

	for (i = -(ssize_t) bwdctx; i <= fwdctx; i++) {
		if (selected >= 0) {
			if (i < 0) {
				index = search_match(selected,
					BWD, 1, (size_t) -i, -1);
			} else if (i == 0) {
				index = selected;
			} else if (i > 0) {
				index = search_match(selected,
					FWD, 1, (size_t) i, -1);
			}
		} else {
			index = -1;
		}

		EPRINTF(CSI_CLEAR_LINE);

		if (i == 0) EPRINTF(CSI_STYLE_BOLD);

		if (prompt) {
			if (i == 0) {
				EPRINTF("%s : ", promptbuf);
			} else {
				EPRINTF("%*.s", (int) (len + 3), " ");
			}
		}

		if (index < 0) {
			EPRINTF("\n");
		} else {
			entlen = (ssize_t) entry_len((size_t) index);
			entry = get_entry((size_t) index);
			if (entlen > linew) {
				EPRINTF(" ..%.*s\n", (int) (linew - 3), entry
					+ MAX(0, (size_t) entlen - (linew - 3)));
			} else {
				EPRINTF("%.*s\n", (int) linew, entry);
			}
		}

		if (i == 0) EPRINTF(CSI_STYLE_RESET);
	}

	for (i = 0; i < bwdctx + fwdctx + 1; i++)
		EPRINTF(CSI_CUR_UP);
}

static bool
search_handlekey(int c)
{
	size_t cnt;

	switch (c) {
	case KEY_CTRL('I'):
		searchcase ^= 1;
		break;
	case KEY_PGUP:
		cnt = fwdctx + bwdctx + 1;
		selected = search_match(selected, BWD, 1, cnt, selected);
		break;
	case KEY_PGDN:
		cnt = fwdctx + bwdctx + 1;
		selected = search_match(selected, FWD, 1, cnt, selected);
		break;
	case KEY_CTRL('K'):
	case KEY_UP:
		selected = search_match(selected, BWD, 1, 1, selected);
		break;
	case KEY_CTRL('L'):
	case KEY_DOWN:
		selected = search_match(selected, FWD, 1, 1, selected);
		break;
	case 0x20 ... 0x7e:
		if (searchlen < sizeof(searchbuf) - 1)
			searchbuf[searchlen++] = (char) (c & 0xff);
		break;
	case KEY_DEL:
		if (searchlen) searchlen--;
		break;
	}

	return false;
}

static void
search_cleanup(void)
{
	size_t i;

	for (i = 0; i < bwdctx + 1 + fwdctx; i++)
		EPRINTF(CSI_CLEAR_LINE "\n");
	for (i = 0; i < bwdctx + 1 + fwdctx; i++)
		EPRINTF(CSI_CUR_UP);
}

static ssize_t
search_match(ssize_t start, int dir, bool new, size_t cnt, ssize_t fallback)
{
	return searchmodes[searchmode].match(start, dir, new, cnt, fallback);
}

static ssize_t
search_match_substr(ssize_t start, int dir,
	bool new, size_t cnt, ssize_t fallback)
{
	const char *end, *bp;
	size_t i, found, len;
	ssize_t index;

	if (!searchlen) {
		index = start + dir * (ssize_t) (new + cnt - 1);
		if (index < 0 || index >= delims_cnt)
			return fallback;
		return index;
	}

	found = 0;
	for (i = new; i < delims_cnt; i++) {
		index = start + dir * (ssize_t) i;
		if (index < 0 || index >= delims_cnt)
			break;

		entry = get_entry((size_t) index);
		end = entry + entry_len((size_t) index);

		for (bp = entry; *bp; bp++) {
			len = MIN(searchlen, (size_t) (end - bp));
			if (!search_cmp(bp, searchbuf, len)) {
				if (++found == cnt)
					return index;
				break;
			}
		}
	}

	return fallback;
}

static ssize_t
search_match_fuzzy(ssize_t start, int dir,
	bool new, size_t cnt, ssize_t fallback)
{
	const char *end, *pos, *c;
	size_t i, found;
	ssize_t index;

	if (!searchlen) {
		index = start + dir * (ssize_t) (new + cnt - 1);
		if (index < 0 || index >= delims_cnt)
			return fallback;
		return index;
	}

	found = 0;
	for (i = new; i < delims_cnt; i++) {
		index = start + dir * (ssize_t) i;
		if (index < 0 || index >= delims_cnt)
			break;

		entry = get_entry((size_t) index);
		end = entry + entry_len((size_t) index);

		pos = entry;
		for (c = searchbuf; c - searchbuf < searchlen; c++) {
			pos = search_find(pos, *c, (size_t) (end - pos));
			if (!pos) break;
			pos++;
		}
		if (c == searchbuf + searchlen) {
			if (++found == cnt)
				return index;
		}
	}

	return fallback;
}

static void
load(int fd)
{
	ssize_t nread;
	size_t i;
	char *c;

	while (1) {
		input = addcap(input, 1, input_len + BUFSIZ, &input_cap);
		nread = read(fd, input + input_len, BUFSIZ);
		if (nread <= 0) break;

		c = input + input_len;
		for (i = 0; i < (size_t) nread; i++, c++) {
			if (*c == delim) {
				*c = '\0';
				delims = addcap(delims, sizeof(size_t),
					delims_cnt + 1, &delims_cap);
				delims[delims_cnt++] = input_len + i;
			}
		}

		input_len += (size_t) nread;
	}

	if (!delims_cnt && input_len
			|| delims_cnt && delims[delims_cnt-1] != input_len-1) {
		delims = addcap(delims, sizeof(size_t),
			delims_cnt + 1, &delims_cap);
		delims[delims_cnt++] = input_len;
	}

	if (verbose)
		EPRINTF("Loaded %lu entries\n", delims_cnt);
}

static void
run(void)
{
	struct termios prevterm, newterm = { 0 };
	struct winsize ws = { 0 };
	int c;

	if (!delims_cnt) return;

	if (tcgetattr(0, &prevterm))
		die("tcgetattr:");

	cfmakeraw(&newterm);
	newterm.c_oflag |= ONLCR | OPOST;
	if (tcsetattr(0, TCSANOW, &newterm))
		die("tcsetattr:");

	EPRINTF(CSI_CUR_HIDE);

	selected = 0;
	searchlen = 0;
	do {
		if (ioctl(2, TIOCGWINSZ, &ws) != -1)
			termw = ws.ws_col;

		modes[mode].prompt();

		switch ((c = readkey(stdin))) {
		case KEY_CTRL('C'):
			goto exit;
		case KEY_CTRL('D'):
			if (!multiout) goto exit;
			break;
		case KEY_CTRL('S'):
			searchmode = SEARCH_SUBSTR;
			mode = MODE_SEARCH;
			break;
		case KEY_CTRL('F'):
			searchmode = SEARCH_FUZZY;
			mode = MODE_SEARCH;
			break;
		case KEY_CTRL('Q'):
		case KEY_CTRL('B'):
			mode = MODE_BROWSE;
			break;
		case KEY_CTRL('L'):
			EPRINTF(CSI_CLEAR_SCREEN CSI_CUR_GOTO, 0, 0);
			break;
		case KEY_CTRL('W'):
			searchlen = 0;
			break;
		case KEY_CTRL('J'):
		case '\r':
			if (selected < 0) break;
			entry = get_entry((size_t) selected);
			modes[mode].cleanup();
			printf("%.*s\n", (int) entry_len((size_t) selected), entry);
			if (!multiout) goto exit;
			break;
		default:
			if (modes[mode].handlekey(c))
				goto exit;
			break;
		}
	} while (c >= 0);

exit:
	modes[mode].cleanup();

	EPRINTF(CSI_CUR_SHOW);

	tcsetattr(fileno(stdin), TCSANOW, &prevterm);
}

static int
parseopt(const char *flag, const char **args)
{
	char *end;

	if (flag[0] && flag[1]) {
		EPRINTF("Invalid flag: -%s\n", flag);
		exit(1);
	}

	switch (flag[0]) {
	case 'm':
		multiout = true;
		return 0;
	case 'v':
		verbose = true;
		return 0;
	case 's':
		mode = MODE_SEARCH;
		searchmode = SEARCH_SUBSTR;
		prompt = false;
		return 0;
	case 'a':
		if (!*args) die("missing -a arg");
		fwdctx = strtoull(*args, &end, 10);
		if (end && *end) goto badint;
		return 1;
	case 'b':
		if (!*args) die("missing -b arg");
		bwdctx = strtoull(*args, &end, 10);
		if (end && *end) goto badint;
		return 1;
	case 'd':
		if (!*args) die("missing -d arg");
		if (args[0][0] && args[0][1]) die("bad -d arg");
		delim = **args;
		return 1;
	case 'h':
		printf("%s\n", usage);
		exit(0);
	default:
		die("unknown opt '%s'", *flag);
	}

	return 0;

badint:
	EPRINTF("Invalid int: %s\n", *args);
	exit(1);
}

int
main(int argc, const char **argv)
{
	const char **arg;
	int fd;

	setvbuf(stdout, NULL, _IONBF, 0);
	setvbuf(stderr, NULL, _IONBF, 0);

	for (arg = argv + 1; *arg; arg++) {
		if (**arg == '-') {
			arg += parseopt(*arg + 1, arg + 1);
		} else {
			fd = open(*arg, O_RDONLY);
			if (fd < 0) die("open '%s':", *arg);
			load(fd);
			close(fd);
		}
	}

	if (!input) {
		load(0);
		if (!freopen("/dev/tty", "r", stdin))
			die("freopen tty:");
	}

	run();
}