emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

From: Rasmus <rasmus@gmx.us>
To: emacs-orgmode@gnu.org
Subject: Re: Creating hline in table from source block?
Date: Tue, 26 Nov 2013 01:47:00 +0100	[thread overview]
Message-ID: <878uwcng57.fsf@gmx.us> (raw)
In-Reply-To: 87hab0novk.fsf@gmx.us

Rasmus <rasmus@gmx.us> writes:

> Probably you can remove the require 'cl.  Also, you can generalize the
> code to take arbitrarily hline positions.  

Here's a more fun :post function (again depending on cl).

#+NAME: add_hline
#+BEGIN_SRC emacs-lisp :var data='((a b c) (d e f) (h i j)) h='(0 -2 100 last)
  (let* ((d (copy-list data))
         (h0 (delq nil
                   (mapcar (lambda (e)
                             (when (or (not (numberp e)) (< (abs e) (length data)))
                               (cond 
                                ((equal e 'last) (length data))
                                ((and (numberp e) (< e 0)) (+ (length data) e))
                                (t e))))
                           (if (listp h) h (list h)))))
         (h1 (number-sequence 0 (1- (length h0))))
         (H (mapcar* '+ h0 h1))) 
    (dolist (x H) (push 'hline (nthcdr x d)))
    d)
#+END_SRC

#+BEGIN_SRC sh :post add_hline(data=*this*, h='(0 1 last))
echo "a b c d"
echo "1 2 3 4"
echo "5 6 7 8"
#+END_SRC

#+RESULTS:
|---+---+---+---|
| a | b | c | d |
|---+---+---+---|
| 1 | 2 | 3 | 4 |
| 5 | 6 | 7 | 8 |
|---+---+---+---|


-- 
In theory, practice and theory are the same. In practice they are not

next prev parent reply	other threads:[~2013-11-26  0:44 UTC|newest]

Thread overview: 12+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2013-11-25 10:52 Creating hline in table from source block? Loris Bennett
2013-11-25 20:13 ` Achim Gratz
2013-11-25 20:43   ` Achim Gratz
2013-11-26 16:40     ` Daniel E. Doherty
2013-11-25 21:38 ` Rasmus
2013-11-26  0:47   ` Rasmus [this message]
2013-11-26  2:41 ` Eric Schulte
2013-11-26  8:05   ` Loris Bennett
2013-11-26  8:54     ` Rasmus
2013-11-26 13:14     ` Eric Schulte
2013-11-26 14:23       ` Loris Bennett
2013-11-26 20:07         ` Achim Gratz

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=878uwcng57.fsf@gmx.us \
    --to=rasmus@gmx.us \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

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).