Add a few packages and .. stuff

This commit is contained in:
Case Duckworth 2022-01-09 23:58:04 -06:00
parent b7295426c9
commit eb40045abd
2 changed files with 27 additions and 1 deletions

18
init.el
View File

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

View File

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