Re: [O] Bug and possible fix / work-around using org-mobile with group tags

[Nicolas Goaziou]

Hello,

John Hutchinson <address@hidden> writes:

>    - Running org-mobile-push with group tags defined in init.el file using 
> :startgrouptag etc. results in an error, and (in my case) DropBox not being 
> updated. Here's the log from the *Messages* buffer:   Creating agendas...
> Agenda written to Org file 
> /cygdrive/c/Users/IBM_ADMIN/Dropbox/Apps/MobileOrg/agendas.org
> Creating agendas...done
> Saving all Org-mode buffers...
> (No files need saving)
> Saving all Org-mode buffers... done
> Copying files...
> Writing index file...
> org-mobile-create-index-file: Wrong type argument: sequencep, :startgrouptag
> Quit
>  [2 times]
>
>    - Commenting out the group tags attributes in init.el results in Org 
> Mobile successfully generating and pushing to DropBox.
>    - Turning group tags off with org-toggle-tags-groups and running 
> org-mobile-push causes the error.
>    - Using Org from org-plus-contrib-20160208, the problem seems to be the 
> :startgroup and :endgroup on lines 460 and 461 of org-mobile.el; patching 
> them to :startgrouptag and :endgrouptag respectively appears to correct the 
> issue (though I've not done in-depth testing for any other unintended side 
> effects this patch may have).
>    - Also, changing the group attributes in my init.el from :startgrouptag 
> :endgrouptag to :startgroup and :endgroup respectively corrects the issue, 
> although the Org manual indicates that the longer form is correct.    
>
>    - As an aside, I note there are several instances of plain :startgroup 
> intermingled with :startgrouptag in the org sources:   
> org-plus-contrib-20160208 $ grep -n startgroup *.el
> org.el:3492:           (const :startgroup)
> org.el:3495:           (const :startgrouptag)
> org.el:3523:     (const :tag "Start radio group" (:startgroup))
> org.el:5063:                             (append '((:startgroup))
> org.el:5233:                (:startgroup "{")
> org.el:5235:                (:startgrouptag "[")
> org.el:5252:    (push '(:startgroup) org-tag-alist)
> org.el:5258:    (push '(:startgrouptag) org-tag-alist)
> org.el:5322:      (if (or (memq (car e) '(:newline :grouptags :endgroup 
> :startgroup))
> org.el:13093:    ((equal e '(:startgroup))
> org.el:15232:  ((eq (car e) :startgroup)
> org.el:15241:  ((eq (car e) :startgrouptag)
> org-interactive-query.el:92:   ((equal e '(:startgroup))
> org-interactive-query.el:268:     ;; if this is not a keyword (:startgroup, 
> etc), ignore it
> org-mobile.el:460:                          ((eq (car x) :startgroup) "{")
> org-pcomplete.el:245:           ((eq :startgroup (car x)) "{")
> ox-beamer.el:1128:      (append '((:startgroup))
>
> Regards,=John
> P.S. First time writing to this list; apologies in advance for
> breaches of etiquette.

Thank you for the report.

This is probably related to the recent introduction of Tag hierarchy.
Would the following patch solve the problem?


Regards,

-- 
Nicolas Goaziou

0001-org-mobile-Fix-Wrong-type-argument-sequencep-startgr.patch
Description: Text Data