More helpful column codes.

[elpher.git] / elpher.el

diff --git a/elpher.el b/elpher.el
index e468798..210824a 100644 (file)
--- a/elpher.el
+++ b/elpher.el
@@ -4,7 +4,7 @@
 
 ;; Author: Tim Vaughan <tgvaughan@gmail.com>
 ;; Created: 11 April 2019
-;; Version: 1.2.2
+;; Version: 1.2.3
 ;; Keywords: comm gopher
 ;; Homepage: https://github.com/tgvaughan/elpher
 ;; Package-Requires: ((emacs "25"))
@@ -57,7 +57,7 @@
 ;;; Global constants
 ;;
 
-(defconst elpher-version "1.2.2"
+(defconst elpher-version "1.2.3"
   "Current version of elpher.")
 
 (defconst elpher-margin-width 6
@@ -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.")