Как я могу оценить elisp в файле orgmode при его открытии?

У меня есть elisp-код, который я хотел бы запускать в файлах orgmode при их загрузке (различается для разных файлов и определяется в самом файле). Есть ли способ сделать это? Я ничего не видел в http://orgmode.org/manual/In_002dbuffer-settings.html

Если я могу добавить что-то в инициализацию emacs, которая запускает блок кода со специальным именем при загрузке файла orgmode, это может быть решением, но я не уверен, как это сделать, и в идеале что-то встроено.

Это решение не требует изменений init.el(с незначительными изменениями). Это включает в себя локальные оценки файлов - но это именно то, о чем просил OP. Преимущества решения:

• запрашивает подтверждение для оценки кода
• код elisp можно редактировать и тестировать в среде org-babel
• поскольку решение не требует изменений в init.elфайле orgmode, оно может быть передано (доверенным) пользователям

Я перефразирую решение здесь.

Добавьте src-блок где-нибудь в вашем файле:

#+NAME: startup
#+BEGIN_SRC emacs-lisp
(your-code-here)
#+END_SRC

Затем поместите это в конец вашего файла orgmode:

# Local Variables:
# eval: (progn (org-babel-goto-named-src-block "startup") (org-babel-execute-src-block) (outline-hide-sublevels 1))
# End:

Я добавил, (outline-hide-sublevels 1)потому что мне нравится скрывать блок src внутри заголовка и хочу, чтобы подуровни были скрыты при запуске. Без этого утверждения подуровни будут расширяться (org-babel-goto-named-src-block "startup").

В этом решении emacs дважды запросит разрешение на выполнение (1-е: применить локальные переменные; 2-е: выполнить «startup» -src-block). Поскольку в моем файле много блоков src, я установил другую переменную file-local-variable org-confirm-babel-evaluate, например так:

# Local Variables:
# org-confirm-babel-evaluate: nil
# eval: (progn (org-babel-goto-named-src-block "startup") (org-babel-execute-src-block) (outline-hide-sublevels 1))
# End:

Предупреждение: с этим дополнением, emacs будет запрашивать разрешение на выполнение только один раз - все src-блоки в этом файле теперь могут выполняться без дальнейшего подтверждения. Как уже отмечали другие, такое поведение может быть опасным, и вы должны быть очень осторожны с этим параметром.

Тем не менее, я бы утверждать , что это решение (особенно первая версия) является более безопасным , чем один данным Джо Corneli , потому что по крайней мере у вас будет предложены для подтверждения для выполнения. Решение Джо оценит специальный блок без подтверждения, если он найден в файле. Злоумышленник, конечно, должен угадать название специального блока ...

Я использую этот подход для написания больших документов, которые требуют, например, адаптации к механизмам экспорта в орг.

org-mode... В дополнение к любым хукам, которые outline-modeмог запустить его родительский режим , этот режим запускает хук org-mode-hookкак последний шаг во время инициализации.

Итак, в вашем init.el:

(defun function-that-finds-and-evaluates-special-block ()
;; DWIM :-)
)
(add-hook 'org-mode-hook 'function-that-finds-and-evaluates-special-block)

Так как вы просите

(отличается для разных файлов и определяется в самом файле)

затем попробуйте это решение .

Я согласен с предложением @Joe Corneli об использовании крючка.

Мне также кажется, что вы могли бы использовать закладки здесь: поставить конкретный прыжок закладки на крючок. Преимущество закладки для блока кода состоит в том, что она, как правило, перемещается автоматически (например, при изменении содержимого файла), поэтому о местонахождении блока обычно следует заботиться автоматически.

[Но мне не понятно, почему у вас есть код в файлах режима Org, а не где-то еще. Мы принимаем это как данность, согласно постановке задачи, но мне интересно, почему вы это делаете. Дайте нам знать больше о дизайне в этом отношении, может помочь лучше.]

Я пытался улучшить код от Джо Корнели:

Это необходимо в вашем файле init.el:

  (defun tdh/eval-startblock ()
    (if (member "startblock" (org-babel-src-block-names))
      (save-excursion
        (org-babel-goto-named-src-block "startblock")
        (org-babel-execute-src-block))
      nil
      )
    )
  (add-hook 'org-mode-hook 'tdh/eval-startblock)

Каждый раз, когда вы открываете буфер режима org, он будет искать исходный блок с именем startblock, если он найден, он будет выполнять его.

В файлы org-mode вы можете поместить:

#+NAME: startblock
#+BEGIN_SRC emacs-lisp
  ;; Any code you want
#+END_SRC