X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=elpher.el;h=18e9b9363dd6bbf142f493dea0ae81a4ff945b4c;hb=6c5c231dca036ac749b5bfa7c77d25a6390a9421;hp=b5373f42ebbd33990b6256e13620ea6f9079db7d;hpb=cfdf41446b4f6fe488d378f7702f7193b247206c;p=elpher.git diff --git a/elpher.el b/elpher.el index b5373f4..18e9b93 100644 --- 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 + ((equal type ?i) nil) ((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 - ((or '(gopher ?i) 'nil) ;; Information + ('nil ;; Information (elpher-insert-margin) (let ((propertized-display-string (propertize display-string 'face 'elpher-info))) @@ -1046,7 +1047,7 @@ that the response was malformed." ((pred (string-prefix-p "image/")) (elpher-render-image body)) (_other - (error "Unsupported MIME type %S" mime-type)))))) + (elpher-render-download body)))))) (defun elpher-gemini-get-link-url (link-line) "Extract the url portion of LINK-LINE, a gemini map file link line.