From mboxrd@z Thu Jan 1 00:00:00 1970 From: Sergey Gordienko Subject: [PATCH] org-mobile: Tiny fix in creating index.org file lisp/org-mobile.el (org-mobile-create-index-file): - eliminate cloning of "#+READONLY" property in the index.org file; - org-todo-keywords don't need to contain the "|". Date: Thu, 25 Jun 2015 01:08:32 +0300 Message-ID: <1435183712-79126-1-git-send-email-gordienkos@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:45020) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z7sqy-0006Vr-LA for emacs-orgmode@gnu.org; Wed, 24 Jun 2015 18:09:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z7squ-0001UL-6W for emacs-orgmode@gnu.org; Wed, 24 Jun 2015 18:09:08 -0400 Received: from mail-lb0-x22d.google.com ([2a00:1450:4010:c04::22d]:35478) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z7sqt-0001UB-Up for emacs-orgmode@gnu.org; Wed, 24 Jun 2015 18:09:04 -0400 Received: by lbbwc1 with SMTP id wc1so34659712lbb.2 for ; Wed, 24 Jun 2015 15:09:03 -0700 (PDT) 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 Cc: Sergey Gordienko --- lisp/org-mobile.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 2c13802..293de79 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -439,14 +439,14 @@ agenda view showing the flagged items." (if org-mobile-use-encryption org-mobile-encryption-tempfile target-file) + (insert "#+READONLY\n") (while (setq entry (pop def-todo)) - (insert "#+READONLY\n") (setq kwds (mapcar (lambda (x) (if (string-match "(" x) (substring x 0 (match-beginning 0)) x)) (cdr entry))) (insert "#+TODO: " (mapconcat 'identity kwds " ") "\n") - (setq dwds (member "|" kwds) + (setq dwds (or (member "|" kwds) (last kwds)) twds (org-delete-all dwds kwds) todo-kwds (org-delete-all twds todo-kwds) done-kwds (org-delete-all dwds done-kwds))) -- 1.9.5 (Apple Git-50.3)