forked from mirrors/org-mode
Kill buffers after HTML and LaTeX exports.
This commit is contained in:
Bastien Guerry
parent
28c27dbf56
commit
7d899b888a
|
|
@ -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>
|
||||
|
||||
|
|
|
|||
|
|
@ -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)))
|
||||
(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
|
||||
(if (not exclude-regexp)
|
||||
files
|
||||
(delq nil
|
||||
(mapcar (lambda (x)
|
||||
(if (string-match exclude-regexp x) nil x))
|
||||
files))))
|
||||
;; 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))
|
||||
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))
|
||||
(extension (or (plist-get plist :base-extension) "org"))
|
||||
(regexp (concat "^[^\\.].*\\.\\(" extension "\\)$"))
|
||||
(allfiles (directory-files dir t regexp)))
|
||||
;;
|
||||
;; exclude files
|
||||
(setq allfiles
|
||||
(if (not exclude-regexp)
|
||||
allfiles
|
||||
(delq nil
|
||||
(mapcar (lambda (x)
|
||||
(if (string-match exclude-regexp x) nil x))
|
||||
allfiles))))
|
||||
;;
|
||||
;; include extra files
|
||||
(let ((inc nil))
|
||||
(while (setq inc (pop include-list))
|
||||
(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
4
org.el
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Reference in New Issue