mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-11-22 07:09:47 +00:00
Move previous export framework into contrib
* contrib/lisp/org-ascii.el: New file. * contrib/lisp/org-beamer.el: New file. * contrib/lisp/org-docbook.el: New file. * contrib/lisp/org-exp-blocks.el: New file. * contrib/lisp/org-exp.el: New file. * contrib/lisp/org-freemind.el: New file. * contrib/lisp/org-html.el: New file. * contrib/lisp/org-icalendar.el: New file. * contrib/lisp/org-jsinfo.el: New file. * contrib/lisp/org-latex.el: New file. * contrib/lisp/org-lparse.el: New file. * contrib/lisp/org-odt.el: New file. * contrib/lisp/org-publish.el: New file. * contrib/lisp/org-special-blocks.el: New file. * contrib/lisp/org-taskjuggler.el: New file. * contrib/lisp/org-xoxo.el: New file. * lisp/org-ascii.el: Removed file. * lisp/org-beamer.el: Removed file. * lisp/org-docbook.el: Removed file. * lisp/org-exp-blocks.el: Removed file. * lisp/org-exp.el: Removed file. * lisp/org-freemind.el: Removed file. * lisp/org-html.el: Removed file. * lisp/org-icalendar.el: Removed file. * lisp/org-jsinfo.el: Removed file. * lisp/org-latex.el: Removed file. * lisp/org-lparse.el: Removed file. * lisp/org-odt.el: Removed file. * lisp/org-publish.el: Removed file. * lisp/org-special-blocks.el: Removed file. * lisp/org-taskjuggler.el: Removed file. * lisp/org-xoxo.el: Removed file. * testing/lisp/test-org-exp.el: Removed file. * testing/lisp/test-org-html.el: Removed file.
This commit is contained in:
parent
8dd2bfc291
commit
03a9191dd3
@ -90,21 +90,18 @@ utf8 Use all UTF-8 characters")
|
||||
|
||||
(defvar org-ascii-current-indentation nil) ; For communication
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-latin1 (&rest args)
|
||||
"Like `org-export-as-ascii', use latin1 encoding for special symbols."
|
||||
(interactive)
|
||||
(org-export-as-encoding 'org-export-as-ascii (org-called-interactively-p 'any)
|
||||
'latin1 args))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-latin1-to-buffer (&rest args)
|
||||
"Like `org-export-as-ascii-to-buffer', use latin1 encoding for symbols."
|
||||
(interactive)
|
||||
(org-export-as-encoding 'org-export-as-ascii-to-buffer
|
||||
(org-called-interactively-p 'any) 'latin1 args))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-utf8 (&rest args)
|
||||
"Like `org-export-as-ascii', use encoding for special symbols."
|
||||
(interactive)
|
||||
@ -112,7 +109,6 @@ utf8 Use all UTF-8 characters")
|
||||
(org-called-interactively-p 'any)
|
||||
'utf8 args))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-utf8-to-buffer (&rest args)
|
||||
"Like `org-export-as-ascii-to-buffer', use utf8 encoding for symbols."
|
||||
(interactive)
|
||||
@ -126,7 +122,6 @@ utf8 Use all UTF-8 characters")
|
||||
(apply command args))))
|
||||
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-ascii-to-buffer (arg)
|
||||
"Call `org-export-as-ascii` with output to a temporary buffer.
|
||||
No file is created. The prefix ARG is passed through to `org-export-as-ascii'."
|
||||
@ -135,7 +130,6 @@ No file is created. The prefix ARG is passed through to `org-export-as-ascii'."
|
||||
(when org-export-show-temporary-export-buffer
|
||||
(switch-to-buffer-other-window "*Org ASCII Export*")))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-replace-region-by-ascii (beg end)
|
||||
"Assume the current region has org-mode syntax, and convert it to plain ASCII.
|
||||
This can be used in any buffer. For example, you could write an
|
||||
@ -159,7 +153,6 @@ command to convert it."
|
||||
(delete-region beg end)
|
||||
(insert ascii)))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-region-as-ascii (beg end &optional body-only buffer)
|
||||
"Convert region from BEG to END in org-mode buffer to plain ASCII.
|
||||
If prefix arg BODY-ONLY is set, omit file header, footer, and table of
|
||||
@ -189,7 +182,6 @@ in a window. A non-interactive call will only return the buffer."
|
||||
(switch-to-buffer-other-window rtn)
|
||||
rtn)))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-ascii (arg &optional ext-plist to-buffer body-only pub-dir)
|
||||
"Export the outline as a pretty ASCII file.
|
||||
If there is an active region, export only the region.
|
||||
@ -549,7 +541,6 @@ publishing directory."
|
||||
(kill-buffer (current-buffer)))
|
||||
(current-buffer))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-ascii-preprocess (parameters)
|
||||
"Do extra work for ASCII export."
|
||||
;;
|
||||
@ -724,7 +715,6 @@ publishing directory."
|
||||
(provide 'org-ascii)
|
||||
|
||||
;; Local variables:
|
||||
;; generated-autoload-file: "org-loaddefs.el"
|
||||
;; End:
|
||||
|
||||
;;; org-ascii.el ends here
|
@ -228,7 +228,6 @@ the tag does not have any semantic meaning."
|
||||
(org-entry-put nil "BEAMER_env" (match-string 1 tags)))
|
||||
(t (org-entry-delete nil "BEAMER_env"))))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-beamer-sectioning (level text)
|
||||
"Return the sectioning entry for the current headline.
|
||||
LEVEL is the reduced level of the headline.
|
||||
@ -370,7 +369,6 @@ org-beamer-extra are all scoped into this function dynamically."
|
||||
"The keymap for `org-beamer-mode'.")
|
||||
(define-key org-beamer-mode-map "\C-c\C-b" 'org-beamer-select-environment)
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode org-beamer-mode
|
||||
"Special support for editing Org-mode files made to export to beamer."
|
||||
nil " Bm" nil)
|
@ -264,7 +264,6 @@ the variable to
|
||||
|
||||
;;; Autoload functions:
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-docbook-batch ()
|
||||
"Call `org-export-as-docbook' in batch style.
|
||||
This function can be used in batch processing.
|
||||
@ -276,7 +275,6 @@ $ emacs --batch
|
||||
--visit=MyOrgFile.org --funcall org-export-as-docbook-batch"
|
||||
(org-export-as-docbook))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-docbook-to-buffer ()
|
||||
"Call `org-export-as-docbook' with output to a temporary buffer.
|
||||
No file is created."
|
||||
@ -285,7 +283,6 @@ No file is created."
|
||||
(when org-export-show-temporary-export-buffer
|
||||
(switch-to-buffer-other-window "*Org DocBook Export*")))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-replace-region-by-docbook (beg end)
|
||||
"Replace the region from BEG to END with its DocBook export.
|
||||
It assumes the region has `org-mode' syntax, and then convert it to
|
||||
@ -310,7 +307,6 @@ then use this command to convert it."
|
||||
(delete-region beg end)
|
||||
(insert docbook)))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-region-as-docbook (beg end &optional body-only buffer)
|
||||
"Convert region from BEG to END in `org-mode' buffer to DocBook.
|
||||
If prefix arg BODY-ONLY is set, omit file header and footer and
|
||||
@ -340,7 +336,6 @@ in a window. A non-interactive call will only return the buffer."
|
||||
(switch-to-buffer-other-window rtn)
|
||||
rtn)))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-docbook-pdf (&optional ext-plist to-buffer body-only pub-dir)
|
||||
"Export as DocBook XML file, and generate PDF file."
|
||||
(interactive "P")
|
||||
@ -382,7 +377,6 @@ in a window. A non-interactive call will only return the buffer."
|
||||
(message "Exporting to PDF...done")
|
||||
pdffile)))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-docbook-pdf-and-open ()
|
||||
"Export as DocBook XML file, generate PDF file, and open it."
|
||||
(interactive)
|
||||
@ -393,7 +387,6 @@ in a window. A non-interactive call will only return the buffer."
|
||||
|
||||
(defvar org-heading-keyword-regexp-format) ; defined in org.el
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-docbook (&optional ext-plist to-buffer body-only pub-dir)
|
||||
"Export the current buffer as a DocBook file.
|
||||
If there is an active region, export only the region. When
|
@ -49,12 +49,7 @@
|
||||
(&optional buffer-or-name norecord label))
|
||||
(declare-function org-unescape-code-in-region "org-src" (beg end))
|
||||
|
||||
(autoload 'org-export-generic "org-export-generic" "Export using the generic exporter" t)
|
||||
|
||||
(autoload 'org-export-as-odt "org-odt"
|
||||
"Export the outline to a OpenDocument Text file." t)
|
||||
(autoload 'org-export-as-odt-and-open "org-odt"
|
||||
"Export the outline to a OpenDocument Text file and open it." t)
|
||||
|
||||
(defgroup org-export nil
|
||||
"Options for exporting org-listings."
|
||||
@ -962,7 +957,6 @@ security risks."
|
||||
(setq plist (funcall f plist))))
|
||||
plist)
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export (&optional arg)
|
||||
"Export dispatcher for Org-mode.
|
||||
When `org-export-run-in-background' is non-nil, try to run the command
|
||||
@ -2954,7 +2948,6 @@ block numbering. When non-nil do the following:
|
||||
(if (<= lv level) (throw 'exit nil))
|
||||
(if todo (throw 'exit t))))))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-visible (type arg)
|
||||
"Create a copy of the visible part of the current buffer, and export it.
|
||||
The copy is created in a temporary buffer and removed after use.
|
||||
@ -3057,7 +3050,6 @@ to the value of `temporary-file-directory'."
|
||||
nil nil ''string t dir))))
|
||||
(delete-file tmp-file))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-org (arg &optional ext-plist to-buffer body-only pub-dir)
|
||||
"Make a copy with not-exporting stuff removed.
|
||||
The purpose of this function is to provide a way to export the source
|
@ -514,7 +514,6 @@ in this way, it will be wrapped."
|
||||
(defvar org-export-generic-section-type "")
|
||||
(defvar org-export-generic-section-suffix "")
|
||||
|
||||
;;;###autoload
|
||||
(defun org-set-generic-type (type definition)
|
||||
"Adds a TYPE and DEFINITION to the existing list of defined generic
|
||||
export definitions."
|
||||
@ -570,7 +569,6 @@ suffix a later change time."
|
||||
(if prefix
|
||||
(insert prefix))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-generic (arg)
|
||||
"Export the outline as generic output.
|
||||
If there is an active region, export only the region.
|
||||
|
@ -137,7 +137,6 @@ NOT READY YET."
|
||||
(integer :tag "Font size" :value 12)))))))
|
||||
:group 'org-freemind)
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-freemind (&optional hidden ext-plist
|
||||
to-buffer body-only pub-dir)
|
||||
"Export the current buffer as a Freemind file.
|
||||
@ -191,7 +190,6 @@ See `org-freemind-from-org-mode' for more information."
|
||||
filename))
|
||||
(t (org-freemind-from-org-mode bfname filename)))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-freemind-show (mm-file)
|
||||
"Show file MM-FILE in Freemind."
|
||||
(interactive
|
||||
@ -888,7 +886,6 @@ Otherwise give an error say the file exists."
|
||||
(insert (format " size=\"%s\"" font-size))
|
||||
))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-freemind-from-org-mode-node (node-line mm-file)
|
||||
"Convert node at line NODE-LINE to the FreeMind file MM-FILE.
|
||||
See `org-freemind-from-org-mode' for more information."
|
||||
@ -915,7 +912,6 @@ See `org-freemind-from-org-mode' for more information."
|
||||
(when (y-or-n-p "Show in FreeMind? ")
|
||||
(org-freemind-show buffer-file-name)))))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-freemind-from-org-mode (org-file mm-file)
|
||||
"Convert the `org-mode' file ORG-FILE to the FreeMind file MM-FILE.
|
||||
All the nodes will be opened or closed in Freemind just as you
|
||||
@ -948,7 +944,6 @@ can use a CSS stylesheet to style it)."
|
||||
(when (y-or-n-p "Show in FreeMind? ")
|
||||
(org-freemind-show buffer-file-name)))))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-freemind-from-org-sparse-tree (org-buffer mm-file)
|
||||
"Convert visible part of buffer ORG-BUFFER to FreeMind file MM-FILE."
|
||||
(interactive
|
||||
@ -1187,7 +1182,6 @@ PATH should be a list of steps, where each step has the form
|
||||
|
||||
;; Fix-me: put back special things, like drawers that are stored in
|
||||
;; the notes. Should maybe all notes contents be put in drawers?
|
||||
;;;###autoload
|
||||
(defun org-freemind-to-org-mode (mm-file org-file)
|
||||
"Convert FreeMind file MM-FILE to `org-mode' file ORG-FILE."
|
||||
(interactive
|
@ -211,7 +211,6 @@ your own style information."
|
||||
:group 'org-export-html
|
||||
:type 'boolean)
|
||||
|
||||
;;;###autoload
|
||||
(put 'org-export-html-style-include-default 'safe-local-variable 'booleanp)
|
||||
|
||||
(defcustom org-export-html-style ""
|
||||
@ -243,7 +242,6 @@ you can \"misuse\" it to add arbitrary text to the header.
|
||||
See also the variable `org-export-html-style-extra'."
|
||||
:group 'org-export-html
|
||||
:type 'string)
|
||||
;;;###autoload
|
||||
(put 'org-export-html-style 'safe-local-variable 'stringp)
|
||||
|
||||
(defcustom org-export-html-style-extra ""
|
||||
@ -254,7 +252,6 @@ settings of style information, and do not forget to surround the style
|
||||
settings with <style>...</style> tags."
|
||||
:group 'org-export-html
|
||||
:type 'string)
|
||||
;;;###autoload
|
||||
(put 'org-export-html-style-extra 'safe-local-variable 'stringp)
|
||||
|
||||
(defcustom org-export-html-mathjax-options
|
||||
@ -792,7 +789,6 @@ The default is an extended format of the ISO 8601 specification."
|
||||
(setq l1 label)))
|
||||
(replace-match (format "[[#%s][%s]]" label l1) t t)))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-html-and-open (arg)
|
||||
"Export the outline as HTML and immediately open it with a browser.
|
||||
If there is an active region, export only the region.
|
||||
@ -804,7 +800,6 @@ headlines. The default is 3. Lower levels will become bulleted lists."
|
||||
(when org-export-kill-product-buffer-when-displayed
|
||||
(kill-buffer (current-buffer))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-html-batch ()
|
||||
"Call the function `org-export-as-html'.
|
||||
This function can be used in batch processing as:
|
||||
@ -814,7 +809,6 @@ emacs --batch
|
||||
--visit=MyFile --funcall org-export-as-html-batch"
|
||||
(org-export-as-html org-export-headline-levels))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-html-to-buffer (arg)
|
||||
"Call `org-export-as-html` with output to a temporary buffer.
|
||||
No file is created. The prefix ARG is passed through to `org-export-as-html'."
|
||||
@ -823,7 +817,6 @@ No file is created. The prefix ARG is passed through to `org-export-as-html'."
|
||||
(when org-export-show-temporary-export-buffer
|
||||
(switch-to-buffer-other-window "*Org HTML Export*")))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-replace-region-by-html (beg end)
|
||||
"Assume the current region has org-mode syntax, and convert it to HTML.
|
||||
This can be used in any buffer. For example, you could write an
|
||||
@ -847,7 +840,6 @@ command to convert it."
|
||||
(delete-region beg end)
|
||||
(insert html)))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-region-as-html (beg end &optional body-only buffer)
|
||||
"Convert region from BEG to END in org-mode buffer to HTML.
|
||||
If prefix arg BODY-ONLY is set, omit file header, footer, and table of
|
||||
@ -1177,7 +1169,6 @@ OPT-PLIST is the export options list."
|
||||
|
||||
(defvar org-heading-keyword-regexp-format) ; defined in org.el
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-html (arg &optional ext-plist to-buffer body-only pub-dir)
|
||||
"Export the outline as a pretty HTML file.
|
||||
If there is an active region, export only the region. The prefix
|
@ -228,7 +228,6 @@ Interesting value are:
|
||||
|
||||
;;; iCalendar export
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-icalendar-this-file ()
|
||||
"Export current file as an iCalendar file.
|
||||
The iCalendar file will be located in the same directory as the Org-mode
|
||||
@ -236,7 +235,6 @@ file, but with extension `.ics'."
|
||||
(interactive)
|
||||
(org-export-icalendar nil buffer-file-name))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-icalendar-all-agenda-files ()
|
||||
"Export all files in the variable `org-agenda-files' to iCalendar .ics files.
|
||||
Each iCalendar file will be located in the same directory as the Org-mode
|
||||
@ -244,7 +242,6 @@ file, but with extension `.ics'."
|
||||
(interactive)
|
||||
(apply 'org-export-icalendar nil (org-agenda-files t)))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-icalendar-combine-agenda-files ()
|
||||
"Export all files in `org-agenda-files' to a single combined iCalendar file.
|
||||
The file is stored under the name `org-combined-agenda-icalendar-file'."
|
@ -789,7 +789,6 @@ have been determined from the environment.")
|
||||
|
||||
;;; Autoload functions:
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-latex-batch ()
|
||||
"Call `org-export-as-latex', may be used in batch processing.
|
||||
For example:
|
||||
@ -800,7 +799,6 @@ emacs --batch
|
||||
--visit=MyFile --funcall org-export-as-latex-batch"
|
||||
(org-export-as-latex org-export-headline-levels))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-latex-to-buffer (arg)
|
||||
"Call `org-export-as-latex` with output to a temporary buffer.
|
||||
No file is created. The prefix ARG is passed through to `org-export-as-latex'."
|
||||
@ -809,7 +807,6 @@ No file is created. The prefix ARG is passed through to `org-export-as-latex'."
|
||||
(when org-export-show-temporary-export-buffer
|
||||
(switch-to-buffer-other-window "*Org LaTeX Export*")))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-replace-region-by-latex (beg end)
|
||||
"Replace the region from BEG to END with its LaTeX export.
|
||||
It assumes the region has `org-mode' syntax, and then convert it to
|
||||
@ -834,7 +831,6 @@ then use this command to convert it."
|
||||
(delete-region beg end)
|
||||
(insert latex)))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-region-as-latex (beg end &optional body-only buffer)
|
||||
"Convert region from BEG to END in `org-mode' buffer to LaTeX.
|
||||
If prefix arg BODY-ONLY is set, omit file header, footer, and table of
|
||||
@ -866,7 +862,6 @@ in a window. A non-interactive call will only return the buffer."
|
||||
(switch-to-buffer-other-window rtn)
|
||||
rtn)))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-latex (arg &optional ext-plist to-buffer body-only pub-dir)
|
||||
"Export current buffer to a LaTeX file.
|
||||
If there is an active region, export only the region. The prefix
|
||||
@ -1121,7 +1116,6 @@ When PUB-DIR is set, use this as the publishing directory."
|
||||
(current-buffer))
|
||||
(set-window-configuration wcf))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-pdf (arg &optional hidden ext-plist
|
||||
to-buffer body-only pub-dir)
|
||||
"Export as LaTeX, then process through to PDF."
|
||||
@ -1207,7 +1201,6 @@ When PUB-DIR is set, use this as the publishing directory."
|
||||
(setq errors (concat errors " [undefined control sequence]")))
|
||||
(and (org-string-nw-p errors) errors))))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-pdf-and-open (arg)
|
||||
"Export as LaTeX, then process through to PDF, and open."
|
||||
(interactive "P")
|
@ -426,7 +426,6 @@ values. See Info node `(emacs) File Variables'."
|
||||
,@(mapcar (lambda (c)
|
||||
`(const :tag ,c ,c))
|
||||
(org-lparse-reachable-formats "odt")))))
|
||||
;;;###autoload
|
||||
(put 'org-export-odt-preferred-output-format 'safe-local-variable 'stringp)
|
||||
|
||||
(defmacro org-odt-cleanup-xml-buffers (&rest body)
|
||||
@ -456,7 +455,6 @@ values. See Info node `(emacs) File Variables'."
|
||||
(message "OpenDocument export failed: %s"
|
||||
(error-message-string err))))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-odt-and-open (arg)
|
||||
"Export the outline as ODT and immediately open it with a browser.
|
||||
If there is an active region, export only the region.
|
||||
@ -467,7 +465,6 @@ headlines. The default is 3. Lower levels will become bulleted lists."
|
||||
(org-lparse-and-open
|
||||
(or org-export-odt-preferred-output-format "odt") "odt" arg)))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-odt-batch ()
|
||||
"Call the function `org-lparse-batch'.
|
||||
This function can be used in batch processing as:
|
||||
@ -478,7 +475,6 @@ emacs --batch
|
||||
(org-odt-cleanup-xml-buffers (org-lparse-batch "odt")))
|
||||
|
||||
;;; org-export-as-odt
|
||||
;;;###autoload
|
||||
(defun org-export-as-odt (arg &optional hidden ext-plist
|
||||
to-buffer body-only pub-dir)
|
||||
"Export the outline as a OpenDocumentText file.
|
||||
@ -2603,7 +2599,6 @@ configuration."
|
||||
(declare-function org-create-math-formula "org"
|
||||
(latex-frag &optional mathml-file))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-odt-convert (&optional in-file out-fmt prefix-arg)
|
||||
"Convert IN-FILE to format OUT-FMT using a command line converter.
|
||||
IN-FILE is the file to be converted. If unspecified, it defaults
|
||||
@ -2793,7 +2788,6 @@ To disable outline numbering pass a LEVEL of 0."
|
||||
(replace-match replacement t nil))))
|
||||
(save-buffer 0))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-odf (latex-frag &optional odf-file)
|
||||
"Export LATEX-FRAG as OpenDocument formula file ODF-FILE.
|
||||
Use `org-create-math-formula' to convert LATEX-FRAG first to
|
||||
@ -2842,7 +2836,6 @@ non-nil."
|
||||
(message "Exporting... done")))
|
||||
(org-odt-save-as-outfile filename nil))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-odf-and-open ()
|
||||
"Export LaTeX fragment as OpenDocument formula and immediately open it.
|
||||
Use `org-export-as-odf' to read LaTeX fragment and OpenDocument
|
@ -888,10 +888,8 @@ It returns time in `current-time' format."
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;; Interactive publishing functions
|
||||
|
||||
;;;###autoload
|
||||
(defalias 'org-publish-project 'org-publish)
|
||||
|
||||
;;;###autoload
|
||||
(defun org-publish (project &optional force)
|
||||
"Publish PROJECT."
|
||||
(interactive
|
||||
@ -912,7 +910,6 @@ It returns time in `current-time' format."
|
||||
(list (assoc project org-publish-project-alist))
|
||||
(list project))))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-publish-all (&optional force)
|
||||
"Publish all projects.
|
||||
With prefix argument, remove all files in the timestamp
|
||||
@ -925,7 +922,6 @@ directory and force publishing all files."
|
||||
(if force nil org-publish-use-timestamps-flag)))
|
||||
(org-publish-projects org-publish-project-alist))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-publish-current-file (&optional force)
|
||||
"Publish the current file.
|
||||
With prefix argument, force publish the file."
|
||||
@ -935,7 +931,6 @@ With prefix argument, force publish the file."
|
||||
(if force nil org-publish-use-timestamps-flag)))
|
||||
(org-publish-file (buffer-file-name)))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-publish-current-project (&optional force)
|
||||
"Publish the project associated with the current file.
|
||||
With a prefix argument, force publishing of all files in
|
@ -297,7 +297,6 @@ but before any resource and task declarations."
|
||||
;; avoid compiler warning about free variable
|
||||
(defvar org-export-taskjuggler-old-level)
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-taskjuggler (&optional arg hidden ext-plist
|
||||
to-buffer body-only pub-dir)
|
||||
"Export parts of the current buffer as a TaskJuggler file.
|
||||
@ -417,7 +416,6 @@ defined in `org-export-taskjuggler-default-reports'."
|
||||
(kill-buffer (current-buffer)))
|
||||
(current-buffer)))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-taskjuggler-and-open ()
|
||||
"Export the current buffer as a TaskJuggler file and open it
|
||||
with the TaskJuggler GUI."
|
@ -37,7 +37,6 @@
|
||||
(apply 'insert output)))
|
||||
(put 'org-export-as-xoxo-insert-into 'lisp-indent-function 1)
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-xoxo (&optional buffer)
|
||||
"Export the org buffer as XOXO.
|
||||
The XOXO buffer is named *xoxo-<source buffer name>*"
|
@ -1,31 +0,0 @@
|
||||
;;; test-org-exp.el --- tests for org-exp.el
|
||||
|
||||
;; Copyright (c) 2010-2013 Eric Schulte
|
||||
;; Authors: Eric Schulte
|
||||
|
||||
;; This file is not part of GNU Emacs.
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Code:
|
||||
(ert-deftest test-org-exp/stripping-commas ()
|
||||
"Test the stripping of commas from within blocks during export."
|
||||
(org-test-at-id "76d3a083-67fa-4506-a41d-837cc48158b5"
|
||||
;; don't strip internal commas
|
||||
(org-narrow-to-subtree)
|
||||
(should (string-match
|
||||
", 2"
|
||||
(org-export-as-ascii nil nil 'string)))))
|
||||
|
||||
(provide 'test-org-exp)
|
@ -1,44 +0,0 @@
|
||||
;;; test-org-html.el --- tests for org-html.el
|
||||
|
||||
;; Copyright (c) David Maus
|
||||
;; Authors: David Maus
|
||||
|
||||
;; This file is not part of GNU Emacs.
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Comments:
|
||||
|
||||
;; Template test file for Org-mode tests
|
||||
|
||||
;;; Code:
|
||||
(unless (featurep 'org-html)
|
||||
(signal 'missing-test-dependency "Support for Org-html"))
|
||||
|
||||
(defmacro org-test-html/export-link (name link expected &optional desc opt-plist)
|
||||
`(ert-deftest ,(intern (concat "test-org-html/export-link/" name)) ()
|
||||
,(or desc name)
|
||||
(should
|
||||
(string=
|
||||
(org-test-strip-text-props
|
||||
(org-html-handle-links ,link ,opt-plist))
|
||||
,expected))))
|
||||
|
||||
(org-test-html/export-link "mailto" "[[mailto:john@example.tld]]"
|
||||
"<a href=\"mailto:john@example.tld\">mailto:john@example.tld</a>"
|
||||
"mailto: link without description")
|
||||
|
||||
(provide 'test-org-html)
|
||||
|
||||
;;; test-org-html.el ends here
|
Loading…
Reference in New Issue
Block a user