Browse Source

Make publishing a little less noisy

Carsten Dominik 16 years ago
parent
commit
aa9529a5ce
1 changed files with 7 additions and 1 deletions
  1. 7 1
      lisp/org-publish.el

+ 7 - 1
lisp/org-publish.el

@@ -176,6 +176,11 @@ When nil, do no timestamp checking and always publish all files."
   :group 'org-publish
   :group 'org-publish
   :type 'directory)
   :type 'directory)
 
 
+(defcustom org-publish-list-skipped-files t
+  "Non-nil means, show message about files *not* published."
+  :group 'org-publish
+  :type 'boolean)
+
 (defcustom org-publish-before-export-hook nil
 (defcustom org-publish-before-export-hook nil
   "Hook run before export on the Org file.
   "Hook run before export on the Org file.
 The hook may modify the file in arbitrary ways before publishing happens.
 The hook may modify the file in arbitrary ways before publishing happens.
@@ -223,7 +228,8 @@ function can still decide about that independently."
 	   t)))
 	   t)))
     (if rtn
     (if rtn
 	(message "Publishing file %s using `%s'" filename pub-func)
 	(message "Publishing file %s using `%s'" filename pub-func)
-      (message   "Skipping unmodified file %s" filename))
+      (when org-publish-list-skipped-files
+	(message   "Skipping unmodified file %s" filename)))
     rtn))
     rtn))
 
 
 (defun org-publish-update-timestamp (filename &optional pub-dir pub-func)
 (defun org-publish-update-timestamp (filename &optional pub-dir pub-func)