Commit 00a3c17f authored by Guilherme Semente's avatar Guilherme Semente 🌱

Minor changes

parent d6ca62ee
......@@ -90,22 +90,7 @@ user)."
(interactive)
(if (file-directory-p (concat (vc-root-dir) ".git"))
(call-interactively 'vc-git-grep)
(call-interactively 'rgrep)))
(defun semente-mu4e ()
(interactive)
(if (and (equal semente-mu4e-inbox-expr mu4e~headers-last-query)
(eq major-mode 'mu4e-headers-mode))
(mu4e-quit)
(progn
(mu4e t)
(mu4e-headers-search semente-mu4e-inbox-expr))))
(defun semente-mu4e-view-in-external-browser ()
(interactive)
(let* ((msg mu4e~view-msg)
(url (concat "file://" (mu4e~write-body-to-html msg))))
(funcall shr-external-browser url))))
(call-interactively 'rgrep))))
......@@ -511,17 +496,17 @@ You may find other key bindings inside use-package statements."
(use-package elfeed
:ensure t
:bind (:map elfeed-show-mode-map ("&" . semente-elfeed-show-visit-external))
:bind (:map elfeed-show-mode-map ("R" . semente-elfeed-show-readable))
:bind (:map elfeed-show-mode-map ("&" . semente-elfeed-show-visit-external-browser))
:bind (:map elfeed-show-mode-map ("R" . semente-elfeed-show-visit-eww-readable))
:preface
(setq-default semente-eww-readable nil)
(defun semente-elfeed-show-visit-external ()
(defun semente-elfeed-show-visit-external-browser ()
(interactive)
(let ((url (elfeed-entry-link elfeed-show-entry)))
(funcall shr-external-browser url)))
(defun semente-elfeed-show-readable ()
(defun semente-elfeed-show-visit-eww-readable ()
(interactive)
(set (make-local-variable 'semente-eww-readable) t)
(eww-browse-url (elfeed-entry-link elfeed-show-entry)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment