+(defun elpher-get-address-url (address)
+ "Get URL representation of ADDRESS."
+ (let ((type (elpher-address-type address))
+ (selector (elpher-address-selector address))
+ (bare-host (elpher-address-host address))
+ (port (elpher-address-port address)))
+ (let ((host (if (string-match-p ":" bare-host)
+ (concat "[" bare-host "]")
+ bare-host)))
+ (if (and (equal type ?h)
+ (string-prefix-p "URL:" selector))
+ (elt (split-string selector "URL:") 1)
+ (concat "gopher"
+ (if (elpher-address-use-tls-p address) "s" "")
+ "://"
+ host
+ (if (equal port 70)
+ ""
+ (format ":%d" port))
+ "/" (string type)
+ selector)))))
+