Explorar o código

Make publishing a little less noisy

Carsten Dominik %!s(int64=16) %!d(string=hai) anos
pai
achega
aa9529a5ce
Modificáronse 1 ficheiros con 7 adicións e 1 borrados
  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)