alter all subtrees containing specific tag

alter all subtrees containing specific tag

[news]

Hi,
   I use pgg to encrypt some org subtrees (e.g. the ones containing
   passwords). At the moment I have to encrypt/decrypt them one at a
   time by selecting the appropriate region and running
   pgg-encrypt-region/pgg-decrypt-region. 
   I want to make a function that will automatically encrypt/decrypt all
   subtrees (in the current buffer) whose headings contain an :ENCRYPT: tag.
   I tried using org-map-entries, but it seems to restore the buffer to
   its original state after returning.
   Is there a quick way to get the start and end points of a subtree, or
   place region around it? and a quick way to jump to the next heading
   with a given tag?

-- 
aleblanc

Re: alter all subtrees containing specific tag

[Carsten Dominik]

On Mar 8, 2009, at 5:31 AM, <news@aleblanc.cotse.net> <news@aleblanc.cotse.net 
 > wrote:

> Hi,
>   I use pgg to encrypt some org subtrees (e.g. the ones containing
>   passwords). At the moment I have to encrypt/decrypt them one at a
>   time by selecting the appropriate region and running
>   pgg-encrypt-region/pgg-decrypt-region.
>   I want to make a function that will automatically encrypt/decrypt  
> all
>   subtrees (in the current buffer) whose headings contain  
> an :ENCRYPT: tag.
>   I tried using org-map-entries, but it seems to restore the buffer to
>   its original state after returning.

No, org-map-entries should be perfect for this, and it does not  
restore the buffer.
This should really well.  The only thing that might happen, by  
replacing the
subtree, that it does not know correctly where to continue and  
therefore it might do
every tree twice?



>   Is there a quick way to get the start and end points of a subtree,  
> or
>   place region around it? and a quick way to jump to the next heading
>   with a given tag?


(org-mark-subtree)  ;; this will include the headline


(re-search-forward "^\\*+ .*?:ENCRYPT:" nil t)

- Carsten

Re: alter all subtrees containing specific tag

[Ian Barton]

>    I use pgg to encrypt some org subtrees (e.g. the ones containing
>    passwords). At the moment I have to encrypt/decrypt them one at a
>    time by selecting the appropriate region and running
>    pgg-encrypt-region/pgg-decrypt-region. 
>    I want to make a function that will automatically encrypt/decrypt all
>    subtrees (in the current buffer) whose headings contain an :ENCRYPT: tag.
>    I tried using org-map-entries, but it seems to restore the buffer to
>    its original state after returning.
>    Is there a quick way to get the start and end points of a subtree, or
>    place region around it? and a quick way to jump to the next heading
>    with a given tag?
> 
Not really an answer, but I use epa and encrypt the whole file, which I 
find much fiddly. You can get epa to play nicely with org mode by 
putting something like:

-*- mode:org; epa-file-encrypt-to: ("me@mmyemail.com") -*-

at the top of your encrypted file.

Ian.

Re: alter all subtrees containing specific tag

[news]

Carsten Dominik <dominik@science.uva.nl> writes:

>> Hi,
>>   I use pgg to encrypt some org subtrees (e.g. the ones containing
>>   passwords). At the moment I have to encrypt/decrypt them one at a
>>   time by selecting the appropriate region and running
>>   pgg-encrypt-region/pgg-decrypt-region.
>>   I want to make a function that will automatically encrypt/decrypt
>> all
>>   subtrees (in the current buffer) whose headings contain an
>> :ENCRYPT: tag.
>>   I tried using org-map-entries, but it seems to restore the buffer to
>>   its original state after returning.

I discovered that the problem is with pgg-encrypt not org.
For some reason it only works properly if I call it interactively.

>
> No, org-map-entries should be perfect for this, and it does not
> restore the buffer.
> This should really well.  The only thing that might happen, by
> replacing the
> subtree, that it does not know correctly where to continue and
> therefore it might do
> every tree twice?
>
>
>>   Is there a quick way to get the start and end points of a subtree,
>> or
>>   place region around it? and a quick way to jump to the next heading
>>   with a given tag?
>
>
> (org-mark-subtree)  ;; this will include the headline

I don't have this function (Org-mode version 6.24).

-- 
aleblanc

Re: alter all subtrees containing specific tag

[news]

Ian Barton <lists@manor-farm.org> writes:

>>    I use pgg to encrypt some org subtrees (e.g. the ones containing
>>    passwords). At the moment I have to encrypt/decrypt them one at a
>>    time by selecting the appropriate region and running
>>    pgg-encrypt-region/pgg-decrypt-region.    I want to make a
>> function that will automatically encrypt/decrypt all
>>    subtrees (in the current buffer) whose headings contain an :ENCRYPT: tag.
>>    I tried using org-map-entries, but it seems to restore the buffer to
>>    its original state after returning.
>>    Is there a quick way to get the start and end points of a subtree, or
>>    place region around it? and a quick way to jump to the next heading
>>    with a given tag?
>>
> Not really an answer, but I use epa and encrypt the whole file, which
> I find much fiddly. You can get epa to play nicely with org mode by
> putting something like:
>
> -*- mode:org; epa-file-encrypt-to: ("me@mmyemail.com") -*-
>
> at the top of your encrypted file.
>
I can encrypt the whole buffer with pgg-encrypt, but I want to be able
to just encrypt a selection of subtrees.

-- 
aleblanc

