(global-set-key "\eOB" 'next-line))
(setq term-setup-hook 'terminal-keybindings) ; remap keys in due course
;
+(setq frame-title-format
+ '(multiple-frames
+ (:eval
+ (let*
+ ((buf (current-buffer))
+ (leaf (buffer-name buf))
+ (dir default-directory))
+ (if dir
+ (let*
+ ((dir (abbreviate-file-name dir))
+ (node (replace-regexp-in-string "\\..*" "" system-name)))
+ (concat leaf " " node ":" dir))
+ leaf)))
+ ("" invocation-name "@" system-name)))
+;(setq frame-title-format
+; '(multiple-frames
+; (:eval
+; (let*
+; ((buf (current-buffer))
+; (fn (buffer-file-name buf)))
+; (if fn
+; (let*
+; ((fn (abbreviate-file-name fn))
+; (dir (file-name-directory fn))
+; (leaf (file-name-nondirectory fn))
+; (node (replace-regexp-in-string "\\..*" "" system-name)))
+; (concat leaf " " node ":" dir))
+; (buffer-name buf))))
+; ("" invocation-name "@" system-name)))
+;
; Autoload definitions
(autoload 'tar-mode "tar-mode")
(autoload 'uncompress-while-visiting "uncompress")