From mboxrd@z Thu Jan 1 00:00:00 1970 From: Sergey Gordienko Subject: [PATCH] org-mobile: Tiny fix in creating index.org file Date: Fri, 26 Jun 2015 17:44:20 +0300 Message-ID: <1435329860-83056-1-git-send-email-gordienkos@gmail.com> References: <87381ftpye.fsf@nicolasgoaziou.fr> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:55225) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z8Usv-00070g-9V for emacs-orgmode@gnu.org; Fri, 26 Jun 2015 10:45:42 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z8Usq-0007n8-4P for emacs-orgmode@gnu.org; Fri, 26 Jun 2015 10:45:41 -0400 Received: from mail-la0-x22f.google.com ([2a00:1450:4010:c03::22f]:33459) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z8Usp-0007mh-Rp for emacs-orgmode@gnu.org; Fri, 26 Jun 2015 10:45:36 -0400 Received: by laar3 with SMTP id r3so3183188laa.0 for ; Fri, 26 Jun 2015 07:45:34 -0700 (PDT) In-Reply-To: <87381ftpye.fsf@nicolasgoaziou.fr> 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 (org-mobile-create-index-file): Eliminate cloning of `#+READONLY' property in the `index.org' file. A sublists of `org-todo-keywords' don't need to contain the `|'. TINYCHANGE --- 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)