Selaa lähdekoodia

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.
Bastien Guerry 12 vuotta sitten
vanhempi
commit
f8e87473d7
1 muutettua tiedostoa jossa 7 lisäystä ja 8 poistoa
  1. 7 8
      lisp/ob-sql.el

+ 7 - 8
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)