-(defconst elpher-transport-map
- '(("gopher" elpher-get-gopher-selector)
- ("gophers" elpher-get-gopher-selector)
- ("gemini" elpher-get-gemini-selector)))
-
-(defconst elpher-gopher-type-map
- '((?0 elpher-display-text "txt" elpher-text)
- (?1 elpher-display-gophermap "/" elpher-index)
- (?4 nil "bin" elpher-binary)
- (?5 nil "bin" elpher-binary)
- (?7 elpher-display-search-node "?" elpher-search)
- (?8 elpher-display-telnet-node "tel" elpher-telnet)
- (?9 nil "bin" elpher-binary)
- (?g elpher-display-image-node "img" elpher-image)
- (?p elpher-display-image-node "img" elpher-image)
- (?I elpher-display-image-node "img" elpher-image)
- (?d nil "doc" elpher-binary)
- (?P nil "doc" elpher-binary)
- (?s nil "snd" elpher-binary)
- (?h elpher-display-node-html "htm" elpher-html))
+(defconst elpher-type-map
+ '(((gopher ?0) elpher-get-text-node "txt" elpher-text)
+ ((gopher ?1) elpher-get-index-node "/" elpher-index)
+ ((gopher ?4) elpher-get-node-download "bin" elpher-binary)
+ ((gopher ?5) elpher-get-node-download "bin" elpher-binary)
+ ((gopher ?7) elpher-get-search-node "?" elpher-search)
+ ((gopher ?8) elpher-get-telnet-node "tel" elpher-telnet)
+ ((gopher ?9) elpher-get-node-download "bin" elpher-binary)
+ ((gopher ?g) elpher-get-image-node "img" elpher-image)
+ ((gopher ?p) elpher-get-image-node "img" elpher-image)
+ ((gopher ?I) elpher-get-image-node "img" elpher-image)
+ ((gopher ?d) elpher-get-node-download "doc" elpher-binary)
+ ((gopher ?P) elpher-get-node-download "doc" elpher-binary)
+ ((gopher ?s) elpher-get-node-download "snd" elpher-binary)
+ ((gopher ?h) elpher-get-node-html "htm" elpher-html)
+ ((special bookmarks) elpher-get-bookmarks-node)
+ ((special start) elpher-get-start-node))