ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-mobile.el (org-mobile-allpriorities): New option 

* org-mobile.el (org-mobile-allpriorities): New option.
(org-mobile-create-index-file): Use the new option.

Thanks to J. David Boyd for pointing this.
This commit is contained in:
Bastien Guerry 2013-01-03 13:07:08 +01:00
parent ab17f9959e
commit fc65e379b0
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-mobile.el
View File

@ -76,6 +76,12 @@ org-agenda-text-search-extra-files
:group 'org-mobile :group 'org-mobile
:type 'directory) :type 'directory)
(defcustom org-mobile-allpriorities "A B C"
"Default set of priority cookies for the index file."
:type 'string
:group 'org-mobile
:version "24.3")
(defcustom org-mobile-use-encryption nil (defcustom org-mobile-use-encryption nil
"Non-nil means keep only encrypted files on the WebDAV server. "Non-nil means keep only encrypted files on the WebDAV server.
Encryption uses AES-256, with a password given in Encryption uses AES-256, with a password given in
@ -459,7 +465,7 @@ agenda view showing the flagged items."
(setq tags (append def-tags tags nil)) (setq tags (append def-tags tags nil))
(insert "#+TAGS: " (mapconcat 'identity tags " ") "\n") (insert "#+TAGS: " (mapconcat 'identity tags " ") "\n")
(insert "#+DRAWERS: " (mapconcat 'identity drawers " ") "\n") (insert "#+DRAWERS: " (mapconcat 'identity drawers " ") "\n")
(insert "#+ALLPRIORITIES: A B C" "\n") (insert "#+ALLPRIORITIES: " org-mobile-allpriorities "\n")
(when (file-exists-p (expand-file-name (when (file-exists-p (expand-file-name
org-mobile-directory "agendas.org")) org-mobile-directory "agendas.org"))
(insert "* [[file:agendas.org][Agenda Views]]\n")) (insert "* [[file:agendas.org][Agenda Views]]\n"))