Как мне заставить org-mobile работать правильно? - PullRequest
2 голосов
/ 12 ноября 2011

Я пытался заставить org-mobile работать на моей машине без особого успеха.Я прочитал много предыдущих ответов из этого списка рассылки, но безрезультатно.

Когда я пытаюсь запустить org-mobile-push, я получаю сообщение об ошибке в минибуфере: «Неверный аргумент типа: listp, todo».

Я добавил Backtrace ошибки и мои настройки режима org.Я также прикрепил отладочную переменную переменной "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) от 2011-04-04 для rothera, модифицированная Debian Пакет: версия в режиме Org 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))
 )

Ответы [ 2 ]

5 голосов
/ 13 ноября 2011

Я считаю, что ваша проблема с переменной 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, как вы, и запускаете M-x 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)).

1 голос
/ 12 ноября 2011

Не знаю насчет backtracenot и elisper, но я настроил мой, используя следующий пост,

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

...