how to remove parentheses from the output of a source code block

how to remove parentheses from the output of a source code block

[Andrés Ramírez]

Hi.

I have this file:
--8<---------------cut here---------------start------------->8---
* labels table
** work on this file then move the output to the required buffers
#+name: source-in-table
| ID | MACRO_SRC_CODE_HEADER | LANGUAGE1_HEADER | LANGUAGE2_HEADER |
|----+-----------------------+------------------+------------------|
|  1 | LABEL_YES             | Si               | Yes              |
|  2 | LABEL_NO              | No               | No               |
** generate sql
#+BEGIN_SRC emacs-lisp :var table=source-in-table :results value raw
  (let ((sqlcode (mapcar (lambda (row) 
                           (concat "INSERT or ignore INTO labels_catalog (id, macro, language1, language2) VALUES ("
                                   (number-to-string (nth 0 row)) ", '" (nth 1 row) "', '" (nth 2 row) "', '"
                                   (nth 3 row) "');\n")
                           ) table)))
    sqlcode)
#+END_SRC
--8<---------------cut here---------------end--------------->8---

The above file generates this output:
--8<---------------cut here---------------start------------->8---
#+RESULTS:
(INSERT or ignore INTO labels_catalog (id, macro, language1, language2) VALUES (1, 'LABEL_YES', 'Si', 'Yes');
 INSERT or ignore INTO labels_catalog (id, macro, language1, language2) VALUES (2, 'LABEL_NO', 'No', 'No');
)
--8<---------------cut here---------------end--------------->8---

How could be removed the parentheses from the output?

Best Regards

Re: how to remove parentheses from the output of a source code block

[Greg Minshall]

Andrés,

this is maybe more of an e-lisp question, or, at least, here's more of
an e-lisp answer.  if you have the useful =s= package [1] installed,
then will using =s-join= give you what you want?
----
  (let ((sqlcode (mapcar (lambda (row) 
                           (concat "INSERT or ignore INTO labels_catalog (id, macro, language1, language2) VALUES ("
                                   (number-to-string (nth 0 row)) ", '" (nth 1 row) "', '" (nth 2 row) "', '"
                                   (nth 3 row) "');\n")
                           ) table)))
    (s-join " " sqlcode))
----
give you what you are looking for?

cheers, Greg

[1] https://github.com/magnars/s.el

Re: how to remove parentheses from the output of a source code block

[Greg Minshall]

Andrés,

sorry -- of course, you can use base e-lisp =string-join= to accomplish
the same thing.
----
#+BEGIN_SRC emacs-lisp :var table=source-in-table :results value raw
  (let ((sqlcode (mapcar (lambda (row) 
                           (concat "INSERT or ignore INTO labels_catalog (id, macro, language1, language2) VALUES ("
                                   (number-to-string (nth 0 row)) ", '" (nth 1 row) "', '" (nth 2 row) "', '"
                                   (nth 3 row) "');\n")
                           ) table)))
    (string-join sqlcode " "))
#+END_SRC
----

cheers, Greg

Re: how to remove parentheses from the output of a source code block

[andrés ramírez]

Hi. Greg.

>>>>> "Greg" == Greg Minshall <minshall@umich.edu> writes:

    Greg> Andrés, this is maybe more of an e-lisp question, or, at least, here's more of an e-lisp
    Greg> answer.  if you have the useful =s= package [1] installed, then will using =s-join= give
    Greg> you what you want?  

[...]

Yest that elisp snippet help me. And It gave me what I was looking
for. I just did:
s/(s-join " " sqlcode)/(with-temp-buffer (insert (format "%s" sqlcode)) (delete-rectangle (point-min) (point-max)) (buffer-string))/

Best Regards