;; /lp on
/visual on
/set clock 0
/set maildelay 0
/set gethostbyname nonblocking
/set MYLIBDIR ~/lib/Tf
/log ~/data/logs/tf.log
/eval /lcd %{MYLIBDIR}

/if /test TERM=/"adm*"%; /then \
   /eval /echo %{TERM}....%; \
;   /setenv TERM=tvi912 %;\
/else \
   /if /test TERMCAP=~""%; /then \
      /visual on%; \
      /isize 3%; \
   /else \
      /if /test NOSCREEN=~"1"%; /then \
         /echo Not really a vt100!%; \
      /else \
        /visual on%; \
        /isize 3%; \
      /endif%; \
   /endif%;\
/endif

;/vis
;/undef vis

/wrapspace 4
/set cleardone on
/set ignore_sigquit on
/set matching regexp
/set alias new


;; Load some stuff
/require tools.tf
/require worldqueue.tf
/require alias.tf
/require color.tf
/require completion.tf

;;; Load my extra commands & utilities
/load commands.tf


;;; Various signal triggers
/eval /def -F -T'lp.EW' -hSIGUSR1 = /send idlemsg is doing weird things.
;/eval /def -F -T'lp.EW' -hSIGUSR2 = /send idlemsg is probably playing xtet42 against Lazarus
/eval /def -F -T'lp.EW' -hSIGHUP = /send quit

/hook PROCESS = /echo %% Process started with pid %1

/sub full
;;; Tab completion.  Comment out until you have read the help
;/quote /set completion_list= 'People

/load Worlds
/load macros.tf

;; If we are running in an X display
/if /test TERM=~"xterm"%; /then \
        /set TERM=vt220 %;\
        /def -i -h'WORLD' = /xtitle tf:%fg_world %;\
        /echo Titlebar hook enabled - xterm mapped to vt220 termcap %;\
        /def -i -p1 -h'RESIZE' resize_hook = /recall $[%2 - %{isize} - 3] %;\
/endif

;; Also, the world switching hook should work under vt100 screen as well
/if /test STY!~""%; /then \
        /hook WORLD = /xtitle tf:%fg_world %;\
        /echo Running under Screen %;\
/endif

;; If on an ADM, fix some key bindings
/if /test TERM=/"adm*"%; /then \
	/unbind ^K %;\
	/unbind ^H %;\
	/unbind ^L %;\
	/bind ^K = /dokey deol %;\
	/bind ^H = /dokey bspc %;\
	/bind ^L = /dokey redraw %;\
	/bind ^[Q = /dokey LEFT %;\
	/set clock 24-hour%;\
	/def adm = /purge Hilite*%;\
	/set emulation ansi_strip%;\
	/nohilite%;\
/endif

;; Some other keys
;; forward world
/def -ib'[5~' = /dokey socketf
/def -ib'[6~' = /dokey socketb
/def -ib'' = /dokey recallb
/def -ib'Ow' = /dokey recallf
/def -ib'' = /dokey recallb
/def -ib'' = /dokey recallf

;; A useful function
/def divider = /echo -aCred ============================================================
;;/hook ACTIVITY|DISCONNECT {oaktree|Music}* = /world %1
;;/hook ACTIVITY|DISCONNECT {Music|oaktree}* = /world %1

/sub off