summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el18
-rw-r--r--lisp/+elfeed.el10
2 files changed, 27 insertions, 1 deletions
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'."
915 :repo "davep/discord.el" 915 :repo "davep/discord.el"
916 :fork (:repo "duckwork/discord.el")))) 916 :fork (:repo "duckwork/discord.el"))))
917 917
918(setup (:straight dumb-jump)
919 (add-hook 'xref-backend-functions #'dumb-jump-xref-activate))
920
918(setup (:straight electric-cursor) 921(setup (:straight electric-cursor)
919 (:option electric-cursor-alist '((overwrite-mode . hbar) 922 (:option electric-cursor-alist '((overwrite-mode . hbar)
920 (god-local-mode . box))) 923 (god-local-mode . box)))
@@ -941,13 +944,15 @@ See also `crux-reopen-as-root-mode'."
941 ) 944 )
942 (:+key "C-x w" #'elfeed) 945 (:+key "C-x w" #'elfeed)
943 (:with-mode elfeed-search-mode 946 (:with-mode elfeed-search-mode
947 (:bind "&" #'+elfeed-search-browse-generic)
944 (:hook #'hl-line-mode) 948 (:hook #'hl-line-mode)
945 ;; https://old.reddit.com/r/emacs/comments/rlli0u/whats_your_favorite_defadvice/hphfh4e/ 949 ;; https://old.reddit.com/r/emacs/comments/rlli0u/whats_your_favorite_defadvice/hphfh4e/
946 (advice-add #'elfeed-search-update--force :after #'elfeed-db-save) 950 (advice-add #'elfeed-search-update--force :after #'elfeed-db-save)
947 (advice-add #'elfeed :before #'elfeed-db-load)) 951 (advice-add #'elfeed :before #'elfeed-db-load))
948 (:with-mode elfeed-show-mode 952 (:with-mode elfeed-show-mode
949 (:bind "SPC" #'+elfeed-scroll-up-command 953 (:bind "SPC" #'+elfeed-scroll-up-command
950 "S-SPC" #'+elfeed-scroll-down-command) 954 "S-SPC" #'+elfeed-scroll-down-command
955 "&" #'+elfeed-show-browse-generic)
951 (:hook #'reading-mode) 956 (:hook #'reading-mode)
952 ;; (define-advice elfeed-show-entry (:after (&rest _)) 957 ;; (define-advice elfeed-show-entry (:after (&rest _))
953 ;; "Re-flow the entry a short time after showing it." 958 ;; "Re-flow the entry a short time after showing it."
@@ -1221,6 +1226,9 @@ See also `crux-reopen-as-root-mode'."
1221 org-visibility-include-regexps '("\\.org\\'")) 1226 org-visibility-include-regexps '("\\.org\\'"))
1222 (org-visibility-enable-hooks)) 1227 (org-visibility-enable-hooks))
1223 1228
1229(setup (:straight orglink)
1230 (global-orglink-mode +1))
1231
1224(setup (:straight package-lint 1232(setup (:straight package-lint
1225 package-lint-flymake) 1233 package-lint-flymake)
1226 (add-hook 'emacs-mode-hook #'package-lint-flymake-setup) 1234 (add-hook 'emacs-mode-hook #'package-lint-flymake-setup)
@@ -1395,6 +1403,8 @@ See also `crux-reopen-as-root-mode'."
1395 (vertico-mouse-mode +1) 1403 (vertico-mouse-mode +1)
1396 (vertico-multiform-mode +1) 1404 (vertico-multiform-mode +1)
1397 (:option vertico-multiform-commands '((execute-extended-command flat) 1405 (:option vertico-multiform-commands '((execute-extended-command flat)
1406 (helpful-function)
1407 (helpful-macro)
1398 (helpful-callable) 1408 (helpful-callable)
1399 (helpful-variable)) 1409 (helpful-variable))
1400 ;; This is applied /after/ the above, so default is at the end of 1410 ;; This is applied /after/ the above, so default is at the end of
@@ -1447,6 +1457,12 @@ See also `crux-reopen-as-root-mode'."
1447 (:hook-into org-mode 1457 (:hook-into org-mode
1448 latex-mode)) 1458 latex-mode))
1449 1459
1460(setup (:straight yasnippet)
1461 (:option yas-snippet-dirs (list
1462 (expand-file-name "snippets" user-emacs-directory)
1463 (sync/ "emacs/snippets" t)))
1464 (yas-global-mode +1))
1465
1450(setup (:straight zoom-frm)) 1466(setup (:straight zoom-frm))
1451 1467
1452(setup (:straight zzz-to-char) 1468(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 @@
21 (scroll-down-command arg) 21 (scroll-down-command arg)
22 (error (elfeed-show-prev))))) 22 (error (elfeed-show-prev)))))
23 23
24(defun +elfeed-search-browse-generic ()
25 "Browse a url with `browse-url-generic-browser'."
26 (interactive)
27 (elfeed-search-browse-url t))
28
29(defun +elfeed-show-browse-generic ()
30 "Browse a url with `browse-url-generic-browser'."
31 (interactive)
32 (elfeed-show-visit t))
33
24(provide '+elfeed) 34(provide '+elfeed)
25;;; +elfeed.el ends here 35;;; +elfeed.el ends here