Hieronder volgt een instructie die een taak beschrijft, gekoppeld aan een input die verdere context biedt. Schrijf een antwoord dat het verzoek op de juiste manier afvult.

### Instructie:
schrijf emacs lisp functie die info buffer tabel van inhoud zal transformeren naar org-mode boom

###

### Antwoord:
schrijf emacs lisp functie die info buffer tabel van inhoud zal transformeren naar org-mode boom
(defun info-toc-to-org () "Transform the Info buffer's table of inhoudsopgave to an Org-mode tree." (interactive) (let ((tree nil)) ;; Verplaats naar het begin van de TOC. (goto-char (point-min)) ; Skip the title and section headings. (re-search-forward "^Table of Inhoudsopgave $") (re-search-forward "^* ") ;; Parse the tree. (while (re-search-forward "^\\(*+\\) \\\(+\) $" nilet) (let ((level (match-string 1)))) (text (match-string 2)) ; Voeg het huidige item toe aan de boom. (setq tree (append tree (list (context level))) ; Converteer de boom naar Org-mode syntax. (let (org-tree) (format-tree) (punt-region) (
Hieronder volgt een instructie die een taak beschrijft, gekoppeld aan een input die verdere context biedt. Schrijf een antwoord dat het verzoek op de juiste manier afvult.

### Instructie:
schrijf emacs lisp functie die info buffer tabel van inhoud zal transformeren naar org-mode boom

###

### Antwoord:
(defun info-toc-to-org () "Transform the Info buffer's table of inhoudsopgave to an Org-mode tree." (interactive) (let ((tree nil)) ;; Verplaats naar het begin van de TOC. (goto-char (point-min)) ; Skip the title and section headings. (re-search-forward "^Table of Inhoudsopgave $") (re-search-forward "^* ") ;; Parse the tree. (while (re-search-forward "^\\(*+\\) \\\(+\) $" nilet) (let ((level (match-string 1)))) (text (match-string 2)) ; Voeg het huidige item toe aan de boom. (setq tree (append tree (list (context level))) ; Converteer de boom naar Org-mode syntax. (let (org-tree) (format-tree) (punt-region) (