From f8e87473d7d0efe1e9a1cc0dea36c884e67e25f0 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sun, 24 Feb 2013 09:15:02 +0100 Subject: [PATCH] ob-sql.el (org-babel-execute:sql): Add header row delimiter for both mysql and postgresql * ob-sql.el (org-babel-execute:sql): Add header row delimiter for both mysql and postgresql. Thanks to Daniel for reporting this. --- lisp/ob-sql.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/lisp/ob-sql.el b/lisp/ob-sql.el index 3586ec9cd..20e62d0d4 100644 --- a/lisp/ob-sql.el +++ b/lisp/ob-sql.el @@ -140,9 +140,10 @@ This function is called by `org-babel-execute-src-block'." (with-temp-buffer (progn (insert-file-contents-literally out-file) (buffer-string))) (with-temp-buffer - (case (intern engine) - ('mysql - ;; add header row delimiter after column-names header in first line + (cond + ((or (eq (intern engine) 'mysql) + (eq (intern engine) 'postgresql)) + ;; Add header row delimiter after column-names header in first line (cond (colnames-p (with-temp-buffer @@ -151,10 +152,9 @@ This function is called by `org-babel-execute-src-block'." (forward-line 1) (insert "-\n") (setq header-delim "-") - (write-file out-file) - )))) + (write-file out-file))))) (t - ;; need to figure out what the delimiter is for the header row + ;; Need to figure out the delimiter for the header row (with-temp-buffer (insert-file-contents out-file) (goto-char (point-min)) @@ -166,8 +166,7 @@ This function is called by `org-babel-execute-src-block'." (delete-char 1) (goto-char (point-max)) (forward-char -1)) - (write-file out-file))) - ) + (write-file out-file)))) (org-table-import out-file '(16)) (org-babel-reassemble-table (mapcar (lambda (x) -- 2.11.4.GIT