Re: convert subtree or nested list to table

[Matt Price <moptop99@gmail.com>]

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

Christian et al,

I seem to have broken something while fiddling around and I can't quite
make out what.  Would someone be willing to check for me whether this does
or does not produce the desired full table? Right now I am again getting a
truncated result and I'm not fully sure what I might be oding wrong.  Here
is what I have:

#+NAME: rubric-one
- Grade
  a. A
  b. B
  c. C
  d. D
  e. F
- Style
  a. Excellent
  b. Good
  c. Adequate
  d. Lousy
  e. Failing

#+NAME: list2table
#+BEGIN_SRC emacs-lisp :var order="columns" data=rubric-one :results table
value raw replace
 (let (longest)
    (setq data (map 'list '-flatten data))
    (setq data (map 'list (lambda (x) (seq-difference x '(unordered
ordered))) data))
    ;; Pad out lists to equal length
    (setq longest (seq-max (map 'list 'length data)))
    (setq data
          (map 'list
               (lambda (l)
                 (append l (make-list (- longest (length l)) "")))
                 data))
    ;; Order by columns or rows
    (if (string= order "columns")
        (apply #'mapcar* #'list data) ; transpose
      data))
#+END_SRC

#+RESULTS: list2table
| Grade |

----------------

thanks as always for the help!

[-- Attachment #2: Type: text/html, Size: 1579 bytes --]