comparison ggrtf.tf @ 1669:97df3a9b3d45

Integrate the TF5 module into main and remove the module.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 12 Feb 2024 11:54:44 +0200
parents a17c3bdff36e
children b0c58647c169
comparison
equal deleted inserted replaced
1668:a17c3bdff36e 1669:97df3a9b3d45
1177 /set status_cast=%{cast_info}[%{cast_info_n}]%;\ 1177 /set status_cast=%{cast_info}[%{cast_info_n}]%;\
1178 /endif%;\ 1178 /endif%;\
1179 /else \ 1179 /else \
1180 /set status_cast=%;\ 1180 /set status_cast=%;\
1181 /endif%;\ 1181 /endif%;\
1182 /if (gtf_version < 50008)\ 1182 /eval /prompt $[strip_attr(set_gprompt)]%;\
1183 /eval /prompt $[strip_attr(set_gprompt)]%;\
1184 /else \
1185 /eval /prompt -p %{set_gprompt}%;\
1186 /endif%;\
1187 /gstatus_update 1183 /gstatus_update
1188 1184
1189 1185
1190 ;@command /gprompt [prompt string] 1186 ;@command /gprompt [prompt string]
1191 ;@desc Set or change GgrTF's displayed prompt. The setting can contain any 1187 ;@desc Set or change GgrTF's displayed prompt. The setting can contain any
2798 2794
2799 2795
2800 /prdefgbind -s"balance" -c"/balance" 2796 /prdefgbind -s"balance" -c"/balance"
2801 /prdefgbind -s"cbalance" -c"/chkbalance" 2797 /prdefgbind -s"cbalance" -c"/chkbalance"
2802 2798
2799
2800 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2801 ;; TF5 extended statusline handling
2802 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2803 /def -i gstatus_init =\
2804 /prdefvar -n"status_height" -v"2" -c"The number of rows in the status area in TF visual mode (GgrTF::TF5 uses 2)"%;\
2805 /prdefvar -n"status_start" -v"0" -c"Start row used by GgrTF in TF visual mode (GgrTF::TF5 uses 0 by default)"%;\
2806 /if (status_height < 2) /set status_height=2%;/endif%;\
2807 /status_add -s0 -r$[status_start+1] -c "["%;\
2808 /status_add -s0 -r$[status_start+1] status_protstr2::Cgreen%;\
2809 /status_add -s0 -r$[status_start+1] "]"
2810
2811 /def -i gstatus_update =\
2812 /gstatus_update_do%;\
2813 /eval /status_add -c -s0 -r%{status_start} %{status_pstr}
2814
2815
2803 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2816 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2804 ;; Global script initialization 2817 ;; Global script initialization
2805 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2818 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2806 /eval /if (set_wasinit != 1)\ 2819 /eval /if (set_wasinit != 1)\
2807 /greset%;\ 2820 /greset%;\
2808 /ginitialize%;\ 2821 /ginitialize%;\
2809 /set set_wasinit=1%;\ 2822 /set set_wasinit=1%;\
2823 /gstatus_init%;\
2824 /gstatus_update%;\
2810 /endif 2825 /endif