emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* org-mobile produces errors in normal org functions
@ 2010-07-07 19:30 Sven Bretfeld
  2010-07-13 12:21 ` Carsten Dominik
  0 siblings, 1 reply; 6+ messages in thread
From: Sven Bretfeld @ 2010-07-07 19:30 UTC (permalink / raw)
  To: emacs-org

Hi all

I have strange errors since I'm working with org-mobile. They seem to
have to do with the hash-code.

The first error: org-mobile-push results in a Wrong-type-argument. A
debug-message is included at the end of this mail. After an unsuccessful
run of this function, the buffers of the included org-files display the
** symbol in the status line, although the buffers haven't been changed
at all. Strangely enough, after trying three of four times the command
succeeds at last.

But that's not all. Similar errors occur when I run org-archive-subtree.
Since I work with org-mobile my entries contain an automatically
produced property of the form:

    :PROPERTIES:
    :ID:       8307e0ed-6936-4c88-b25f-d9729873f047
    :END:

If I delete this property, org-archive-subtree works on the respective
entry.

I use the same configuration on two computers, both running Ubuntu
Lucid, Emacs 23.1.1 and the most recent version of org. These errors
occur only on one of the computers (the one I use to sync my org files
with a webdav server using org-mobile, if that's relevant).

Does anybody have an idea what could be wrong here?

Thanks for help,

Sven

Debugger entered--Lisp error: (wrong-type-argument hash-table-p (("~/aktuell/myconf/from-mobile.org" "cd2fdb6d-1ca6-45e7-b0d6-02044edcbbb9") ("~/aktuell/myconf/from-mobile.org" "fdcc85e2-51c8-4d3d-827c-396687ca5a13") ("~/aktuell/myconf/from-mobile.org" "a6a22b75-e0fe-44fb-b5d0-a61500218760") ("~/aktuell/myconf/from-mobile.org" "2dce7212-3994-4ccc-a964-6569914fc17f") ("~/aktuell/myconf/from-mobile.org" "177580d9-f0f0-472b-90d0-278bf503e07d") ("~/aktuell/myconf/mygtd.org" "c4ceb0b6-b854-41ab-91b6-e3b1d40d8289") ("~/aktuell/myconf/mygtd.org" "8850e02f-9e33-456b-8654-e55cf1604036") ("~/aktuell/myconf/mygtd.org" "593cf7d5-5db7-4b39-bc7f-190c4acb4f51") ("~/aktuell/myconf/mygtd.org" "f20acbfb-c03c-4b08-bd22-d1b614dc7688") ("~/aktuell/myconf/mygtd.org" "c76519fa-c2ba-434c-b3e2-e3838b72e6e3") \.\.\
 .))
  puthash("5a8cfb4f-3e43-4581-982b-44e0adcacac6" "~/aktuell/myconf/mygtd.org" (("~/aktuell/myconf/from-mobile.org" "cd2fdb6d-1ca6-45e7-b0d6-02044edcbbb9") ("~/aktuell/myconf/from-mobile.org" "fdcc85e2-51c8-4d3d-827c-396687ca5a13") ("~/aktuell/myconf/from-mobile.org" "a6a22b75-e0fe-44fb-b5d0-a61500218760") ("~/aktuell/myconf/from-mobile.org" "2dce7212-3994-4ccc-a964-6569914fc17f") ("~/aktuell/myconf/from-mobile.org" "177580d9-f0f0-472b-90d0-278bf503e07d") ("~/aktuell/myconf/mygtd.org" "c4ceb0b6-b854-41ab-91b6-e3b1d40d8289") ("~/aktuell/myconf/mygtd.org" "8850e02f-9e33-456b-8654-e55cf1604036") ("~/aktuell/myconf/mygtd.org" "593cf7d5-5db7-4b39-bc7f-190c4acb4f51") ("~/aktuell/myconf/mygtd.org" "f20acbfb-c03c-4b08-bd22-d1b614dc7688") ("~/aktuell/myconf/mygtd.org" "c76519fa-c2ba-434c-b3e2-e3838b
 72e6e3") \.\.\.))
  (progn (unless org-id-locations (org-id-locations-load)) (puthash id (abbreviate-file-name file) org-id-locations) (add-to-list (quote org-id-files) (abbreviate-file-name file)))
  (if (and org-id-track-globally id file) (progn (unless org-id-locations ...) (puthash id ... org-id-locations) (add-to-list ... ...)))
  (when (and org-id-track-globally id file) (unless org-id-locations (org-id-locations-load)) (puthash id (abbreviate-file-name file) org-id-locations) (add-to-list (quote org-id-files) (abbreviate-file-name file)))
  org-id-add-location("5a8cfb4f-3e43-4581-982b-44e0adcacac6" "/home/sven/aktuell/myconf/mygtd.org")
  (cond ((and id ... ...) id) (create (setq id ...) (org-entry-put pom "ID" id) (org-id-add-location id ...) id) (t nil))
  (let ((id ...)) (cond (... id) (create ... ... ... id) (t nil)))
  (save-excursion (goto-char (or pom ...)) (let (...) (cond ... ... ...)))
  (save-excursion (if (markerp pom) (set-buffer ...)) (save-excursion (goto-char ...) (let ... ...)))
  (org-with-point-at pom (let (...) (cond ... ... ...)))
  org-id-get(#<marker at 1665 in mygtd.org> create)
  (if (org-bound-and-true-p org-mobile-force-id-on-agenda-items) (org-id-get m (quote create)) (org-entry-get m "ID"))
  (setq id (if (org-bound-and-true-p org-mobile-force-id-on-agenda-items) (org-id-get m ...) (org-entry-get m "ID")))
  (if (setq id (if ... ... ...)) (progn (insert "   :PROPERTIES:\n   :ORIGINAL_ID: " id "\n   :END:\n")))
  (when (setq id (if ... ... ...)) (insert "   :PROPERTIES:\n   :ORIGINAL_ID: " id "\n   :END:\n"))
  (if sexp nil (insert (org-agenda-get-some-entry-text m 10 "   " ...) "\n") (when (setq id ...) (insert "   :PROPERTIES:\n   :ORIGINAL_ID: " id "\n   :END:\n")))
  (unless sexp (insert (org-agenda-get-some-entry-text m 10 "   " ...) "\n") (when (setq id ...) (insert "   :PROPERTIES:\n   :ORIGINAL_ID: " id "\n   :END:\n")))
  (cond ((looking-at "[ 	]*$")) ((looking-at "=+$") (delete-region ... ...)) ((get-text-property ... ...) (setq in-date nil) (setq app ...) (setq short ...) (when ... ... ...) (when app ... ... ...) (insert "* ")) ((get-text-property ... ...) (setq in-date t) (insert "** ")) ((setq m ...) (setq sexp ...) (if ... ... ...) (insert ...) (end-of-line 1) (insert "\n") (unless sexp ... ...)))
  (while (not (eobp)) (cond (...) (... ...) (... ... ... ... ... ... ...) (... ... ...) (... ... ... ... ... ... ...)) (beginning-of-line 2))
  (save-current-buffer (set-buffer temp-buffer) (org-mode) (insert "#+READONLY\n") (insert all) (goto-char (point-min)) (while (not ...) (cond ... ... ... ... ...) (beginning-of-line 2)) (push (cons ... ...) org-mobile-checksum-files))
  (with-current-buffer temp-buffer (org-mode) (insert "#+READONLY\n") (insert all) (goto-char (point-min)) (while (not ...) (cond ... ... ... ... ...) (beginning-of-line 2)) (push (cons ... ...) org-mobile-checksum-files))
  (prog1 (with-current-buffer temp-buffer (org-mode) (insert "#+READONLY\n") (insert all) (goto-char ...) (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 file) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))
  (with-temp-file file (org-mode) (insert "#+READONLY\n") (insert all) (goto-char (point-min)) (while (not ...) (cond ... ... ... ... ...) (beginning-of-line 2)) (push (cons ... ...) org-mobile-checksum-files))
  (let ((all ...) in-date id pl prefix line app short m sexp) (with-temp-file file (org-mode) (insert "#+READONLY\n") (insert all) (goto-char ...) (while ... ... ...) (push ... org-mobile-checksum-files)) (message "Agenda written to Org file %s" file))
  org-mobile-write-agenda-for-mobile("/home/sven/webdav/org/agendas.org")
  (cond ((org-bound-and-true-p org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile file)) ((string-match "\\.html?\\'" file) (set-buffer ...) (when ... ... ... ...) (write-file file) (kill-buffer ...) (message "HTML written to %s" file)) ((string-match "\\.ps\\'" file) (require ...) (flet ... ...) (message "Postscript written to %s" file)) ((string-match "\\.pdf\\'" file) (require ...) (flet ... ...) (call-process "ps2pdf" nil nil nil ... ...) (message "PDF written to %s" file)) ((string-match "\\.ics\\'" file) (require ...) (let ... ...)) (t (let ... ... ... ... ... ... ...)))
  (progn (insert bs) (org-agenda-remove-marked-text (quote org-filtered)) (while (setq beg ...) (delete-region beg ...)) (run-hooks (quote org-agenda-before-write-hook)) (cond (... ...) (... ... ... ... ... ...) (... ... ... ...) (... ... ... ... ...) (... ... ...) (t ...)))
  (unwind-protect (progn (insert bs) (org-agenda-remove-marked-text ...) (while ... ...) (run-hooks ...) (cond ... ... ... ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ... ... ...) (and ... ...)))
  (with-current-buffer temp-buffer (unwind-protect (progn ... ... ... ... ...) (and ... ...)))
  (let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ... ...)))
  (with-temp-buffer (insert bs) (org-agenda-remove-marked-text (quote org-filtered)) (while (setq beg ...) (delete-region beg ...)) (run-hooks (quote org-agenda-before-write-hook)) (cond (... ...) (... ... ... ... ... ...) (... ... ... ...) (... ... ... ... ...) (... ... ...) (t ...)))
  (let ((bs ...) beg) (org-agenda-unmark-filtered-text) (with-temp-buffer (insert bs) (org-agenda-remove-marked-text ...) (while ... ...) (run-hooks ...) (cond ... ... ... ... ... ...)))
  (save-window-excursion (org-agenda-mark-filtered-text) (let (... beg) (org-agenda-unmark-filtered-text) (with-temp-buffer ... ... ... ... ...)))
  (save-excursion (save-window-excursion (org-agenda-mark-filtered-text) (let ... ... ...)))
  (let nil (save-excursion (save-window-excursion ... ...)) #<buffer *SUMO*>)
  eval((let nil (save-excursion (save-window-excursion ... ...)) #<buffer *SUMO*>))
  org-let(nil (save-excursion (save-window-excursion (org-agenda-mark-filtered-text) (let ... ... ...))) #<buffer *SUMO*>)
  org-write-agenda("/home/sven/webdav/org/agendas.org" nil t)
  (let ((org-agenda-compact-blocks nil)) (org-write-agenda "/home/sven/webdav/org/agendas.org" nil t))
  eval((let ((org-agenda-compact-blocks nil)) (org-write-agenda "/home/sven/webdav/org/agendas.org" nil t)))
  (while files (eval (list ... ... ...)))
  (progn (eval (list ... ... ...)) (set-buffer org-agenda-buffer-name) (while files (eval ...)) (and (get-buffer org-agenda-buffer-name) (kill-buffer org-agenda-buffer-name)))
  (if files (progn (eval ...) (set-buffer org-agenda-buffer-name) (while files ...) (and ... ...)))
  (when files (eval (list ... ... ...)) (set-buffer org-agenda-buffer-name) (while files (eval ...)) (and (get-buffer org-agenda-buffer-name) (kill-buffer org-agenda-buffer-name)))
  (while cmds (setq cmd (pop cmds) thiscmdkey (car cmd) cmd-or-set (nth 2 cmd) opts (nth ... cmd) files (nth ... cmd)) (if (stringp files) (setq files ...)) (when files (eval ...) (set-buffer org-agenda-buffer-name) (while files ...) (and ... ...)))
  (save-window-excursion (while cmds (setq cmd ... thiscmdkey ... cmd-or-set ... opts ... files ...) (if ... ...) (when files ... ... ... ...)))
  (let ((cmds ...) (pop-up-frames nil) (dir default-directory) pars cmd thiscmdkey files opts cmd-or-set) (while parameters (push ... pars)) (setq pars (reverse pars)) (save-window-excursion (while cmds ... ... ...)))
  (lambda (&rest parameters) "Run all custom agenda commands that have a file argument." (let (... ... ... pars cmd thiscmdkey files opts cmd-or-set) (while parameters ...) (setq pars ...) (save-window-excursion ...)))()
  (org-batch-store-agenda-views)
  eval((org-batch-store-agenda-views))
  org-store-agenda-views()
  (progn (org-store-agenda-views))
  (if sumo (progn (org-store-agenda-views)))
  (when sumo (org-store-agenda-views))
  (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-file file1 file) (delete-file file1)))
  org-mobile-create-sumo-agenda()
  (let ((inhibit-redisplay t)) (org-mobile-create-sumo-agenda))
  (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)

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: org-mobile produces errors in normal org functions
  2010-07-07 19:30 org-mobile produces errors in normal org functions Sven Bretfeld
@ 2010-07-13 12:21 ` Carsten Dominik
  2010-07-13 17:41   ` Sven Bretfeld
  0 siblings, 1 reply; 6+ messages in thread
From: Carsten Dominik @ 2010-07-13 12:21 UTC (permalink / raw)
  To: Sven Bretfeld; +Cc: emacs-org

Hi Sven,

does it help to remove ~/.emacs.d/.org-id-locations ?

Are you sure you are running the same version of Org on both systems?
On Jul 7, 2010, at 9:30 PM, Sven Bretfeld wrote:

> Hi all
>
> I have strange errors since I'm working with org-mobile. They seem to
> have to do with the hash-code.
>
> The first error: org-mobile-push results in a Wrong-type-argument. A
> debug-message is included at the end of this mail. After an  
> unsuccessful
> run of this function, the buffers of the included org-files display  
> the
> ** symbol in the status line, although the buffers haven't been  
> changed
> at all. Strangely enough, after trying three of four times the command
> succeeds at last.
>
> But that's not all. Similar errors occur when I run org-archive- 
> subtree.
> Since I work with org-mobile my entries contain an automatically
> produced property of the form:
>
>    :PROPERTIES:
>    :ID:       8307e0ed-6936-4c88-b25f-d9729873f047
>    :END:
>
> If I delete this property, org-archive-subtree works on the respective
> entry.
>
> I use the same configuration on two computers, both running Ubuntu
> Lucid, Emacs 23.1.1 and the most recent version of org. These errors
> occur only on one of the computers (the one I use to sync my org files
> with a webdav server using org-mobile, if that's relevant).
>
> Does anybody have an idea what could be wrong here?
>
> Thanks for help,
>
> Sven
>
> Debugger entered--Lisp error: (wrong-type-argument hash-table-p (("~/ 
> aktuell/myconf/from-mobile.org" "cd2fdb6d-1ca6-45e7- 
> b0d6-02044edcbbb9") ("~/aktuell/myconf/from-mobile.org"  
> "fdcc85e2-51c8-4d3d-827c-396687ca5a13") ("~/aktuell/myconf/from- 
> mobile.org" "a6a22b75-e0fe-44fb-b5d0-a61500218760") ("~/aktuell/ 
> myconf/from-mobile.org" "2dce7212-3994-4ccc-a964-6569914fc17f") ("~/ 
> aktuell/myconf/from-mobile.org" "177580d9- 
> f0f0-472b-90d0-278bf503e07d") ("~/aktuell/myconf/mygtd.org"  
> "c4ceb0b6-b854-41ab-91b6-e3b1d40d8289") ("~/aktuell/myconf/ 
> mygtd.org" "8850e02f-9e33-456b-8654-e55cf1604036") ("~/aktuell/ 
> myconf/mygtd.org" "593cf7d5-5db7-4b39-bc7f-190c4acb4f51") ("~/ 
> aktuell/myconf/mygtd.org" "f20acbfb-c03c-4b08-bd22-d1b614dc7688")  
> ("~/aktuell/myconf/mygtd.org" "c76519fa-c2ba-434c-b3e2- 
> e3838b72e6e3") \.\.\.))
>  puthash("5a8cfb4f-3e43-4581-982b-44e0adcacac6" "~/aktuell/myconf/ 
> mygtd.org" (("~/aktuell/myconf/from-mobile.org" "cd2fdb6d-1ca6-45e7- 
> b0d6-02044edcbbb9") ("~/aktuell/myconf/from-mobile.org"  
> "fdcc85e2-51c8-4d3d-827c-396687ca5a13") ("~/aktuell/myconf/from- 
> mobile.org" "a6a22b75-e0fe-44fb-b5d0-a61500218760") ("~/aktuell/ 
> myconf/from-mobile.org" "2dce7212-3994-4ccc-a964-6569914fc17f") ("~/ 
> aktuell/myconf/from-mobile.org" "177580d9- 
> f0f0-472b-90d0-278bf503e07d") ("~/aktuell/myconf/mygtd.org"  
> "c4ceb0b6-b854-41ab-91b6-e3b1d40d8289") ("~/aktuell/myconf/ 
> mygtd.org" "8850e02f-9e33-456b-8654-e55cf1604036") ("~/aktuell/ 
> myconf/mygtd.org" "593cf7d5-5db7-4b39-bc7f-190c4acb4f51") ("~/ 
> aktuell/myconf/mygtd.org" "f20acbfb-c03c-4b08-bd22-d1b614dc7688")  
> ("~/aktuell/myconf/mygtd.org" "c76519fa-c2ba-434c-b3e2- 
> e3838b72e6e3") \.\.\.))
>  (progn (unless org-id-locations (org-id-locations-load)) (puthash  
> id (abbreviate-file-name file) org-id-locations) (add-to-list (quote  
> org-id-files) (abbreviate-file-name file)))
>  (if (and org-id-track-globally id file) (progn (unless org-id- 
> locations ...) (puthash id ... org-id-locations) (add-to- 
> list ... ...)))
>  (when (and org-id-track-globally id file) (unless org-id-locations  
> (org-id-locations-load)) (puthash id (abbreviate-file-name file) org- 
> id-locations) (add-to-list (quote org-id-files) (abbreviate-file- 
> name file)))
>  org-id-add-location("5a8cfb4f-3e43-4581-982b-44e0adcacac6" "/home/ 
> sven/aktuell/myconf/mygtd.org")
>  (cond ((and id ... ...) id) (create (setq id ...) (org-entry-put  
> pom "ID" id) (org-id-add-location id ...) id) (t nil))
>  (let ((id ...)) (cond (... id) (create ... ... ... id) (t nil)))
>  (save-excursion (goto-char (or pom ...)) (let (...)  
> (cond ... ... ...)))
>  (save-excursion (if (markerp pom) (set-buffer ...)) (save-excursion  
> (goto-char ...) (let ... ...)))
>  (org-with-point-at pom (let (...) (cond ... ... ...)))
>  org-id-get(#<marker at 1665 in mygtd.org> create)
>  (if (org-bound-and-true-p org-mobile-force-id-on-agenda-items) (org- 
> id-get m (quote create)) (org-entry-get m "ID"))
>  (setq id (if (org-bound-and-true-p org-mobile-force-id-on-agenda- 
> items) (org-id-get m ...) (org-entry-get m "ID")))
>  (if (setq id (if ... ... ...)) (progn (insert "   :PROPERTIES: 
> \n   :ORIGINAL_ID: " id "\n   :END:\n")))
>  (when (setq id (if ... ... ...)) (insert "   :PROPERTIES: 
> \n   :ORIGINAL_ID: " id "\n   :END:\n"))
>  (if sexp nil (insert (org-agenda-get-some-entry-text m 10 "    
> " ...) "\n") (when (setq id ...) (insert "   :PROPERTIES: 
> \n   :ORIGINAL_ID: " id "\n   :END:\n")))
>  (unless sexp (insert (org-agenda-get-some-entry-text m 10 "    
> " ...) "\n") (when (setq id ...) (insert "   :PROPERTIES: 
> \n   :ORIGINAL_ID: " id "\n   :END:\n")))
>  (cond ((looking-at "[ 	]*$")) ((looking-at "=+$") (delete- 
> region ... ...)) ((get-text-property ... ...) (setq in-date nil)  
> (setq app ...) (setq short ...) (when ... ... ...) (when  
> app ... ... ...) (insert "* ")) ((get-text-property ... ...) (setq  
> in-date t) (insert "** ")) ((setq m ...) (setq sexp ...)  
> (if ... ... ...) (insert ...) (end-of-line 1) (insert "\n") (unless  
> sexp ... ...)))
>  (while (not (eobp)) (cond (...) (... ...)  
> (... ... ... ... ... ... ...) (... ... ...)  
> (... ... ... ... ... ... ...)) (beginning-of-line 2))
>  (save-current-buffer (set-buffer temp-buffer) (org-mode) (insert "# 
> +READONLY\n") (insert all) (goto-char (point-min)) (while (not ...)  
> (cond ... ... ... ... ...) (beginning-of-line 2)) (push  
> (cons ... ...) org-mobile-checksum-files))
>  (with-current-buffer temp-buffer (org-mode) (insert "#+READONLY\n")  
> (insert all) (goto-char (point-min)) (while (not ...)  
> (cond ... ... ... ... ...) (beginning-of-line 2)) (push  
> (cons ... ...) org-mobile-checksum-files))
>  (prog1 (with-current-buffer temp-buffer (org-mode) (insert "# 
> +READONLY\n") (insert all) (goto-char ...) (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 file) (temp-buffer ...)) (unwind-protect  
> (prog1 ... ...) (and ... ...)))
>  (with-temp-file file (org-mode) (insert "#+READONLY\n") (insert  
> all) (goto-char (point-min)) (while (not ...)  
> (cond ... ... ... ... ...) (beginning-of-line 2)) (push  
> (cons ... ...) org-mobile-checksum-files))
>  (let ((all ...) in-date id pl prefix line app short m sexp) (with- 
> temp-file file (org-mode) (insert "#+READONLY\n") (insert all) (goto- 
> char ...) (while ... ... ...) (push ... org-mobile-checksum-files))  
> (message "Agenda written to Org file %s" file))
>  org-mobile-write-agenda-for-mobile("/home/sven/webdav/org/ 
> agendas.org")
>  (cond ((org-bound-and-true-p org-mobile-creating-agendas) (org- 
> mobile-write-agenda-for-mobile file)) ((string-match "\\.html?\\'"  
> file) (set-buffer ...) (when ... ... ... ...) (write-file file)  
> (kill-buffer ...) (message "HTML written to %s" file)) ((string- 
> match "\\.ps\\'" file) (require ...) (flet ... ...) (message  
> "Postscript written to %s" file)) ((string-match "\\.pdf\\'" file)  
> (require ...) (flet ... ...) (call-process "ps2pdf" nil nil  
> nil ... ...) (message "PDF written to %s" file)) ((string-match "\ 
> \.ics\\'" file) (require ...) (let ... ...)) (t  
> (let ... ... ... ... ... ... ...)))
>  (progn (insert bs) (org-agenda-remove-marked-text (quote org- 
> filtered)) (while (setq beg ...) (delete-region beg ...)) (run-hooks  
> (quote org-agenda-before-write-hook)) (cond (... ...)  
> (... ... ... ... ... ...) (... ... ... ...) (... ... ... ... ...)  
> (... ... ...) (t ...)))
>  (unwind-protect (progn (insert bs) (org-agenda-remove-marked- 
> text ...) (while ... ...) (run-hooks ...)  
> (cond ... ... ... ... ... ...)) (and (buffer-name temp-buffer) (kill- 
> buffer temp-buffer)))
>  (save-current-buffer (set-buffer temp-buffer) (unwind-protect  
> (progn ... ... ... ... ...) (and ... ...)))
>  (with-current-buffer temp-buffer (unwind-protect  
> (progn ... ... ... ... ...) (and ... ...)))
>  (let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind- 
> protect ... ...)))
>  (with-temp-buffer (insert bs) (org-agenda-remove-marked-text (quote  
> org-filtered)) (while (setq beg ...) (delete-region beg ...)) (run- 
> hooks (quote org-agenda-before-write-hook)) (cond (... ...)  
> (... ... ... ... ... ...) (... ... ... ...) (... ... ... ... ...)  
> (... ... ...) (t ...)))
>  (let ((bs ...) beg) (org-agenda-unmark-filtered-text) (with-temp- 
> buffer (insert bs) (org-agenda-remove-marked-text ...)  
> (while ... ...) (run-hooks ...) (cond ... ... ... ... ... ...)))
>  (save-window-excursion (org-agenda-mark-filtered-text) (let (...  
> beg) (org-agenda-unmark-filtered-text) (with-temp- 
> buffer ... ... ... ... ...)))
>  (save-excursion (save-window-excursion (org-agenda-mark-filtered- 
> text) (let ... ... ...)))
>  (let nil (save-excursion (save-window-excursion ... ...)) #<buffer  
> *SUMO*>)
>  eval((let nil (save-excursion (save-window-excursion ... ...))  
> #<buffer *SUMO*>))
>  org-let(nil (save-excursion (save-window-excursion (org-agenda-mark- 
> filtered-text) (let ... ... ...))) #<buffer *SUMO*>)
>  org-write-agenda("/home/sven/webdav/org/agendas.org" nil t)
>  (let ((org-agenda-compact-blocks nil)) (org-write-agenda "/home/ 
> sven/webdav/org/agendas.org" nil t))
>  eval((let ((org-agenda-compact-blocks nil)) (org-write-agenda "/ 
> home/sven/webdav/org/agendas.org" nil t)))
>  (while files (eval (list ... ... ...)))
>  (progn (eval (list ... ... ...)) (set-buffer org-agenda-buffer- 
> name) (while files (eval ...)) (and (get-buffer org-agenda-buffer- 
> name) (kill-buffer org-agenda-buffer-name)))
>  (if files (progn (eval ...) (set-buffer org-agenda-buffer-name)  
> (while files ...) (and ... ...)))
>  (when files (eval (list ... ... ...)) (set-buffer org-agenda-buffer- 
> name) (while files (eval ...)) (and (get-buffer org-agenda-buffer- 
> name) (kill-buffer org-agenda-buffer-name)))
>  (while cmds (setq cmd (pop cmds) thiscmdkey (car cmd) cmd-or-set  
> (nth 2 cmd) opts (nth ... cmd) files (nth ... cmd)) (if (stringp  
> files) (setq files ...)) (when files (eval ...) (set-buffer org- 
> agenda-buffer-name) (while files ...) (and ... ...)))
>  (save-window-excursion (while cmds (setq cmd ... thiscmdkey ... cmd- 
> or-set ... opts ... files ...) (if ... ...) (when  
> files ... ... ... ...)))
>  (let ((cmds ...) (pop-up-frames nil) (dir default-directory) pars  
> cmd thiscmdkey files opts cmd-or-set) (while parameters (push ...  
> pars)) (setq pars (reverse pars)) (save-window-excursion (while  
> cmds ... ... ...)))
>  (lambda (&rest parameters) "Run all custom agenda commands that  
> have a file argument." (let (... ... ... pars cmd thiscmdkey files  
> opts cmd-or-set) (while parameters ...) (setq pars ...) (save-window- 
> excursion ...)))()
>  (org-batch-store-agenda-views)
>  eval((org-batch-store-agenda-views))
>  org-store-agenda-views()
>  (progn (org-store-agenda-views))
>  (if sumo (progn (org-store-agenda-views)))
>  (when sumo (org-store-agenda-views))
>  (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-file file1 file) (delete-file file1)))
>  org-mobile-create-sumo-agenda()
>  (let ((inhibit-redisplay t)) (org-mobile-create-sumo-agenda))
>  (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)
>
> _______________________________________________
> 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

- Carsten

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: org-mobile produces errors in normal org functions
  2010-07-13 12:21 ` Carsten Dominik
