ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'master' of orgmode.org:org-mode

This commit is contained in:
David Arroyo Menendez 2013-11-17 11:56:03 +01:00
parent 246c8c6637 36c8d8b4d2
commit 381a2f14e4
20 changed files with 338 additions and 336 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
doc/org.texi
View File

@ -3872,7 +3872,7 @@ Jump to line 255.
Search for a link target @samp{<<My Target>>}, or do a text search for Search for a link target @samp{<<My Target>>}, or do a text search for
@samp{my target}, similar to the search in internal links, see @samp{my target}, similar to the search in internal links, see
@ref{Internal links}. In HTML export (@pxref{HTML export}), such a file @ref{Internal links}. In HTML export (@pxref{HTML export}), such a file
link will become a HTML reference to the corresponding named anchor in link will become an HTML reference to the corresponding named anchor in
the linked file. the linked file.
@item *My Target @item *My Target
In an Org file, restrict search to headlines. In an Org file, restrict search to headlines.
@ -8051,7 +8051,7 @@ You may also test for properties (@pxref{Properties and columns}) at the same
time as matching tags. The properties may be real properties, or special time as matching tags. The properties may be real properties, or special
properties that represent other metadata (@pxref{Special properties}). For properties that represent other metadata (@pxref{Special properties}). For
example, the ``property'' @code{TODO} represents the TODO keyword of the example, the ``property'' @code{TODO} represents the TODO keyword of the
entry and the ``propety'' @code{PRIORITY} represents the PRIORITY keyword of entry and the ``property'' @code{PRIORITY} represents the PRIORITY keyword of
the entry. The ITEM special property cannot currently be used in tags/property the entry. The ITEM special property cannot currently be used in tags/property
searches@footnote{But @pxref{x-agenda-skip-entry-regexp, searches@footnote{But @pxref{x-agenda-skip-entry-regexp,
,skipping entries based on regexp}.}. ,skipping entries based on regexp}.}.
@ -9628,7 +9628,7 @@ or on a per-file basis with a line like
@end example @end example
If you would like to move the table of contents to a different location, you If you would like to move the table of contents to a different location, you
should turn off the detault table using @code{org-export-with-toc} or should turn off the default table using @code{org-export-with-toc} or
@code{#+OPTIONS} and insert @code{#+TOC: headlines N} at the desired @code{#+OPTIONS} and insert @code{#+TOC: headlines N} at the desired
location(s). location(s).
@ -10869,7 +10869,7 @@ recognized. See @ref{@LaTeX{} and PDF export} for more information.
@cindex #+BEAMER_INNER_THEME @cindex #+BEAMER_INNER_THEME
@cindex #+BEAMER_OUTER_THEME @cindex #+BEAMER_OUTER_THEME
Beamer export introduces a number of keywords to insert code in the Beamer export introduces a number of keywords to insert code in the
document's header. Four control appearance of the presentantion: document's header. Four control appearance of the presentation:
@code{#+BEAMER_THEME}, @code{#+BEAMER_COLOR_THEME}, @code{#+BEAMER_THEME}, @code{#+BEAMER_COLOR_THEME},
@code{#+BEAMER_FONT_THEME}, @code{#+BEAMER_INNER_THEME} and @code{#+BEAMER_FONT_THEME}, @code{#+BEAMER_INNER_THEME} and
@code{#+BEAMER_OUTER_THEME}. All of them accept optional arguments @code{#+BEAMER_OUTER_THEME}. All of them accept optional arguments
@ -10988,7 +10988,7 @@ Here is a simple example Org document that is intended for Beamer export.
@section HTML export @section HTML export
@cindex HTML export @cindex HTML export
Org mode contains a HTML (XHTML 1.0 strict) exporter with extensive Org mode contains an HTML (XHTML 1.0 strict) exporter with extensive
HTML formatting, in ways similar to John Gruber's @emph{markdown} HTML formatting, in ways similar to John Gruber's @emph{markdown}
language, but with additional support for tables. language, but with additional support for tables.
@ -11011,11 +11011,11 @@ language, but with additional support for tables.
@table @kbd @table @kbd
@orgcmd{C-c C-e h h,org-html-export-to-html} @orgcmd{C-c C-e h h,org-html-export-to-html}
Export as a HTML file. For an Org file @file{myfile.org}, Export as an HTML file. For an Org file @file{myfile.org},
the HTML file will be @file{myfile.html}. The file will be overwritten the HTML file will be @file{myfile.html}. The file will be overwritten
without warning. without warning.
@kbd{C-c C-e h o} @kbd{C-c C-e h o}
Export as a HTML file and immediately open it with a browser. Export as an HTML file and immediately open it with a browser.
@orgcmd{C-c C-e h H,org-html-export-as-html} @orgcmd{C-c C-e h H,org-html-export-as-html}
Export to a temporary buffer. Do not create a file. Export to a temporary buffer. Do not create a file.
@end table @end table
@ -11042,7 +11042,7 @@ Export to a temporary buffer. Do not create a file.
Org can export to various (X)HTML flavors. Org can export to various (X)HTML flavors.
Setting the variable @code{org-html-doctype} allows you to export to different Setting the variable @code{org-html-doctype} allows you to export to different
(X)HTML variants. The exported HTML will be adjusted according to the sytax (X)HTML variants. The exported HTML will be adjusted according to the syntax
requirements of that variant. You can either set this variable to a doctype requirements of that variant. You can either set this variable to a doctype
string directly, in which case the exporter will try to adjust the syntax string directly, in which case the exporter will try to adjust the syntax
automatically, or you can use a ready-made doctype. The ready-made options automatically, or you can use a ready-made doctype. The ready-made options
@ -11189,7 +11189,7 @@ includes automatic links created by radio targets (@pxref{Radio
targets}). Links to external files will still work if the target file is on targets}). Links to external files will still work if the target file is on
the same @i{relative} path as the published Org file. Links to other the same @i{relative} path as the published Org file. Links to other
@file{.org} files will be translated into HTML links under the assumption @file{.org} files will be translated into HTML links under the assumption
that a HTML version also exists of the linked file, at the same relative that an HTML version also exists of the linked file, at the same relative
path. @samp{id:} links can then be used to jump to specific entries across path. @samp{id:} links can then be used to jump to specific entries across
files. For information related to linking files while publishing them to a files. For information related to linking files while publishing them to a
publishing directory see @ref{Publishing links}. publishing directory see @ref{Publishing links}.
@ -11786,10 +11786,10 @@ attribute. You may set it to:
@code{t}: if you want to make the source block a float. It is the default @code{t}: if you want to make the source block a float. It is the default
value when a caption is provided. value when a caption is provided.
@item @item
@code{mulicolumn}: if you wish to include a source block which spans multiple @code{multicolumn}: if you wish to include a source block which spans multiple
colums in a page. columns in a page.
@item @item
@code{nil}: if you need to avoid any floating evironment, even when a caption @code{nil}: if you need to avoid any floating environment, even when a caption
is provided. It is useful for source code that may not fit in a single page. is provided. It is useful for source code that may not fit in a single page.
@end itemize @end itemize
@ -11851,7 +11851,7 @@ respectively, @code{:width} and @code{:thickness} attributes:
@section Markdown export @section Markdown export
@cindex Markdown export @cindex Markdown export
@code{md} export back-end generates Markdown syntax@footnote{Vanilla flavour, @code{md} export back-end generates Markdown syntax@footnote{Vanilla flavor,
as defined at @url{http://daringfireball.net/projects/markdown/}.} for an Org as defined at @url{http://daringfireball.net/projects/markdown/}.} for an Org
mode buffer. mode buffer.
@ -12871,7 +12871,7 @@ you are using. The FAQ covers this issue.
@cindex export back-ends, built-in @cindex export back-ends, built-in
@vindex org-export-backends @vindex org-export-backends
On top of the aforemetioned back-ends, Org comes with other built-in ones: On top of the aforementioned back-ends, Org comes with other built-in ones:
@itemize @itemize
@item @file{ox-man.el}: export to a man page. @item @file{ox-man.el}: export to a man page.
@ -12904,8 +12904,8 @@ Convert the selected region into @code{Texinfo}.
Convert the selected region into @code{MarkDown}. Convert the selected region into @code{MarkDown}.
@end table @end table
This is particularily useful for converting tables and lists in foreign This is particularly useful for converting tables and lists in foreign
buffers. E.g., in a HTML buffer, you can turn on @code{orgstruct-mode}, then buffers. E.g., in an HTML buffer, you can turn on @code{orgstruct-mode}, then
use Org commands for editing a list, and finally select and convert the list use Org commands for editing a list, and finally select and convert the list
with @code{M-x org-html-convert-region-to-html RET}. with @code{M-x org-html-convert-region-to-html RET}.
@ -17968,7 +17968,7 @@ inspired some of the early development, including HTML export. He also
asked for a way to narrow wide table columns. asked for a way to narrow wide table columns.
@item @item
@i{Jason Dunsmore} has been maintaining the Org-Mode server at Rackspace for @i{Jason Dunsmore} has been maintaining the Org-Mode server at Rackspace for
several years now. He also sponsered the hosting costs until Rackspace several years now. He also sponsored the hosting costs until Rackspace
started to host us for free. started to host us for free.
@item @item
@i{Thomas S. Dye} contributed documentation on Worg and helped integrating @i{Thomas S. Dye} contributed documentation on Worg and helped integrating

16
etc/ORG-NEWS
View File

@ -101,7 +101,7 @@ of the list.
Add support for ell, imath, jmath, varphi, varpi, aleph, gimel, beth, Add support for ell, imath, jmath, varphi, varpi, aleph, gimel, beth,
dalet, cdots, S (§), dag, ddag, colon, therefore, because, triangleq, dalet, cdots, S (§), dag, ddag, colon, therefore, because, triangleq,
leq, geq, lessgtr, lesseqgtr, ll, lll, gg, ggg, prec, preceq, leq, geq, lessgtr, lesseqgtr, ll, lll, gg, ggg, prec, preceq,
preccurleyeq, succ, succeq, succurleyeq, setminus, nexist(s), mho, preccurlyeq, succ, succeq, succurlyeq, setminus, nexist(s), mho,
check, frown, diamond. Changes loz, vert, checkmark, smile and tilde. check, frown, diamond. Changes loz, vert, checkmark, smile and tilde.
*** Anonymous export back-ends *** Anonymous export back-ends
@ -146,7 +146,7 @@ This makes java executable configurable for ditaa blocks.
This enables SVG generation from latex code blocks. This enables SVG generation from latex code blocks.
*** New option: [[doc:org-habit-show-done-alwyays-green][org-habit-show-done-alwyays-green]] *** New option: [[doc:org-habit-show-done-always-green][org-habit-show-done-always-green]]
See [[http://lists.gnu.org/archive/html/emacs-orgmode/2013-05/msg00214.html][this message]] from Max Mikhanosha. See [[http://lists.gnu.org/archive/html/emacs-orgmode/2013-05/msg00214.html][this message]] from Max Mikhanosha.
@ -277,8 +277,8 @@ manual for details and check [[http://orgmode.org/worg/org-8.0.html][this Worg p
moved some contributions into the =contrib/= directory. moved some contributions into the =contrib/= directory.
The rationale for deciding that these files should live in =contrib/= The rationale for deciding that these files should live in =contrib/=
is either because they rely on third-part softwares that are not is either because they rely on third-party software that is not
included in Emacs, or because they are not targetting a significant included in Emacs, or because they are not targeting a significant
user-base. user-base.
- org-colview-xemacs.el - org-colview-xemacs.el
@ -395,7 +395,7 @@ Among the new/updated export options, three are of particular importance:
- [[doc:org-export-allow-bind-keywords][org-export-allow-bind-keywords]] :: This option replaces the old option - [[doc:org-export-allow-bind-keywords][org-export-allow-bind-keywords]] :: This option replaces the old option
=org-export-allow-BIND= and the default value is =nil=, not =confirm=. =org-export-allow-BIND= and the default value is =nil=, not =confirm=.
You will need to explicitely set this to =t= in your initialization You will need to explicitly set this to =t= in your initialization
file if you want to allow =#+BIND= keywords. file if you want to allow =#+BIND= keywords.
- [[doc:org-export-with-planning][org-export-with-planning]] :: This new option controls the export of - [[doc:org-export-with-planning][org-export-with-planning]] :: This new option controls the export of
@ -654,7 +654,7 @@ headlines and their content (but not subheadings) into the new file.
This is useful when you want to quickly share an agenda containing the full This is useful when you want to quickly share an agenda containing the full
list of notes. list of notes.
**** New commands to drag an agenda line forward (=M-<down>=) or backard (=M-<up>=) **** New commands to drag an agenda line forward (=M-<down>=) or backward (=M-<up>=)
It sometimes handy to move agenda lines around, just to quickly reorganize It sometimes handy to move agenda lines around, just to quickly reorganize
your tasks, or maybe before saving the agenda to a file. Now you can use your tasks, or maybe before saving the agenda to a file. Now you can use
@ -717,7 +717,7 @@ string is important to keep the agenda alignment clean.
When [[doc:org-agenda-skip-scheduled-if-deadline-is-shown][org-agenda-skip-scheduled-if-deadline-is-shown]] is set to When [[doc:org-agenda-skip-scheduled-if-deadline-is-shown][org-agenda-skip-scheduled-if-deadline-is-shown]] is set to
=repeated-after-deadline=, the agenda will skip scheduled items if they are =repeated-after-deadline=, the agenda will skip scheduled items if they are
repeated beyond the current dealine. repeated beyond the current deadline.
**** New option for [[doc:org-agenda-skip-deadline-prewarning-if-scheduled][org-agenda-skip-deadline-prewarning-if-scheduled]] **** New option for [[doc:org-agenda-skip-deadline-prewarning-if-scheduled][org-agenda-skip-deadline-prewarning-if-scheduled]]
@ -757,7 +757,7 @@ check against the name of the buffer.
Using =#+TAGS: { Tag1 : Tag2 Tag3 }= will define =Tag1= as a /group tag/ Using =#+TAGS: { Tag1 : Tag2 Tag3 }= will define =Tag1= as a /group tag/
(note the colon after =Tag1=). If you search for =Tag1=, it will return (note the colon after =Tag1=). If you search for =Tag1=, it will return
headlines containing either =Tag1=, =Tag2= or =Tag3= (or any combinaison headlines containing either =Tag1=, =Tag2= or =Tag3= (or any combination
of those tags.) of those tags.)
You can use group tags for sparse tree in an Org buffer, for creating You can use group tags for sparse tree in an Org buffer, for creating

2
lisp/ob-core.el
View File

@ -327,7 +327,7 @@ Do not query the user."
(message (format "Evaluation of this%scode-block%sis disabled." (message (format "Evaluation of this%scode-block%sis disabled."
code-block block-name)))))) code-block block-name))))))
;; dynamically scoped for asynchroneous export ;; dynamically scoped for asynchronous export
(defvar org-babel-confirm-evaluate-answer-no) (defvar org-babel-confirm-evaluate-answer-no)
(defsubst org-babel-confirm-evaluate (info) (defsubst org-babel-confirm-evaluate (info)

10
lisp/ob-python.el
View File

@ -156,14 +156,14 @@ Emacs-lisp table, otherwise return the results as a string."
"Return the buffer associated with SESSION." "Return the buffer associated with SESSION."
(cdr (assoc session org-babel-python-buffers))) (cdr (assoc session org-babel-python-buffers)))
(defun org-babel-python-with-earmufs (session) (defun org-babel-python-with-earmuffs (session)
(let ((name (if (stringp session) session (format "%s" session)))) (let ((name (if (stringp session) session (format "%s" session))))
(if (and (string= "*" (substring name 0 1)) (if (and (string= "*" (substring name 0 1))
(string= "*" (substring name (- (length name) 1)))) (string= "*" (substring name (- (length name) 1))))
name name
(format "*%s*" name)))) (format "*%s*" name))))
(defun org-babel-python-without-earmufs (session) (defun org-babel-python-without-earmuffs (session)
(let ((name (if (stringp session) session (format "%s" session)))) (let ((name (if (stringp session) session (format "%s" session))))
(if (and (string= "*" (substring name 0 1)) (if (and (string= "*" (substring name 0 1))
(string= "*" (substring name (- (length name) 1)))) (string= "*" (substring name (- (length name) 1))))
@ -190,9 +190,9 @@ then create. Return the initialized session."
(if (not (version< "24.1" emacs-version)) (if (not (version< "24.1" emacs-version))
(run-python cmd) (run-python cmd)
(unless python-buffer (unless python-buffer
(setq python-buffer (org-babel-python-with-earmufs session))) (setq python-buffer (org-babel-python-with-earmuffs session)))
(let ((python-shell-buffer-name (let ((python-shell-buffer-name
(org-babel-python-without-earmufs python-buffer))) (org-babel-python-without-earmuffs python-buffer)))
(run-python cmd)))) (run-python cmd))))
((and (eq 'python-mode org-babel-python-mode) ((and (eq 'python-mode org-babel-python-mode)
(fboundp 'py-shell)) ; python-mode.el (fboundp 'py-shell)) ; python-mode.el
@ -208,7 +208,7 @@ then create. Return the initialized session."
(concat "Python-" (symbol-name session)))) (concat "Python-" (symbol-name session))))
(py-which-bufname bufname)) (py-which-bufname bufname))
(py-shell) (py-shell)
(setq python-buffer (org-babel-python-with-earmufs bufname)))) (setq python-buffer (org-babel-python-with-earmuffs bufname))))
(t (t
(error "No function available for running an inferior Python"))) (error "No function available for running an inferior Python")))
(setq org-babel-python-buffers (setq org-babel-python-buffers

2
lisp/org-agenda.el
View File

@ -864,7 +864,7 @@ When set to the symbol `not-today', skip scheduled previously,
but not scheduled today. but not scheduled today.
When set to the symbol `repeated-after-deadline', skip scheduled When set to the symbol `repeated-after-deadline', skip scheduled
items if they are repeated beyond the current dealine." items if they are repeated beyond the current deadline."
:group 'org-agenda-skip :group 'org-agenda-skip
:group 'org-agenda-daily/weekly :group 'org-agenda-daily/weekly
:type '(choice :type '(choice

2
lisp/org-bibtex.el
View File

@ -44,7 +44,7 @@
;; Here is an example of a capture template that use some of this ;; Here is an example of a capture template that use some of this
;; information (:author :year :title :journal :pages): ;; information (:author :year :title :journal :pages):
;; ;;
;; (setq org-capure-templates ;; (setq org-capture-templates
;; '((?b "* READ %?\n\n%a\n\n%:author (%:year): %:title\n \ ;; '((?b "* READ %?\n\n%a\n\n%:author (%:year): %:title\n \
;; In %:journal, %:pages."))) ;; In %:journal, %:pages.")))
;; ;;

2
lisp/org-clock.el
View File

@ -667,7 +667,7 @@ previous clocking intervals."
VALUE can be a number of minutes, or a string with format hh:mm or mm. VALUE can be a number of minutes, or a string with format hh:mm or mm.
When the string starts with a + or a - sign, the current value of the effort When the string starts with a + or a - sign, the current value of the effort
property will be changed by that amount. If the effort value is expressed property will be changed by that amount. If the effort value is expressed
as an `org-effort-durations' (e.g. \"3h\"), the modificied value will be as an `org-effort-durations' (e.g. \"3h\"), the modified value will be
converted to a hh:mm duration. converted to a hh:mm duration.
This command will update the \"Effort\" property of the currently This command will update the \"Effort\" property of the currently

2
lisp/org-footnote.el
View File

@ -113,7 +113,7 @@ you will need to run the following command after the change:
\\[universal-argument] \\[org-element-cache-reset]" \\[universal-argument] \\[org-element-cache-reset]"
:group 'org-footnote :group 'org-footnote
:initialize 'custom-initialize-set :initialize 'custom-initialize-default
:set (lambda (var val) :set (lambda (var val)
(set var val) (set var val)
(when (fboundp 'org-element-cache-reset) (when (fboundp 'org-element-cache-reset)

2
lisp/org-src.el
View File

@ -69,7 +69,7 @@ there are kept outside the narrowed region."
This will save the content of the source code editing buffer into This will save the content of the source code editing buffer into
a newly created file, not the base buffer for this source block. a newly created file, not the base buffer for this source block.
If you want to regularily save the base buffer instead of the source If you want to regularly save the base buffer instead of the source
code editing buffer, see `org-edit-src-auto-save-idle-delay' instead." code editing buffer, see `org-edit-src-auto-save-idle-delay' instead."
:group 'org-edit-structure :group 'org-edit-structure
:version "24.4" :version "24.4"

4
lisp/org-table.el
View File

@ -97,11 +97,11 @@ this variable requires a restart of Emacs to become effective."
Each template must define lines that will be treated as a comment and that Each template must define lines that will be treated as a comment and that
must contain the \"BEGIN RECEIVE ORGTBL %n\" and \"END RECEIVE ORGTBL\" must contain the \"BEGIN RECEIVE ORGTBL %n\" and \"END RECEIVE ORGTBL\"
lines where \"%n\" will be replaced with the name of the table during lines where \"%n\" will be replaced with the name of the table during
insertion of the tempate. The transformed table will later be inserted insertion of the template. The transformed table will later be inserted
between these lines. between these lines.
The template should also contain a minimal table in a multiline comment. The template should also contain a minimal table in a multiline comment.
If multiline comments are not possible in the buffer language, If multiline comments are not possible in the buffer language,
you can pack it into a string that will not be used when the code you can pack it into a string that will not be used when the code
is compiled or executed. Above the table will you need a line with is compiled or executed. Above the table will you need a line with
the fixed string \"#+ORGTBL: SEND\", followed by instruction on how to the fixed string \"#+ORGTBL: SEND\", followed by instruction on how to

426
lisp/org.el
View File

@ -329,8 +329,204 @@ When MESSAGE is non-nil, display a message with the version."
(defconst org-version (org-version)) (defconst org-version (org-version))
;;; Compatibility constants
;;; Syntax Constants
;;;; Block
(defconst org-block-regexp
"^[ \t]*#\\+begin_?\\([^ \n]+\\)\\(\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_?\\1[ \t]*$"
"Regular expression for hiding blocks.")
(defconst org-dblock-start-re
"^[ \t]*#\\+\\(?:BEGIN\\|begin\\):[ \t]+\\(\\S-+\\)\\([ \t]+\\(.*\\)\\)?"
"Matches the start line of a dynamic block, with parameters.")
(defconst org-dblock-end-re "^[ \t]*#\\+\\(?:END\\|end\\)\\([: \t\r\n]\\|$\\)"
"Matches the end of a dynamic block.")
;;;; Clock and Planning
(defconst org-clock-string "CLOCK:"
"String used as prefix for timestamps clocking work hours on an item.")
(defconst org-closed-string "CLOSED:"
"String used as the prefix for timestamps logging closing a TODO entry.")
(defconst org-deadline-string "DEADLINE:"
"String to mark deadline entries.
A deadline is this string, followed by a time stamp. Should be a word,
terminated by a colon. You can insert a schedule keyword and
a timestamp with \\[org-deadline].")
(defconst org-scheduled-string "SCHEDULED:"
"String to mark scheduled TODO entries.
A schedule is this string, followed by a time stamp. Should be a word,
terminated by a colon. You can insert a schedule keyword and
a timestamp with \\[org-schedule].")
(defconst org-planning-or-clock-line-re
(concat "^[ \t]*"
(regexp-opt
(list org-clock-string org-closed-string org-deadline-string
org-scheduled-string)
t))
"Matches a line with planning or clock info.
Matched keyword is in group 1.")
;;;; Drawer
(defconst org-drawer-regexp "^[ \t]*:\\(\\(?:\\w\\|[-_]\\)+\\):[ \t]*$"
"Matches first line of a hidden block.
Group 1 contains drawer's name.")
(defconst org-property-start-re "^[ \t]*:PROPERTIES:[ \t]*$"
"Regular expression matching the first line of a property drawer.")
(defconst org-property-end-re "^[ \t]*:END:[ \t]*$"
"Regular expression matching the last line of a property drawer.")
(defconst org-clock-drawer-start-re "^[ \t]*:CLOCK:[ \t]*$"
"Regular expression matching the first line of a property drawer.")
(defconst org-clock-drawer-end-re "^[ \t]*:END:[ \t]*$"
"Regular expression matching the first line of a property drawer.")
(defconst org-property-drawer-re
(concat "\\(" org-property-start-re "\\)[^\000]*?\\("
org-property-end-re "\\)\n?")
"Matches an entire property drawer.")
(defconst org-clock-drawer-re
(concat "\\(" org-clock-drawer-start-re "\\)[^\000]*?\\("
org-property-end-re "\\)\n?")
"Matches an entire clock drawer.")
;;;; Headline
(defconst org-heading-keyword-regexp-format
"^\\(\\*+\\)\\(?: +%s\\)\\(?: +\\(.*?\\)\\)?[ \t]*$"
"Printf format for a regexp matching a headline with some keyword.
This regexp will match the headline of any node which has the
exact keyword that is put into the format. The keyword isn't in
any group by default, but the stars and the body are.")
(defconst org-heading-keyword-maybe-regexp-format
"^\\(\\*+\\)\\(?: +%s\\)?\\(?: +\\(.*?\\)\\)?[ \t]*$"
"Printf format for a regexp matching a headline, possibly with some keyword.
This regexp can match any headline with the specified keyword, or
without a keyword. The keyword isn't in any group by default,
but the stars and the body are.")
(defconst org-archive-tag "ARCHIVE"
"The tag that marks a subtree as archived.
An archived subtree does not open during visibility cycling, and does
not contribute to the agenda listings.")
(defconst org-comment-string "COMMENT"
"Entries starting with this keyword will never be exported.
An entry can be toggled between COMMENT and normal with
\\[org-toggle-comment].")
(defconst org-quote-string "QUOTE"
"Entries starting with this keyword will be exported in fixed-width font.
Quoting applies only to the text in the entry following the headline, and does
not extend beyond the next headline, even if that is lower level.
An entry can be toggled between QUOTE and normal with
\\[org-toggle-fixed-width-section].")
;;;; LaTeX Environments and Fragments
(defconst org-latex-regexps
'(("begin" "^[ \t]*\\(\\\\begin{\\([a-zA-Z0-9\\*]+\\)[^\000]+?\\\\end{\\2}\\)" 1 t)
;; ("$" "\\([ (]\\|^\\)\\(\\(\\([$]\\)\\([^ \r\n,.$].*?\\(\n.*?\\)\\{0,5\\}[^ \r\n,.$]\\)\\4\\)\\)\\([ .,?;:'\")]\\|$\\)" 2 nil)
;; \000 in the following regex is needed for org-inside-LaTeX-fragment-p
("$1" "\\([^$]\\|^\\)\\(\\$[^ \r\n,;.$]\\$\\)\\([- .,?;:'\")\000]\\|$\\)" 2 nil)
("$" "\\([^$]\\|^\\)\\(\\(\\$\\([^ \r\n,;.$][^$\n\r]*?\\(\n[^$\n\r]*?\\)\\{0,2\\}[^ \r\n,.$]\\)\\$\\)\\)\\([- .,?;:'\")\000]\\|$\\)" 2 nil)
("\\(" "\\\\([^\000]*?\\\\)" 0 nil)
("\\[" "\\\\\\[[^\000]*?\\\\\\]" 0 nil)
("$$" "\\$\\$[^\000]*?\\$\\$" 0 nil))
"Regular expressions for matching embedded LaTeX.")
;;;; Node Property
(defconst org-effort-property "Effort"
"The property that is being used to keep track of effort estimates.
Effort estimates given in this property need to have the format H:MM.")
;;;; Table
(defconst org-table-any-line-regexp "^[ \t]*\\(|\\|\\+-[-+]\\)"
"Detect an org-type or table-type table.")
(defconst org-table-line-regexp "^[ \t]*|"
"Detect an org-type table line.")
(defconst org-table-dataline-regexp "^[ \t]*|[^-]"
"Detect an org-type table line.")
(defconst org-table-hline-regexp "^[ \t]*|-"
"Detect an org-type table hline.")
(defconst org-table1-hline-regexp "^[ \t]*\\+-[-+]"
"Detect a table-type table hline.")
(defconst org-table-any-border-regexp "^[ \t]*[^|+ \t]"
"Detect the first line outside a table when searching from within it.
This works for both table types.")
(defconst org-TBLFM-regexp "^[ \t]*#\\+TBLFM: "
"Detect a #+TBLFM line.")
;;;; Timestamp
(defconst org-ts-regexp "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^\r\n>]*?\\)>"
"Regular expression for fast time stamp matching.")
(defconst org-ts-regexp-both "[[<]\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^]\r\n>]*?\\)[]>]"
"Regular expression for fast time stamp matching.")
(defconst org-ts-regexp0
"\\(\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\)\\( +[^]+0-9>\r\n -]+\\)?\\( +\\([0-9]\\{1,2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)"
"Regular expression matching time strings for analysis.
This one does not require the space after the date, so it can be used
on a string that terminates immediately after the date.")
(defconst org-ts-regexp1 "\\(\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\) *\\([^]+0-9>\r\n -]*\\)\\( \\([0-9]\\{1,2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)"
"Regular expression matching time strings for analysis.")
(defconst org-ts-regexp2 (concat "<" org-ts-regexp1 "[^>\n]\\{0,16\\}>")
"Regular expression matching time stamps, with groups.")
(defconst org-ts-regexp3 (concat "[[<]" org-ts-regexp1 "[^]>\n]\\{0,16\\}[]>]")
"Regular expression matching time stamps (also [..]), with groups.")
(defconst org-tr-regexp (concat org-ts-regexp "--?-?" org-ts-regexp)
"Regular expression matching a time stamp range.")
(defconst org-tr-regexp-both
(concat org-ts-regexp-both "--?-?" org-ts-regexp-both)
"Regular expression matching a time stamp range.")
(defconst org-tsr-regexp (concat org-ts-regexp "\\(--?-?"
org-ts-regexp "\\)?")
"Regular expression matching a time stamp or time stamp range.")
(defconst org-tsr-regexp-both
(concat org-ts-regexp-both "\\(--?-?"
org-ts-regexp-both "\\)?")
"Regular expression matching a time stamp or time stamp range.
The time stamps may be either active or inactive.")
(defconst org-repeat-re
"<[0-9]\\{4\\}-[0-9][0-9]-[0-9][0-9] [^>\n]*?\\([.+]?\\+[0-9]+[hdwmy]\\(/[0-9]+[hdwmy]\\)?\\)"
"Regular expression for specifying repeated events.
After a match, group 1 contains the repeat expression.")
(defconst org-time-stamp-formats '("<%Y-%m-%d %a>" . "<%Y-%m-%d %a %H:%M>")
"Formats for `format-time-string' which are used for time stamps.")
;;; The custom variables ;;; The custom variables
(defgroup org nil (defgroup org nil
@ -670,11 +866,17 @@ the following lines anywhere in the buffer:
(defcustom org-use-sub-superscripts t (defcustom org-use-sub-superscripts t
"Non-nil means interpret \"_\" and \"^\" for display. "Non-nil means interpret \"_\" and \"^\" for display.
When this option is turned on, you can use TeX-like syntax for sub- and
superscripts. Several characters after \"_\" or \"^\" will be If you want to control how Org exports those characters, see
considered as a single item - so grouping with {} is normally not `org-export-with-sub-superscripts'. `org-use-sub-superscripts'
needed. For example, the following things will be parsed as single used to be an alias for `org-export-with-sub-superscripts' in
sub- or superscripts. Org <8.0, it is not anymore.
When this option is turned on, you can use TeX-like syntax for
sub- and superscripts within the buffer. Several characters after
\"_\" or \"^\" will be considered as a single item - so grouping
with {} is normally not needed. For example, the following things
will be parsed as single sub- or superscripts:
10^24 or 10^tau several digits will be considered 1 item. 10^24 or 10^tau several digits will be considered 1 item.
10^-12 or 10^-tau a leading sign with digits or a word 10^-12 or 10^-tau a leading sign with digits or a word
@ -682,13 +884,14 @@ sub- or superscripts.
terminated by almost any nonword/nondigit char. terminated by almost any nonword/nondigit char.
x_{i^2} or x^(2-i) braces or parenthesis do grouping. x_{i^2} or x^(2-i) braces or parenthesis do grouping.
Still, ambiguity is possible - so when in doubt use {} to enclose Still, ambiguity is possible. So when in doubt, use {} to enclose
the sub/superscript. If you set this variable to the symbol the sub/superscript. If you set this variable to the symbol `{}',
`{}', the braces are *required* in order to trigger the braces are *required* in order to trigger interpretations as
interpretations as sub/superscript. This can be helpful in sub/superscript. This can be helpful in documents that need \"_\"
documents that need \"_\" frequently in plain text." frequently in plain text."
:group 'org-startup :group 'org-startup
:version "24.1" :version "24.4"
:package-version '(Org . "8.0")
:type '(choice :type '(choice
(const :tag "Always interpret" t) (const :tag "Always interpret" t)
(const :tag "Only with braces" {}) (const :tag "Only with braces" {})
@ -729,7 +932,7 @@ the following lines anywhere in the buffer:
"Non-nil means preview LaTeX fragments when loading a new Org file. "Non-nil means preview LaTeX fragments when loading a new Org file.
This can also be configured on a per-file basis by adding one of This can also be configured on a per-file basis by adding one of
the followinglines anywhere in the buffer: the following lines anywhere in the buffer:
#+STARTUP: latexpreview #+STARTUP: latexpreview
#+STARTUP: nolatexpreview" #+STARTUP: nolatexpreview"
:group 'org-startup :group 'org-startup
@ -840,34 +1043,6 @@ effective."
:tag "Org Keywords" :tag "Org Keywords"
:group 'org) :group 'org)
(defcustom org-deadline-string "DEADLINE:"
"String to mark deadline entries.
A deadline is this string, followed by a time stamp. Should be a word,
terminated by a colon. You can insert a schedule keyword and
a timestamp with \\[org-deadline].
Changes become only effective after restarting Emacs."
:group 'org-keywords
:type 'string)
(defcustom org-scheduled-string "SCHEDULED:"
"String to mark scheduled TODO entries.
A schedule is this string, followed by a time stamp. Should be a word,
terminated by a colon. You can insert a schedule keyword and
a timestamp with \\[org-schedule].
Changes become only effective after restarting Emacs."
:group 'org-keywords
:type 'string)
(defcustom org-closed-string "CLOSED:"
"String used as the prefix for timestamps logging closing a TODO entry."
:group 'org-keywords
:type 'string)
(defcustom org-clock-string "CLOCK:"
"String used as prefix for timestamps clocking work hours on an item."
:group 'org-keywords
:type 'string)
(defcustom org-closed-keep-when-no-todo nil (defcustom org-closed-keep-when-no-todo nil
"Remove CLOSED: time-stamp when switching back to a non-todo state?" "Remove CLOSED: time-stamp when switching back to a non-todo state?"
:group 'org-todo :group 'org-todo
@ -876,39 +1051,6 @@ Changes become only effective after restarting Emacs."
:package-version '(Org . "8.0") :package-version '(Org . "8.0")
:type 'boolean) :type 'boolean)
(defconst org-planning-or-clock-line-re (concat "^[ \t]*\\("
org-scheduled-string "\\|"
org-deadline-string "\\|"
org-closed-string "\\|"
org-clock-string "\\)")
"Matches a line with planning or clock info.")
(defcustom org-comment-string "COMMENT"
"Entries starting with this keyword will never be exported.
An entry can be toggled between COMMENT and normal with
\\[org-toggle-comment].
Changes become only effective after restarting Emacs."
:group 'org-keywords
:type 'string)
(defcustom org-quote-string "QUOTE"
"Entries starting with this keyword will be exported in fixed-width font.
Quoting applies only to the text in the entry following the headline, and does
not extend beyond the next headline, even if that is lower level.
An entry can be toggled between QUOTE and normal with
\\[org-toggle-fixed-width-section]."
:group 'org-keywords
:type 'string)
(defconst org-drawer-regexp "^[ \t]*:\\(\\(?:\\w\\|[-_]\\)+\\):[ \t]*$"
"Matches first line of a hidden block.
Group 1 contains drawer's name.")
(defconst org-repeat-re
"<[0-9]\\{4\\}-[0-9][0-9]-[0-9][0-9] [^>\n]*?\\([.+]?\\+[0-9]+[hdwmy]\\(/[0-9]+[hdwmy]\\)?\\)"
"Regular expression for specifying repeated events.
After a match, group 1 contains the repeat expression.")
(defgroup org-structure nil (defgroup org-structure nil
"Options concerning the general structure of Org-mode files." "Options concerning the general structure of Org-mode files."
:tag "Org Structure" :tag "Org Structure"
@ -1063,7 +1205,7 @@ commands in the Help buffer using the `?' speed command."
:last-refile "org-refile-last-stored" :last-refile "org-refile-last-stored"
:last-capture-marker "org-capture-last-stored-marker") :last-capture-marker "org-capture-last-stored-marker")
"Names for bookmarks automatically set by some Org commands. "Names for bookmarks automatically set by some Org commands.
This can provide strings as names for a number of bookmakrs Org sets This can provide strings as names for a number of bookmarks Org sets
automatically. The following keys are currently implemented: automatically. The following keys are currently implemented:
:last-capture :last-capture
:last-capture-marker :last-capture-marker
@ -2861,10 +3003,6 @@ the time stamp will always be forced into the second line."
:group 'org-time :group 'org-time
:type 'boolean) :type 'boolean)
(defconst org-time-stamp-formats '("<%Y-%m-%d %a>" . "<%Y-%m-%d %a %H:%M>")
"Formats for `format-time-string' which are used for time stamps.
It is not recommended to change this constant.")
(defcustom org-time-stamp-rounding-minutes '(0 5) (defcustom org-time-stamp-rounding-minutes '(0 5)
"Number of minutes to round time stamps to. "Number of minutes to round time stamps to.
These are two values, the first applies when first creating a time stamp. These are two values, the first applies when first creating a time stamp.
@ -3532,13 +3670,6 @@ or nil if the normal value should be used."
:group 'org-properties :group 'org-properties
:type '(choice (const nil) (function))) :type '(choice (const nil) (function)))
(defcustom org-effort-property "Effort"
"The property that is being used to keep track of effort estimates.
Effort estimates given in this property need to have the format H:MM."
:group 'org-properties
:group 'org-progress
:type '(string :tag "Property"))
(defconst org-global-properties-fixed (defconst org-global-properties-fixed
'(("VISIBILITY_ALL" . "folded children content all") '(("VISIBILITY_ALL" . "folded children content all")
("CLOCK_MODELINE_TOTAL_ALL" . "current today repeat all auto")) ("CLOCK_MODELINE_TOTAL_ALL" . "current today repeat all auto"))
@ -4234,30 +4365,6 @@ Normal means, no org-mode-specific context."
(declare-function speedbar-line-directory "speedbar" (&optional depth)) (declare-function speedbar-line-directory "speedbar" (&optional depth))
(declare-function table--at-cell-p "table" (position &optional object at-column)) (declare-function table--at-cell-p "table" (position &optional object at-column))
(defvar org-latex-regexps)
;;; Autoload and prepare some org modules
;; Some table stuff that needs to be defined here, because it is used
;; by the functions setting up org-mode or checking for table context.
(defconst org-table-any-line-regexp "^[ \t]*\\(|\\|\\+-[-+]\\)"
"Detect an org-type or table-type table.")
(defconst org-table-line-regexp "^[ \t]*|"
"Detect an org-type table line.")
(defconst org-table-dataline-regexp "^[ \t]*|[^-]"
"Detect an org-type table line.")
(defconst org-table-hline-regexp "^[ \t]*|-"
"Detect an org-type table hline.")
(defconst org-table1-hline-regexp "^[ \t]*\\+-[-+]"
"Detect a table-type table hline.")
(defconst org-table-any-border-regexp "^[ \t]*[^|+ \t]"
"Detect the first line outside a table when searching from within it.
This works for both table types.")
(defconst org-TBLFM-regexp "^[ \t]*#\\+TBLFM: "
"Detect a #+TBLFM line.")
;;;###autoload ;;;###autoload
(defun turn-on-orgtbl () (defun turn-on-orgtbl ()
"Unconditionally turn on `orgtbl-mode'." "Unconditionally turn on `orgtbl-mode'."
@ -4454,16 +4561,6 @@ the hierarchy, it will be used."
:group 'org-archive :group 'org-archive
:type 'string) :type 'string)
(defcustom org-archive-tag "ARCHIVE"
"The tag that marks a subtree as archived.
An archived subtree does not open during visibility cycling, and does
not contribute to the agenda listings.
After changing this, font-lock must be restarted in the relevant buffers to
get the proper fontification."
:group 'org-archive
:group 'org-keywords
:type 'string)
(defcustom org-agenda-skip-archived-trees t (defcustom org-agenda-skip-archived-trees t
"Non-nil means the agenda will skip any items located in archived trees. "Non-nil means the agenda will skip any items located in archived trees.
An archived tree is a tree marked with the tag ARCHIVE. The use of this An archived tree is a tree marked with the tag ARCHIVE. The use of this
@ -4759,22 +4856,6 @@ means to push this value onto the list in the variable.")
(cons (cons key (if previous (concat previous " " val) val)) remainder) (cons (cons key (if previous (concat previous " " val) val)) remainder)
(cons (cons key val) remainder)))) (cons (cons key val) remainder))))
(defconst org-block-regexp
"^[ \t]*#\\+begin_?\\([^ \n]+\\)\\(\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_?\\1[ \t]*$"
"Regular expression for hiding blocks.")
(defconst org-heading-keyword-regexp-format
"^\\(\\*+\\)\\(?: +%s\\)\\(?: +\\(.*?\\)\\)?[ \t]*$"
"Printf format for a regexp matching a headline with some keyword.
This regexp will match the headline of any node which has the
exact keyword that is put into the format. The keyword isn't in
any group by default, but the stars and the body are.")
(defconst org-heading-keyword-maybe-regexp-format
"^\\(\\*+\\)\\(?: +%s\\)?\\(?: +\\(.*?\\)\\)?[ \t]*$"
"Printf format for a regexp matching a headline, possibly with some keyword.
This regexp can match any headline with the specified keyword, or
without a keyword. The keyword isn't in any group by default,
but the stars and the body are.")
(defcustom org-group-tags t (defcustom org-group-tags t
"When non-nil (the default), use group tags. "When non-nil (the default), use group tags.
This can be turned on/off through `org-toggle-tags-groups'." This can be turned on/off through `org-toggle-tags-groups'."
@ -5633,35 +5714,6 @@ This should be called after the variable `org-link-types' has changed."
(org-make-link-regexps) (org-make-link-regexps)
(defconst org-ts-regexp "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^\r\n>]*?\\)>"
"Regular expression for fast time stamp matching.")
(defconst org-ts-regexp-both "[[<]\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^]\r\n>]*?\\)[]>]"
"Regular expression for fast time stamp matching.")
(defconst org-ts-regexp0
"\\(\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\)\\( +[^]+0-9>\r\n -]+\\)?\\( +\\([0-9]\\{1,2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)"
"Regular expression matching time strings for analysis.
This one does not require the space after the date, so it can be used
on a string that terminates immediately after the date.")
(defconst org-ts-regexp1 "\\(\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\) *\\([^]+0-9>\r\n -]*\\)\\( \\([0-9]\\{1,2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)"
"Regular expression matching time strings for analysis.")
(defconst org-ts-regexp2 (concat "<" org-ts-regexp1 "[^>\n]\\{0,16\\}>")
"Regular expression matching time stamps, with groups.")
(defconst org-ts-regexp3 (concat "[[<]" org-ts-regexp1 "[^]>\n]\\{0,16\\}[]>]")
"Regular expression matching time stamps (also [..]), with groups.")
(defconst org-tr-regexp (concat org-ts-regexp "--?-?" org-ts-regexp)
"Regular expression matching a time stamp range.")
(defconst org-tr-regexp-both
(concat org-ts-regexp-both "--?-?" org-ts-regexp-both)
"Regular expression matching a time stamp range.")
(defconst org-tsr-regexp (concat org-ts-regexp "\\(--?-?"
org-ts-regexp "\\)?")
"Regular expression matching a time stamp or time stamp range.")
(defconst org-tsr-regexp-both
(concat org-ts-regexp-both "\\(--?-?"
org-ts-regexp-both "\\)?")
"Regular expression matching a time stamp or time stamp range.
The time stamps may be either active or inactive.")
(defvar org-emph-face nil) (defvar org-emph-face nil)
(defun org-do-emphasis-faces (limit) (defun org-do-emphasis-faces (limit)
@ -11828,13 +11880,6 @@ If not found, stay at current position and return nil."
(if pos (goto-char pos)) (if pos (goto-char pos))
pos)) pos))
(defconst org-dblock-start-re
"^[ \t]*#\\+\\(?:BEGIN\\|begin\\):[ \t]+\\(\\S-+\\)\\([ \t]+\\(.*\\)\\)?"
"Matches the start line of a dynamic block, with parameters.")
(defconst org-dblock-end-re "^[ \t]*#\\+\\(?:END\\|end\\)\\([: \t\r\n]\\|$\\)"
"Matches the end of a dynamic block.")
(defun org-create-dblock (plist) (defun org-create-dblock (plist)
"Create a dynamic block section, with parameters taken from PLIST. "Create a dynamic block section, with parameters taken from PLIST.
PLIST must contain a :name entry which is used as name of the block." PLIST must contain a :name entry which is used as name of the block."
@ -15052,28 +15097,6 @@ but in some other way.")
"Some properties that are used by Org-mode for various purposes. "Some properties that are used by Org-mode for various purposes.
Being in this list makes sure that they are offered for completion.") Being in this list makes sure that they are offered for completion.")
(defconst org-property-start-re "^[ \t]*:PROPERTIES:[ \t]*$"
"Regular expression matching the first line of a property drawer.")
(defconst org-property-end-re "^[ \t]*:END:[ \t]*$"
"Regular expression matching the last line of a property drawer.")
(defconst org-clock-drawer-start-re "^[ \t]*:CLOCK:[ \t]*$"
"Regular expression matching the first line of a property drawer.")
(defconst org-clock-drawer-end-re "^[ \t]*:END:[ \t]*$"
"Regular expression matching the first line of a property drawer.")
(defconst org-property-drawer-re
(concat "\\(" org-property-start-re "\\)[^\000]*?\\("
org-property-end-re "\\)\n?")
"Matches an entire property drawer.")
(defconst org-clock-drawer-re
(concat "\\(" org-clock-drawer-start-re "\\)[^\000]*?\\("
org-property-end-re "\\)\n?")
"Matches an entire clock drawer.")
(defun org-property-action () (defun org-property-action ()
"Do an action on properties." "Do an action on properties."
(interactive) (interactive)
@ -18202,17 +18225,6 @@ Revert to the normal definition outside of these fragments."
;;;; LaTeX fragments ;;;; LaTeX fragments
(defvar org-latex-regexps
'(("begin" "^[ \t]*\\(\\\\begin{\\([a-zA-Z0-9\\*]+\\)[^\000]+?\\\\end{\\2}\\)" 1 t)
;; ("$" "\\([ (]\\|^\\)\\(\\(\\([$]\\)\\([^ \r\n,.$].*?\\(\n.*?\\)\\{0,5\\}[^ \r\n,.$]\\)\\4\\)\\)\\([ .,?;:'\")]\\|$\\)" 2 nil)
;; \000 in the following regex is needed for org-inside-LaTeX-fragment-p
("$1" "\\([^$]\\|^\\)\\(\\$[^ \r\n,;.$]\\$\\)\\([- .,?;:'\")\000]\\|$\\)" 2 nil)
("$" "\\([^$]\\|^\\)\\(\\(\\$\\([^ \r\n,;.$][^$\n\r]*?\\(\n[^$\n\r]*?\\)\\{0,2\\}[^ \r\n,.$]\\)\\$\\)\\)\\([- .,?;:'\")\000]\\|$\\)" 2 nil)
("\\(" "\\\\([^\000]*?\\\\)" 0 nil)
("\\[" "\\\\\\[[^\000]*?\\\\\\]" 0 nil)
("$$" "\\$\\$[^\000]*?\\$\\$" 0 nil))
"Regular expressions for matching embedded LaTeX.")
(defun org-inside-LaTeX-fragment-p () (defun org-inside-LaTeX-fragment-p ()
"Test if point is inside a LaTeX fragment. "Test if point is inside a LaTeX fragment.
I.e. after a \\begin, \\(, \\[, $, or $$, without the corresponding closing I.e. after a \\begin, \\(, \\[, $, or $$, without the corresponding closing
@ -19573,7 +19585,7 @@ COMMANDS is a list of alternating OLDDEF NEWDEF command names."
"Transpose words for Org. "Transpose words for Org.
This uses the `org-mode-transpose-word-syntax-table' syntax This uses the `org-mode-transpose-word-syntax-table' syntax
table, which interprets characters in `org-emphasis-alist' as table, which interprets characters in `org-emphasis-alist' as
word constituants." word constituents."
(interactive) (interactive)
(with-syntax-table org-mode-transpose-word-syntax-table (with-syntax-table org-mode-transpose-word-syntax-table
(call-interactively 'transpose-words))) (call-interactively 'transpose-words)))
@ -21179,7 +21191,7 @@ With prefix arg UNCOMPILED, load the uncompiled versions."
(message "The following feature%s found in load-path, please check if that's correct:\n%s" (message "The following feature%s found in load-path, please check if that's correct:\n%s"
(if (> (length load-uncore) 1) "s were" " was") load-uncore)) (if (> (length load-uncore) 1) "s were" " was") load-uncore))
(if load-misses (if load-misses
(message "Some error occured while reloading Org feature%s\n%s\nPlease check *Messages*!\n%s" (message "Some error occurred while reloading Org feature%s\n%s\nPlease check *Messages*!\n%s"
(if (> (length load-misses) 1) "s" "") load-misses (org-version nil 'full)) (if (> (length load-misses) 1) "s" "") load-misses (org-version nil 'full))
(message "Successfully reloaded Org\n%s" (org-version nil 'full))))) (message "Successfully reloaded Org\n%s" (org-version nil 'full)))))

6
lisp/ox-ascii.el
View File

@ -461,7 +461,7 @@ Empty lines are not indented."
(defun org-ascii--box-string (s info) (defun org-ascii--box-string (s info)
"Return string S with a partial box to its left. "Return string S with a partial box to its left.
INFO is a plist used as a communicaton channel." INFO is a plist used as a communication channel."
(let ((utf8p (eq (plist-get info :ascii-charset) 'utf-8))) (let ((utf8p (eq (plist-get info :ascii-charset) 'utf-8)))
(format (if utf8p "╭────\n%s\n╰────" ",----\n%s\n`----") (format (if utf8p "╭────\n%s\n╰────" ",----\n%s\n`----")
(replace-regexp-in-string (replace-regexp-in-string
@ -682,7 +682,7 @@ generation. INFO is a plist used as a communication channel."
(let ((text-width (let ((text-width
(if keyword (org-ascii--current-text-width keyword info) (if keyword (org-ascii--current-text-width keyword info)
(- org-ascii-text-width org-ascii-global-margin))) (- org-ascii-text-width org-ascii-global-margin)))
;; Use a counter instead of retreiving ordinal of each ;; Use a counter instead of retrieving ordinal of each
;; src-block. ;; src-block.
(count 0)) (count 0))
(mapconcat (mapconcat
@ -720,7 +720,7 @@ generation. INFO is a plist used as a communication channel."
(let ((text-width (let ((text-width
(if keyword (org-ascii--current-text-width keyword info) (if keyword (org-ascii--current-text-width keyword info)
(- org-ascii-text-width org-ascii-global-margin))) (- org-ascii-text-width org-ascii-global-margin)))
;; Use a counter instead of retreiving ordinal of each ;; Use a counter instead of retrieving ordinal of each
;; src-block. ;; src-block.
(count 0)) (count 0))
(mapconcat (mapconcat

4
lisp/ox-html.el
View File

@ -154,7 +154,7 @@
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">") \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">")
("xhtml-transitional" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" ("xhtml-transitional" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">") \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">")
("xhtml-framset" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Frameset//EN\" ("xhtml-frameset" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Frameset//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd\">") \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd\">")
("xhtml-11" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\" ("xhtml-11" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml11.dtd\">") \"http://www.w3.org/TR/xhtml1/DTD/xhtml11.dtd\">")
@ -3091,7 +3091,7 @@ CONTENTS is the contents of the object. INFO is a plist holding
contextual information." contextual information."
(format "<sup>%s</sup>" contents)) (format "<sup>%s</sup>" contents))
;;;; Tabel Cell ;;;; Table Cell
(defun org-html-table-cell (table-cell contents info) (defun org-html-table-cell (table-cell contents info)
"Transcode a TABLE-CELL element from Org to HTML. "Transcode a TABLE-CELL element from Org to HTML.

10
lisp/ox-latex.el
View File

@ -1330,13 +1330,13 @@ holding contextual information."
(let* ((class (plist-get info :latex-class)) (let* ((class (plist-get info :latex-class))
(level (org-export-get-relative-level headline info)) (level (org-export-get-relative-level headline info))
(numberedp (org-export-numbered-headline-p headline info)) (numberedp (org-export-numbered-headline-p headline info))
(class-sectionning (assoc class org-latex-classes)) (class-sectioning (assoc class org-latex-classes))
;; Section formatting will set two placeholders: one for ;; Section formatting will set two placeholders: one for
;; the title and the other for the contents. ;; the title and the other for the contents.
(section-fmt (section-fmt
(let ((sec (if (functionp (nth 2 class-sectionning)) (let ((sec (if (functionp (nth 2 class-sectioning))
(funcall (nth 2 class-sectionning) level numberedp) (funcall (nth 2 class-sectioning) level numberedp)
(nth (1+ level) class-sectionning)))) (nth (1+ level) class-sectioning))))
(cond (cond
;; No section available for that LEVEL. ;; No section available for that LEVEL.
((not sec) nil) ((not sec) nil)
@ -1627,7 +1627,7 @@ CONTENTS is nil. INFO is a plist holding contextual information."
(value (org-remove-indentation (value (org-remove-indentation
(org-element-property :value latex-environment)))) (org-element-property :value latex-environment))))
(if (not (org-string-nw-p label)) value (if (not (org-string-nw-p label)) value
;; Environment is labelled: label must be within the environment ;; Environment is labeled: label must be within the environment
;; (otherwise, a reference pointing to that element will count ;; (otherwise, a reference pointing to that element will count
;; the section instead). ;; the section instead).
(with-temp-buffer (with-temp-buffer

2
lisp/ox-md.el
View File

@ -22,7 +22,7 @@
;;; Commentary: ;;; Commentary:
;; This library implements a Markdown back-end (vanilla flavour) for ;; This library implements a Markdown back-end (vanilla flavor) for
;; Org exporter, based on `html' back-end. See Org manual for more ;; Org exporter, based on `html' back-end. See Org manual for more
;; information. ;; information.

29
lisp/ox-odt.el
View File

@ -598,7 +598,7 @@ INPUT-FMT-LIST in to a single class.
Note that this variable inherently captures how LibreOffice based Note that this variable inherently captures how LibreOffice based
converters work. LibreOffice maps documents of various formats converters work. LibreOffice maps documents of various formats
to classes like Text, Web, Spreadsheet, Presentation etc and to classes like Text, Web, Spreadsheet, Presentation etc and
allow document of a given class (irrespective of it's source allow document of a given class (irrespective of its source
format) to be converted to any of the export formats associated format) to be converted to any of the export formats associated
with that class. with that class.
@ -921,7 +921,7 @@ Specifically, locale-dependent specifiers like \"%c\", \"%x\" are
formatted as canonical Org timestamps. For finer control, avoid formatted as canonical Org timestamps. For finer control, avoid
these %-specifiers. these %-specifiers.
Textutal specifiers like \"%b\", \"%h\", \"%B\", \"%a\", \"%A\" Textual specifiers like \"%b\", \"%h\", \"%B\", \"%a\", \"%A\"
etc., are displayed by the application in the default language etc., are displayed by the application in the default language
and country specified in `org-odt-styles-file'. Note that the and country specified in `org-odt-styles-file'. Note that the
default styles file uses language \"en\" and country \"GB\". You default styles file uses language \"en\" and country \"GB\". You
@ -1440,7 +1440,7 @@ original parsed data. INFO is a plist holding export options."
;; Update content.xml. ;; Update content.xml.
(let* ( ;; `org-display-custom-times' should be accessed right (let* ( ;; `org-display-custom-times' should be accessed right
;; within the context of the Org buffer. So obtain it's ;; within the context of the Org buffer. So obtain its
;; value before moving on to temp-buffer context down below. ;; value before moving on to temp-buffer context down below.
(custom-time-fmts (custom-time-fmts
(if org-display-custom-times (if org-display-custom-times
@ -1721,7 +1721,7 @@ CONTENTS is nil. INFO is a plist holding contextual information."
(and (eq (org-element-type prev) 'footnote-reference) (and (eq (org-element-type prev) 'footnote-reference)
(format "<text:span text:style-name=\"%s\">%s</text:span>" (format "<text:span text:style-name=\"%s\">%s</text:span>"
"OrgSuperscript" ","))) "OrgSuperscript" ",")))
;; Trancode footnote reference. ;; Transcode footnote reference.
(let ((n (org-export-get-footnote-number footnote-reference info))) (let ((n (org-export-get-footnote-number footnote-reference info)))
(cond (cond
((not (org-export-footnote-first-reference-p footnote-reference info)) ((not (org-export-footnote-first-reference-p footnote-reference info))
@ -2195,7 +2195,7 @@ SHORT-CAPTION are strings."
(concat (concat
;; Sneak in a bookmark. The bookmark is used when the ;; Sneak in a bookmark. The bookmark is used when the
;; labeled element is referenced with a link that ;; labeled element is referenced with a link that
;; provides it's own description. ;; provides its own description.
(format "\n<text:bookmark text:name=\"%s\"/>" label) (format "\n<text:bookmark text:name=\"%s\"/>" label)
;; Label definition: Typically formatted as below: ;; Label definition: Typically formatted as below:
;; CATEGORY SEQ-NO: LONG CAPTION ;; CATEGORY SEQ-NO: LONG CAPTION
@ -2342,7 +2342,6 @@ used as a communication channel."
(user-frame-params (user-frame-params
(list user-frame-style user-frame-attrs user-frame-anchor)) (list user-frame-style user-frame-attrs user-frame-anchor))
;; (embed-as (or embed-as user-frame-anchor "paragraph")) ;; (embed-as (or embed-as user-frame-anchor "paragraph"))
;; extrac
;; ;;
;; Handle `:width', `:height' and `:scale' properties. Read ;; Handle `:width', `:height' and `:scale' properties. Read
;; them as numbers since we need them for computations. ;; them as numbers since we need them for computations.
@ -2372,7 +2371,7 @@ used as a communication channel."
(title (and replaces (capitalize (title (and replaces (capitalize
(symbol-name (org-element-type replaces))))) (symbol-name (org-element-type replaces)))))
;; If yes, note down it's contents. It will go in to frame ;; If yes, note down its contents. It will go in to frame
;; description. This quite useful for debugging. ;; description. This quite useful for debugging.
(desc (and replaces (org-element-property :value replaces)))) (desc (and replaces (org-element-property :value replaces))))
(org-odt--render-image/formula entity href width height (org-odt--render-image/formula entity href width height
@ -2410,7 +2409,7 @@ used as a communication channel."
(title (and replaces (capitalize (title (and replaces (capitalize
(symbol-name (org-element-type replaces))))) (symbol-name (org-element-type replaces)))))
;; If yes, note down it's contents. It will go in to frame ;; If yes, note down its contents. It will go in to frame
;; description. This quite useful for debugging. ;; description. This quite useful for debugging.
(desc (and replaces (org-element-property :value replaces))) (desc (and replaces (org-element-property :value replaces)))
width height) width height)
@ -2614,12 +2613,12 @@ used as a communication channel."
INFO is a plist holding contextual information. INFO is a plist holding contextual information.
Return non-nil, if ELEMENT is of type paragraph satisfying Return non-nil, if ELEMENT is of type paragraph satisfying
PARAGRAPH-PREDICATE and it's sole content, save for whitespaces, PARAGRAPH-PREDICATE and its sole content, save for whitespaces,
is a link that satisfies LINK-PREDICATE. is a link that satisfies LINK-PREDICATE.
Return non-nil, if ELEMENT is of type link satisfying Return non-nil, if ELEMENT is of type link satisfying
LINK-PREDICATE and it's containing paragraph satisfies LINK-PREDICATE and its containing paragraph satisfies
PARAGRAPH-PREDICATE inaddtion to having no other content save for PARAGRAPH-PREDICATE in addition to having no other content save for
leading and trailing whitespaces. leading and trailing whitespaces.
Return nil, otherwise." Return nil, otherwise."
@ -2708,7 +2707,7 @@ Return nil, otherwise."
(concat (number-to-string n) "."))) (concat (number-to-string n) ".")))
item-numbers ""))))) item-numbers "")))))
;; Case 2: Locate a regular and numbered headline in the ;; Case 2: Locate a regular and numbered headline in the
;; hierarchy. Display it's section number. ;; hierarchy. Display its section number.
(let ((headline (loop for el in (cons destination genealogy) (let ((headline (loop for el in (cons destination genealogy)
when (and (eq (org-element-type el) 'headline) when (and (eq (org-element-type el) 'headline)
(not (org-export-low-level-p el info)) (not (org-export-low-level-p el info))
@ -2721,7 +2720,7 @@ Return nil, otherwise."
(mapconcat 'number-to-string (org-export-get-headline-number (mapconcat 'number-to-string (org-export-get-headline-number
headline info) ".")))) headline info) "."))))
;; Case 4: Locate a regular headline in the hierarchy. Display ;; Case 4: Locate a regular headline in the hierarchy. Display
;; it's title. ;; its title.
(let ((headline (loop for el in (cons destination genealogy) (let ((headline (loop for el in (cons destination genealogy)
when (and (eq (org-element-type el) 'headline) when (and (eq (org-element-type el) 'headline)
(not (org-export-low-level-p el info))) (not (org-export-low-level-p el info)))
@ -3113,9 +3112,9 @@ holding contextual information."
(defun org-odt-hfy-face-to-css (fn) (defun org-odt-hfy-face-to-css (fn)
"Create custom style for face FN. "Create custom style for face FN.
When FN is the default face, use it's foreground and background When FN is the default face, use its foreground and background
properties to create \"OrgSrcBlock\" paragraph style. Otherwise properties to create \"OrgSrcBlock\" paragraph style. Otherwise
use it's color attribute to create a character style whose name use its color attribute to create a character style whose name
is obtained from FN. Currently all attributes of FN other than is obtained from FN. Currently all attributes of FN other than
color are ignored. color are ignored.

10
lisp/ox-texinfo.el
View File

@ -958,7 +958,7 @@ holding contextual information."
(let* ((class (plist-get info :texinfo-class)) (let* ((class (plist-get info :texinfo-class))
(level (org-export-get-relative-level headline info)) (level (org-export-get-relative-level headline info))
(numberedp (org-export-numbered-headline-p headline info)) (numberedp (org-export-numbered-headline-p headline info))
(class-sectionning (assoc class org-texinfo-classes)) (class-sectioning (assoc class org-texinfo-classes))
;; Find the index type, if any ;; Find the index type, if any
(index (org-element-property :INDEX headline)) (index (org-element-property :INDEX headline))
;; Check if it is an appendix ;; Check if it is an appendix
@ -994,10 +994,10 @@ holding contextual information."
;; Section formatting will set two placeholders: one for the ;; Section formatting will set two placeholders: one for the
;; title and the other for the contents. ;; title and the other for the contents.
(section-fmt (section-fmt
(let ((sec (if (and (symbolp (nth 2 class-sectionning)) (let ((sec (if (and (symbolp (nth 2 class-sectioning))
(fboundp (nth 2 class-sectionning))) (fboundp (nth 2 class-sectioning)))
(funcall (nth 2 class-sectionning) level numberedp) (funcall (nth 2 class-sectioning) level numberedp)
(nth (1+ level) class-sectionning)))) (nth (1+ level) class-sectioning))))
(cond (cond
;; No section available for that LEVEL. ;; No section available for that LEVEL.
((not sec) nil) ((not sec) nil)

40
lisp/ox.el
View File

@ -650,11 +650,20 @@ e.g. \"stat:nil\""
(defcustom org-export-with-sub-superscripts t (defcustom org-export-with-sub-superscripts t
"Non-nil means interpret \"_\" and \"^\" for export. "Non-nil means interpret \"_\" and \"^\" for export.
If you want to control how Org displays those characters, see
`org-use-sub-superscripts'. `org-export-with-sub-superscripts'
used to be an alias for `org-use-sub-superscripts' in Org <8.0,
it is not anymore.
When this option is turned on, you can use TeX-like syntax for When this option is turned on, you can use TeX-like syntax for
sub- and superscripts. Several characters after \"_\" or \"^\" sub- and superscripts and see them exported correctly.
will be considered as a single item - so grouping with {} is
normally not needed. For example, the following things will be You can also set the option with #+OPTIONS: ^:t
parsed as single sub- or superscripts.
Several characters after \"_\" or \"^\" will be considered as a
single item - so grouping with {} is normally not needed. For
example, the following things will be parsed as single sub- or
superscripts:
10^24 or 10^tau several digits will be considered 1 item. 10^24 or 10^tau several digits will be considered 1 item.
10^-12 or 10^-tau a leading sign with digits or a word 10^-12 or 10^-tau a leading sign with digits or a word
@ -662,15 +671,14 @@ parsed as single sub- or superscripts.
terminated by almost any nonword/nondigit char. terminated by almost any nonword/nondigit char.
x_{i^2} or x^(2-i) braces or parenthesis do grouping. x_{i^2} or x^(2-i) braces or parenthesis do grouping.
Still, ambiguity is possible - so when in doubt use {} to enclose Still, ambiguity is possible. So when in doubt, use {} to enclose
the sub/superscript. If you set this variable to the symbol the sub/superscript. If you set this variable to the symbol `{}',
`{}', the braces are *required* in order to trigger the braces are *required* in order to trigger interpretations as
interpretations as sub/superscript. This can be helpful in sub/superscript. This can be helpful in documents that need \"_\"
documents that need \"_\" frequently in plain text. frequently in plain text."
This option can also be set with the OPTIONS keyword,
e.g. \"^:nil\"."
:group 'org-export-general :group 'org-export-general
:version "24.4"
:package-version '(Org . "8.0")
:type '(choice :type '(choice
(const :tag "Interpret them" t) (const :tag "Interpret them" t)
(const :tag "Curly brackets only" {}) (const :tag "Curly brackets only" {})
@ -2911,7 +2919,7 @@ The copy will preserve local variables, visibility, contents and
narrowing of the original buffer. If a region was active in narrowing of the original buffer. If a region was active in
BUFFER, contents will be narrowed to that region instead. BUFFER, contents will be narrowed to that region instead.
The resulting function can be evaled at a later time, from The resulting function can be evaluated at a later time, from
another buffer, effectively cloning the original buffer there. another buffer, effectively cloning the original buffer there.
The function assumes BUFFER's major mode is `org-mode'." The function assumes BUFFER's major mode is `org-mode'."
@ -4727,7 +4735,7 @@ INFO is a plist used as a communication channel."
"Return TABLE-ROW number. "Return TABLE-ROW number.
INFO is a plist used as a communication channel. Return value is INFO is a plist used as a communication channel. Return value is
zero-based and ignores separators. The function returns nil for zero-based and ignores separators. The function returns nil for
special colums and separators." special columns and separators."
(when (and (eq (org-element-property :type table-row) 'standard) (when (and (eq (org-element-property :type table-row) 'standard)
(not (org-export-table-row-is-special-p table-row info))) (not (org-export-table-row-is-special-p table-row info)))
(let ((number 0)) (let ((number 0))
@ -5961,7 +5969,7 @@ files or buffers, only the display.
"Export dispatcher for Org mode. "Export dispatcher for Org mode.
It provides an access to common export related tasks in a buffer. It provides an access to common export related tasks in a buffer.
Its interface comes in two flavours: standard and expert. Its interface comes in two flavors: standard and expert.
While both share the same set of bindings, only the former While both share the same set of bindings, only the former
displays the valid keys associations in a dedicated buffer. displays the valid keys associations in a dedicated buffer.
@ -5969,7 +5977,7 @@ Scrolling (resp. line-wise motion) in this buffer is done with
SPC and DEL (resp. C-n and C-p) keys. SPC and DEL (resp. C-n and C-p) keys.
Set variable `org-export-dispatch-use-expert-ui' to switch to one Set variable `org-export-dispatch-use-expert-ui' to switch to one
flavour or the other. flavor or the other.
When ARG is \\[universal-argument], repeat the last export action, with the same set When ARG is \\[universal-argument], repeat the last export action, with the same set
of options used back then, on the current buffer. of options used back then, on the current buffer.

57
testing/lisp/test-org-element.el
View File

@ -293,9 +293,8 @@ Some other text
(ert-deftest test-org-element/clock-parser () (ert-deftest test-org-element/clock-parser ()
"Test `clock' parser." "Test `clock' parser."
;; Running clock. ;; Running clock.
(let* ((org-clock-string "CLOCK:") (let ((clock (org-test-with-temp-text "CLOCK: [2012-01-01 sun. 00:01]"
(clock (org-test-with-temp-text "CLOCK: [2012-01-01 sun. 00:01]" (org-element-at-point))))
(org-element-at-point))))
(should (eq (org-element-property :status clock) 'running)) (should (eq (org-element-property :status clock) 'running))
(should (should
(equal (org-element-property :raw-value (equal (org-element-property :raw-value
@ -303,11 +302,10 @@ Some other text
"[2012-01-01 sun. 00:01]")) "[2012-01-01 sun. 00:01]"))
(should-not (org-element-property :duration clock))) (should-not (org-element-property :duration clock)))
;; Closed clock. ;; Closed clock.
(let* ((org-clock-string "CLOCK:") (let ((clock
(clock (org-test-with-temp-text
(org-test-with-temp-text "CLOCK: [2012-01-01 sun. 00:01]--[2012-01-01 sun. 00:02] => 0:01"
"CLOCK: [2012-01-01 sun. 00:01]--[2012-01-01 sun. 00:02] => 0:01" (org-element-at-point))))
(org-element-at-point))))
(should (eq (org-element-property :status clock) 'closed)) (should (eq (org-element-property :status clock) 'closed))
(should (equal (org-element-property :raw-value (should (equal (org-element-property :raw-value
(org-element-property :value clock)) (org-element-property :value clock))
@ -2213,15 +2211,13 @@ Outside list"
(should (should
(string-match (string-match
"CLOCK: \\[2012-01-01 .* 00:01\\]" "CLOCK: \\[2012-01-01 .* 00:01\\]"
(let ((org-clock-string "CLOCK:")) (org-test-parse-and-interpret "CLOCK: [2012-01-01 sun. 00:01]")))
(org-test-parse-and-interpret "CLOCK: [2012-01-01 sun. 00:01]"))))
;; Closed clock. ;; Closed clock.
(should (should
(string-match (string-match
"CLOCK: \\[2012-01-01 .* 00:01\\]--\\[2012-01-01 .* 00:02\\] => 0:01" "CLOCK: \\[2012-01-01 .* 00:01\\]--\\[2012-01-01 .* 00:02\\] => 0:01"
(let ((org-clock-string "CLOCK:")) (org-test-parse-and-interpret "
(org-test-parse-and-interpret " CLOCK: [2012-01-01 sun. 00:01]--[2012-01-01 sun. 00:02] => 0:01"))))
CLOCK: [2012-01-01 sun. 00:01]--[2012-01-01 sun. 00:02] => 0:01")))))
(ert-deftest test-org-element/comment-interpreter () (ert-deftest test-org-element/comment-interpreter ()
"Test comment interpreter." "Test comment interpreter."
@ -2317,16 +2313,13 @@ CLOCK: [2012-01-01 sun. 00:01]--[2012-01-01 sun. 00:02] => 0:01")))))
(ert-deftest test-org-element/planning-interpreter () (ert-deftest test-org-element/planning-interpreter ()
"Test planning interpreter." "Test planning interpreter."
(let ((org-closed-string "CLOSED:") (should
(org-deadline-string "DEADLINE:") (string-match
(org-scheduled-string "SCHEDULED:")) "\\* Headline
(should
(string-match
"\\* Headline
DEADLINE: <2012-03-29 .*?> SCHEDULED: <2012-03-29 .*?> CLOSED: \\[2012-03-29 .*?\\]" DEADLINE: <2012-03-29 .*?> SCHEDULED: <2012-03-29 .*?> CLOSED: \\[2012-03-29 .*?\\]"
(org-test-parse-and-interpret (org-test-parse-and-interpret
"* Headline "* Headline
DEADLINE: <2012-03-29 thu.> SCHEDULED: <2012-03-29 thu.> CLOSED: [2012-03-29 thu.]"))))) DEADLINE: <2012-03-29 thu.> SCHEDULED: <2012-03-29 thu.> CLOSED: [2012-03-29 thu.]"))))
(ert-deftest test-org-element/property-drawer-interpreter () (ert-deftest test-org-element/property-drawer-interpreter ()
"Test property drawer interpreter." "Test property drawer interpreter."
@ -2561,20 +2554,12 @@ DEADLINE: <2012-03-29 thu.> SCHEDULED: <2012-03-29 thu.> CLOSED: [2012-03-29 thu
(ert-deftest test-org-element/latex-fragment-interpreter () (ert-deftest test-org-element/latex-fragment-interpreter ()
"Test latex fragment interpreter." "Test latex fragment interpreter."
(let ((org-latex-regexps (should (equal (org-test-parse-and-interpret "\\command{}") "\\command{}\n"))
'(("begin" "^[ ]*\\(\\\\begin{\\([a-zA-Z0-9\\*]+\\)[^]+?\\\\end{\\2}\\)" 1 t) (should (equal (org-test-parse-and-interpret "$x$") "$x$\n"))
("$1" "\\([^$]\\|^\\)\\(\\$[^ \n,;.$]\\$\\)\\([- .,?;:'\")]\\|$\\)" 2 nil) (should (equal (org-test-parse-and-interpret "$x+y$") "$x+y$\n"))
("$" "\\([^$]\\|^\\)\\(\\(\\$\\([^ \n,;.$][^$\n ]*?\\(\n[^$\n ]*?\\)\\{0,2\\}[^ \n,.$]\\)\\$\\)\\)\\([- .,?;:'\")]\\|$\\)" 2 nil) (should (equal (org-test-parse-and-interpret "$$x+y$$") "$$x+y$$\n"))
("\\(" "\\\\([^]*?\\\\)" 0 nil) (should (equal (org-test-parse-and-interpret "\\(x+y\\)") "\\(x+y\\)\n"))
("\\[" "\\\\\\[[^]*?\\\\\\]" 0 nil) (should (equal (org-test-parse-and-interpret "\\[x+y\\]") "\\[x+y\\]\n")))
("$$" "\\$\\$[^]*?\\$\\$" 0 nil))))
(should (equal (org-test-parse-and-interpret "\\command{}")
"\\command{}\n"))
(should (equal (org-test-parse-and-interpret "$x$") "$x$\n"))
(should (equal (org-test-parse-and-interpret "$x+y$") "$x+y$\n"))
(should (equal (org-test-parse-and-interpret "$$x+y$$") "$$x+y$$\n"))
(should (equal (org-test-parse-and-interpret "\\(x+y\\)") "\\(x+y\\)\n"))
(should (equal (org-test-parse-and-interpret "\\[x+y\\]") "\\[x+y\\]\n"))))
(ert-deftest test-org-element/line-break-interpreter () (ert-deftest test-org-element/line-break-interpreter ()
"Test line break interpreter." "Test line break interpreter."

14
testing/lisp/test-ox.el
View File

@ -401,16 +401,14 @@ Paragraph"
;; Clocks. ;; Clocks.
(should (should
(string-match "CLOCK: \\[2012-04-29 .* 10:45\\]" (string-match "CLOCK: \\[2012-04-29 .* 10:45\\]"
(let ((org-clock-string "CLOCK:")) (org-test-with-temp-text "CLOCK: [2012-04-29 sun. 10:45]"
(org-test-with-temp-text "CLOCK: [2012-04-29 sun. 10:45]" (org-export-as (org-test-default-backend)
(org-export-as (org-test-default-backend) nil nil nil '(:with-clocks t)))))
nil nil nil '(:with-clocks t))))))
(should (should
(equal "" (equal ""
(let ((org-clock-string "CLOCK:")) (org-test-with-temp-text "CLOCK: [2012-04-29 sun. 10:45]"
(org-test-with-temp-text "CLOCK: [2012-04-29 sun. 10:45]" (org-export-as (org-test-default-backend)
(org-export-as (org-test-default-backend) nil nil nil '(:with-clocks nil)))))
nil nil nil '(:with-clocks nil))))))
;; Drawers. ;; Drawers.
(should (should
(equal "" (equal ""