tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Cleaned up error messages: don't use a period at the end. 

Cleaned up some unfinish comment.
Replaced `let*' by `let' in `org-publish-current-project'.
This commit is contained in:
Bastien Guerry 2008-02-28 00:23:06 +00:00
parent 3fbe1e698f
commit 7a75a4d91e
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
org-publish.el
View File

@ -310,7 +310,7 @@ whether file should be published."
(if (not (file-exists-p org-publish-timestamp-directory))
(make-directory org-publish-timestamp-directory)
(if (not (file-directory-p org-publish-timestamp-directory))
(error "org-publish-timestamp-directory must be a directory.")))
(error "`org-publish-timestamp-directory' must be a directory")))
;;
;; check timestamp. ok if timestamp file doesn't exist
(let* ((timestamp (org-publish-timestamp-filename filename))
@ -480,7 +480,7 @@ FILENAME is the filename of the file to be published."
(plist (org-publish-get-plist-from-filename filename))
(publishing-function (or (plist-get plist :publishing-function) 'org-publish-org-to-html)))
(if (not project-name)
(error "File %s is not part of any known project." filename))
(error "File %s is not part of any known project" filename))
(when (org-publish-needed-p filename)
(if (listp publishing-function)
;; allow chain of publishing functions
@ -545,11 +545,6 @@ default is 'index.org'."
(kill-buffer (current-buffer)))))
;(defun org-publish-meta-index (meta-plist &optional index-filename)
; "Create an index for a metaproject."
; (let* ((plists (
;;;; Interactive publishing functions
@ -572,11 +567,11 @@ default is 'index.org'."
With prefix argument, force publishing all files in project."
(interactive "P")
(save-window-excursion
(let* ((project-name (org-publish-get-project-from-filename (buffer-file-name)))
(org-publish-use-timestamps-flag
(if force nil org-publish-use-timestamps-flag)))
(let ((project-name (org-publish-get-project-from-filename (buffer-file-name)))
(org-publish-use-timestamps-flag
(if force nil org-publish-use-timestamps-flag)))
(if (not project-name)
(error "File %s is not part of any known project." (buffer-file-name)))
(error "File %s is not part of any known project" (buffer-file-name)))
(org-publish project-name))))