org-refile do znanej stałej lokalizacji

Próbuję napisać funkcję, która pobierze nagłówek i ponownie umieści go w jednym określonym miejscu. Dokument dla org-refilejest

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

i RFLOCjest

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

ale nie mam pojęcia, jaki byłby „inny sposób”, a od pół dnia googlowałem i nie widziałem żadnych przykładów. Znam plik i znam nagłówek celu, ale nie znam składni, aby sformułować go tak, jak chce. Najbliższe, jakie dostałem, to:

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

która poprosi mnie o nagłówek, ale oczywiście nie chcę, żeby mnie o to pytał, chcę go podać.

Jestem nowy w elisp i zgaduję przy każdej składni, jaką mogę wymyślić. Czy ktoś wie jak to sformułować?

Zastanawiałem się, jak powinien wyglądać RFLOC wcześniej, ale nigdy nie zbadałem. Patrząc na kod źródłowy organizacji, powinna to być lista składająca się z:

• nagłówek
• plik
• re (wyrażenie regularne)
• pos (pozycja docelowego kursu)

Nie eksperymentowałem z tym reelementem, ale oto prosta funkcja, która wywoła się org-refilez RFLOC zbudowanym z danego PLIKU i GŁOWY:

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

Spowoduje to otwarcie pliku docelowego i użycie funkcji organizacji w celu znalezienia pozycji docelowego nagłówka, a następnie utworzenie listy RFLOC do przekazania org-refile.

Dzięki bardzo @glucas, opracowałem twoje rozwiązanie do mojego ostatniego. Kluczową informacją była znajomość formatu RFLOC. Eksperymentowałem z dostarczeniem listy nazw plików i tekstu nagłówka, ale brakowało mi tych innych elementów i dodatkowego zero. Właśnie z tym skończyłem:

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

Dokument dla save-excursionpaństw stwierdza, że ​​wrócimy do miejsca, od którego zaczęliśmy, ale wydaje się, że tak nie działa. Pozostawia mnie w docelowym miejscu docelowym, co może być właściwe dla generała refile-to, ale chciałem, aby przesunęło linię i pozostało tam, gdzie byłem, więc zapisuję i przywracam refile-to-bookmark.

Przepływ pracy, do którego to jest przeznaczone, polega na tym, że zaczynam od listy linków HTML pochodzących z mojego skryptu do czytania kanałów RSS. Początkowo miałem skrypt do tworzenia plików maildir dla mu4e, ale i tak po prostu podążałem za linkami do przeglądarki, a następnie dodawałem do zakładek te, które są interesujące, więc teraz po prostu generuję listę ** [[uri][title]]linii. Po kliknięciu linku z emacsa do przeglądarki uzbl zamiast zakładek (która generuje tę samą formę linii) używam tego polecenia, aby przenieść link do mojego bookmarks.org po ustawieniu tagów. Tylko trochę szybciej, ponieważ używam również org-polecenie prędkości, taby oznaczyć i bdla tego polecenia. Jestem teraz szczęśliwy i uwielbiam uczyć się więcej elisp!