Kill buffers after HTML and LaTeX exports.

This commit is contained in:
Bastien Guerry 2008-02-29 21:30:04 +00:00
parent 28c27dbf56
commit 7d899b888a
3 changed files with 33 additions and 46 deletions

View File

@ -1,10 +1,10 @@
2008-02-29 Bastien Guerry <bzg@altern.org>
* org-export-latex.el (org-export-as-latex): Kill buffer after
save when `to-buffer' is nil.
* org.el (org-export-as-html): Kill buffer after
export when `to-buffer' is nil.
* org.el (org-export-as-html): Kill buffer after save when
`to-buffer' is nil.
* org-export-latex.el (org-export-as-latex): Kill buffer after
export when `to-buffer' is nil.
2008-02-29 Carsten Dominik <dominik@science.uva.nl>

View File

@ -364,6 +364,8 @@ When argument is not given, return all property lists for all projects."
(plists nil)
(single nil)
(components nil))
;;
;;
(while (setq project (pop alist))
;; what kind of project is it?
@ -384,40 +386,32 @@ When argument is not given, return all property lists for all projects."
plists))
(defun org-publish-get-base-files (plist &optional exclude-regexp)
"Return a list of all files in project defined by PLIST.
If EXCLUDE-REGEXP is set, this will be used to filter out
matching filenames."
(let* ((base-dir (file-name-as-directory (plist-get plist :base-directory)))
If EXCLUDE-REGEXP is set, this will be used to filter out
matching filenames."
(let* ((dir (file-name-as-directory (plist-get plist :base-directory)))
(include-list (plist-get plist :include))
(recursive-p (plist-get plist :recursive))
(extension (or (plist-get plist :base-extension) "org"))
(regexp (concat "^[^\\.].*\\.\\(" extension "\\)$"))
alldirs allfiles files dir)
;; Get all files and directories in base-directory
(setq files (dired-files-attributes base-dir))
;; Get all subdirectories if recursive-p
(setq alldirs
(if recursive-p
(delete nil (mapcar (lambda(f) (if (caaddr f) (cadr f))) files))
(list base-dir)))
(while (setq dir (pop alldirs))
(setq files (directory-files dir t regexp))
;; Exclude files
(setq files
(allfiles (directory-files dir t regexp)))
;;
;; exclude files
(setq allfiles
(if (not exclude-regexp)
files
allfiles
(delq nil
(mapcar (lambda (x)
(if (string-match exclude-regexp x) nil x))
files))))
;; Include extra files
allfiles))))
;;
;; include extra files
(let ((inc nil))
(while (setq inc (pop include-list))
(setq files (cons (expand-file-name inc dir) files))))
(setq allfiles (append allfiles files)))
allfiles))
(setq allfiles (cons (expand-file-name inc dir) allfiles))))
allfiles))
(defun org-publish-get-project-from-filename (filename)
@ -458,7 +452,7 @@ FILENAME is the filename of the org file to be published."
(require 'org)
(let* ((arg (plist-get plist :headline-levels)))
(progn
(set-buffer (find-file-noselect filename))
(find-file filename)
(funcall (intern (concat "org-export-as-" format))
arg nil plist)
(kill-buffer (current-buffer)))))
@ -482,17 +476,12 @@ FILENAME is the filename of the file to be published."
(defun org-publish-file (filename)
"Publish file FILENAME."
(let* ((base-dir (plist-get plist :publishing-directory))
(project-name (org-publish-get-project-from-filename filename))
(let* ((project-name (org-publish-get-project-from-filename filename))
(plist (org-publish-get-plist-from-filename filename))
(publishing-function (or (plist-get plist :publishing-function)
'org-publish-org-to-html)))
(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))
(when (org-publish-needed-p filename)
;; take care of non-existents directories
(if (not (file-exists-p (file-name-as-directory filename)))
(make-directory (file-name-directory filename) t))
(if (listp publishing-function)
;; allow chain of publishing functions
(mapc (lambda (f)

4
org.el
View File

@ -25890,9 +25890,7 @@ lang=\"%s\" xml:lang=\"%s\">
(insert (format "<span style=\"visibility:hidden;\">%s</span>"
(make-string n ?x)))))
(or to-buffer
(progn (save-buffer)
(kill-buffer (current-buffer))))
(or to-buffer (progn (save-buffer) (kill-buffer (current-buffer))))
(goto-char (point-min))
(message "Exporting... done")
(if (eq to-buffer 'string)