瀏覽代碼

Add key bindings for MobileOrg support

Carsten Dominik 15 年之前
父節點
當前提交
3651c206ee
共有 2 個文件被更改,包括 8 次插入4 次删除
  1. 4 2
      lisp/org-agenda.el
  2. 4 2
      lisp/org.el

+ 4 - 2
lisp/org-agenda.el

@@ -1452,6 +1452,8 @@ The following commands are available:
 (org-defkey org-agenda-mode-map "\\" 'org-agenda-filter-by-tag-refine)
 (org-defkey org-agenda-mode-map ";" 'org-timer-set-timer)
 (define-key org-agenda-mode-map "?" 'org-agenda-show-the-flagging-note)
+(org-defkey org-agenda-mode-map "\C-c\C-xmg"    'org-mobile-pull)
+(org-defkey org-agenda-mode-map "\C-c\C-xmp"    'org-mobile-push)
 
 (defvar org-agenda-keymap (copy-keymap org-agenda-mode-map)
   "Local keymap for agenda entries from Org-mode.")
@@ -1596,8 +1598,8 @@ The following commands are available:
     "--"
     ("MobileOrg"
      ["Push Files and Views" org-mobile-push t]
-     ["Pull Captured and Flagged" org-mobile-pull t]
-     ["Find FLAGGED Tasks" (org-agenda nil "?") t]
+     ["Get Captured and Flagged" org-mobile-pull t]
+     ["Find FLAGGED Tasks" (org-agenda nil "?") :active t :keys "C-c a ?"]
      ["Show note / unflag" org-agenda-show-the-flagging-note t]
      "--"
      ["Setup" (progn (require 'org-mobile) (customize-group 'org-mobile)) t])

+ 4 - 2
lisp/org.el

@@ -14377,6 +14377,8 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]."
 (org-defkey org-mode-map "\C-c:"    'org-toggle-fixed-width-section)
 (org-defkey org-mode-map "\C-c\C-x\C-f" 'org-emphasize)
 (org-defkey org-mode-map "\C-c\C-xf"    'org-footnote-action)
+(org-defkey org-mode-map "\C-c\C-xmg"    'org-mobile-pull)
+(org-defkey org-mode-map "\C-c\C-xmp"    'org-mobile-push)
 (org-defkey org-mode-map [?\C-c (control ?*)] 'org-list-make-subtree)
 ;;(org-defkey org-mode-map [?\C-c (control ?-)] 'org-list-make-list-from-subtree)
 
@@ -15501,8 +15503,8 @@ See the individual commands for more information."
     "--"
     ("MobileOrg"
      ["Push Files and Views" org-mobile-push t]
-     ["Pull Captured and Flagged" org-mobile-pull t]
-     ["Find FLAGGED Tasks" (org-agenda nil "?") t]
+     ["Get Captured and Flagged" org-mobile-pull t]
+     ["Find FLAGGED Tasks" (org-agenda nil "?") :active t :keys "C-c a ?"]
      "--"
      ["Setup" (progn (require 'org-mobile) (customize-group 'org-mobile)) t])
     "--"