3 files changed, 52 insertions, 11 deletions
diff --git a/lib/net/jao-eww-session.el b/lib/net/jao-eww-session.el
index 4ac5447..da5bc8b 100644
--- a/lib/net/jao-eww-session.el
+++ b/lib/net/jao-eww-session.el
@@ -1,6 +1,6 @@
 ;;; jao-eww-session.el --- Persistent eww sessions -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2003, 2004, 2006, 2007, 2008, 2009, 2012, 2021, 2022  Jose A Ortega Ruiz
+;; Copyright (C) 2003-2004, 2006-2009, 2012, 2021-2022, 2025  Jose A Ortega Ruiz
 
 ;; Author: Jose A Ortega Ruiz <jao@gnu.org>
 ;; Version: 0.4
@@ -168,15 +168,14 @@ the session is already displayed in a eww tab, jao-eww-session can:
 
 (defun jao-eww-session--to--file (filename &optional skip)
   (require 'pp)
-  (when (jao-eww-session-not-empty)
-    (let ((inhibit-message t)
-          (session (jao-eww-session--update-current skip)))
-      (with-temp-buffer
-        (insert ";;;; File generated by jao-eww-session. DO NOT EDIT!\n")
-        (pp session (current-buffer))
-        (insert "\n" ";;;; End of "
-                (file-name-nondirectory jao-eww-session-file) "\n")
-        (write-region (point-min) (point-max) (expand-file-name filename))))))
+  (let ((inhibit-message t)
+        (session (jao-eww-session--update-current skip)))
+    (with-temp-buffer
+      (insert ";;;; File generated by jao-eww-session. DO NOT EDIT!\n")
+      (pp session (current-buffer))
+      (insert "\n" ";;;; End of "
+              (file-name-nondirectory jao-eww-session-file) "\n")
+      (write-region (point-min) (point-max) (expand-file-name filename)))))
 
 (defun jao-eww-session--backup-name (fname)
   (concat (expand-file-name fname) ".bak"))
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