CloneCtrl

Source code:

<d:when xmlns:a="http://www.askemos.org/2000/CoreAPI#" xmlns:d="http://www.askemos.org/2005/NameSpaceDSSSL/" test="
              (equal? &quot;clone&quot; (data (form-field &apos;action (current-node))))
    ">
 <a:reply>
  <d:copy-of select="#CONTENT">
(node-list 
  (make element gi: 'become
   (grove-root (current-node)))
  (let ((api 'http://www.askemos.org/2000/CoreAPI))
    (make element gi: 'link ns: api attributes: '((name "last"))
       (make element gi: 'new ns: api
         attributes: `((action ,(oid-&gt;string (me 'mind-action-document)))
                       (protection ,(right-&gt;string (me 'protection))))
         (grove-root (current-node))))))
      </d:copy-of>
  <a:output method="xml">
   <p>You've got a clone of mine at last.</p>
  </a:output>
 </a:reply>
</d:when>