Mirror
/
shfm
mirror of https://github.com/dylanaraps/shfm.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

scrolling

This commit is contained in:
Dylan Araps 2020-08-03 21:05:19 +03:00
parent 6418a1645c
commit 2810c46ac3
No known key found for this signature in database
GPG Key ID: 46D62DD9F1DE636E
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
shfm
View File

@ -39,6 +39,7 @@ list_print() {
list_reset() {
y=1
y2=1
}
redraw() {
@ -57,7 +58,7 @@ print_line() {
[ "$offset" != "$y" ] ||
printf '\033[31;7m'
shift "$1"
shift "$offset"
printf '\033[K%s\033[m\r' "$1"
[ "$offset" != "$y" ] ||
@ -83,24 +84,33 @@ main() {
while key=$(dd ibs=1 count=1 2>/dev/null); do
case $key${esc:=0} in
k?|A2) # ARROW UP
y=$((y = y - 1 == 0 ? 1 : y - 1))
[ "$y" -gt 1 ] && {
y=$((y - 1))
print_line "$((y + 1))" "$@"
printf '\033[A'
print_line "$y" "$@"
print_line "$((y + 1))" "$@"
status_line
if [ "$y2" -eq 0 ]; then
printf '\e[L'
else
printf '\e[A'
y2=$((y2 > 1 ? y2 - 1 : 0))
fi
print_line "$y" "$@"
status_line
}
;;
j?|B2) # ARROW DOWN
[ "$y" -ge "$line_max" ] || {
[ "$y" -lt "$line_max" ] && {
y=$((y + 1))
y2=$((y2 + 1 < LINES - 3 ? y2 + 1 : LINES - 3))
print_line "$((y - 1))" "$@"
printf '\n'
print_line "$y" "$@"
status_line "$line_max"
status_line
}
;;