From 0308a50f05d1d6afdf5695777faff1262e7982a1 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sat, 7 Dec 2024 20:27:26 -0500
Subject: Add elpher for gemini browsing

---
 .config/emacs/modules/bd--browse.el | 27 +++++++++++++++++++++++++--
 1 file changed, 25 insertions(+), 2 deletions(-)

(limited to '.config/emacs/modules/bd--browse.el')

diff --git a/.config/emacs/modules/bd--browse.el b/.config/emacs/modules/bd--browse.el
index b4e77aa..1854f52 100644
--- a/.config/emacs/modules/bd--browse.el
+++ b/.config/emacs/modules/bd--browse.el
@@ -70,8 +70,8 @@ icecat, or eww."
 (use-package eww
   :hook
   ((eww-after-render . (lambda ()
-			 (setq-local fill-column-desired-width 90)
-			 (fill-column-mode))))
+                         (setq-local fill-column-desired-width 90)
+                         (fill-column-mode))))
   :custom
   (eww-search-prefix "https://duckduckgo.com/html/?q=")
   (eww-auto-rename-buffer 'title)
@@ -79,6 +79,29 @@ icecat, or eww."
                                     "youtube.com"
                                     "youtu.be"))))
 
+(use-package elpher
+  :bind
+  (:map elpher-mode-map
+        ("l" . #'elpher-back)
+        ("d" . #'elpher-download)
+        ("w" . #'elpher-copy-current-url)
+        ("A" . #'elpher-copy-link-url)
+        ("E" . #'elpher-bookmark-current)
+        ("TAB" . #'elpher-next-link)
+        ("g" . #'elpher-reload)
+        ("G" . #'elpher-go))
+  :config
+  (defun bd/elpher (original url &optional new-window)
+  "Handle gemini links."
+  (cond ((string-match-p "\\`\\(gemini\\|gopher\\)://" url)
+         (elpher-go url))
+        (t (funcall original url new-window))))
+  (advice-add 'eww :around 'bd/elpher)
+  :custom
+  (elpher-use-tls t)
+  (elpher-gemini-max-fill-width 85)
+  (elpher-use-emacs-bookmark-menu t))
+
 (use-package apropos
   :bind (("C-h a" . selector-apropos)))
 
-- 
cgit v1.2.3