Browse Source

org-e-odt.el: Bugfix: default to the correct directory for styles.

* org-e-odt.el (org-e-odt-styles-dir): Try more directories.
Don't throw an error, just send a message.
(org-e-odt): Fix a bug about deactivating an advice that was
activated by org-odt.el, not org-e-odt.el.

Thanks to Nick Dokos for reporting this.
Bastien Guerry 13 years ago
parent
commit
27c6737813
1 changed files with 9 additions and 6 deletions
  1. 9 6
      contrib/lisp/org-e-odt.el

+ 9 - 6
contrib/lisp/org-e-odt.el

@@ -117,9 +117,12 @@
 (defconst org-e-odt-styles-dir
 (defconst org-e-odt-styles-dir
   (let* ((d (expand-file-name (org-find-library-dir "org-e-odt.el")))
   (let* ((d (expand-file-name (org-find-library-dir "org-e-odt.el")))
 	 (styles-dir-list (list
 	 (styles-dir-list (list
-			   (concat d "../../etc/styles/") ;; Git
-			   (concat d "../../etc/org/")    ;; system
-			   (concat d "../etc/org/")))     ;; ELPA org-plus
+			   (concat d "etc/styles/") ;; ELPA and Git
+			   (concat d "etc/org/")    ;; Org from Emacs
+			   (concat d "../"
+				   (number-to-string emacs-major-version) "."
+				   (number-to-string emacs-minor-version) "/etc/org/")
+			   (concat data-directory "org/"))) ;; Custom install
 	 styles-dir)
 	 styles-dir)
     (setq styles-dir
     (setq styles-dir
 	  (car
 	  (car
@@ -133,8 +136,8 @@
 					"OrgOdtStyles.xml" sd)))
 					"OrgOdtStyles.xml" sd)))
 			     sd))
 			     sd))
 			 styles-dir-list))))
 			 styles-dir-list))))
-    (or styles-dir
-	(error "Cannot find factory styles files for Org ODT, aborting")))
+    (or (expand-file-name styles-dir)
+	(message "Cannot find factory styles files for Org ODT")))
   "Directory that holds auxiliary XML files used by the ODT exporter.
   "Directory that holds auxiliary XML files used by the ODT exporter.
 
 
 This directory contains the following XML files -
 This directory contains the following XML files -
@@ -1826,7 +1829,7 @@ CONTENTS is nil.  INFO is a plist holding contextual information."
 
 
 ;;;; Latex Environment
 ;;;; Latex Environment
 
 
-(eval-after-load 'org-e-odt
+(eval-after-load 'org-odt
   '(ad-deactivate 'org-format-latex-as-mathml))
   '(ad-deactivate 'org-format-latex-as-mathml))
 
 
 ;; (defadvice org-format-latex-as-mathml	; FIXME
 ;; (defadvice org-format-latex-as-mathml	; FIXME