From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nick Dokos Subject: Re: Unable to push to org-mobile Date: Fri, 13 Dec 2013 17:08:15 -0500 Message-ID: <87iousxv3k.fsf@alphaville.bos.redhat.com> References: <8761qszt47.fsf@alphaville.bos.redhat.com> <87r49gy1f3.fsf@alphaville.bos.redhat.com> <8E2198BE-B94B-455A-90F0-2C6CB2876B9F@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:59405) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VrauR-0000j7-Df for emacs-orgmode@gnu.org; Fri, 13 Dec 2013 17:08:41 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VrauL-00066m-3B for emacs-orgmode@gnu.org; Fri, 13 Dec 2013 17:08:35 -0500 Received: from plane.gmane.org ([80.91.229.3]:33150) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VrauK-00066i-SK for emacs-orgmode@gnu.org; Fri, 13 Dec 2013 17:08:29 -0500 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1VrauI-0000Hz-Vq for emacs-orgmode@gnu.org; Fri, 13 Dec 2013 23:08:26 +0100 Received: from nat-pool-bos-t.redhat.com ([66.187.233.206]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 13 Dec 2013 23:08:26 +0100 Received: from ndokos by nat-pool-bos-t.redhat.com with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 13 Dec 2013 23:08:26 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Dror Atariah writes: > Managed to get [backtrace] output... > > You can find it here: https://gist.github.com/drorata/7950857 > > I could not find my way in this output... :( > If you look at the top of the backtrace it shows this: ,---- | Debugger entered--Lisp error: (wrong-type-argument sequencep :grouptags) | mapconcat(identity ("PRIVATE" "{" "WORK" :grouptags "WORK@mittagseminar" "WORK@open_questions" "WORK@diss" "WORK@CV" "}" "{" "IT" :grouptags "IT@emacs" "IT@git" "IT@TeX" "}" "{" "PROG" :grouptags "PROG@mathematica" "PROG@cgal" "}" "}" "4freeTime" "bms_friday" "emacs" "interesting_questions" "mittagseminar" "Mittagsseminar" "NOTE" "private" "results" "work" "Yvinec" "Ziegler") " ") | (insert "#+TAGS: " (mapconcat (quote identity) tags " ") "\n") | ... | org-mobile-create-index-file() `---- The mapconcat line can be evaluated on its own - it does not depend on anything else. If you cut and paste it into your *scratch* buffer and modify it slightly like this: --8<---------------cut here---------------start------------->8--- (mapconcat 'identity '("PRIVATE" "{" "WORK" :grouptags "WORK@mittagseminar" "WORK@open_questions" "WORK@diss" "WORK@CV" "}" "{" "IT" :grouptags "IT@emacs" "IT@git" "IT@TeX" "}" "{" "PROG" :grouptags "PROG@mathematica" "PROG@cgal" "}" "}" "4freeTime" "bms_friday" "emacs" "interesting_questions" "mittagseminar" "Mittagsseminar" "NOTE" "private" "results" "work" "Yvinec" "Ziegler") " ") --8<---------------cut here---------------end--------------->8--- and evaluate it with C-j, you get the exact error. Now look in org-mobile-create-index-file for the call (insert "#+TAGS: " (mapconcat 'identity tags " ") "\n") You'll find it on line 470 (at least in the version I'm using). Before this line there is this code: ... (setq def-tags (mapcar (lambda (x) (cond ((null x) nil) ((stringp x) x) ((eq (car x) :startgroup) "{") ((eq (car x) :endgroup) "}") ((eq (car x) :newline) nil) ((listp x) (car x)))) def-tags)) (setq def-tags (delq nil def-tags)) (setq tags (org-delete-all def-tags tags)) (setq tags (sort tags (lambda (a b) (string< (downcase a) (downcase b))))) (setq tags (append def-tags tags nil)) (insert "#+TAGS: " (mapconcat 'identity tags " ") "\n") ... You'll notice that :startgroup is replaced by { , :endgroup is replaced by } and :newline is deleted - but there is no mention of :grouptags which leads me to suspect that there should be an extra line in there, perhaps ((eq (car x) :grouptags) nil) Maybe you can try it - better yet, maybe somebody who has some idea of how org-mobile works should take a look. I note that if I delete the :grouptags instances in the mapconcat call above, it completes without error. Nick