org-export: Remove paths from requires

* contrib/lisp/org-export.el: Remove paths from requires.
This commit is contained in:
Nicolas Goaziou 2012-05-28 15:49:07 +02:00
parent 4b0121fc2a
commit 4aa8693c2c
1 changed files with 16 additions and 16 deletions

View File

@ -3970,7 +3970,7 @@ Return an error if key pressed has no associated command."
(?q nil) (?q nil)
;; Export with `e-ascii' back-end. ;; Export with `e-ascii' back-end.
((?A ?N ?U) ((?A ?N ?U)
(require 'org-e-ascii "./org-e-ascii.el") (require 'org-e-ascii)
(let ((outbuf (let ((outbuf
(org-export-to-buffer (org-export-to-buffer
'e-ascii "*Org E-ASCII Export*" 'e-ascii "*Org E-ASCII Export*"
@ -3981,13 +3981,13 @@ Return an error if key pressed has no associated command."
(when org-export-show-temporary-export-buffer (when org-export-show-temporary-export-buffer
(switch-to-buffer-other-window outbuf)))) (switch-to-buffer-other-window outbuf))))
((?a ?n ?u) ((?a ?n ?u)
(require 'org-e-ascii "./org-e-ascii.el") (require 'org-e-ascii)
(org-e-ascii-export-to-ascii (org-e-ascii-export-to-ascii
(memq 'subtree optns) (memq 'visible optns) (memq 'body optns) (memq 'subtree optns) (memq 'visible optns) (memq 'body optns)
`(:ascii-charset ,(case raw-key (?a 'ascii) (?n 'latin1) (t 'utf-8))))) `(:ascii-charset ,(case raw-key (?a 'ascii) (?n 'latin1) (t 'utf-8)))))
;; Export with `e-latex' back-end. ;; Export with `e-latex' back-end.
(?L (?L
(require 'org-e-latex "./org-e-latex.el") (require 'org-e-latex)
(let ((outbuf (let ((outbuf
(org-export-to-buffer (org-export-to-buffer
'e-latex "*Org E-LaTeX Export*" 'e-latex "*Org E-LaTeX Export*"
@ -3996,22 +3996,22 @@ Return an error if key pressed has no associated command."
(when org-export-show-temporary-export-buffer (when org-export-show-temporary-export-buffer
(switch-to-buffer-other-window outbuf)))) (switch-to-buffer-other-window outbuf))))
(?l (?l
(require 'org-e-latex "./org-e-latex.el") (require 'org-e-latex)
(org-e-latex-export-to-latex (org-e-latex-export-to-latex
(require 'org-e-latex "./org-e-latex.el") (require 'org-e-latex)
(memq 'subtree optns) (memq 'visible optns) (memq 'body optns))) (memq 'subtree optns) (memq 'visible optns) (memq 'body optns)))
(?p (?p
(require 'org-e-latex "./org-e-latex.el") (require 'org-e-latex)
(org-e-latex-export-to-pdf (org-e-latex-export-to-pdf
(memq 'subtree optns) (memq 'visible optns) (memq 'body optns))) (memq 'subtree optns) (memq 'visible optns) (memq 'body optns)))
(?d (?d
(require 'org-e-latex "./org-e-latex.el") (require 'org-e-latex)
(org-open-file (org-open-file
(org-e-latex-export-to-pdf (org-e-latex-export-to-pdf
(memq 'subtree optns) (memq 'visible optns) (memq 'body optns)))) (memq 'subtree optns) (memq 'visible optns) (memq 'body optns))))
;; Export with `e-html' back-end. ;; Export with `e-html' back-end.
(?H (?H
(require 'org-e-html "./org-e-html.el") (require 'org-e-html)
(let ((outbuf (let ((outbuf
(org-export-to-buffer (org-export-to-buffer
'e-html "*Org E-HTML Export*" 'e-html "*Org E-HTML Export*"
@ -4022,40 +4022,40 @@ Return an error if key pressed has no associated command."
(when org-export-show-temporary-export-buffer (when org-export-show-temporary-export-buffer
(switch-to-buffer-other-window outbuf)))) (switch-to-buffer-other-window outbuf))))
(?h (?h
(require 'org-e-html "./org-e-html.el") (require 'org-e-html)
(org-e-html-export-to-html (org-e-html-export-to-html
(memq 'subtree optns) (memq 'visible optns) (memq 'body optns))) (memq 'subtree optns) (memq 'visible optns) (memq 'body optns)))
(?b (?b
(require 'org-e-html "./org-e-html.el") (require 'org-e-html)
(org-open-file (org-open-file
(org-e-html-export-to-html (org-e-html-export-to-html
(memq 'subtree optns) (memq 'visible optns) (memq 'body optns)))) (memq 'subtree optns) (memq 'visible optns) (memq 'body optns))))
;; Export with `e-odt' back-end. ;; Export with `e-odt' back-end.
(?o (?o
(require 'org-e-odt "./org-e-odt.el") (require 'org-e-odt)
(org-e-odt-export-to-odt (org-e-odt-export-to-odt
(memq 'subtree optns) (memq 'visible optns) (memq 'body optns))) (memq 'subtree optns) (memq 'visible optns) (memq 'body optns)))
(?O (?O
(require 'org-e-odt "./org-e-odt.el") (require 'org-e-odt)
(org-open-file (org-open-file
(org-e-odt-export-to-odt (org-e-odt-export-to-odt
(memq 'subtree optns) (memq 'visible optns) (memq 'body optns)))) (memq 'subtree optns) (memq 'visible optns) (memq 'body optns))))
;; Publishing facilities ;; Publishing facilities
(?F (?F
(require 'org-e-publish "./org-e-publish.el") (require 'org-e-publish)
(org-e-publish-current-file (memq 'force optns))) (org-e-publish-current-file (memq 'force optns)))
(?P (?P
(require 'org-e-publish "./org-e-publish.el") (require 'org-e-publish)
(org-e-publish-current-project (memq 'force optns))) (org-e-publish-current-project (memq 'force optns)))
(?X (?X
(require 'org-e-publish "./org-e-publish.el") (require 'org-e-publish)
(let ((project (let ((project
(assoc (org-icompleting-read (assoc (org-icompleting-read
"Publish project: " org-e-publish-project-alist nil t) "Publish project: " org-e-publish-project-alist nil t)
org-e-publish-project-alist))) org-e-publish-project-alist)))
(org-e-publish project (memq 'force optns)))) (org-e-publish project (memq 'force optns))))
(?E (?E
(require 'org-e-publish "./org-e-publish.el") (require 'org-e-publish)
(org-e-publish-all (memq 'force optns))) (org-e-publish-all (memq 'force optns)))
;; Undefined command. ;; Undefined command.
(t (error "No command associated with key %s" (t (error "No command associated with key %s"