emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] Bug: Mobile Org startgroup [8.3.4 (8.3.4-93-g0d72c3-elpaplus @ c:/US


From: Francis J. Monari, Esquire
Subject: [O] 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
User-agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:45.0) Gecko/20100101 Thunderbird/45.2.0

All,

I added group tags to org-tag-alist.
    (:startgrouptag . nil)
      ("▸_NEW_SKILL" . ?\3)
      ("✔_OFF_CASE_PLAN" . ?\4)
      ("✘_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:
= Is there any down-side to this patch?  (My knowledge of LiSP and Org
is very limited.)
= 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/



reply via email to

[Prev in Thread] Current Thread [Next in Thread]