+ (error "Command invalid for this page"))))
+
+(defun elpher-info-node (node)
+ "Display information on NODE."
+ (let ((display-string (elpher-node-display-string node))
+ (address (elpher-node-address node)))
+ (if address
+ (message "`%s' on %s port %s"
+ (elpher-address-selector address)
+ (elpher-address-host address)
+ (elpher-address-port address))
+ (message "%s" display-string))))
+
+(defun elpher-info-link ()
+ "Display information on node corresponding to link at point."
+ (interactive)
+ (let ((button (button-at (point))))
+ (if button
+ (elpher-info-node (button-get button 'elpher-node))
+ (error "No item selected"))))
+
+(defun elpher-info-current ()
+ "Display information on current node."
+ (interactive)
+ (elpher-info-node elpher-current-node))
+
+(defun elpher-get-address-url (address)
+ "Get URL representation of ADDRESS."
+ (concat "gopher://"
+ (elpher-address-host address)
+ (let ((port (elpher-address-port address)))
+ (if (equal port 70)
+ ""
+ (format ":%d" port)))
+ "/" (string (elpher-address-type address))
+ (elpher-address-selector address)))
+
+(defun elpher-copy-node-url (node)
+ "Copy URL representation of address of NODE to `kill-ring'."
+ (let ((address (elpher-node-address node)))
+ (if address
+ (let ((url (elpher-get-address-url address)))
+ (message url)
+ (kill-new url))
+ (error (format "Cannot represent %s as URL" (elpher-node-display-string node))))))