X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=449874d4ad2b7ab25675aee7bf677e1ee7ad55ea;hp=5dc0bdfbdb9702cd70079135c7d4bf0d1975e450;hb=221911ec7ce50468fbf6c0889321adf85cd753f5;hpb=726707d9621c149e5e7784adb6aa8de3d5d5910c diff --git a/elpher.el b/elpher.el index 5dc0bdf..449874d 100644 --- a/elpher.el +++ b/elpher.el @@ -136,14 +136,14 @@ ;; ;; buffer-local -(defvar elpher--gemini-page-headings '() - "Interval variable containing list of headings on page.") +(defvar elpher--gemini-page-headings nil + "List of headings on the page.") -(defvar elpher--gemini-page-links '() - "Internal variable containing list of links on page.") +(defvar elpher--gemini-page-links nil + "List of links on the page.") (defvar elpher--gemini-page-links-cache (make-hash-table :test 'equal) - "Internal variable containing hash of addresses and page links.") + "Hash of addresses and page links.") ;;; Customization group ;; @@ -190,7 +190,7 @@ These certificates may be used for establishing authenticated TLS connections." :type '(file)) (defcustom elpher-default-url-type "gopher" - "Default URL type (i.e. schema) to assume if not explicitly given." + "Default URL type (i.e. scheme) to assume if not explicitly given." :type '(choice (const "gopher") (const "gemini"))) @@ -1638,8 +1638,8 @@ The result is rendered using RENDERER." "Alternatively, select a search engine and enter some search terms:\n") (elpher-insert-index-record "Gopher Search Engine (Veronica-2)" (elpher-make-gopher-address ?7 "/v2/vs" "gopher.floodgap.com" 70)) - (elpher-insert-index-record "Gemini Search Engine (GUS)" - (elpher-address-from-url "gemini://gus.guru/search")) + (elpher-insert-index-record "Gemini Search Engine" + (elpher-address-from-url "gemini://geminispace.info")) (insert "\n" "This page contains your bookmarked sites (also visit with B):\n") (elpher-insert-index-record "Your Bookmarks" 'bookmarks) @@ -1816,7 +1816,9 @@ If ADDRESS is already bookmarked, update the label only." ;; Use elpher to open gopher, finger and gemini links (when (boundp 'browse-url-default-handlers) (add-to-list 'browse-url-default-handlers - '("^\\(gopher\\|finger\\|gemini\\)://" . browse-url-elpher))) + '("^\\(gopher\\|finger\\|gemini\\)://" . browse-url-elpher)))) + +(with-eval-after-load "thingatpt" ;; Register "gemini://" as a URI scheme so `browse-url' does the right thing (add-to-list 'thing-at-point-uri-schemes "gemini://"))