Bagaimana saya bisa mengevaluasi elisp dalam file orgmode ketika dibuka?

Saya memiliki kode elisp yang ingin saya jalankan dalam file orgmode ketika mereka memuat (berbeda untuk file yang berbeda, dan didefinisikan dalam file itu sendiri). Apakah ada cara untuk melakukan ini? Saya tidak melihat apa pun di http://orgmode.org/manual/In_002dbuffer-settings.html

Jika saya dapat menambahkan sesuatu ke inisialisasi emacs yang menjalankan blok kode bernama khusus setiap kali sebuah file orgmode memuat, itu mungkin merupakan solusi, tetapi saya tidak yakin bagaimana melakukannya, dan idealnya ada sesuatu yang tertanam di dalamnya.

Solusi ini tidak memerlukan perubahan init.el(dengan modifikasi kecil). Ini melibatkan evaluasi file-lokal, tetapi - itulah yang diminta OP. Keuntungan dari solusi ini adalah:

• meminta konfirmasi untuk mengevaluasi kode
• kode elisp dapat diedit dan diuji dalam lingkungan org-babel
• karena solusinya tidak memerlukan modifikasi init.elpada file orgmode dapat dibagikan di antara pengguna (tepercaya)

Saya ulangi solusinya di sini.

Tambahkan src-block di suatu tempat di file Anda:

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

Kemudian, letakkan ini di akhir file-orgmode Anda:

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

Saya telah menambahkan (outline-hide-sublevels 1)karena saya suka menyembunyikan src-block di dalam heading dan ingin agar sublevel disembunyikan saat startup. Tanpa pernyataan ini, sublevel akan diperluas oleh (org-babel-goto-named-src-block "startup").

Dengan solusi ini, emacs akan meminta izin untuk mengeksekusi 2 kali (pertama: terapkan Variabel Lokal; 2: jalankan "startup" -src-block). Karena saya memiliki banyak blok-src di file saya, saya telah menetapkan variabel-file-lokal lain org-confirm-babel-evaluate,, seperti ini:

# 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:

Peringatan: Dengan tambahan ini, emacs hanya akan meminta izin sekali untuk mengeksekusi - semua src-blok dalam file itu sekarang dapat dieksekusi tanpa konfirmasi lebih lanjut. Seperti yang telah ditunjukkan orang lain sebelumnya, perilaku ini bisa berbahaya dan Anda harus sangat berhati-hati dengan pengaturan ini.

Namun, saya berpendapat bahwa solusi ini (terutama versi pertama) lebih aman daripada yang diberikan oleh Joe Corneli karena setidaknya Anda akan diminta untuk melakukan konfirmasi. Solusi Joe akan mengevaluasi blok khusus tanpa konfirmasi, jika ditemukan dalam file. Seorang penyerang harus menebak nama blok khusus, tentu saja ...

Saya menggunakan pendekatan ini untuk menulis dokumen besar yang memerlukan, misalnya, adaptasi terhadap mekanisme ekspor-org.

org-mode... Selain kait apa pun yang outline-modemungkin dijalankan oleh mode induknya , mode ini menjalankan hook org-mode-hook, sebagai langkah terakhir selama inisialisasi.

Jadi, di init.el Anda:

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

Karena Anda memintanya

(berbeda untuk file yang berbeda, dan didefinisikan dalam file itu sendiri)

lalu, coba solusi ini .

Saya setuju dengan saran @ Jooe Corneli tentang menggunakan kail.

Terlintas dalam benak saya juga bahwa Anda dapat memanfaatkan bookmark di sini: letakkan penanda bookmark tertentu di hook. Keuntungan dari penunjuk ke blok kode adalah bahwa ia biasanya dipindahkan secara otomatis (mis. Ketika konten file berubah), sehingga menemukan blok tersebut biasanya secara otomatis dijaga.

[Tetapi tidak jelas bagi saya mengapa Anda memiliki kode dalam file mode-Org, bukan di tempat lain. Kami menganggap itu sebagai yang diberikan, per pernyataan masalah, tapi saya ingin tahu mengapa Anda melakukan itu. Memberi tahu kami lebih banyak tentang desain dalam hal itu bisa mengarah pada bantuan yang lebih baik.]

Saya telah mencoba meningkatkan kode dari Joe Corneli:

Anda memerlukannya di file init.el Anda:

  (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)

Setiap kali Anda membuka buffer mode-org, itu akan mencari blok sumber bernama startblock, jika ada, itu akan menjalankannya.

Dalam file mode org Anda, Anda kemudian dapat menempatkan:

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