org-refile ke lokasi tetap yang diketahui

Saya mencoba menulis fungsi yang akan mengambil tajuk dan refile ke satu lokasi tertentu. Doc untuk org-refileis

(org-refile &optional GOTO DEFAULT-BUFFER RFLOC MSG)

dan RFLOCadalah

RFLOC can be a refile location obtained in a different way.

tapi saya tidak tahu apa "cara yang berbeda" akan dan saya sudah googling selama setengah hari dan tidak melihat contoh. Saya tahu file dan saya tahu judul untuk target tetapi saya tidak tahu sintaks untuk membentuknya menjadi apa yang diinginkan. Yang paling dekat yang saya dapatkan adalah:

(org-refile nil #("~/Org/bookmarks.org")

yang kemudian akan meminta saya untuk judul, tetapi tentu saja saya tidak ingin itu meminta saya, saya ingin memberikannya.

Saya baru mengenal elisp dan saya sudah menebak setiap sintaks yang bisa saya pikirkan. Adakah yang tahu bagaimana mengucapkan ini?

Saya bertanya-tanya seperti apa rupa RFLOC sebelumnya, tetapi tidak pernah diselidiki. Melihat kode sumber org, itu harus daftar yang terdiri dari:

• menuju
• mengajukan
• re (ekspresi reguler)
• pos (posisi heading target)

Saya belum bereksperimen dengan reelemen, tetapi di sini adalah fungsi sederhana yang akan memanggil org-refiledengan RFLOC dibangun dari FILE dan HEADING yang diberikan:

(defun my/refile (file headline)
  (let ((pos (save-excursion
               (find-file file)
               (org-find-exact-headline-in-buffer headline))))
    (org-refile nil nil (list headline file nil pos))))

Ini membuka file target dan menggunakan fungsi org untuk menemukan posisi headline target, kemudian membangun daftar RFLOC untuk diteruskan org-refile.

Terima kasih banyak @glucas, saya telah mengerjakan solusi Anda menjadi yang terakhir. Informasi kuncinya adalah mengetahui format RFLOC. Saya melakukan percobaan dengan memberikan daftar nama file dan teks judul, tetapi saya kehilangan elemen-elemen lainnya, dan nihil tambahan. Inilah yang akhirnya saya dapatkan:

(defun jay/refile-to (file headline)
    "Move current headline to specified location"
    (let ((pos (save-excursion
                 (find-file file)
                 (org-find-exact-headline-in-buffer headline))))
      (org-refile nil nil (list headline file nil pos))))

(defun jay/refile-to-bookmarks ()
    "Move current headline to bookmarks"
    (interactive)
    (org-mark-ring-push)
    (jay/refile-to "~/Org/bookmarks.org" "New")
    (org-mark-ring-goto))

Dokumen untuk save-excursionmenyatakan bahwa kami akan dikembalikan ke lokasi asal kami, tetapi sepertinya tidak berfungsi seperti itu. Itu membuat saya berada di tujuan, yang mungkin cocok untuk jenderal itu refile-to, tetapi saya ingin membuatnya memindahkan garis dan tetap di tempat saya, jadi saya menyimpan dan memulihkannya refile-to-bookmark.

Alur kerja yang dimaksudkan untuk ini adalah saya mulai dengan daftar tautan HTML yang berasal dari skrip saya untuk membaca umpan RSS. Awalnya saya memiliki skrip yang menghasilkan file maildir untuk mu4e, tetapi ternyata saya hanya mengikuti tautan ke browser dan kemudian membooking yang menarik, jadi sekarang saya hanya membuat daftar ** [[uri][title]]baris. Setelah saya mengikuti tautan dari emacs ke browser uzbl, alih-alih bookmark (yang menghasilkan bentuk garis yang sama), saya menggunakan perintah ini untuk memindahkan tautan ke bookmarks.org saya setelah mengatur tag. Hanya sedikit lebih cepat karena saya juga menggunakan perintah kecepatan org, tuntuk menandai dan buntuk perintah ini. Saya senang sekarang dan senang belajar lebih banyak tentang elisp!