Просмотр исходного кода

Make publishing a little less noisy

Carsten Dominik 16 лет назад
Родитель
Сommit
aa9529a5ce
1 измененных файлов с 7 добавлено и 1 удалено
  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)