jao-r2e: new package to handle rss2email subscriptions

2 files changed, 43 insertions, 1 deletions

diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el
index aef9757..75ee027 100644
--- a/lib/net/jao-notmuch.el
+++ b/lib/net/jao-notmuch.el
@@ -1,6 +1,6 @@
 ;;; jao-notmuch.el --- Extensions for notmuch     -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2021, 2022, 2023, 2024  jao
+;; Copyright (C) 2021, 2022, 2023, 2024, 2025  jao
 
 ;; Author: jao <mail@jao.io>
 ;; Keywords: mail
@@ -339,6 +339,12 @@
   (let ((tags (plist-get (notmuch-tree-get-message-properties) :orig-tags)))
     (jao-notmuch-tree--tag tags nil)))
 
+(defun jao-notmuch-subtags (tag &rest excl)
+  (let* ((cmd (concat "notmuch search --output=tags tag:" tag))
+         (ts (split-string (shell-command-to-string cmd))))
+    (seq-difference ts (append jao-notmuch--shared-tags (cons tag excl)))))
+
+
 ;;; fcc
 (defvar jao-notmuch-mua-reply-not-inherited
   '("attachment" "sent" "new" "bigml" "jao" "trove"))
diff --git a/lib/net/jao-url.el b/lib/net/jao-url.el
new file mode 100644
index 0000000..9e58f99
--- /dev/null
+++ b/lib/net/jao-url.el
@@ -0,0 +1,36 @@
+;;; jao-url.el --- URL handling                      -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2025  Jose Antonio Ortega Ruiz
+
+;; Author: Jose Antonio Ortega Ruiz <mail@jao.io>
+;; Keywords: hypermedia
+
+;; 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/>.
+
+(require 'shr)
+(require 'ffap)
+(require 'thingatpt)
+
+(defun jao-url-around-point (&optional current-url)
+  (or (and (fboundp 'w3m-anchor) (w3m-anchor))
+      (shr-url-at-point nil)
+      (ffap-url-at-point)
+      (thing-at-point 'url)
+      (when current-url
+        (or (and (fboundp 'w3m-anchor) (w3m-anchor))
+            (and (derived-mode-p 'eww-mode) (plist-get eww-data :url))))))
+
+
+(provide 'jao-url)
+;;; jao-url.el ends here