-(defun elopher-format-i (display-string)
- (elopher-format-record nil "white"))
-
-(defun elopher-format-0 (display-string selector hostname port)
- (elopher-format-record "T" "gray" 'elopher-get-text))
-
-(defun elopher-format-1 (display-string selector hostname port)
- (elopher-format-record "/" "cyan" 'elopher-get-index))
+(defun elopher-make-getter (func address)
+ (let ((selector (car address))
+ (hostname (cadr address))
+ (port (caddr address)))
+ `(lambda ()
+ (interactive)
+ (,func ,hostname ,port ,selector))))
+
+(defun elopher-make-help (address)
+ (let ((selector (car address))
+ (hostname (cadr address))
+ (port (caddr address)))
+ (format "open \"%s\" on %s port %s"
+ selector hostname port)))