浏览代码

Add menu commands for MobileOrg in the Org menu

Carsten Dominik 15 年之前
父节点
当前提交
4f58389074
共有 2 个文件被更改,包括 8 次插入0 次删除
  1. 1 0
      lisp/ChangeLog
  2. 7 0
      lisp/org.el

+ 1 - 0
lisp/ChangeLog

@@ -16,6 +16,7 @@
 2009-09-15  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org.el (org-autoload): Autoload org-mobile.el.
+	(org-org-menu): Add menu commands for MobileOrg in the Org menu.
 
 	* org-id.el (org-id-get): Fix bug with forcing ID on an item.
 

+ 7 - 0
lisp/org.el

@@ -15499,6 +15499,13 @@ See the individual commands for more information."
       :style toggle :selected (and (boundp 'org-export-with-LaTeX-fragments)
 				   org-export-with-LaTeX-fragments)])
     "--"
+    ("MobileOrg"
+     ["Push Files and Views" org-mobile-push t]
+     ["Pull Captured and Flagged" org-mobile-pull t]
+     ["Find FLAGGED Tasks" (org-agenda nil "?") t]
+     "--"
+     ["Setup" (progn (require 'org-mobile) (customize-group 'org-mobile)) t])
+    "--"
     ("Documentation"
      ["Show Version" org-version t]
      ["Info Documentation" org-info t])