@ 2010-07-13 17:41   ` Sven Bretfeld
  2010-07-13 18:45     ` Carsten Dominik
  0 siblings, 1 reply; 6+ messages in thread
From: Sven Bretfeld @ 2010-07-13 17:41 UTC (permalink / raw)
  To: emacs-org

Hi Carsten

Carsten Dominik <carsten.dominik@gmail.com> writes:

> does it help to remove ~/.emacs.d/.org-id-locations ?

Yes, that did it. Thank you very much, you made me happy. I have already
tried to remove .emacs.d before, but with a running Emacs, what didn't
work. I didn't know that .emacs.d contains any dot-files at all.

Greetings

Sven

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: org-mobile produces errors in normal org functions
  2010-07-13 17:41   ` Sven Bretfeld
@ 2010-07-13 18:45     ` Carsten Dominik
  2010-07-13 21:05       ` Shelagh Manton
  0 siblings, 1 reply; 6+ messages in thread
From: Carsten Dominik @ 2010-07-13 18:45 UTC (permalink / raw)
  To: Sven Bretfeld; +Cc: emacs-org


On Jul 13, 2010, at 7:41 PM, Sven Bretfeld wrote:

> Hi Carsten
>
> Carsten Dominik <carsten.dominik@gmail.com> writes:
>
>> does it help to remove ~/.emacs.d/.org-id-locations ?
>
> Yes, that did it. Thank you very much, you made me happy. I have  
> already
> tried to remove .emacs.d before, but with a running Emacs, what didn't
> work. I didn't know that .emacs.d contains any dot-files at all.

That may be my mistake - maybe it would be better to make this a non- 
dot file.
This used to be a dot file in HOME, then I moved it into .emacs.d, but  
kept
it a dot file.

Does anyone here know if there are rules for .emacs.d ???

Greetings

- Carsten

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: org-mobile produces errors in normal org functions
  2010-07-13 18:45     ` Carsten Dominik