Re: alter all subtrees containing specific tag

[news]

Carsten Dominik <dominik@science.uva.nl> writes:
>
>>   Is there a quick way to get the start and end points of a subtree,
>> or
>>   place region around it? and a quick way to jump to the next heading
>>   with a given tag?
>
> (org-mark-subtree)  ;; this will include the headline
>
> (re-search-forward "^\\*+ .*?:ENCRYPT:" nil t)
>
> - Carsten

Couldn't find the org-mark-subtree function, but the following code
works for me. 
It will toggle the encryption of all subtrees in the current buffer that
are tagged with :ENCRYPT:, i.e. if the subtree is encrypted (starting
from the first line after the header, and finishing on the last
non-empty line of the subtree), it will be decrypted, otherwise it will
be encrypted.
You can use either gpg keys or a passphrase to encrypt subtrees. To use
gpg keys, enter the names of the owners of the keys at the prompt,
otherwise just press enter to use a passphrase only.
If the passphrase does not match for any encrypted subtrees they will be
left as is.

Perhaps someone could post this on Worg? (I am lazy).

(defun org-toggle-encryption (rcpts passphrase)
  (interactive (list (split-string (read-string "Recipients (default is none): ") "[ \t,]+")
		     (pgg-read-passphrase "GnuPG passphrase: ")))
  (org-map-entries '(let (start end teststring)
		      (org-show-subtree)
		      (next-line)
		      (org-beginning-of-line)
		      (setq start (point))
		      (setq teststring (buffer-substring start (+ start 27)))
		      (condition-case nil
			  (progn 
			    (outline-forward-same-level 1)
			    (previous-line))
			(error (goto-char (point-max))))
		      (org-end-of-line)
		      (setq end (point))
		      (if (equal teststring "-----BEGIN PGP MESSAGE-----")
			  (if (pgg-decrypt-region start end passphrase)
			      (pgg-display-output-buffer start end t)
			    (message "Can't decrypt region!"))
			(if (equal rcpts '(""))
			    (pgg-encrypt-symmetric-region start end passphrase)
			  (pgg-encrypt-region start end rcpts nil passphrase))
			(pgg-display-output-buffer start end t)))
		   "+ENCRYPT"))
   

-- 
aleblanc

Re: alter all subtrees containing specific tag

[news]

Carsten Dominik <dominik@science.uva.nl> writes:

>>   Is there a quick way to get the start and end points of a subtree,
>> or
>>   place region around it? and a quick way to jump to the next heading
>>   with a given tag?
>
> (org-mark-subtree)  ;; this will include the headline
>
> (re-search-forward "^\\*+ .*?:ENCRYPT:" nil t)
>
> - Carsten

Just discovered a bug in my previously posted function. It doesn't work
too well if you have lower level subtrees tagged for encryption.
Here is the fixed version:

(defun aleblanc-org-toggle-encryption (rcpts passphrase)
  (interactive (list (split-string (read-string "Recipients (default is none): ") "[ \t,]+")
		     (pgg-read-passphrase "GnuPG passphrase: ")))
  (show-all)
  (org-map-entries '(let (start end teststring)
		      (org-outline-level)
		      (next-line)
		      (org-beginning-of-line)
		      (setq start (point))
		      (setq teststring (buffer-substring start (+ start 27)))
		      (outline-get-next-sibling)
		      (if (not (equal (point) (point-max)))
			  (previous-line))
		      (org-end-of-line)
		      (setq end (point))
		      (if (equal teststring "-----BEGIN PGP MESSAGE-----")
			  (if (pgg-decrypt-region start end passphrase)
			      (pgg-display-output-buffer start end t)
			    (message "Can't decrypt region!"))
			(if (equal rcpts '(""))
			    (pgg-encrypt-symmetric-region start end passphrase)
			  (pgg-encrypt-region start end rcpts nil passphrase))
			(pgg-display-output-buffer start end t)))
		   "+ENCRYPT"))


-- 
aleblanc

Re: alter all subtrees containing specific tag

[news]

<news@aleblanc.cotse.net> writes:

>
> Just discovered a bug in my previously posted function. It doesn't work
> too well if you have lower level subtrees tagged for encryption.

I also forgot to mention that you need to have pgg pre-loaded.
This will ensure that:

(defun my-func-org-toggle-encryption (rcpts passphrase)
  (interactive (list (split-string (read-string "Recipients (default is none): ") "[ \t,]+")
		     (pgg-read-passphrase "GnuPG passphrase: ")))
  (require 'pgg)
  (show-all)
  (org-map-entries '(let (start end teststring)
		      (org-outline-level)
		      (next-line)
		      (org-beginning-of-line)
		      (setq start (point))
		      (setq teststring (buffer-substring start (+ start 27)))
		      (outline-get-next-sibling)
		      (if (not (equal (point) (point-max)))
			  (previous-line))
		      (org-end-of-line)
		      (setq end (point))
		      (if (equal teststring "-----BEGIN PGP MESSAGE-----")
			  (if (pgg-decrypt-region start end passphrase)
			      (pgg-display-output-buffer start end t)
			    (message "Can't decrypt region!"))
			(if (equal rcpts '(""))
			    (pgg-encrypt-symmetric-region start end passphrase)
			  (pgg-encrypt-region start end rcpts nil passphrase))
			(pgg-display-output-buffer start end t)))
		   "+ENCRYPT"))



-- 
aleblanc