-(defun elopher-format-i (display-string)
- (elopher-type-margin)
- (insert (propertize display-string 'face '(foreground-color . "white")))
+(defun elopher-format-record (margin-key color &optional getter)
+ (elopher-type-margin margin-key)
+ (insert (propertize
+ (if getter
+ (elopher-make-clickable display-string
+ `(lambda () (interactive)
+ (,getter ,hostname ,port ,selector))
+ (format "open \"%s\" on %s port %s"
+ selector hostname port))
+ display-string)
+ 'face `(foreground-color . ,color)))