Made gophermap info type parser more robust.

diff --git a/ISSUES.org b/ISSUES.org
index 0ce57fd..3ebb22d 100644 (file)
--- a/ISSUES.org
+++ b/ISSUES.org
@@ -41,17 +41,8 @@ Here is the checklist of features required before release:
 The last few will be made infinitely easier if we factor the
 gopher "getter" code differently.
 
 The last few will be made infinitely easier if we factor the
 gopher "getter" code differently.
 

-

 ** OPEN Add history browsing
    
 ** OPEN Add history browsing
    

-** OPEN Download/rendering progress feedback
-   Particularly for large files or complicated pages, elpher can
-   take a few seconds or more to generate a response.  Thhis is
-   frustrating for users, who are left staring at a blinking
-   cursor.
-
-   A small amount of feedback could help with this.
-   

 * Bugs
   
 * Completed improvements
 * Bugs
   
 * Completed improvements


@@ -132,6 +123,14 @@ occasionally pop up in termal windows.  Lets leave it for now.
    
    Okay, replacing this really does improve things.  Large gemini
    downloads now seem occur at rates I'd expect.
    
    Okay, replacing this really does improve things.  Large gemini
    downloads now seem occur at rates I'd expect.

+   
+** CLOSED Download/rendering progress feedback
+   Particularly for large files or complicated pages, elpher can
+   take a few seconds or more to generate a response.  Thhis is
+   frustrating for users, who are left staring at a blinking
+   cursor.
+
+   A small amount of feedback could help with this.

 
 * Closed issues
   
 
 * Closed issues
   

diff --git a/elpher.el b/elpher.el
index b5373f4..d100acb 100644 (file)
--- a/elpher.el
+++ b/elpher.el
@@ -265,6 +265,7 @@ The basic attributes include: TYPE, SELECTOR, HOST and PORT.
 If the optional attribute TLS is non-nil, the address will be marked as
 requiring gopher-over-TLS."
   (cond
 If the optional attribute TLS is non-nil, the address will be marked as
 requiring gopher-over-TLS."
   (cond

+   ((equal type ?i) nil)

    ((and (equal type ?h)
          (string-prefix-p "URL:" selector))
     (elpher-address-from-url (elt (split-string selector "URL:") 1)))
    ((and (equal type ?h)
          (string-prefix-p "URL:" selector))
     (elpher-address-from-url (elt (split-string selector "URL:") 1)))


@@ -698,7 +699,7 @@ If ADDRESS is not supplied or nil the record is rendered as an
                               'follow-link t
                               'help-echo (elpher-page-button-help page)))
       (pcase type
                               'follow-link t
                               'help-echo (elpher-page-button-help page)))
       (pcase type

-        ((or '(gopher ?i) 'nil) ;; Information
+        ('nil ;; Information

          (elpher-insert-margin)
          (let ((propertized-display-string
                 (propertize display-string 'face 'elpher-info)))
          (elpher-insert-margin)
          (let ((propertized-display-string
                 (propertize display-string 'face 'elpher-info)))