ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Be verbose about files skipped by org-publish.

This commit is contained in:
Carsten Dominik 2008-07-05 08:27:29 -07:00
parent 7ac36c7e66
commit 8c0dec35cf
2 changed files with 21 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2008-07-05 Carsten Dominik <dominik@science.uva.nl> 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 * org-exp.el (org-export-preprocess-string): Swap link
normalization and inernal link targeting. normalization and inernal link targeting.

7
lisp/org-publish.el
View File

@ -304,6 +304,7 @@ If functions in this hook modify the buffer, it will be saved."
(defun org-publish-needed-p (filename) (defun org-publish-needed-p (filename)
"Return `t' if FILENAME should be published." "Return `t' if FILENAME should be published."
(let ((rtn
(if org-publish-use-timestamps-flag (if org-publish-use-timestamps-flag
(if (file-exists-p org-publish-timestamp-directory) (if (file-exists-p org-publish-timestamp-directory)
;; first handle possible wrong timestamp directory ;; first handle possible wrong timestamp directory
@ -316,7 +317,11 @@ If functions in this hook modify the buffer, it will be saved."
(make-directory org-publish-timestamp-directory) (make-directory org-publish-timestamp-directory)
t) t)
;; don't use timestamps, always return t ;; don't use timestamps, always return t
t)) t)))
(if rtn
(message "Publishing file %s" filename)
(message "Skipping unmodified file %s" filename))
rtn))
(defun org-publish-update-timestamp (filename) (defun org-publish-update-timestamp (filename)
"Update publishing timestamp for file FILENAME. "Update publishing timestamp for file FILENAME.