Starting point for the terminal applications.
This commit is contained in:
52
bin/color_picker.sh
Executable file
52
bin/color_picker.sh
Executable file
@ -0,0 +1,52 @@
|
||||
. ~/cshenv/lib/vulgar.sh
|
||||
|
||||
erase_block 11 1 15 32
|
||||
|
||||
create_button Red 12 2 Red 1
|
||||
highlight_button Red
|
||||
#build_box 12 2 14 8
|
||||
#write_string "Red" 13 4
|
||||
#fill_block_attributes 12 2 14 8 41
|
||||
|
||||
create_button Green 12 12 Green 2
|
||||
#build_box 12 12 14 20
|
||||
#write_string "Green" 13 14
|
||||
|
||||
create_button Blue 12 24 Blue 4
|
||||
#build_box 12 24 14 31
|
||||
#write_string "Blue" 13 26
|
||||
|
||||
Buttons=("Red" "Green" "Blue")
|
||||
Index=0
|
||||
|
||||
while true
|
||||
do
|
||||
read_key codes
|
||||
sym=`translate_key ${codes}`
|
||||
|
||||
OldIndex=${Index}
|
||||
|
||||
if [ "${sym}" == "Right" ]
|
||||
then
|
||||
if (( ${Index} < $(( ${#Buttons} - 1 )) ))
|
||||
then
|
||||
Index=$(( ${Index} + 1 ))
|
||||
|
||||
unhighlight_button ${Buttons[${OldIndex}]}
|
||||
highlight_button ${Buttons[${Index}]}
|
||||
fi
|
||||
elif [ "${sym}" == "Left" ]
|
||||
then
|
||||
if (( ${Index} > 0 ))
|
||||
then
|
||||
Index=$(( ${Index} - 1 ))
|
||||
|
||||
unhighlight_button ${Buttons[${OldIndex}]}
|
||||
highlight_button ${Buttons[${Index}]}
|
||||
fi
|
||||
elif [ "${sym}" == "Escape" ]
|
||||
then
|
||||
#erase_block 11 1 15 32
|
||||
break
|
||||
fi
|
||||
done
|
||||
5
bin/term_clock.sh
Executable file
5
bin/term_clock.sh
Executable file
@ -0,0 +1,5 @@
|
||||
. ~/cshenv/lib/vulgar.sh
|
||||
|
||||
get_terminal_size rows cols
|
||||
|
||||
echo "Terminal is ${rows} rows and ${cols} cols"
|
||||
338
bin/vulgar.sh
338
bin/vulgar.sh
@ -1,338 +0,0 @@
|
||||
#!/usr/bin/env bash
|
||||
|
||||
send_os_command()
|
||||
{
|
||||
_splat=""
|
||||
_suffix=""
|
||||
echo -n ']'
|
||||
while [ -n "${1}" ]
|
||||
do
|
||||
[ -n '${_splat}' ] && echo -n ';'
|
||||
echo -n "${1}"
|
||||
shift 1
|
||||
done
|
||||
echo -n "${suffix}"
|
||||
}
|
||||
|
||||
send_csi_command()
|
||||
{
|
||||
_splat=""
|
||||
_suffix="${1}"
|
||||
shift 1
|
||||
|
||||
|
||||
echo -n ''
|
||||
echo -n '['
|
||||
|
||||
# First one no ';' prefix....
|
||||
echo -n "${1}"
|
||||
shift 1
|
||||
|
||||
while [ -n "${1}" ]
|
||||
do
|
||||
[ -n '${_splat}' ] && echo -n ';'
|
||||
echo -n "${1}"
|
||||
shift 1
|
||||
done
|
||||
echo -n "${_suffix}"
|
||||
}
|
||||
|
||||
##### START DECCRA Block ############
|
||||
|
||||
# These two functions expect DECCRA (DEC Copy Rectangular Area)
|
||||
# to work. It also requires a second page to copy to.
|
||||
# I haven't gotten them working, it seems.
|
||||
|
||||
save_block()
|
||||
{
|
||||
send_csi_command '$v' $* 0 $* 1
|
||||
}
|
||||
|
||||
restore_block()
|
||||
{
|
||||
send_csi_command '$v' $* 1 $* 0
|
||||
}
|
||||
|
||||
##### END DECCRA Block ##############
|
||||
|
||||
erase_block()
|
||||
{
|
||||
send_csi_command '*x' 2
|
||||
send_csi_command '$r' ${*} 0
|
||||
send_csi_command '${' ${*}
|
||||
}
|
||||
|
||||
fill_block_attributes()
|
||||
{
|
||||
send_csi_command '$r' ${*}
|
||||
}
|
||||
|
||||
fill_block_raw()
|
||||
{
|
||||
send_csi_command '$x' ${*}
|
||||
}
|
||||
|
||||
fill_block()
|
||||
{
|
||||
_code=`printf '%d' "'$1"`
|
||||
shift 1
|
||||
fill_block_raw ${_code} ${*}
|
||||
}
|
||||
|
||||
write_char_raw()
|
||||
{
|
||||
fill_block_raw $1 $2 $3 $2 $3
|
||||
}
|
||||
|
||||
write_char()
|
||||
{
|
||||
_code=`printf '%d' "'$1"`
|
||||
shift 1
|
||||
write_char_raw ${_code} ${*}
|
||||
}
|
||||
|
||||
write_string()
|
||||
{
|
||||
_str=$1
|
||||
shift 1
|
||||
_row=$1
|
||||
shift 1
|
||||
_col=$1
|
||||
while [ -n "$_str" ]
|
||||
do
|
||||
_ch=${_str:0:1}
|
||||
_str=${_str:1}
|
||||
_code=`printf '%d' "'$_ch"`
|
||||
write_char_raw $_code $_row $_col
|
||||
_col=$(( ${_col} + 1 ))
|
||||
done
|
||||
}
|
||||
|
||||
draw_box()
|
||||
{
|
||||
# T L B R
|
||||
_T=$1
|
||||
_L=$2
|
||||
_B=$3
|
||||
_R=$4
|
||||
write_char + $_T $_L
|
||||
write_char + $_T $_R
|
||||
write_char + $_B $_L
|
||||
write_char + $_B $_R
|
||||
|
||||
fill_block - $_T $(( $_L + 1 )) $_T $(( $_R - 1 ))
|
||||
fill_block - $_B $(( $_L + 1 )) $_B $(( $_R - 1 ))
|
||||
|
||||
fill_block '|' $(( $_T + 1 )) $_L $(( $_B - 1 )) $_L
|
||||
fill_block '|' $(( $_T + 1 )) $_R $(( $_B - 1 )) $_R
|
||||
}
|
||||
|
||||
###############
|
||||
#
|
||||
# Builds a box of specified dimensions
|
||||
# (and clears the middle).
|
||||
#
|
||||
###############
|
||||
build_box()
|
||||
{
|
||||
erase_block $*
|
||||
draw_box $*
|
||||
}
|
||||
|
||||
|
||||
# Read a single keypress in raw terminal mode.
|
||||
# It will read all codes from the input.
|
||||
#
|
||||
# Due to read timeouts, it may give odd
|
||||
# results on non-interactive terminals.
|
||||
read_key()
|
||||
{
|
||||
seq=""
|
||||
read -sn 1 key
|
||||
code=`printf "%x" "'$key"`
|
||||
seq=${code}
|
||||
while read -t 0
|
||||
do
|
||||
read -sn 1 key
|
||||
code=`printf "%x" "'$key"`
|
||||
seq="${seq} ${code}"
|
||||
done
|
||||
|
||||
eval $1=\"${seq}\"
|
||||
}
|
||||
|
||||
translate_key()
|
||||
{
|
||||
_codes=${1}
|
||||
case "${codes}" in
|
||||
"1b 5b 41")
|
||||
echo "Up"
|
||||
;;
|
||||
|
||||
"1b 5b 42")
|
||||
echo "Down"
|
||||
;;
|
||||
|
||||
"1b 5b 44")
|
||||
echo "Left"
|
||||
;;
|
||||
|
||||
"1b 5b 43")
|
||||
echo "Right"
|
||||
;;
|
||||
|
||||
"1b")
|
||||
echo "Escape"
|
||||
;;
|
||||
|
||||
*)
|
||||
echo "${codes}"
|
||||
;;
|
||||
esac
|
||||
}
|
||||
|
||||
|
||||
|
||||
#erase_block 20 20 30 30
|
||||
#fill_block X 21 21 29 29
|
||||
#write_char Y 25 25
|
||||
|
||||
#build_box 8 24 19 99
|
||||
#write_string "Hello World" 10 26
|
||||
|
||||
#read -sn 1 keyA
|
||||
#read -sn 1 keyB
|
||||
#read -sn 1 keyC
|
||||
|
||||
declare -A buttons
|
||||
|
||||
create_button()
|
||||
{
|
||||
_name=$1
|
||||
_r=$2
|
||||
_c=$3
|
||||
_text=$4
|
||||
_color=$5
|
||||
|
||||
shift 1
|
||||
eval button_${_name}=\"$*\"
|
||||
|
||||
_T=$_r
|
||||
_B=$(( $_r + 2 ))
|
||||
|
||||
_L=$_c
|
||||
_R=$(( $_c + 3 + ${#_text} ))
|
||||
|
||||
erase_block $_T $_L $_B $_R
|
||||
build_box $_T $_L $_B $_R
|
||||
write_string "$_text" $(( $_T + 1 )) $(( $_L + 2 ))
|
||||
if [ -n "$_color" ]
|
||||
then
|
||||
fill_block_attributes $_T $_L $_B $_R "3${_color}"
|
||||
fi
|
||||
}
|
||||
|
||||
button_stat()
|
||||
{
|
||||
_r=$1
|
||||
_c=$2
|
||||
_text=$3
|
||||
_color=$4
|
||||
}
|
||||
|
||||
|
||||
highlight_button()
|
||||
{
|
||||
_name=$1
|
||||
eval _stat="\${button_${_name}}"
|
||||
button_stat ${_stat}
|
||||
|
||||
_T=$_r
|
||||
_B=$(( $_r + 2 ))
|
||||
|
||||
_L=$_c
|
||||
_R=$(( $_c + 3 + ${#_text} ))
|
||||
|
||||
fill_block_attributes $_T $_L $_B $_R 0
|
||||
if [ -n "$_color" ]
|
||||
then
|
||||
fill_block_attributes $_T $_L $_B $_R "4${_color}"
|
||||
else
|
||||
fill_block_attributes $_T $_L $_B $_R '7'
|
||||
fi
|
||||
}
|
||||
|
||||
unhighlight_button()
|
||||
{
|
||||
_name=$1
|
||||
eval _stat="\${button_${_name}}"
|
||||
button_stat ${_stat}
|
||||
|
||||
_T=$_r
|
||||
_B=$(( $_r + 2 ))
|
||||
|
||||
_L=$_c
|
||||
_R=$(( $_c + 3 + ${#_text} ))
|
||||
|
||||
|
||||
fill_block_attributes $_T $_L $_B $_R 0
|
||||
if [ -n "$_color" ]
|
||||
then
|
||||
fill_block_attributes $_T $_L $_B $_R "3${_color}"
|
||||
fi
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
erase_block 11 1 15 32
|
||||
|
||||
create_button Red 12 2 Red 1
|
||||
highlight_button Red
|
||||
#build_box 12 2 14 8
|
||||
#write_string "Red" 13 4
|
||||
#fill_block_attributes 12 2 14 8 41
|
||||
|
||||
create_button Green 12 12 Green 2
|
||||
#build_box 12 12 14 20
|
||||
#write_string "Green" 13 14
|
||||
|
||||
create_button Blue 12 24 Blue 4
|
||||
#build_box 12 24 14 31
|
||||
#write_string "Blue" 13 26
|
||||
|
||||
Buttons=("Red" "Green" "Blue")
|
||||
Index=0
|
||||
|
||||
while true
|
||||
do
|
||||
read_key codes
|
||||
sym=`translate_key ${codes}`
|
||||
|
||||
OldIndex=${Index}
|
||||
|
||||
if [ "${sym}" == "Right" ]
|
||||
then
|
||||
if (( ${Index} < $(( ${#Buttons} - 1 )) ))
|
||||
then
|
||||
Index=$(( ${Index} + 1 ))
|
||||
|
||||
unhighlight_button ${Buttons[${OldIndex}]}
|
||||
highlight_button ${Buttons[${Index}]}
|
||||
fi
|
||||
elif [ "${sym}" == "Left" ]
|
||||
then
|
||||
if (( ${Index} > 0 ))
|
||||
then
|
||||
Index=$(( ${Index} - 1 ))
|
||||
|
||||
unhighlight_button ${Buttons[${OldIndex}]}
|
||||
highlight_button ${Buttons[${Index}]}
|
||||
fi
|
||||
elif [ "${sym}" == "Escape" ]
|
||||
then
|
||||
#erase_block 11 1 15 32
|
||||
break
|
||||
fi
|
||||
done
|
||||
Reference in New Issue
Block a user