From 8c0dec35cf51c4e0f51988c20e150f0526923bdb Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Sat, 5 Jul 2008 08:27:29 -0700
Subject: [PATCH] Be verbose about files skipped by org-publish.

---
 lisp/ChangeLog      |  3 +++
 lisp/org-publish.el | 31 ++++++++++++++++++-------------
 2 files changed, 21 insertions(+), 13 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index adfd713d8..2935e6cbf 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-07-05  Carsten Dominik  <dominik@science.uva.nl>
 
+	* org-publish.el (org-publish-needed-p): Be verbose about files
+	published and files skipped.
+
 	* org-exp.el (org-export-preprocess-string): Swap link
 	normalization and inernal link targeting.
 
diff --git a/lisp/org-publish.el b/lisp/org-publish.el
index fc5590933..b1aa6777c 100644
--- a/lisp/org-publish.el
+++ b/lisp/org-publish.el
@@ -304,19 +304,24 @@ If functions in this hook modify the buffer, it will be saved."
 
 (defun org-publish-needed-p (filename)
   "Return `t' if FILENAME should be published."
-  (if org-publish-use-timestamps-flag
-      (if (file-exists-p org-publish-timestamp-directory)
-	  ;; first handle possible wrong timestamp directory
-	  (if (not (file-directory-p org-publish-timestamp-directory))
-	      (error "Org publish timestamp: %s is not a directory"
-		     org-publish-timestamp-directory)
-	    ;; there is a timestamp, check if FILENAME is newer
-	    (file-newer-than-file-p
-	     filename (org-publish-timestamp-filename filename)))
-	(make-directory org-publish-timestamp-directory)
-	t)
-    ;; don't use timestamps, always return t
-    t))
+  (let ((rtn
+	 (if org-publish-use-timestamps-flag
+	     (if (file-exists-p org-publish-timestamp-directory)
+		 ;; first handle possible wrong timestamp directory
+		 (if (not (file-directory-p org-publish-timestamp-directory))
+		     (error "Org publish timestamp: %s is not a directory"
+			    org-publish-timestamp-directory)
+		   ;; there is a timestamp, check if FILENAME is newer
+		   (file-newer-than-file-p
+		    filename (org-publish-timestamp-filename filename)))
+	       (make-directory org-publish-timestamp-directory)
+	       t)
+	   ;; don't use timestamps, always return t
+	   t)))
+    (if rtn
+	(message "Publishing file %s" filename)
+      (message   "Skipping unmodified file %s" filename))
+    rtn))
 
 (defun org-publish-update-timestamp (filename)
   "Update publishing timestamp for file FILENAME.
-- 
2.11.4.GIT