From eb40045abdbe11478232abb05cbd87221101836b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 9 Jan 2022 23:58:04 -0600
Subject: Add a few packages and .. stuff
---
init.el | 18 +++++++++++++++++-
lisp/+elfeed.el | 10 ++++++++++
2 files changed, 27 insertions(+), 1 deletion(-)
diff --git a/init.el b/init.el
index 1a39f3c..f4d6533 100644
--- a/init.el
+++ b/init.el
@@ -915,6 +915,9 @@ See also `crux-reopen-as-root-mode'."
:repo "davep/discord.el"
:fork (:repo "duckwork/discord.el"))))
+(setup (:straight dumb-jump)
+ (add-hook 'xref-backend-functions #'dumb-jump-xref-activate))
+
(setup (:straight electric-cursor)
(:option electric-cursor-alist '((overwrite-mode . hbar)
(god-local-mode . box)))
@@ -941,13 +944,15 @@ See also `crux-reopen-as-root-mode'."
)
(:+key "C-x w" #'elfeed)
(:with-mode elfeed-search-mode
+ (:bind "&" #'+elfeed-search-browse-generic)
(:hook #'hl-line-mode)
;; https://old.reddit.com/r/emacs/comments/rlli0u/whats_your_favorite_defadvice/hphfh4e/
(advice-add #'elfeed-search-update--force :after #'elfeed-db-save)
(advice-add #'elfeed :before #'elfeed-db-load))
(:with-mode elfeed-show-mode
(:bind "SPC" #'+elfeed-scroll-up-command
- "S-SPC" #'+elfeed-scroll-down-command)
+ "S-SPC" #'+elfeed-scroll-down-command
+ "&" #'+elfeed-show-browse-generic)
(:hook #'reading-mode)
;; (define-advice elfeed-show-entry (:after (&rest _))
;; "Re-flow the entry a short time after showing it."
@@ -1221,6 +1226,9 @@ See also `crux-reopen-as-root-mode'."
org-visibility-include-regexps '("\\.org\\'"))
(org-visibility-enable-hooks))
+(setup (:straight orglink)
+ (global-orglink-mode +1))
+
(setup (:straight package-lint
package-lint-flymake)
(add-hook 'emacs-mode-hook #'package-lint-flymake-setup)
@@ -1395,6 +1403,8 @@ See also `crux-reopen-as-root-mode'."
(vertico-mouse-mode +1)
(vertico-multiform-mode +1)
(:option vertico-multiform-commands '((execute-extended-command flat)
+ (helpful-function)
+ (helpful-macro)
(helpful-callable)
(helpful-variable))
;; This is applied /after/ the above, so default is at the end of
@@ -1447,6 +1457,12 @@ See also `crux-reopen-as-root-mode'."
(:hook-into org-mode
latex-mode))
+(setup (:straight yasnippet)
+ (:option yas-snippet-dirs (list
+ (expand-file-name "snippets" user-emacs-directory)
+ (sync/ "emacs/snippets" t)))
+ (yas-global-mode +1))
+
(setup (:straight zoom-frm))
(setup (:straight zzz-to-char)
diff --git a/lisp/+elfeed.el b/lisp/+elfeed.el
index 4ee7581..9e5f787 100644
--- a/lisp/+elfeed.el
+++ b/lisp/+elfeed.el
@@ -21,5 +21,15 @@
(scroll-down-command arg)
(error (elfeed-show-prev)))))
+(defun +elfeed-search-browse-generic ()
+ "Browse a url with `browse-url-generic-browser'."
+ (interactive)
+ (elfeed-search-browse-url t))
+
+(defun +elfeed-show-browse-generic ()
+ "Browse a url with `browse-url-generic-browser'."
+ (interactive)
+ (elfeed-show-visit t))
+
(provide '+elfeed)
;;; +elfeed.el ends here
--
cgit 1.4.1-21-gabe81