106 lines
2.5 KiB
Plaintext
106 lines
2.5 KiB
Plaintext
;; /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'[H' = /dokey recallb
|
||
/def -ib'Ow' = /dokey recallf
|
||
/def -ib'[A' = /dokey recallb
|
||
/def -ib'[B' = /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
|