emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Xin Shi <shixin111@gmail.com>
To: nicholas.dokos@hp.com
Cc: emacs-orgmode <emacs-orgmode@gnu.org>
Subject: Re: Error when push fils in MobileOrg
Date: Fri, 4 Dec 2009 17:38:57 -0500	[thread overview]
Message-ID: <5236d6f90912041438t70c8cf42hc8b7337cb8028845@mail.gmail.com> (raw)
In-Reply-To: <16227.1259878615@gamaville.dokosmarshall.org>


[-- Attachment #1.1: Type: text/plain, Size: 6429 bytes --]

Hi Nick,

Thanks for your info.

I did what that page suggested and here is the debug info: (Emacs 23.1 and
Orgmode 6.33b)


Debugger entered--Lisp error: (wrong-type-argument listp "TODO")
  cdr("TODO")
  (mapcar (lambda (x) (if ... ... x)) (cdr entry))
  (setq kwds (mapcar (lambda ... ...) (cdr entry)))
  (while (setq entry (pop def-todo)) (insert "#+READONLY\n") (setq kwds
(mapcar ... ...)) (insert "#+TODO: " (mapconcat ... kwds " ") "\n") (setq
dwds (member "|" kwds) twds (org-delete-all dwds kwds) todo-kwds
(org-delete-all twds todo-kwds) done-kwds (org-delete-all dwds done-kwds)))
  (save-current-buffer (set-buffer temp-buffer) (while (setq entry ...)
(insert "#+READONLY\n") (setq kwds ...) (insert "#+TODO: " ... "\n") (setq
dwds ... twds ... todo-kwds ... done-kwds ...)) (when (or todo-kwds
done-kwds) (insert "#+TODO: " ... " | " ... "\n")) (setq def-tags (mapcar
... def-tags)) (setq def-tags (delq nil def-tags)) (setq tags
(org-delete-all def-tags tags)) (setq tags (sort tags ...)) (setq tags
(append def-tags tags nil)) (insert "#+TAGS: " (mapconcat ... tags " ")
"\n") (insert "#+DRAWERS: " (mapconcat ... drawers " ") "\n") (insert
"#+ALLPRIORITIES: A B C" "\n") (when (file-exists-p ...) (insert "* [[file:
agendas.org][Agenda Views]]\n")) (while (setq entry ...) (setq file ...
link-name ...) (insert ...)) (push (cons org-mobile-index-file ...)
org-mobile-checksum-files))
  (with-current-buffer temp-buffer (while (setq entry ...) (insert
"#+READONLY\n") (setq kwds ...) (insert "#+TODO: " ... "\n") (setq dwds ...
twds ... todo-kwds ... done-kwds ...)) (when (or todo-kwds done-kwds)
(insert "#+TODO: " ... " | " ... "\n")) (setq def-tags (mapcar ...
def-tags)) (setq def-tags (delq nil def-tags)) (setq tags (org-delete-all
def-tags tags)) (setq tags (sort tags ...)) (setq tags (append def-tags tags
nil)) (insert "#+TAGS: " (mapconcat ... tags " ") "\n") (insert "#+DRAWERS:
" (mapconcat ... drawers " ") "\n") (insert "#+ALLPRIORITIES: A B C" "\n")
(when (file-exists-p ...) (insert "* [[file:agendas.org][Agenda Views]]\n"))
(while (setq entry ...) (setq file ... link-name ...) (insert ...)) (push
(cons org-mobile-index-file ...) org-mobile-checksum-files))
  (prog1 (with-current-buffer temp-buffer (while ... ... ... ... ...) (when
... ...) (setq def-tags ...) (setq def-tags ...) (setq tags ...) (setq tags
...) (setq tags ...) (insert "#+TAGS: " ... "\n") (insert "#+DRAWERS: " ...
"\n") (insert "#+ALLPRIORITIES: A B C" "\n") (when ... ...) (while ... ...
...) (push ... org-mobile-checksum-files)) (with-current-buffer temp-buffer
(write-region nil nil temp-file nil 0)))
  (unwind-protect (prog1 (with-current-buffer temp-buffer ... ... ... ...
... ... ... ... ... ... ... ... ...) (with-current-buffer temp-buffer ...))
(and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-file ...) (temp-buffer ...)) (unwind-protect (prog1 ... ...)
(and ... ...)))
  (with-temp-file (expand-file-name org-mobile-index-file
org-mobile-directory) (while (setq entry ...) (insert "#+READONLY\n") (setq
kwds ...) (insert "#+TODO: " ... "\n") (setq dwds ... twds ... todo-kwds ...
done-kwds ...)) (when (or todo-kwds done-kwds) (insert "#+TODO: " ... " | "
... "\n")) (setq def-tags (mapcar ... def-tags)) (setq def-tags (delq nil
def-tags)) (setq tags (org-delete-all def-tags tags)) (setq tags (sort tags
...)) (setq tags (append def-tags tags nil)) (insert "#+TAGS: " (mapconcat
... tags " ") "\n") (insert "#+DRAWERS: " (mapconcat ... drawers " ") "\n")
(insert "#+ALLPRIORITIES: A B C" "\n") (when (file-exists-p ...) (insert "*
[[file:agendas.org][Agenda Views]]\n")) (while (setq entry ...) (setq file
... link-name ...) (insert ...)) (push (cons org-mobile-index-file ...)
org-mobile-checksum-files))
  (let ((files-alist ...) (def-todo ...) (def-tags ...) file link-name
todo-kwds done-kwds tags drawers entry kwds dwds twds)
(org-prepare-agenda-buffers (mapcar ... files-alist)) (setq done-kwds
(org-uniquify org-done-keywords-for-agenda)) (setq todo-kwds (org-delete-all
done-kwds ...)) (setq drawers (org-uniquify org-drawers-for-agenda)) (setq
tags (org-uniquify ...)) (with-temp-file (expand-file-name
org-mobile-index-file org-mobile-directory) (while ... ... ... ... ...)
(when ... ...) (setq def-tags ...) (setq def-tags ...) (setq tags ...) (setq
tags ...) (setq tags ...) (insert "#+TAGS: " ... "\n") (insert "#+DRAWERS: "
... "\n") (insert "#+ALLPRIORITIES: A B C" "\n") (when ... ...) (while ...
... ...) (push ... org-mobile-checksum-files)))
  org-mobile-create-index-file()
  (save-window-excursion (org-mobile-check-setup)
(org-mobile-prepare-file-lists) (run-hooks (quote org-mobile-pre-push-hook))
(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 (org-mobile-check-setup)
(org-mobile-prepare-file-lists) (run-hooks ...) (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 nil nil)

Thanks!

Xin


On Thu, Dec 3, 2009 at 5:16 PM, Nick Dokos <nicholas.dokos@hp.com> wrote:

> Xin Shi <shixin111@gmail.com> wrote:
>
> > Hello Experts,
> >
> > I'm using Emacs 23.1 with orgmode 6.33b.
> >
> > When I use "Push Files and Views" in MobileOrg in Emacs, I got error
> message:
> >
> > Writing index file...
> > byte-code: Wrong type argument: listp, "TODO"
> >
> > Any suggestions?
> >
>
> The topic is different but the suggestion still holds:
>
>    http://thread.gmane.org/gmane.emacs.orgmode/20039/focus=20040
>
> Nick
>

[-- Attachment #1.2: Type: text/html, Size: 7979 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

  reply	other threads:[~2009-12-04 22:39 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-12-03 21:56 Error when push fils in MobileOrg Xin Shi
2009-12-03 22:16 ` Nick Dokos
2009-12-04 22:38   ` Xin Shi [this message]
2009-12-04 23:25     ` Nick Dokos
2009-12-05  4:34       ` Xin Shi

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=5236d6f90912041438t70c8cf42hc8b7337cb8028845@mail.gmail.com \
    --to=shixin111@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=nicholas.dokos@hp.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).