From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Francis J. Monari, Esquire" <monarifj.esq@juno.com>
Subject: Bug: Mobile Org startgroup [8.3.4 (8.3.4-93-g0d72c3-elpaplus @
 c:/USR/FJM/APP/.emacs.d/elpa/org-plus-contrib-20160627/)]
Date: Wed, 6 Jul 2016 11:18:27 -0400
Message-ID: <e9440ac7-0193-b01d-5b60-9fbd0f66b3b9@juno.com>
Reply-To: monarifj.esq@juno.com
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:42089)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <monarifj.esq@juno.com>) id 1bKp6J-00044W-U9
	for emacs-orgmode@gnu.org; Wed, 06 Jul 2016 11:51:04 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <monarifj.esq@juno.com>) id 1bKp6F-0000eC-S6
	for emacs-orgmode@gnu.org; Wed, 06 Jul 2016 11:50:59 -0400
Received: from outmail149122.authsmtp.com ([62.13.149.122]:31678)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <monarifj.esq@juno.com>) id 1bKp6F-0000de-JY
	for emacs-orgmode@gnu.org; Wed, 06 Jul 2016 11:50:55 -0400
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode/>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: "Emacs-orgmode"
	<emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: emacs-orgmode@gnu.org

All,

I added group tags to org-tag-alist.
    (:startgrouptag . nil)
      ("=E2=96=B8_NEW_SKILL" . ?\3)
      ("=E2=9C=94_OFF_CASE_PLAN" . ?\4)
      ("=E2=9C=98_LEFT_FIELD" . ?\5)
    (:endgrouptag . nil)

When I used mobile org, about when it was generating indices, it
displayed the following message:
  org-mobile-create-index-file: Wrong type argument: sequencep,
  :startgrouptag

I expected Mobile Org to finish properly.  (It had before adding the
group tags.  I believe that group tags should be supported.)

Research on the web returned this thread:
  From: 	John Hutchinson
  Subject: 	Re: [O] Bug and possible fix / work-around using
  org-mobile with group tags
  Date: 	Fri, 26 Feb 2016 00:35:01 +0000 (UTC)

This thread recommended the following patch:
HoldingPen $ cat patch
*** org-mobile.el.GOOD  2016-02-25 17:19:52.489685000 -0500
---
/home/hutchinson/.emacs.d/elpa/org-plus-contrib-20160222/org-mobile.el
   2016-02-25 19:18:38.746283600 -0500
***************
*** 454,467 ****
        (insert "#+TODO: " (mapconcat 'identity todo-kwds " ") " | "
                (mapconcat 'identity done-kwds " ") "\n"))
        (setq def-tags (mapcar
!                     (lambda (x)
!                       (cond ((null x) nil)
!                             ((stringp x) x)
!                             ((eq (car x) :startgroup) "{")
!                             ((eq (car x) :endgroup) "}")
!                             ((eq (car x) :grouptags) nil)
!                             ((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))
--- 454,469 ----
        (insert "#+TODO: " (mapconcat 'identity todo-kwds " ") " | "
                (mapconcat 'identity done-kwds " ") "\n"))
        (setq def-tags (mapcar
!                       (lambda (tag)
!                         (cl-case (car tag)
!                           ((nil) nil)
!                           (:startgroup "{")
!                           (:endgroup "}")
!                           (:startgrouptag "{")
!                           (:endgrouptag "}")
!                           (:grouptags ":")
!                           (:newline nil)
!                           (t (car tag))))
                      def-tags))
        (setq def-tags (delq nil def-tags))
        (setq tags (org-delete-all def-tags tags))
HoldingPen $

I manually applied the patch.  It resolved my issue.

Two Questions:
=3D Is there any down-side to this patch?  (My knowledge of LiSP and Org
is very limited.)
=3D If appropriate, can the source code be patched?

Thank you.

Frank.


Emacs  : GNU Emacs 24.5.1 (i686-pc-mingw32)
 of 2015-04-11 on LEG570
Package: Org-mode version 8.3.4 (8.3.4-93-g0d72c3-elpaplus @
c:/USR/FJM/APP/.emacs.d/elpa/org-plus-contrib-20160627/