gui.el

;; my fancy frame title
;; "Emacs: <filename> [on <user>@<host>] [[ Working on <current-clocked-task> ]]"
(setq frame-title-format '("" invocation-name ": "(:eval (if (buffer-file-name)
							     (abbreviate-file-name (buffer-name))
							   "%b"))
			   (:eval (if (tramp-tramp-file-p buffer-file-name)
				      (concat " on " (tramp-file-name-user (tramp-dissect-file-name (buffer-file-name))) "@" (tramp-file-name-host (tramp-dissect-file-name (buffer-file-name))))))
			   " "(:eval (if (org-clock-is-active) (concat "[ Working: " org-clock-heading " ]")))))