summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorP. J. McDermott <pj@pehjota.net>2015-10-29 12:42:42 (EDT)
committer P. J. McDermott <pj@pehjota.net>2015-10-29 13:11:32 (EDT)
commit40a9ca084c494ed43c9373968e87bed01aa35dff (patch)
tree19248212f82699c60a1b21f258bb404be4abcaa6 /src
parent76c38249c9a40b41e3c9da7e53e1fca8568fd2de (diff)
downloadfirman.sh-40a9ca084c494ed43c9373968e87bed01aa35dff.zip
firman.sh-40a9ca084c494ed43c9373968e87bed01aa35dff.tar.gz
firman.sh-40a9ca084c494ed43c9373968e87bed01aa35dff.tar.bz2
tui_show_menu(): Implement (incomplete)
Diffstat (limited to 'src')
-rw-r--r--src/ui/tui.sh142
1 files changed, 142 insertions, 0 deletions
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
}