emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* join tables columnwise columnames are ignored
@ 2020-07-14  7:19 Uwe Brauer
  2020-07-14  7:24 ` [SOLVED] (was: join tables columnwise columnames are ignored) Uwe Brauer
  0 siblings, 1 reply; 2+ messages in thread
From: Uwe Brauer @ 2020-07-14  7:19 UTC (permalink / raw)
  To: emacs-orgmode

Hi

Consider please the following to tables

#+begin_src 

,#+TBLNAME: test3
| Email           | State    |
|-----------------+----------|
| User1@gmail.com | Sent     |
| user2@gmail.com | not sent |


,#+TBLNAME: test4
| Email              | State       |
|--------------------+-------------|
| user3@gmail.coom   | not sent    |
| user4@gmail.com    | sent        |
#+end_src

I want to join them, adding columns, and the colnames, so I tried.


#+BEGIN_SRC emacs-lisp :var t1=test3 t2=test4 :colnames t
(cl-mapcar #'append t1 t2)
#+END_SRC



However this is the result. 
 #+begin_src 
 ,#+RESULTS:
 | User1@gmail.com | Sent     | user3@gmail.coom | not sent |
 | user2@gmail.com | not sent | user4@gmail.com  | sent     |
 #+end_src

What went wrong?

Thanks and regards

Uwe Brauer 



^ permalink raw reply	[flat|nested] 2+ messages in thread

* [SOLVED] (was: join tables columnwise columnames are ignored)
  2020-07-14  7:19 join tables columnwise columnames are ignored Uwe Brauer
@ 2020-07-14  7:24 ` Uwe Brauer
  0 siblings, 0 replies; 2+ messages in thread
From: Uwe Brauer @ 2020-07-14  7:24 UTC (permalink / raw)
  To: emacs-orgmode

[-- Attachment #1: Type: text/plain, Size: 1593 bytes --]

>>> "UB" == Uwe Brauer <oub@mat.ucm.es> writes:

> Hi
> Consider please the following to tables

> #+begin_src 

> ,#+TBLNAME: test3
> | Email           | State    |
> |-----------------+----------|
> | User1@gmail.com | Sent     |
> | user2@gmail.com | not sent |


> ,#+TBLNAME: test4
> | Email              | State       |
> |--------------------+-------------|
> | user3@gmail.coom   | not sent    |
> | user4@gmail.com    | sent        |
> #+end_src


> I want to join them, adding columns, and the colnames, so I tried.

> #+BEGIN_SRC emacs-lisp :var t1=test3 t2=test4 :colnames t
> (cl-mapcar #'append t1 t2)
> #+END_SRC




> However this is the result. 

>  #+begin_src 
>  ,#+RESULTS:
>  | User1@gmail.com | Sent     | user3@gmail.coom | not sent |
>  | user2@gmail.com | not sent | user4@gmail.com  | sent     |
>  #+end_src

> What went wrong?

> Thanks and regards

> Uwe Brauer 

The right code is this one
#+NAME: TA
| col1 | col2 |
|------+------|
|    1 |    2 |
#+NAME: TB
| col3 |
|------|
|    3 |
#+BEGIN_SRC emacs-lisp :var t1=TA t2=TB :colnames no
(insert-at 1 (cl-mapcar #'append t1 t2) 'hline)
#+END_SRC
#+RESULTS:
| col1 | col2 | col3 |
|------+------+------|
|    1 |    2 |    3 |
#+begin_src elisp :noexport
(defun insert-at (n list element)
  "Insert ELEMENT into LIST at position N.
I.e., (eq ELEMENT (nth N (insert-at N LIST ELEMENT)))."
  (if (eq n 0)
      (cons element list)
    (let ((link (nthcdr (1- n) list)))
      (setcdr link (cons element (cdr link))))
    list))
#+end_src



[-- Attachment #2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 5673 bytes --]

^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2020-07-14  7:25 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2020-07-14  7:19 join tables columnwise columnames are ignored Uwe Brauer
2020-07-14  7:24 ` [SOLVED] (was: join tables columnwise columnames are ignored) Uwe Brauer

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).