[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Share] collect some idea about auto eval code when TAB expand headl
From: |
Jeremie Juste |
Subject: |
Re: [Share] collect some idea about auto eval code when TAB expand headline |
Date: |
Fri, 16 Oct 2020 22:45:17 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) |
Hello,
I don't see very clearly how you want to use the code.
(It might well be because of my lack of skills)
Could you give a usage example?
Best regards,
Jeremie
On Friday, 16 Oct 2020 at 13:01, stardiviner wrote:
> I write an elisp config for Org Mode to auto evaluate inline source block in
> property "EVAL".
>
> #+begin_src emacs-lisp
> (defcustom org-property-eval-keywords-list '("EVAL")
> "A list of property keywords for evaluate code."
> :type 'list
> :safe #'listp
> :group 'org)
>
> (defun org-property-eval-code (&optional state)
> "Evaluate Org inline source block in property value."
> (when (memq state '(children subtree))
> (if-let ((inline-src-block (org-entry-get nil "EVAL" nil)))
> (with-temp-buffer
> (insert inline-src-block)
> (goto-char (point-min))
> (require 'ob-async nil t)
> (setq-local org-babel-default-inline-header-args
> '((:results . "silent") (:async . t)))
> (let* ((context (org-element-context))
> (src-block-info (org-babel-get-src-block-info nil context))
> (type (org-element-type context)))
> (when (eq type 'inline-src-block)
> ;; ob-async: `org-babel-execute-src-block:async'
> (org-babel-execute-src-block nil src-block-info)))))))
>
> (add-hook 'org-cycle-hook #'org-property-eval-code)
> #+end_src
>
> A question:
>
> How to get all property keywords under headline? I want to use ~member~ to
> detect
> whether property keywords has member in defined custom list
> ~org-property-eval-keywords-list~.
>
> Second question:
>
> Do you have any good idea or suggest about this?
>
> Thanks for sharing your idea.