From mboxrd@z Thu Jan  1 00:00:00 1970
From: Michael Brand <michael.ch.brand@gmail.com>
Subject: Re: tables, comment in one line, export to html
Date: Tue, 26 Apr 2016 18:25:34 +0200
Message-ID: <CALn3zoiKpprP-G0ZTmyrOJaqXXGPFKa6TC9iJk_iBfGnsy_zgw@mail.gmail.com>
References: <87inzdhn50.fsf@mat.ucm.es>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:39036)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <michael.ch.brand@gmail.com>) id 1av5nt-00080a-C2
	for emacs-orgmode@gnu.org; Tue, 26 Apr 2016 12:25:38 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <michael.ch.brand@gmail.com>) id 1av5ns-0007ff-BN
	for emacs-orgmode@gnu.org; Tue, 26 Apr 2016 12:25:37 -0400
Received: from mail-wm0-x235.google.com ([2a00:1450:400c:c09::235]:37459)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <michael.ch.brand@gmail.com>) id 1av5ns-0007fb-4K
	for emacs-orgmode@gnu.org; Tue, 26 Apr 2016 12:25:36 -0400
Received: by mail-wm0-x235.google.com with SMTP id n3so13465300wmn.0
	for <emacs-orgmode@gnu.org>; Tue, 26 Apr 2016 09:25:35 -0700 (PDT)
In-Reply-To: <87inzdhn50.fsf@mat.ucm.es>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode/>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: "Emacs-orgmode"
	<emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: Uwe Brauer <oub@mat.ucm.es>
Cc: emacs-orgmode <emacs-orgmode@gnu.org>

Hi Uwe

On Tue, Apr 19, 2016 at 1:08 PM, Uwe Brauer <oub@mat.ucm.es> wrote:

> I would like to have a table entry in which the last colum contains
> comments which I don't want to export to html.
>
> Like this
>
> | Joe Smith      |  7 | 25 |  5 |    |  37 |       | #+begin_comment from group B B #+end_comment |
>
> But this does not work. So how can I achieve it?

I have the same need now and just hacked something simple together to
export

    | / | /  |    | <r> |
    |   | 1n | 2y |  3y |

    | / | <r> | /  |    |
    |   |  1y | 2n | 3y |

    | /  | <r> | /  |
    | 1y |  2y | 3n |

    | / | /  | /  | <r> | /  | /  | /  |
    |   | 1n | 2n |  3y | 4n | 5n | 6n |

    | / | <r> | <l> | <r> | <l> | <r> | <l> |
    | / |   / | /   |   / |     |   / | /   |
    |   |  1n | 2n  |  3n | 4y  |  5n | 6n  |

    # Same result with a less useful notation:
    | / | <r> | <l> | <r> | <l> | <r> | <l> |
    | / |   / | /   |     |     |   / | /   |
    | / |     | /   |   / |     |     |     |
    |   |  1n | 2n  |  3n | 4y  |  5n | 6n  |

    # Deletion must not get trapped with this:
    | / | <r> | <l> | <r> | <l> | <r> | <l> |
    | / |     |     |     |     |     |     |
    |   |   / | /   |   / |     |     |     |
    |   |  1y | 2y  |  3y | 4y  |  5y | 6y  |

as e. g. ASCII to

    :  2y  3y
    :
    :  1y  3y
    :
    :  1y  2y
    :
    :  3y
    :
    :  4y
    :
    :  4y
    :
    :   /  /    /
    :  1y  2y  3y  4y  5y  6y

with

    (add-hook 'org-export-before-processing-hook
              'f-ox-filter-table-column-del)
    (defun f-ox-filter-table-column-del (back-end)
      "Delete the columns $2 to $> marked as \"/\" on a row with \"/\" in $1.
    If you want a non-empty column $1 to be deleted make it $2 by
    inserting an empty column before or rearrange column order in
    some other way. Make sure \"/\" is in $1 again after that."
      (while (re-search-forward
              "^[ \t]*| +/ +|\\(.*?|\\)?? +\\(/\\) +|" nil t)
        (goto-char (match-beginning 2))
        (org-table-delete-column)
        (beginning-of-line)))

Michael