Add a few packages and .. stuff

2 files changed, 27 insertions, 1 deletions

@@ -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)
@@ -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