[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH] Enable table with fields containing commas to be used as arg
[O] [PATCH] Enable table with fields containing commas to be used as arguments to sqlite source blocks, fix ox-taskjuggler broken call.
Fri, 01 Sep 2017 14:04:07 -0300
mu4e 0.9.17; emacs 24.4.1
ob-sqlite.el: Enable table with fields containing commas to be used as
arguments to sqlite source blocks
* lisp/ob-sqlite.el: Stop interfering with the 'orgtbl-to-csv' default
* testing/lisp/test-ob-sqlite.el:: Adds a test using a table with
commas in the content of any of its fields as an argument for a
sqlite source block.
* testing/examples/ob-sqlite-test.org: Adds an example to be used in
the sqlite test above.
* contrib/lisp/ox-taskjuggler.el (org-taskjuggler--build-task): Fix a
call to a non existing function.
The problem here was that ob-sqlite was providing a format to the
'orgtbl-to-csv' that actually overwrote the default format in that
function, and in the case where there were commas in the content of the
table, broke the table as argument mechanism.
The case with ox-taskjuggler was simpler, it was only a reference to an
contrib/lisp/ox-taskjuggler.el | 2 +-
lisp/ob-sqlite.el | 5 +----
testing/examples/ob-sqlite-test.org | 20 ++++++++++++++++++++
testing/lisp/test-ob-sqlite.el | 34 ++++++++++++++++++++++++++++++++++
4 files changed, 56 insertions(+), 5 deletions(-)
create mode 100644 testing/examples/ob-sqlite-test.org
create mode 100644 testing/lisp/test-ob-sqlite.el
diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el
index 2144b04..aee7ae9 100644
@@ -861,7 +861,7 @@ a unique id will be associated to it."
(and complete (format " complete %s\n" complete))
(format " effort %s\n"
- (let* ((minutes (org-duration-minutes effort))
+ (let* ((minutes (org-duration-to-minutes effort))
(hours (/ minutes 60.0)))
(format "%.1fh" hours))))
(and priority (format " priority %s\n" priority))
diff --git a/lisp/ob-sqlite.el b/lisp/ob-sqlite.el
index 8094019..f381f43 100644
@@ -123,10 +123,7 @@ This function is called by `org-babel-execute-src-block'."
(if (listp val)
(let ((data-file (org-babel-temp-file "sqlite-data-")))
- (insert (orgtbl-to-csv
- val '(:fmt (lambda (el) (if (stringp el)
- (format "%S" el)))))))
+ (insert (orgtbl-to-csv val nil)))
(if (stringp val) val (format "%S" val))))
diff --git a/testing/examples/ob-sqlite-test.org
new file mode 100644
@@ -0,0 +1,20 @@
+#+Title: a collection of examples for ob-sqlite tests
+* Simple tests
+ :ID: baa7fb30-28ec-4ac4-abef-0ad47b093332
+| "Mr Test A. Sql" | Minister for Science, Eternal Happiness, and Finance |
+#+begin_src sqlite :db /tmp/test.db :var tb=test_table1
+ drop table if exists TestTable;
+ create table TestTable(person, job);
+ .mode csv TestTable
+ .import $tb TestTable
+ select * from TestTable;
+| Mr Test A. Sql | Minister for Science, Eternal Happiness, and Finance |
diff --git a/testing/lisp/test-ob-sqlite.el b/testing/lisp/test-ob-sqlite.el
new file mode 100644
@@ -0,0 +1,34 @@
+;;; test-ob-sqlite.el --- tests for ob-sqlite.el
+;; Copyright (C) 2017 Eduardo Bellani
+;; Author: Eduardo Bellani <address@hidden>
+;; Keywords: lisp
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+(unless (featurep 'ob-sqlite)
+ (signal 'missing-test-dependency "Support for sqlite code blocks"))
+(ert-deftest ob-sqlite/table-variables-with-commas ()
+ "Test of a table variable that contains commas. This garantees that this
code path results in a valid CSV."
+ (org-test-at-id "baa7fb30-28ec-4ac4-abef-0ad47b093332"
+ (org-babel-next-src-block 1)
+ (should (equal '(("Mr Test A. Sql"
+ "Minister for Science, Eternal Happiness,
+;;; test-ob-sqlite.el ends here
Description: PGP signature
- [O] [PATCH] Enable table with fields containing commas to be used as arguments to sqlite source blocks, fix ox-taskjuggler broken call.,
Eduardo Bellani <=