function to duplicate current header and change ID

function to duplicate current header and change ID

[Xebar Saram]

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

Hi all

i noticed i use the copy and then paste entire headers (with content) quite
often. the problem i also notice is that creates alot of issues with
duplicate IDS. I wonder if anyone has a function he would like to share or
can help me create a function that will
1. copy current header and contents (org-copy-subtree) at point
2. auto paste it below current header
3. change ID

thx alot!

Z

[-- Attachment #2: Type: text/html, Size: 523 bytes --]

Re: function to duplicate current header and change ID

[Xebar Saram]

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

ok so i have this so far


(defun zxx  ()
  "duplicate and change id of org header"
(interactive)
(org-copy-subtree)
(org-end-of-line)
(newline)
;(org-yank)
(org-paste-subtree)
(org-forward-heading-same-level 1)
(let ((current-prefix-arg '(4)))
(call-interactively #'org-id-get-create))
)


yet it seems very bloated since i cant code ;-) and dosent work as it
dosent really creates a new org-id. any tips?

best

Z


On Wed, Aug 3, 2016 at 7:17 AM, Xebar Saram <zeltakc@gmail.com> wrote:

> 1. copy current header and contents (org-copy-subtree) at point
> 2. auto paste it below current header
> 3. change ID
>

[-- Attachment #2: Type: text/html, Size: 1607 bytes --]

Re: function to duplicate current header and change ID

[John Kitchin]

Does this do what you want?

(defun clone-subtree ()
  "Clone the current subtree and change the id."
  (interactive)

  (when (not (looking-at "^\\*"))
    (re-search-backward "^\\*"))

  (org-copy-subtree)
  (goto-char (org-element-property :end (org-element-context)))
  
  (org-paste-subtree)
  (org-id-get-create t))




Xebar Saram writes:

> ok so i have this so far
>
>
> (defun zxx  ()
>   "duplicate and change id of org header"
> (interactive)
> (org-copy-subtree)
> (org-end-of-line)
> (newline)
> ;(org-yank)
> (org-paste-subtree)
> (org-forward-heading-same-level 1)
> (let ((current-prefix-arg '(4)))
> (call-interactively #'org-id-get-create))
> )
>
>
> yet it seems very bloated since i cant code ;-) and dosent work as it
> dosent really creates a new org-id. any tips?
>
> best
>
> Z
>
>
> On Wed, Aug 3, 2016 at 7:17 AM, Xebar Saram <zeltakc@gmail.com> wrote:
>
>> 1. copy current header and contents (org-copy-subtree) at point
>> 2. auto paste it below current header
>> 3. change ID
>>


-- 
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu

Re: function to duplicate current header and change ID

[Xebar Saram]

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

thats perfect John

thx so much...its amazing how far my "code" was ..another example how much
i suck at anything resembling coding ;-)

best

Z

[-- Attachment #2: Type: text/html, Size: 400 bytes --]

Re: function to duplicate current header and change ID

[Jorge]

On 11 August 2016 at 12:33, John Kitchin <jkitchin@andrew.cmu.edu> wrote:
> Does this do what you want?
Could not he just use C-u C-c C-x c (org-clone-subtree-with-time-shift)?