From 40a9ca084c494ed43c9373968e87bed01aa35dff Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Thu, 29 Oct 2015 12:42:42 -0400
Subject: tui_show_menu(): Implement (incomplete)

---
(limited to 'src/ui/tui.sh')

diff --git a/src/ui/tui.sh b/src/ui/tui.sh
index df7eeb5..2049fcc 100644
--- a/src/ui/tui.sh
+++ b/src/ui/tui.sh
@@ -170,6 +170,148 @@ tui_show_menu()
 {
 	local title="${1}"
 	shift 1
+	local w=
+	local label=
+	local lsth=
+	local scrh=
+	local scrbh=
+	local h=
+	local y=
+	local x=
+	local i=
+	local bline=''
+	local lline=''
+	local focus=0
+	local scrbpos=
+	local scrpos=0
+	local curpos=0
+
+	# Calculate size and draw the box.
+	w=$(expr ${#title} + 4)
+	for label in "${@}"; do
+		if [ $(expr ${#label} + 6) -gt ${w} ]; then
+			w=$(expr ${#label} + 6)
+		fi
+	done
+	lsth=${#}
+	h=$(($lsth + 8))
+	if [ ${h} -gt $(term_lines) ]; then
+		h=$(term_lines)
+	fi
+	scrh=$(($h - 8))
+	scrbh=$(($scrh * $scrh / $lsth))
+	read -r y x <<-EOF
+		$(_tui_box ${w} ${h})
+		EOF
+
+	# Build box and label lines.
+	i=0
+	while [ ${i} -lt $(($w - 6)) ]; do
+		bline="${bline}-"
+		lline="${lline} "
+		i=$(($i + 1))
+	done
+
+	# Write the title.
+	term_cursor_down 1
+	term_cursor_forward 2
+	term_write "${title}"
+
+	# Event loop.
+	while :; do
+		# Draw a button.
+		term_cursor_position $(($y + $h - 2)) $(($x + $w - 6))
+		if [ ${focus} -eq 1 ]; then
+			term_attr_on reverse
+			term_write '[OK]'
+			term_attr_off reverse
+		else
+			term_write '[OK]'
+		fi
+
+		# Draw a box.
+		term_cursor_position $(($y + 3)) $(($x + 2))
+		term_write "+${bline}+"
+		term_cursor_position $(($y + $h - 4)) $(($x + 2))
+		term_write "+${bline}+"
+		i=0
+		# Add ${lsth} - 1 to always round up to the next integer.
+		scrbpos=$(expr \
+			\( ${scrpos} \* ${scrh} + ${lsth} - 1 \) / ${lsth})
+		while [ ${i} -lt ${scrh} ]; do
+			term_cursor_position $(($y + 4 + $i)) $(($x + 2))
+			term_write '|'
+			term_cursor_position $(($y + 4 + $i)) $(($x + $w - 3))
+			if [ ${i} -ge ${scrbpos} ] && \
+					[ ${i} -lt $(($scrbpos + $scrbh)) ]
+			then
+				term_attr_on reverse
+				term_write ' '
+				term_attr_off reverse
+			else
+				term_write '|'
+			fi
+			i=$(($i + 1))
+		done
+
+		# Draw labels.
+		i=0
+		for label in "${@}"; do
+			[ ${i} -ge ${scrpos} ] || continue
+			[ ${i} -lt $(($scrpos + $scrh)) ] || break
+			if [ ${i} -eq ${curpos} ]; then
+				term_attr_on reverse
+				term_cursor_position \
+					$(($y + 4 + $i - $scrpos)) $(($x + 3))
+				term_write "${lline}"
+				term_cursor_position \
+					$(($y + 4 + $i - $scrpos)) $(($x + 3))
+				term_write "${label}"
+				term_attr_off reverse
+			else
+				term_cursor_position \
+					$(($y + 4 + $i - $scrpos)) $(($x + 3))
+				term_write "${lline}"
+				term_cursor_position \
+					$(($y + 4 + $i - $scrpos)) $(($x + 3))
+				term_write "${label}"
+			fi
+			i=$(($i + 1))
+		done
+
+		# Input.
+		key="$(term_getch)"
+		if [ "x${key}" = xKEY_TAB ]; then
+			focus=$(expr \( ${focus} + 1 \) % 2)
+		elif [ ${focus} -eq 0 ]; then
+			case "${key}" in
+				KEY_ENTER) break;;
+				KEY_UP)
+					[ ${curpos} -gt 0 ] || continue
+					curpos=$(($curpos - 1))
+					# TODO: scrpos
+					;;
+				KEY_DOWN)
+					[ ${curpos} -lt ${lsth} ] || continue
+					curpos=$(($curpos + 1))
+					# TODO: scrpos
+					;;
+				KEY_HOME)
+					curpos=0
+					scrpos=0
+					;;
+				KEY_END)
+					curpos=$(($lsth - 1))
+					# TODO: scrpos
+					;;
+				KEY_*);;
+			esac
+		elif [ ${focus} -eq 1 ]; then
+			case "${key}" in
+				KEY_ENTER | KEY_SPACE) break;;
+			esac
+		fi
+	done
 
 	return 0
 }
--
cgit v0.9.1