From a0f10380160534b64fe067669edaa03745396f5f Mon Sep 17 00:00:00 2001
From: Bastien <bzg@gnu.org>
Date: Mon, 2 Jan 2023 16:03:13 +0100
Subject: [PATCH] publish.sh: Only exclude files matching worg/archive/

See https://list.orgmode.org/87wn67ah1t.fsf@localhost/
---
 publish.sh | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/publish.sh b/publish.sh
index 589e1024..715280c4 100755
--- a/publish.sh
+++ b/publish.sh
@@ -42,9 +42,9 @@
    (R . t)
    (gnuplot . t)))
 
-(dolist (org-file (directory-files-recursively
-		   default-directory "\\.org$"
-		   nil (lambda (n) (not (string-match-p "archive" n)))))
+(dolist (org-file (remove-if
+		   (lambda (n) (string-match-p "worg/archive/" n))
+		   (directory-files-recursively default-directory "\\.org$")))
   (let ((html-file (concat (file-name-directory org-file)
 			   (file-name-base org-file) ".html")))
     (if (and (file-exists-p html-file)
-- 
2.45.2