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.

31
lisp/org-publish.el
View File

@ -304,19 +304,24 @@ 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."
(if org-publish-use-timestamps-flag (let ((rtn
(if (file-exists-p org-publish-timestamp-directory) (if org-publish-use-timestamps-flag
;; first handle possible wrong timestamp directory (if (file-exists-p org-publish-timestamp-directory)
(if (not (file-directory-p org-publish-timestamp-directory)) ;; first handle possible wrong timestamp directory
(error "Org publish timestamp: %s is not a directory" (if (not (file-directory-p org-publish-timestamp-directory))
org-publish-timestamp-directory) (error "Org publish timestamp: %s is not a directory"
;; there is a timestamp, check if FILENAME is newer org-publish-timestamp-directory)
(file-newer-than-file-p ;; there is a timestamp, check if FILENAME is newer
filename (org-publish-timestamp-filename filename))) (file-newer-than-file-p
(make-directory org-publish-timestamp-directory) filename (org-publish-timestamp-filename filename)))
t) (make-directory org-publish-timestamp-directory)
;; don't use timestamps, always return t t)
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) (defun org-publish-update-timestamp (filename)
"Update publishing timestamp for file FILENAME. "Update publishing timestamp for file FILENAME.