kill buffers after exporting them

export buffers after the first are opened read-only otherwise
basho · Feb 1, 2010 · 137b054 · 137b054
1 parent 6f22440
commit 137b054
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/orgbatch.el b/orgbatch.el
@@ -22,9 +22,12 @@
 ;; command-line --eval functions
 (defun riak-export-doc-file (filename format)
   (find-file filename)
-  (cond ((eq format 'ascii) (org-export-as-ascii 3))
+  (cond ((eq format 'ascii) (org-export-as-ascii 3)
-        ((eq format 'html) (org-export-as-html 3))
+         (kill-this-buffer))
-        (message "Unknown export format")))
+        ((eq format 'html) (org-export-as-html 3)
+         (kill-this-buffer))
+        (message "Unknown export format"))
+  (kill-this-buffer))
 
 (defun riak-export-doc-dir (directory format)
   (mapcar