@ 2010-07-13 21:05       ` Shelagh Manton
  2010-07-14 20:27         ` Carsten Dominik
  0 siblings, 1 reply; 6+ messages in thread
From: Shelagh Manton @ 2010-07-13 21:05 UTC (permalink / raw)
  To: emacs-orgmode

On Tue, 13 Jul 2010 20:45:29 +0200, Carsten Dominik wrote:

> On Jul 13, 2010, at 7:41 PM, Sven Bretfeld wrote:
> 
>> Hi Carsten
>>
>> Carsten Dominik <carsten.dominik@gmail.com> writes:
>>
>>> does it help to remove ~/.emacs.d/.org-id-locations ?
>>
>> Yes, that did it. Thank you very much, you made me happy. I have
>> already
>> tried to remove .emacs.d before, but with a running Emacs, what didn't
>> work. I didn't know that .emacs.d contains any dot-files at all.
> 
> That may be my mistake - maybe it would be better to make this a non-
> dot file.
> This used to be a dot file in HOME, then I moved it into .emacs.d, but
> kept
> it a dot file.
> 
> Does anyone here know if there are rules for .emacs.d ???
> 
> Greetings
> 
> - Carsten
> 
Not a rule, but a convention, that what is a dot-file in $HOME is just a 
normal file in .emacs.d. Because of course the idea is just to hide the 
file, but it is already hidden inside a hidden directory.

