[Share] collect some idea about auto eval code when TAB expand headline

[Share] collect some idea about auto eval code when TAB expand headline

[stardiviner]

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.

-- 
[ stardiviner ]
       I try to make every word tell the meaning that I want to express.

       Blog: https://stardiviner.github.io/
       IRC(freenode): stardiviner, Matrix: stardiviner
       GPG: F09F650D7D674819892591401B5DF1C95AE89AC3

Re: [Share] collect some idea about auto eval code when TAB expand headline

[Jeremie Juste]

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.

Re: [Share] collect some idea about auto eval code when TAB expand headline

[stardiviner]

Jeremie Juste <jeremiejuste@gmail.com> writes:

> 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?

Aha, I forget to copy an example here.

It looks like this.

#+begin_src org
,* 《三生三世 十里桃花》                                              :LOG:TV:
  :PROPERTIES:
  :EVAL: src_sh{mpg123 "三生三世 十里桃花/杨宗纬 张碧晨 - 凉凉.mp3"} 
  :END:

#+end_src

>
> 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.


-- 
[ stardiviner ]
       I try to make every word tell the meaning that I want to express.

       Blog: https://stardiviner.github.io/
       IRC(freenode): stardiviner, Matrix: stardiviner
       GPG: F09F650D7D674819892591401B5DF1C95AE89AC3