如何将org-agenda视图导出成一个org文件

用于与手机的同步,否则需要将所有的org文件传到手机才可以用手机上的app打开,而其实我关心的只是日程相关的文件,所以将org-agenda视图的内容导出即可。记得最早的org-mobile解决方案也是这个路子。

其实在org-agenda视图时,就可以使用 C-x C-w 或 M-x org-agenda-write 来保存。这里选择文件类型的话,会保存成不同的格式,如果选择org格式的话,则会把涉及的所有org条目,只把涉及的这一个层级,拼在一起导出。

我需要的是每次运行org-agenda的时候,自动导出到指定目录,而且如果有重复文件的话,自动覆盖。

(defun ian/org-agenda-save ()
  "Save org-agenda view to a specified file."
  (let ((file "~/path/to/your/agenda.org")) ; 替换为您想要保存的文件路径

    (with-current-buffer (get-buffer "*Org Agenda*")
      (org-agenda-write file))))

(add-hook 'org-agenda-finalize-hook 'ian/org-agenda-save)
海上一民工

Related