Browse Source

org-odt.el (org-odt-styles-dir): It is etc/org/ under vanilla Emacs

* org-odt.el (org-odt-styles-dir): Assume that the styles
files are located under `data-directory' of Emacs distribution
as etc/org/OrgOdtStyles.xml and
etc/org/OrgOdtContentTemplate.xml.  Also update docstring.
(org-export-odt-schema-dir): Update docstring.
Jambunathan K 13 years ago
parent
commit
f237ef8b37
1 changed files with 24 additions and 8 deletions
  1. 24 8
      lisp/org-odt.el

+ 24 - 8
lisp/org-odt.el

@@ -77,8 +77,9 @@
 
 
 (defconst org-odt-lib-dir (file-name-directory load-file-name))
 (defconst org-odt-lib-dir (file-name-directory load-file-name))
 (defconst org-odt-styles-dir
 (defconst org-odt-styles-dir
-  (let* ((styles-dir1 (expand-file-name "../etc/styles/" org-odt-lib-dir))
-	 (styles-dir2 (expand-file-name "./etc/styles/" org-odt-lib-dir))
+  (let* ((styles-dir1 (expand-file-name "../etc/styles/" org-odt-lib-dir)) ; git
+	 (styles-dir2 (expand-file-name "./etc/styles/" org-odt-lib-dir)) ; elpa
+	 (styles-dir3 (expand-file-name "./etc/org/" data-directory)) ; system
 	 (styles-dir
 	 (styles-dir
 	  (catch 'styles-dir
 	  (catch 'styles-dir
 	    (mapc (lambda (styles-dir)
 	    (mapc (lambda (styles-dir)
@@ -89,7 +90,7 @@
 				(expand-file-name
 				(expand-file-name
 				 "OrgOdtStyles.xml" styles-dir)))
 				 "OrgOdtStyles.xml" styles-dir)))
 		      (throw 'styles-dir styles-dir)))
 		      (throw 'styles-dir styles-dir)))
-		  (list styles-dir1 styles-dir2))
+		  (list styles-dir1 styles-dir2 styles-dir3))
 	    nil)))
 	    nil)))
     (unless styles-dir
     (unless styles-dir
       (error "Cannot find factory styles file. Check package dir layout"))
       (error "Cannot find factory styles file. Check package dir layout"))
@@ -100,7 +101,12 @@ This directory contains the following XML files -
  \"OrgOdtStyles.xml\" and \"OrgOdtContentTemplate.xml\".  These
  \"OrgOdtStyles.xml\" and \"OrgOdtContentTemplate.xml\".  These
  XML files are used as the default values of
  XML files are used as the default values of
  `org-export-odt-styles-file' and
  `org-export-odt-styles-file' and
- `org-export-odt-content-template-file'.")
+ `org-export-odt-content-template-file'.
+
+The default value of this variable varies depending on the
+version of org in use.  Note that the user could be using org
+from one of: org's own private git repository, GNU ELPA tar or
+standard Emacs.")
 
 
 (defcustom org-export-odt-schema-dir
 (defcustom org-export-odt-schema-dir
   (let ((schema-dir (expand-file-name
   (let ((schema-dir (expand-file-name
@@ -115,10 +121,20 @@ This directory contains the following XML files -
       (prog1 nil (message "Unable to locate OpenDocument schema files."))))
       (prog1 nil (message "Unable to locate OpenDocument schema files."))))
   "Directory that contains OpenDocument schema files.
   "Directory that contains OpenDocument schema files.
 
 
-This directory contains rnc files for OpenDocument schema.  It
-also contains a \"schemas.xml\" that can be added to
-`rng-schema-locating-files' for auto validation of OpenDocument
-XML files.  See also `rng-nxml-auto-validate-flag'."
+This directory contains:
+1. rnc files for OpenDocument schema
+2. a \"schemas.xml\" file that specifies locating rules needed
+   for auto validation of OpenDocument XML files.
+
+Use the customize interface to set this variable.  This ensures
+that `rng-schema-locating-files' is updated and auto-validation
+of OpenDocument XML takes place based on the value
+`rng-nxml-auto-validate-flag'.
+
+The default value of this variable varies depending on the
+version of org in use.  The OASIS schema files are available only
+in the org's private git repository.  It is *not* bundled with
+GNU ELPA tar or standard Emacs distribution."
   :type '(choice
   :type '(choice
 	  (const :tag "Not set" nil)
 	  (const :tag "Not set" nil)
 	  (directory :tag "Schema directory"))
 	  (directory :tag "Schema directory"))