如何让 org-mobile 正常工作？

Question

我一直在尝试让 org-mobile 在我的机器上工作，几乎不需要 成功。我已阅读此邮件列表中的许多先前答案，但没有 有用。

当我尝试运行 org-mobile-push 时，我在迷你缓冲区中收到错误：“错误 类型参数：listp，todo”。

我已附加错误的回溯和我的组织模式设置。我还 附加了“todo”变量的调试器评估，我认为（我不是 擅长 elisp) 导致了错误。

谁能告诉我如何让 org-mobile-push 正常工作？

干杯!

---- Backtrace 和 org 设置如下 ----

Debugger entered--Lisp error: (void-variable todo)
 eval(todo)
 eval-expression(todo)
 debugger-eval-expression(todo)
 call-interactively(debugger-eval-expression nil nil)
 recursive-edit()
 byte-code("\306^P
@\307=\203!^@\310\311\312\"\210\313\311!\211^ZA@)\242\314=\203!^@\310\315\312\"\210\316^K!\210\317
\210\320
!\210\f\203d^@\321ed\"^MV\203W^@eb\210\322^M\245y\210`^^^[db\210\322^M\245^MZy\210^N^[`|\210)\323c\210eb\210\324\325\326
\"\210\327\306!\210\324\330!\210\331\312^^^\^^^]\324\330!\210\212\332
\210+\331\207" [unread-command-char debugger-args x debugger-buffer
noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t
backtrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer
count-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil
recursive-edit middlestart buffer-read-only standard-output] 4)

Debugger entered--Lisp error: (wrong-type-argument listp todo)
 car(todo)
 (setq type (car e) match (nth 1 e) settings (nth 2 e))
 (while (setq e (pop cmds)) (setq type (car e) match (nth 1 e) settings
(nth 2 e)) (setq settings (append gsettings settings)) (setq settings (cons
... settings)) (push (list type match settings) new))
 (cond ((stringp ...)) ((eq ... ...)) ((memq ... ...)) ((and ... ...))
((memq ... ...) (setq key ... desc ... type ... match ... settings ...)
(setq settings ...) (push ... new)) ((or ... ...)) (t (setq gkey ... gdesc
... gsettings ... cmds ...) (setq cnt 0) (while ... ... ... ... ...)))
 (while (setq e (pop thelist)) (cond (...) (...) (...) (...) (... ... ...
...) (...) (t ... ... ...)))
 (let ((custom-list ...) (default-list ...) thelist new e key desc type
match settings cmds gkey gdesc gsettings cnt) (cond (... ...) (... ...)
(... ... ... ...) (... ... ...)) (while (setq e ...) (cond ... ... ... ...
... ... ...)) (and new (list "X" "SUMO" ... ...)))
 org-mobile-sumo-agenda-command()
 (let* ((file ...) (file1 ...) (sumo ...) (org-agenda-custom-commands ...)
(org-mobile-creating-agendas t)) (unless (file-writable-p file1) (error
"Cannot write to file %s" file1)) (when sumo (org-store-agenda-views))
(when org-mobile-use-encryption (org-mobile-encrypt-and-move file1 file)
(delete-file file1) (org-mobile-cleanup-encryption-tempfile)))
 org-mobile-create-sumo-agenda()
 (let ((inhibit-redisplay t)) (org-mobile-create-sumo-agenda))
 (save-window-excursion (run-hooks (quote org-mobile-pre-push-hook))
(org-mobile-check-setup) (org-mobile-prepare-file-lists) (message "Creating
agendas...") (let (...) (org-mobile-create-sumo-agenda)) (message "Creating
agendas...done") (org-save-all-org-buffers) (message "Copying files...")
(org-mobile-copy-agenda-files) (message "Writing index file...")
(org-mobile-create-index-file) (message "Writing checksums...")
(org-mobile-write-checksums) (run-hooks (quote org-mobile-post-push-hook)))
 (save-excursion (save-window-excursion (run-hooks ...)
(org-mobile-check-setup) (org-mobile-prepare-file-lists) (message "Creating
agendas...") (let ... ...) (message "Creating agendas...done")
(org-save-all-org-buffers) (message "Copying files...")
(org-mobile-copy-agenda-files) (message "Writing index file...")
(org-mobile-create-index-file) (message "Writing checksums...")
(org-mobile-write-checksums) (run-hooks ...)))
 (let ((org-agenda-buffer-name "*SUMO*") (org-agenda-filter
org-agenda-filter) (org-agenda-redo-command org-agenda-redo-command))
(save-excursion (save-window-excursion ... ... ... ... ... ... ... ... ...
... ... ... ... ...)))
 (let ((a-buffer ...)) (let (... ... ...) (save-excursion ...))
(redraw-display) (when (and a-buffer ...) (if ... ... ...)))
 org-mobile-push()
 call-interactively(org-mobile-push t nil)
 execute-extended-command(nil)
 call-interactively(execute-extended-command nil nil)

Emacs ：GNU Emacs 23.2.1（i686-pc-linux-gnu，GTK+ 版本 2.24.4） rothera 上的 2011-04-04 的版本，由 Debian 修改 软件包：Org-mode 版本 7.7

当前状态：

(setq
 org-log-done 'time
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-speed-command-hook '(org-speed-command-default-hook
             org-babel-speed-command-hook)
 org-agenda-custom-commands '(("c" "TODO list, Priority down" todo
"NEXTACTION"
                  ((org-agenda-sorting-strategy (quote (priority-down)))
               )
                  ("/media/sf_Conor/todolistprioritydown.ps"))
                 ("x" "Todo List and Agenda"
                  (todo (quote (priority-down))
               (agenda "" (org-agenda-ndays 1)))
                  ((org-agenda-sorting-strategy (quote (time-up))))
                  ("/media/sf_Conor/todolistprioritydown.ps"))
                 ("w" "other Work" tags-todo "DONE"
                  ((org-agenda-files
                (quote
                 ("/media/sf_Conor/Dropbox/Orgmode/2011/todo.org"))
                )
               (org-agenda-sorting-strategy
                (quote (priority-up effort-down)))
               )
                  ("/media/sf_Conor/computer.html"))
                 ("p" "Priority List" tags-todo
                  ((org-agenda-sorting-strategy (quote (priority-up)))))
                 )
 org-agenda-files '("/media/sf_Conor/Dropbox/Orgmode/2011/
