From f253a8280be203c7b1f2d669951425c986e66059 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sun, 18 Oct 2009 16:57:09 +0200 Subject: [PATCH] Sort files for MobileOrg --- lisp/ChangeLog | 2 ++ lisp/org-mobile.el | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b029b8e7d..4d82f27bc 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,6 +5,8 @@ (org-mobile-inbox-for-pull): Document the best location for this file. (org-mobile-check-setup): Verify `org-directory'. + (org-mobile-create-index-file): Sort the files to be listed in + index.org. 2009-10-17 Carsten Dominik diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 113e1a922..c5291f743 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -261,7 +261,8 @@ agenda view showing the flagged items." (defun org-mobile-create-index-file () "Write the index file in the WebDAV directory." - (let ((files-alist org-mobile-files-alist) + (let ((files-alist (sort (copy-sequence org-mobile-files-alist) + (lambda (a b) (string< (cdr a) (cdr b))))) (def-todo (default-value 'org-todo-keywords)) (def-tags (default-value 'org-tag-alist)) file link-name todo-kwds done-kwds tags drawers entry kwds dwds twds)