org-mobile.el (org-mobile-allpriorities): New option
authorBastien Guerry <bzg@altern.org>
Thu, 3 Jan 2013 12:07:08 +0000 (13:07 +0100)
committerBastien Guerry <bzg@altern.org>
Thu, 3 Jan 2013 12:07:08 +0000 (13:07 +0100)
* 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.

lisp/org-mobile.el

index 125e167..8c29888 100644 (file)
@@ -76,6 +76,12 @@ org-agenda-text-search-extra-files
   :group 'org-mobile
   :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
   "Non-nil means keep only encrypted files on the WebDAV server.
 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))
       (insert "#+TAGS: " (mapconcat 'identity tags " ") "\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
                            org-mobile-directory "agendas.org"))
        (insert "* [[file:agendas.org][Agenda Views]]\n"))