;;; 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
-;; Version: 3.6.0
+;; Version: 3.6.2
;; Keywords: comm gopher gemini
;; Homepage: https://thelambdalab.xyz/elpher
;; Package-Requires: ((emacs "27.1"))
;;; Global constants
;;
-(defconst elpher-version "3.6.0"
+(defconst elpher-version "3.6.2"
"Current version of elpher.")
(defconst elpher-margin-width 6
(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))
"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"