diff options
| author | Sergey Gordienko <gordienkos@gmail.com> | 2015-06-26 17:44:20 +0300 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-06-28 09:06:00 +0200 |
| commit | c15db80e32d22dace184203f6f03a0b586bb4b50 (patch) | |
| tree | 31d72afce3cc5adfb0548fdd88680543a2d82e5a | |
| parent | 5f3d8037a5099ca92db7edbf95ced22f0adefbef (diff) | |
| download | org-mode-c15db80e32d22dace184203f6f03a0b586bb4b50.tar.gz | |
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.
A sublists of `org-todo-keywords' don't need to contain the `|'.
TINYCHANGE
| -rw-r--r-- | lisp/org-mobile.el | 4 |
1 files 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))) |