summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-05-09 23:16:12 -0400
committerKyle Meyer <kyle@kyleam.com>2020-05-11 23:45:13 -0400
commite9fd6f898caa8a2aec4e232af66d2823753378db (patch)
treeaab35fb3973131e316335cf44dadbf62b04bbf86
parentcaa9540892974196fafcf2dbaf7bab2178b2cd82 (diff)
downloadpiem-e9fd6f898caa8a2aec4e232af66d2823753378db.tar.gz
Add basic support for Elfeed
-rw-r--r--piem-elfeed.el75
-rw-r--r--piem.texi4
2 files changed, 79 insertions, 0 deletions
diff --git a/piem-elfeed.el b/piem-elfeed.el
new file mode 100644
index 0000000..e03104f
--- /dev/null
+++ b/piem-elfeed.el
@@ -0,0 +1,75 @@
+;;; piem-elfeed.el --- Elfeed integration for piem -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2020 Kyle Meyer
+
+;; Author: Kyle Meyer <kyle@kyleam.com>
+;; Keywords: vc, tools
+;; Version: 0.0.0
+;; Package-Requires: ((emacs "26.3"))
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;
+
+;;; Code:
+
+(require 'elfeed)
+(require 'piem)
+
+(defgroup piem-elfeed nil
+ "Elfeed integration for piem."
+ :link '(info-link "(piem)Elfeed integration")
+ :group 'piem)
+
+(defvar piem-elfeed--link-re
+ (rx "/" (group (one-or-more (not (any "/" "\n"))))
+ "/" (group (one-or-more (not (any "/" "\n"))))
+ "/" string-end))
+
+(defun piem-elfeed-get-inbox ()
+ "Return inbox name from an `elfeed-show-mode' buffer."
+ (when (derived-mode-p 'elfeed-show-mode)
+ (when-let ((link (elfeed-entry-link elfeed-show-entry)))
+ (and (string-match piem-elfeed--link-re link)
+ (match-string 1 link)))))
+
+(defun piem-elfeed-get-mid ()
+ "Return the message ID of an `elfeed-show-mode' buffer."
+ (when (derived-mode-p 'elfeed-show-mode)
+ (when-let ((link (elfeed-entry-link elfeed-show-entry)))
+ (and (string-match piem-elfeed--link-re link)
+ (match-string 2 link)))))
+
+;; No function is defined for `piem-mid-to-thread-functions'. All
+;; callers should fall back to getting the thread from a public-inbox
+;; instance.
+
+(define-minor-mode piem-elfeed-mode
+ "Toggle Elfeed support for piem.
+With a prefix argument ARG, enable piem-elfeed mode if ARG is
+positive, and disable it otherwise. If called from Lisp, enable
+the mode if ARG is omitted or nil."
+ :global t
+ :init-value nil
+ (if piem-elfeed-mode
+ (progn
+ (add-hook 'piem-get-inbox-functions #'piem-elfeed-get-inbox)
+ (add-hook 'piem-get-mid-functions #'piem-elfeed-get-mid))
+ (remove-hook 'piem-get-inbox-functions #'piem-elfeed-get-inbox)
+ (remove-hook 'piem-get-mid-functions #'piem-elfeed-get-mid)))
+
+;;; piem-elfeed.el ends here
+(provide 'piem-elfeed)
diff --git a/piem.texi b/piem.texi
index c778cd2..e861bb8 100644
--- a/piem.texi
+++ b/piem.texi
@@ -48,6 +48,7 @@ This manual is for piem version @value{VERSION}.
* b4 interface::
* Notmuch integration::
* Gnus integration::
+* Elfeed integration::
* Related tools::
* Contributing::
@@ -76,6 +77,9 @@ Indices
@node Gnus integration
@chapter Gnus integration
+@node Elfeed integration
+@chapter Elfeed integration
+
@node Related tools
@chapter Related tools