Replaced use of 29.1 keymap-set function.

[elpher.git] / elpher.el

diff --git a/elpher.el b/elpher.el
index c3c3dc7..dcc702a 100644 (file)
--- a/elpher.el
+++ b/elpher.el
@@ -1,11 +1,11 @@
 ;;; elpher.el --- A friendly gopher and gemini client  -*- lexical-binding: t -*-
 
 ;;; elpher.el --- A friendly gopher and gemini client  -*- lexical-binding: t -*-
 

-;; Copyright (C) 2019-2023 Tim Vaughan <plugd@thelambdalab.xyz>
+;; Copyright (C) 2019-2024 Tim Vaughan <plugd@thelambdalab.xyz>

 ;; Copyright (C) 2020-2022 Elpher contributors (See info manual for full list)
 
 ;; Author: Tim Vaughan <plugd@thelambdalab.xyz>
 ;; Created: 11 April 2019
 ;; Copyright (C) 2020-2022 Elpher contributors (See info manual for full list)
 
 ;; Author: Tim Vaughan <plugd@thelambdalab.xyz>
 ;; Created: 11 April 2019

-;; Version: 3.6.0
+;; Version: 3.6.2

 ;; Keywords: comm gopher gemini
 ;; Homepage: https://thelambdalab.xyz/elpher
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: comm gopher gemini
 ;; Homepage: https://thelambdalab.xyz/elpher
 ;; Package-Requires: ((emacs "27.1"))


@@ -71,7 +71,7 @@
 ;;; Global constants
 ;;
 
 ;;; Global constants
 ;;
 

-(defconst elpher-version "3.6.0"
+(defconst elpher-version "3.6.2"

   "Current version of elpher.")
 
 (defconst elpher-margin-width 6
   "Current version of elpher.")
 
 (defconst elpher-margin-width 6


@@ -704,9 +704,9 @@ If LINE is non-nil, replace that line instead."
 
 (defvar elpher-link-keymap
   (let ((map (make-sparse-keymap)))
 
 (defvar elpher-link-keymap
   (let ((map (make-sparse-keymap)))

-    (keymap-set map "S-<down-mouse-1>" 'ignore) ;Prevent buffer face popup
-    (keymap-set map "S-<mouse-1>" #'elpher--open-link-new-buffer-mouse)
-    (keymap-set map "S-<return>" #'elpher--open-link-new-buffer)
+    (define-key map (kbd "S-<down-mouse-1>") 'ignore) ;Prevent buffer face popup
+    (define-key map (kbd "S-<mouse-1>") #'elpher--open-link-new-buffer-mouse)
+    (define-key map (kbd "S-<return>") #'elpher--open-link-new-buffer)

     (set-keymap-parent map button-map)
     map))
 
     (set-keymap-parent map button-map)
     map))
 


@@ -1964,8 +1964,8 @@ Assumes UTF-8 encoding for all text files."
            "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))
            "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 (geminispace.info)"
-                               (elpher-address-from-url "gemini://geminispace.info/search"))
+   (elpher-insert-index-record "Gemini Search Engine (auragem.letz.dev)"
+                               (elpher-address-from-url "gemini://auragem.letz.dev/search/s"))

    (insert "\n"
            "Your bookmarks are stored in your ")
    (insert-text-button "bookmark list"
    (insert "\n"
            "Your bookmarks are stored in your ")
    (insert-text-button "bookmark list"