Add elpher for gemini browsing

6 files changed, 37 insertions, 6 deletions

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)))
 
diff --git a/.config/emacs/modules/bd--org.el b/.config/emacs/modules/bd--org.el
index 6d3c862..f2ee0a4 100644
--- a/.config/emacs/modules/bd--org.el
+++ b/.config/emacs/modules/bd--org.el
@@ -67,10 +67,9 @@ each org file open."
 \\makeatletter
 \\renewcommand{\\maketitle}{%
   \\begingroup\\parindent0pt
-  \\sffamily
   \\begin{center}
-  \\Large{\\bfseries\\@title}\\par\\bigskip
-  \\large{\\bfseries\\@author}\\par\\medskip
+  \\LARGE{\\bfseries\\@title}\\par\\bigskip
+  \\large{\\@author}\\par\\medskip
   \\normalsize\\@date\\par\\bigskip
   \\end{center}
   \\endgroup\\@afterindentfalse\\@afterheading}
@@ -143,7 +142,9 @@ representing all the tags ORd or ANDed together."
 	  org-todo-keywords
 	  '((sequence "TODO(t)" "NEXT(n!)" "HOLD(h!)" "|" "DONE(d)" "CANC(c)"))
 	  org-tag-alist
-	  `(("chore" . ?C)
+	  `(("noexport" . ?e)
+
+	    ("chore" . ?C)
 	    ,@bd/device-list
 
 	    ("idea" . ?i)
diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el
index f75e450..21b88d0 100644
--- a/.config/emacs/modules/bd--shells.el
+++ b/.config/emacs/modules/bd--shells.el
@@ -7,6 +7,9 @@
 
 (add-to-list 'exec-path "/home/bdunahu/.local/bin")
 
+(use-package em-module
+  :init
+  (add-to-list 'eshell-modules-list 'eshell-smart))
 
 (use-package esh-mode
   :custom
diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el
index 8a4a867..cf57949 100644
--- a/.config/emacs/modules/bd--tabs.el
+++ b/.config/emacs/modules/bd--tabs.el
@@ -35,6 +35,8 @@
   (tab-bar-tab-name-function #'bd/tab-bar-name-function)
   (tab-bar-show t)
 
+  (tab-bar-select-restore-windows nil)
+
   ;; remove useless gui elements
   (tab-bar-format
    '(tab-bar-format-tabs
diff --git a/.config/emacs/modules/bd--themes.el b/.config/emacs/modules/bd--themes.el
index 0812054..c5d6679 100644
--- a/.config/emacs/modules/bd--themes.el
+++ b/.config/emacs/modules/bd--themes.el
@@ -43,6 +43,7 @@ to.")
        `(mode-line-inactive ((,c :box (:line-width 7 :color ,bg-main)))))))
   (add-hook 'modus-themes-post-load-hook #'bd/pad-mode-line)
   :custom
+  (modus-themes-to-toggle '(modus-operandi-tinted modus-vivendi-tinted))
   (modus-themes-mixed-fonts t)
   (modus-themes-italic-constructs t)
   (modus-themes-bold-constructs t)
diff --git a/.config/guix/modules/emacs.scm b/.config/guix/modules/emacs.scm
index 3cbc820..7b93b4c 100644
--- a/.config/guix/modules/emacs.scm
+++ b/.config/guix/modules/emacs.scm
@@ -29,6 +29,7 @@
    emacs-dash
    emacs-denote
    emacs-emms
+   emacs-elpher
    emacs-exwm
    emacs-f
    emacs-guix