accountmanagement.org"
           "/media/sf_Conor/Dropbox/Orgmode/2011/heritage.org"
           "/media/sf_Conor/Dropbox/Orgmode/2011/arbitrage.org"
           "/media/sf_Conor/Dropbox/Orgmode/2011/kontagent.org"
           "/media/sf_Conor/Dropbox/Orgmode/2011/todo.org")
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-agenda-exporter-settings '((ps-number-of-columns 2) (ps-landscape-mode
t)
               (org-agenda-add-entry-text-maxlines 5)
               (htmlize-output-type (quote css)))
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-after-todo-state-change-hook '(wicked/org-clock-out-if-waiting
                   wicked/org-clock-in-if-starting
                   org-clock-out-if-current)
 org-agenda-todo-ignore-scheduled t
 org-show-entry-below t
 org-export-blocks-postblock-hook '(org-exp-res/src-name-cleanup)
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-mobile-inbox-for-pull "/media/sf_Conor/Dropbox/Orgmode/2011/
from-mobile.org"
 org-tab-first-hook '(org-hide-block-toggle-maybe
org-src-native-tab-command-maybe
             org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
            org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-clock-persist t
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-agenda-start-with-follow-mode t
 org-directory "/media/sf_Conor/Dropbox/Orgmode/2011/"
 org-export-docbook-xslt-proc-command ""
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
         org-cycle-show-empty-lines
         org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook
'(org-remove-file-link-modifiers)
 org-agenda-dim-blocked-tasks nil
 org-mode-hook '((lambda nil (org-set-local (quote yas/trigger-key) [tab])
         (define-key yas/keymap [tab] (quote yas/next-field-group))
         (define-key org-mode-map "\301"
          (quote org-archive-to-archive-sibling))
         )
        org-clock-load
        (lambda nil
         (org-add-hook (quote change-major-mode-hook)
          (quote org-show-block-all) (quote append) (quote local))
         )
        (lambda nil
         (org-add-hook (quote change-major-mode-hook)
          (quote org-babel-show-result-all) (quote append) (quote local))
         )
        org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-refile-targets '(:level . 2)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
org-babel-execute-safely-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-interblocks '((lob org-babel-exp-lob-one-liners)
             (src org-babel-exp-inline-src-blocks))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-enforce-todo-dependencies t
 org-occur-hook '(org-first-headline-recenter)
 org-from-is-user-regexp "\\<Conor Nash\\>"
 org-mobile-directory "/media/sf_Conor/Dropbox/MobileOrg/"
 org-export-preprocess-before-selecting-backend-code-hook
'(org-beamer-select-beamer-code)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc
                  org-beamer-auto-fragile-frames
                  org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil)
            (comment org-export-blocks-format-comment t)
            (ditaa org-export-blocks-format-ditaa nil)
            (dot org-export-blocks-format-dot nil))
 )

Answer 1

我相信您的问题出在 org-agenda-custom-commands 变量上。特别是您的值

("x" "Todo List and Agenda"
 (todo (quote (priority-down))
       (agenda "" (org-agenda-ndays 1)))
 ((org-agenda-sorting-strategy (quote (time-up))))
 ("/media/sf_Conor/todolistprioritydown.ps"))

是导致问题的原因，至少当我像您一样设置 org-agenda-custom-commands 并运行 Mx org-agenda 时，我会得到相同的错误RET x。更改它的值以

("x" "Todo List and Agenda"
 ((todo (quote (priority-down)))
  (agenda "" ((org-agenda-ndays 1))))
 ((org-agenda-sorting-strategy (quote (time-up))))
 ("/media/sf_Conor/todolistprioritydown.ps"))

“修复”错误，但我不知道它是否真的达到了您想要的效果。请注意，有两个地方有额外的括号：(todo (quote (priority-down))) 和 ((org-agenda-ndays 1)) 周围。

Answer 2

也不知道回溯不是 elisper，但我已经使用以下帖子设置了我的回溯，

http://nakkaya.com/2010/03/19/org-mode-in-your-pocket-setting-up-mobileorg/