stest.tf

   1 /set isize=2
   2 /set lwgo=0
   3 /set status_pad=
   4 /set uciekl=**
   5 ;---------------
   6 /set skd=*
   7 /set kkd=Cwhite
   8 /set szm=*
   9 /set kzm=Cwhite
  10 /set saw=***
  11 /set kaw=Cwhite
  12 /set sbm=-
  13 /set kbm=Cwhite
  14 /set exits=n ne se
  15 /set specowanie=S+
  16
  17 /set pad=
  18 /set sgrupapad=This is a test
  19 /set status_height=2
  20
  21 /def -i status_set=\
  22         /eval /set padwidth=$[expr(columns()-79)]%;\
  23         /eval /set grupawidth=$[expr(columns())]%;\
  24         /set status_fields=\
  25           'k' skd:1:%{kkd} :1 \
  26           'z' szm:1:%{kzm}  :1 \
  27           saw:3:%{kaw} :1 \
  28           specowanie:3:BCcyan :1 \
  29           'asd':9:BCcyan :1 \
  30           uciekl:2:BCred :1 \
  31           exits:46:BCwhite \
  32           sbm:1:%{kbm} \
  33           pad:%{padwidth} \
  34           @clock:5 \
  35           sgrupapad:%{grupawidth} \
  36
  37 /def -hRESIZE hook_screen_resized=\
  38    /eval /set padwidth=$[expr(columns()-79)]%;\
  39    /eval /set grupawidth=$[expr(columns())]%;\
  40   /status_edit pad:%{padwidth}
  41
  42 /status_set