Cheers
Shelagh
> 
> 
> _______________________________________________ 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

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: Re: org-mobile produces errors in normal org functions
  2010-07-13 21:05       ` Shelagh Manton
@ 2010-07-14 20:27         ` Carsten Dominik
  0 siblings, 0 replies; 6+ messages in thread
From: Carsten Dominik @ 2010-07-14 20:27 UTC (permalink / raw)
  To: Shelagh Manton; +Cc: emacs-orgmode


On Jul 13, 2010, at 11:05 PM, Shelagh Manton wrote:

> On Tue, 13 Jul 2010 20:45:29 +0200, Carsten Dominik wrote:
>
>> On Jul 13, 2010, at 7:41 PM, Sven Bretfeld wrote:
>>
>>> Hi Carsten
>>>
>>> Carsten Dominik <carsten.dominik@gmail.com> writes:
>>>
>>>> does it help to remove ~/.emacs.d/.org-id-locations ?
>>>
>>> Yes, that did it. Thank you very much, you made me happy. I have
>>> already
>>> tried to remove .emacs.d before, but with a running Emacs, what  
>>> didn't
>>> work. I didn't know that .emacs.d contains any dot-files at all.
>>
>> That may be my mistake - maybe it would be better to make this a non-
>> dot file.
>> This used to be a dot file in HOME, then I moved it into .emacs.d,  
>> but
>> kept
>> it a dot file.
>>
>> Does anyone here know if there are rules for .emacs.d ???
>>
>> Greetings
>>
>> - Carsten
>>
> Not a rule, but a convention, that what is a dot-file in $HOME is  
> just a
> normal file in .emacs.d. Because of course the idea is just to hide  
> the
> file, but it is already hidden inside a hidden directory.

This sounds like a good convention, but I hesitate to adopt it because  
changing
the file name might break something...

I need to think about this one more carefully.

- Carsten

^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2010-07-14 20:27 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-07-07 19:30 org-mobile produces errors in normal org functions Sven Bretfeld
2010-07-13 12:21 ` Carsten Dominik
2010-07-13 17:41   ` Sven Bretfeld
2010-07-13 18:45     ` Carsten Dominik
2010-07-13 21:05       ` Shelagh Manton
2010-07-14 20:27         ` Carsten Dominik

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).