rotate tables

rotate tables

[Uwe Brauer]

Hi 

I googled a bit but found no solution to the problem 
of rotating a table such that

| 1 | 2 | 3 |
| 4 | 3 | 4 |

becomes 

| 4 | 1 |
| 3 | 2 |
| 4 | 3 |


Thanks 


Uwe Brauer 

Re: rotate tables

[Michael Brand]

Hi Uwe

On Sun, Oct 20, 2013 at 10:12 PM, Uwe Brauer <oub@mat.ucm.es> wrote:
> | 1 | 2 | 3 |
> | 4 | 3 | 4 |
>
> becomes
>
> | 4 | 1 |
> | 3 | 2 |
> | 4 | 3 |

1) mark table
2) M-x reverse-region
3) with point in the table: M-x org-table-transpose-table-at-point

Michael

Re: rotate tables

[Uwe Brauer]

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

>> "Michael" == Michael Brand <michael.ch.brand@gmail.com> writes:

   > Hi Uwe
   > On Sun, Oct 20, 2013 at 10:12 PM, Uwe Brauer <oub@mat.ucm.es> wrote:
   >> | 1 | 2 | 3 |
   >> | 4 | 3 | 4 |
   >> 
   >> becomes
   >> 
   >> | 4 | 1 |
   >> | 3 | 2 |
   >> | 4 | 3 |

   > 1) mark table
   > 2) M-x reverse-region
   > 3) with point in the table: M-x org-table-transpose-table-at-point

   > Michael

Cool thanks!!!

Uwe 

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

function? (was: rotate tables)

[Uwe Brauer]

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

>> "Michael" == Michael Brand <michael.ch.brand@gmail.com> writes:

   > Hi Uwe
   > On Sun, Oct 20, 2013 at 10:12 PM, Uwe Brauer <oub@mat.ucm.es> wrote:
   >> | 1 | 2 | 3 |
   >> | 4 | 3 | 4 |
   >> 
   >> becomes
   >> 
   >> | 4 | 1 |
   >> | 3 | 2 |
   >> | 4 | 3 |

   > 1) mark table
   > 2) M-x reverse-region
   > 3) with point in the table: M-x org-table-transpose-table-at-point
what's about a small function doing this, like 


(defun org-table-rotate-table  ()
  "Small hack to rotate a table."
  (interactive)
  (if (or (and (boundp 'zmacs-region-active-p) zmacs-region-active-p)
		  (and (boundp 'transient-mark-mode) transient-mark-mode mark-active))
      (save-restriction
        (save-excursion
          (narrow-to-region (point) (mark))
          (goto-char (point-min))
		  (reverse-region (point) (mark))
		  (org-table-transpose-table-at-point)))))

Or?

(defun org-table-rotating-table (beg end)  
  "Small hack to rotate a table."
  (interactive "r")
  (save-excursion
	(goto-char beg)
	(reverse-region beg end)
	(org-table-transpose-table-at-point)))



Uwe 

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

Re: function?

[Bastien]

Hi Uwe,

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

> what's about a small function doing this, like 
>
>
> (defun org-table-rotate-table  ()
>   "Small hack to rotate a table."
>   (interactive)
>   (if (or (and (boundp 'zmacs-region-active-p) zmacs-region-active-p)
> 		  (and (boundp 'transient-mark-mode) transient-mark-mode mark-active))
>       (save-restriction
>         (save-excursion
>           (narrow-to-region (point) (mark))
>           (goto-char (point-min))
> 		  (reverse-region (point) (mark))
> 		  (org-table-transpose-table-at-point)))))
>
> Or?
>
> (defun org-table-rotating-table (beg end)  
>   "Small hack to rotate a table."
>   (interactive "r")
>   (save-excursion
> 	(goto-char beg)
> 	(reverse-region beg end)
> 	(org-table-transpose-table-at-point)))

Don't forget to add such useful functions to 
http://orgmode.org/worg/org-hacks.html

Thanks!

-- 
 Bastien

Re: function?

[Uwe Brauer]

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

>> "Bastien" == Bastien  <bzg@gnu.org> writes:
Hi Bastien,
   > Hi Uwe,
   > Uwe Brauer <oub@mat.ucm.es> writes:

   > Don't forget to add such useful functions to 
   > http://orgmode.org/worg/org-hacks.html


I came to the conclusion, that the function is not useful, so I don't
think I will post it. However I think that the following function might:
(defun my-org-table-reverse-cells-in-row ()
  "Simple function to reverse cells in one row. This might be useful in tables with R2L and L2R text."
  (interactive)
  (save-excursion
	(newline 1)
	(end-of-line 1)
	(newline 1)
	(goto-char (org-table-begin))
	(org-table-transpose-table-at-point)
	(let*	  ((beg (org-table-begin))
			   (end (org-table-end)))
	  (goto-char beg)
	  (reverse-region beg end))
	(org-table-transpose-table-at-point)
	(kill-line nil)
	(goto-char (org-table-begin))
	(previous-line 1)
	(kill-line nil)))

I never used this site you mentioned, how can I copy the code? Do I have
to sign copyright?

Uwe 

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

Re: function?

[Bastien]

Hi Uwe,

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

> I never used this site you mentioned, how can I copy the code? 

Simply send me your public key and I'll give you access to the Worg
git repository.  

Then you'll be able to clone like this:

~$ git clone worg@orgmode.org:worg.git

and push changes that will be published on http://orgmode.org/worg/

> Do I have to sign copyright?

No.  But code on the website is licensed under GPLv3.

-- 
 Bastien

Re: function?

[Uwe Brauer]

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

>> "Bastien" == Bastien  <bzg@gnu.org> writes:

   > Hi Uwe,
   > Uwe Brauer <oub@mat.ucm.es> writes:

   >> I never used this site you mentioned, how can I copy the code? 

   > Simply send me your public key and I'll give you access to the Worg
   > git repository.  

s/mime or (gnu)pgp? My pgp key is 14 years old (1024).

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

Re: function?

[Bastien]

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

> s/mime or (gnu)pgp? My pgp key is 14 years old (1024).

~/.ssh/id_rsa.pub or ~/.ssh/id_dsa.pub should do -- no
problem for the age of the key.

Thanks,

-- 
 Bastien

Re: function?

[Uwe Brauer]

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

>> "Bastien" == Bastien  <bzg@gnu.org> writes:

   > Hi Uwe,
   > Uwe Brauer <oub@mat.ucm.es> writes:

   >> I never used this site you mentioned, how can I copy the code? 

   > Simply send me your public key and I'll give you access to the Worg
   > git repository.  

   > Then you'll be able to clone like this:

   > ~$ git clone worg@orgmode.org:worg.git

So that includes the webpage, which I edit and push back the beast?


   > and push changes that will be published on http://orgmode.org/worg/



   >> Do I have to sign copyright?

   > No.  But code on the website is licensed under GPLv3.

That is fine with me.

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

Re: function?

[Bastien]

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

> So that includes the webpage, which I edit and push back the beast?

Yes.  You pushes commits, then the modified pages get published as
HTML pages on http://orgmode.org/worg/

-- 
 Bastien