From ab6a018cc080dfedca166a8c053538f3248f1eb6 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Sun, 21 Jun 2020 00:35:07 +0200 Subject: [PATCH] Tidying up for next release. --- elpher.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/elpher.el b/elpher.el index 7809634..04f38a3 100644 --- a/elpher.el +++ b/elpher.el @@ -4,10 +4,10 @@ ;; Author: Tim Vaughan ;; Created: 11 April 2019 -;; Version: 2.8.0 +;; Version: 2.9.0 ;; Keywords: comm gopher ;; Homepage: http://thelambdalab.xyz/elpher -;; Package-Requires: ((emacs "26.1")) +;; Package-Requires: ((emacs "26.2")) ;; This file is not part of GNU Emacs. @@ -71,7 +71,7 @@ ;;; Global constants ;; -(defconst elpher-version "2.8.0" +(defconst elpher-version "2.9.0" "Current version of elpher.") (defconst elpher-margin-width 6 @@ -104,7 +104,7 @@ ;; (defgroup elpher nil - "A gopher client." + "A gopher and gemini client." :group 'applications) ;; General appearance and customizations @@ -915,8 +915,7 @@ If ADDRESS is not supplied or nil the record is rendered as an (elpher-insert-margin (concat (char-to-string selector-type) "?")) (insert (propertize display-string 'face 'elpher-unknown))))) - (insert "\n") -)) + (insert "\n"))) (defun elpher-click-link (button) "Function called when the gopher link BUTTON is activated (via mouse or keypress)." @@ -1104,7 +1103,10 @@ that the response was malformed." (?1 ; Input required (elpher-with-clean-buffer (insert "Gemini server is requesting input.")) - (let* ((query-string (read-string (concat response-meta ": "))) + (let* ((query-string + (if (eq (elt response-code 1) ?1) + (read-passwd (concat response-meta ": ")) + (read-string (concat response-meta ": ")))) (query-address (seq-copy (elpher-page-address elpher-current-page))) (old-fname (url-filename query-address))) (setf (url-filename query-address) -- 2.20.1