From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nicolas Goaziou Subject: Re: working with tables can be quite painful... Date: Thu, 22 Sep 2016 21:52:59 +0200 Message-ID: <87d1jvk8ys.fsf@nicolasgoaziou.fr> References: <87r38jew14.fsf@ucl.ac.uk> <9ae6591e2754413885a96e19c2455472@HE1PR01MB1898.eurprd01.prod.exchangelabs.com> <87zin4z3u3.fsf@ucl.ac.uk> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:60843) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bnA3M-0002pX-BW for emacs-orgmode@gnu.org; Thu, 22 Sep 2016 15:53:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bnA3K-0006am-9y for emacs-orgmode@gnu.org; Thu, 22 Sep 2016 15:53:03 -0400 Received: from relay3-d.mail.gandi.net ([2001:4b98:c:538::195]:48090) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bnA3K-0006Zw-3u for emacs-orgmode@gnu.org; Thu, 22 Sep 2016 15:53:02 -0400 Received: from saiph (unknown [IPv6:2a03:a0a0:0:4301::b3c]) (Authenticated sender: mail@nicolasgoaziou.fr) by relay3-d.mail.gandi.net (Postfix) with ESMTPSA id 0A33CA80CE for ; Thu, 22 Sep 2016 21:52:59 +0200 (CEST) In-Reply-To: <87zin4z3u3.fsf@ucl.ac.uk> (Eric S. Fraga's message of "Mon, 19 Sep 2016 09:33:24 +0100") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: Emacs Org mode mailing list Hello, Eric S Fraga writes: > I cannot send the actual table I am working on as it relates to grades > for students. I will try to create a similar table with random > entries. You could also try the imperfect (make sure to eyeball the result): (defun scramble-contents () (interactive) (let ((tree (org-element-parse-buffer))) (org-element-map tree '(code comment comment-block example-block fixed-width keyword link node-property plain-text verbatim) (lambda (obj) (cl-case (org-element-type obj) ((code comment comment-block example-block fixed-width keyword node-property verbatim) (let ((value (org-element-property :value obj))) (org-element-put-property obj :value (replace-regexp-in-string "[[:alnum:]]" "x" value)))) (link (unless (string= (org-element-property :type obj) "radio") (org-element-put-property obj :raw-link "http://orgmode.org"))) (plain-text (org-element-set-element obj (replace-regexp-in-string "[[:alnum:]]" "x" obj))))) nil nil nil t) (let ((buffer (get-buffer-create "*Scrambled text*"))) (with-current-buffer buffer (insert (org-element-interpret-data tree)) (goto-char (point-min))) (switch-to-buffer buffer)))) Regards, -- Nicolas Goaziou