More helpful column codes.

diff --git a/elpher.el b/elpher.el
index 9e1471b..210824a 100644 (file)
--- a/elpher.el
+++ b/elpher.el
@@ -103,18 +103,18 @@
   "Source for elpher start page.")
 
 (defconst elpher-type-map
-  '((?0 elpher-get-text-node "T" elpher-text)
+  '((?0 elpher-get-text-node "txt" elpher-text)
     (?1 elpher-get-index-node "/" elpher-index)
-    (?4 elpher-get-node-download "B" elpher-binary)
-    (?5 elpher-get-node-download "B" elpher-binary)
+    (?4 elpher-get-node-download "bin" elpher-binary)
+    (?5 elpher-get-node-download "bin" elpher-binary)
     (?7 elpher-get-search-node "?" elpher-search)
-    (?8 elpher-get-telnet-node "?" elpher-telnet)
-    (?9 elpher-get-node-download "B" elpher-binary)
-    (?g elpher-get-image-node "im" elpher-image)
-    (?p elpher-get-image-node "im" elpher-image)
-    (?I elpher-get-image-node "im" elpher-image)
-    (?d elpher-get-node-download "d" elpher-binary)
-    (?h elpher-get-url-node "W" elpher-url)
+    (?8 elpher-get-telnet-node "tel" elpher-telnet)
+    (?9 elpher-get-node-download "bin" elpher-binary)
+    (?g elpher-get-image-node "img" elpher-image)
+    (?p elpher-get-image-node "img" elpher-image)
+    (?I elpher-get-image-node "img" elpher-image)
+    (?d elpher-get-node-download "doc" elpher-binary)
+    (?h elpher-get-url-node "web" elpher-url)
     (bookmarks elpher-get-bookmarks-node "#" elpher-index)
     (start elpher-get-start-node "#" elpher-index))
   "Association list from types to getters, margin codes and index faces.")