如何在組織議程中批量復制

Question

搜索議程后，我想批量復制標記的條目。

批量操作分派器僅允許批量重新歸檔。 （而且我不想修改變量org-refile-keep。）

此批量操作的自定義功能應如何顯示？

組織機構手冊在http://orgmode.org/manual/Agenda-commands.html#index-B-1429中給出了自定義函數的示例，但org-set-property "CATEGORY" "web" org-copy替換了org-set-property "CATEGORY" "web"不能解決問題，因為該函數將針對執行該命令的每個條目詢問目的地。

Answer 1

該答案假定原始發布者想要從主待辦文件中復制整個子樹，而不是復制*Org Agenda*緩沖區中的摘錄（已編輯版本）。

標記您的條目，打字母B ，然后打字母f ，然后鍵入org-agenda-bulk-copy-subtree ，然后打RET 。 原始張貼者可能希望修改數據收集部分，以將條目推送到列表等。

[ CAVEAT ：在我的測試中，似乎org-agenda-bulk-action破壞/移動了標記（肉眼不可見），因此，如果需要執行其他任何工作，則有必要重建*Org Agenda*緩沖區標記返回主待辦文件。 或者，也許我們可以克隆/復制*Org Agenda*緩沖區並使用一個臨時緩沖區，以便不更改原始緩沖區？]

(defun org-agenda-bulk-copy-subtree ()
"Doc-string"
(interactive)
  (or (eq major-mode 'org-agenda-mode) (error "Not in agenda"))
  (let* ((marker (or (org-get-at-bol 'org-marker) (org-agenda-error)))
         (buffer (marker-buffer marker))
         (pos (marker-position marker))
         (output-buf (get-buffer-create "*RESULTS*")))
   (with-current-buffer buffer
     (goto-char pos)
     (org-back-to-heading t)
     (org-copy-subtree))
   (with-current-buffer output-buf
     (insert org-subtree-clip "\n"))
   (unless (get-buffer-window output-buf)
    (display-buffer output-buf t))))