diff options
| author | Oleg Pykhalov <go.wigust@gmail.com> | 2020-08-25 21:55:06 +0300 |
|---|---|---|
| committer | Oleg Pykhalov <go.wigust@gmail.com> | 2020-08-25 22:02:29 +0300 |
| commit | 8fe9a5291481bdc1dea06f75d16641eb78482e4e (patch) | |
| tree | bffab609cdd9542670aa647113e41713676e448f | |
| parent | guix: emacs-athena: Patch texinfo keybindings. (diff) | |
| download | guix-wigust-8fe9a5291481bdc1dea06f75d16641eb78482e4e.tar.gz | |
gnu: Add emacs-elfeed-custom.
* guix/emacs-elfeed-search-fix-browse-at-remote.patch: New file.
* guix/wigust/packages/emacs.scm (emacs-elfeed-custom): New variable.
| -rw-r--r-- | guix/emacs-elfeed-search-fix-browse-at-remote.patch | 30 | ||||
| -rw-r--r-- | guix/wigust/packages/emacs.scm | 12 |
2 files changed, 42 insertions, 0 deletions
diff --git a/guix/emacs-elfeed-search-fix-browse-at-remote.patch b/guix/emacs-elfeed-search-fix-browse-at-remote.patch new file mode 100644 index 0000000..d26f4f5 --- /dev/null +++ b/guix/emacs-elfeed-search-fix-browse-at-remote.patch @@ -0,0 +1,30 @@ +--- a/elfeed-search.el 1970-01-01 03:00:01.000000000 +0300 ++++ b/elfeed-search.el 2020-08-25 22:02:04.114008818 +0300 +@@ -233,7 +233,6 @@ + (set (make-local-variable 'bookmark-make-record-function) + #'elfeed-search-bookmark-make-record) + (buffer-disable-undo) +- (hl-line-mode) + (make-local-variable 'elfeed-search-entries) + (make-local-variable 'elfeed-search-filter) + (add-hook 'elfeed-update-hooks #'elfeed-search-update) +@@ -766,14 +765,14 @@ + (interactive "P") + (let ((entries (elfeed-search-selected))) + (cl-loop for entry in entries +- do (elfeed-untag entry 'unread) ++ do (progn (elfeed-untag entry 'unread) ++ (mapc #'elfeed-search-update-entry entries) ++ (unless (or elfeed-search-remain-on-entry (use-region-p)) ++ (forward-line))) + when (elfeed-entry-link entry) + do (if use-generic-p + (browse-url-generic it) +- (browse-url it))) +- (mapc #'elfeed-search-update-entry entries) +- (unless (or elfeed-search-remain-on-entry (use-region-p)) +- (forward-line)))) ++ (browse-url it))))) + + (defun elfeed-search-yank () + "Copy the selected feed items to clipboard and kill-ring." diff --git a/guix/wigust/packages/emacs.scm b/guix/wigust/packages/emacs.scm index 58e87c1..b44eeee 100644 --- a/guix/wigust/packages/emacs.scm +++ b/guix/wigust/packages/emacs.scm @@ -122,6 +122,18 @@ editor with athena toolkit" ) ((#:configure-flags flags) `(cons "--with-x-toolkit=athena" ,flags)))))) +(define-public emacs-elfeed-custom + (package + (inherit emacs-elfeed) + (name "emacs-elfeed-custom") + (source + (origin + (inherit (package-source emacs-elfeed)) + (patches (fold cons* '() + (origin-patches (package-source emacs-elfeed)) + (search-patches + "emacs-elfeed-search-fix-browse-at-remote.patch"))))))) + (define-public emacs-company-tern (package (name "emacs-company-tern") |