From: Tim Vaughan <tgvaughan@gmail.com>
Date: Wed, 19 Jun 2019 07:54:39 +0000 (+0200)
Subject: More helpful column codes.
X-Git-Tag: v1.2.4~1
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=commitdiff_plain;h=ccb0eabe1241fd388cdf37d0d6c50193dad600fb

More helpful column codes.
---

diff --git a/elpher.el b/elpher.el
index 9e1471b..210824a 100644
--- 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.")