testing: Make all files use `lexical-binding`
Mainly, add the corresponding cookie, but also add various `require`s
so that the compiler knows which vars should be trated as dynbound.
This does not fix all the warnings, but does try to eliminate
all those about "unused" variables. For the variables truly unused,
the patch usually adds an underscore to their name to silence the warning.
Some of the fixes affect files which already used `lexical-binding`.
Not sure why the test worked before: maybe because the tests were run
without compiling them first (which could cause some of the
missing `require`d packages to be autoloaded before we got to the
problematic code, thus hiding the problem)?
I found some suspicious code, for which I added FIXMEs.
There are also a few changes to the main files.
* lisp/org-protocol.el (org-protocol-check-filename-for-protocol):
Don't call `server-edit` if it's not yet defined. [ Needed to get
the tests to pass. ]
* lisp/ob-core.el (org-babel-temporary-directory)
(org-babel-temporary-stable-directory): Always define (and use nil
if we don't want to create a directory for it). Simplify the code based
on the fact that (defvar V E) only evaluates E if V is not yet `boundp`.
(org-babel-temp-file, org-babel-temp-stable-file)
(org-babel-remove-temporary-directory)
(org-babel-remove-temporary-stable-directory): Adjust accordingly.
* lisp/org.el (org-log-beginning): Add FIXME.
* testing/org-test.el: Require `org` and `org-id`.
(org-id-locations-file): Don't `defconst` it.
(org-test-at-id, org-test-in-example-file, org-test-at-marker)
(org-test-with-temp-text, org-test-with-temp-text-in-file): Move edebug
specs into `declare` (and simplify them).
(org-test-with-tramp-remote-dir--worker): Declare dynbound tramp vars.
(org--compile-when): Fix quoting of `exp`.
(org-test-load): Tweak regexps.
* testing/org-batch-test-init.el: Tweak regexp, remove dead code and
add a FIXME about it.
* testing/lisp/test-ox.el: Require `ox` instead of
erroring out if it's not already loaded. Also require `org-inlinetask`.
(org-test-with-parsed-data): Silence warnings when `info` is not used.
(test-org-export/bind-keyword): Add FIXME.
* testing/lisp/test-ox-publish.el: Require `org-test` and `ox-publish`.
(test-org-publish/resolve-external-link): Expose lambdas to
the compiler. Remove unused var `ids`.
(test-org-publish/get-project-from-filename): Remove unused var `file`.
* testing/lisp/test-org.el: Require `org-macs`, `org`,
`org-inlinetask`, `org-refile`, and `org-agenda`.
(test-org/org-read-date): Declare `org-time-was-given` as dynbound.
(test-org/set-regexps-and-options): Add FIXME.
* testing/lisp/test-org-timer.el: Require `org-timer`.
* testing/lisp/test-org-table.el: Require `ox`.
* testing/lisp/test-org-protocol.el: Require `org-protocol` instead of
erroring out if it's not already loaded. Also require `capture`, and
add missing `provide` statement.
* testing/lisp/test-org-pcomplete.el: Require `org`.
* testing/lisp/test-org-list.el: Require `org-list` and `org`.
* testing/lisp/test-org-lint.el: Require `org-footnote` and `org-lint`.
* testing/lisp/test-org-footnote.el: Require `org-footnote`.
* testing/lisp/test-org-element.el: Require `org-element` instead of
erroring out if it's not already loaded. Also require `org` and
`org-inlinetask`.
* testing/lisp/test-org-duration.el: Require `org-duration`.
* testing/lisp/test-org-datetree.el: Require `org-datetree`.
* testing/lisp/test-org-colview.el: Require `org-colview`,
`org-duration`, and `org-inlinetask`.
* testing/lisp/test-org-clock.el: Require `org-duration` and `org-clock`.
* testing/lisp/test-org-archive.el: Require `org-archive`.
* testing/lisp/test-org-agenda.el
(test-org-agenda/bulk-custom-arg-func): Add FIXME.
* testing/lisp/test-ol.el: Require `ol` and `org-id`.
(test-org-link/store-link): Declare `org-store-link-props` and add FIXME.
* testing/lisp/test-oc.el (test-org-cite/export-capability): Add FIXME.
* testing/lisp/test-ob.el: Require `ob-core`, `org-src`, `ob-ref`,
and `org-table`.
(test-ob/eval-header-argument): Rename `foo` to `test-ob--foo` and
declare it as dynbound.
(test-ob/blocks-with-spaces, test-ob/specific-colnames): Add FIXME.
(test-ob/noweb-expansions-in-cache):
Declare `noweb-expansions-in-cache-var` as dynbound.
* testing/lisp/test-ob-tangle.el: Require `org` and `ob-tangle`.
* testing/lisp/test-ob-shell.el:
* testing/lisp/test-ob-python.el: Require `ob-core`.
* testing/lisp/test-ob-lob.el: Require `ob-lob`.
(temporary-value-for-test): Declare as dynbound.
* testing/lisp/test-ob-plantuml.el: Require `ob-plantuml` instead of
erroring out if it's not already loaded.
* testing/lisp/test-ob-lilypond.el: Require `ob-lilypond` instead of
erroring out if it's not already loaded. Use `with-current-buffer`.
* testing/lisp/test-ob-julia.el: Require `ob-core`.
* testing/lisp/test-ob-java.el (org-babel-temporary-directory):
Remove dead code now that `org-babel-temporary-directory` is always bound.
* testing/lisp/test-ob-exp.el: Require `ob-exp`, `org-src`, and `org-test`.
(ob-exp/evaluate-all-executables-in-order):
Declare `*evaluation-collector*` as dynbound.
* testing/lisp/test-ob-emacs-lisp.el (ob-emacs-lisp/dynamic-lexical-edit)
(ob-emacs-lisp/dynamic-lexical-execute):
Rename dynbound var to `ob-emacs--x` and declare it as such.
* testing/lisp/test-ob-R.el: Require `ob-core`.
(ess-ask-for-ess-directory, ess-history-file): Declare vars.
2022-09-14 17:21:37 -04:00
|
|
|
|
;;; test-org-element.el --- Tests for org-element.el -*- lexical-binding: t; -*-
|
2012-02-23 10:28:13 -05:00
|
|
|
|
|
2019-01-01 05:50:56 -05:00
|
|
|
|
;; Copyright (C) 2012-2015, 2019 Nicolas Goaziou
|
2012-02-23 10:28:13 -05:00
|
|
|
|
|
|
|
|
|
|
;; Author: Nicolas Goaziou <n.goaziou at gmail dot com>
|
|
|
|
|
|
|
|
|
|
|
|
;; 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
|
2021-03-20 03:27:57 -04:00
|
|
|
|
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
2012-02-23 10:28:13 -05:00
|
|
|
|
|
2012-12-13 11:24:19 -05:00
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
2018-05-09 23:18:04 -04:00
|
|
|
|
(eval-and-compile (require 'cl-lib))
|
|
|
|
|
|
|
testing: Make all files use `lexical-binding`
Mainly, add the corresponding cookie, but also add various `require`s
so that the compiler knows which vars should be trated as dynbound.
This does not fix all the warnings, but does try to eliminate
all those about "unused" variables. For the variables truly unused,
the patch usually adds an underscore to their name to silence the warning.
Some of the fixes affect files which already used `lexical-binding`.
Not sure why the test worked before: maybe because the tests were run
without compiling them first (which could cause some of the
missing `require`d packages to be autoloaded before we got to the
problematic code, thus hiding the problem)?
I found some suspicious code, for which I added FIXMEs.
There are also a few changes to the main files.
* lisp/org-protocol.el (org-protocol-check-filename-for-protocol):
Don't call `server-edit` if it's not yet defined. [ Needed to get
the tests to pass. ]
* lisp/ob-core.el (org-babel-temporary-directory)
(org-babel-temporary-stable-directory): Always define (and use nil
if we don't want to create a directory for it). Simplify the code based
on the fact that (defvar V E) only evaluates E if V is not yet `boundp`.
(org-babel-temp-file, org-babel-temp-stable-file)
(org-babel-remove-temporary-directory)
(org-babel-remove-temporary-stable-directory): Adjust accordingly.
* lisp/org.el (org-log-beginning): Add FIXME.
* testing/org-test.el: Require `org` and `org-id`.
(org-id-locations-file): Don't `defconst` it.
(org-test-at-id, org-test-in-example-file, org-test-at-marker)
(org-test-with-temp-text, org-test-with-temp-text-in-file): Move edebug
specs into `declare` (and simplify them).
(org-test-with-tramp-remote-dir--worker): Declare dynbound tramp vars.
(org--compile-when): Fix quoting of `exp`.
(org-test-load): Tweak regexps.
* testing/org-batch-test-init.el: Tweak regexp, remove dead code and
add a FIXME about it.
* testing/lisp/test-ox.el: Require `ox` instead of
erroring out if it's not already loaded. Also require `org-inlinetask`.
(org-test-with-parsed-data): Silence warnings when `info` is not used.
(test-org-export/bind-keyword): Add FIXME.
* testing/lisp/test-ox-publish.el: Require `org-test` and `ox-publish`.
(test-org-publish/resolve-external-link): Expose lambdas to
the compiler. Remove unused var `ids`.
(test-org-publish/get-project-from-filename): Remove unused var `file`.
* testing/lisp/test-org.el: Require `org-macs`, `org`,
`org-inlinetask`, `org-refile`, and `org-agenda`.
(test-org/org-read-date): Declare `org-time-was-given` as dynbound.
(test-org/set-regexps-and-options): Add FIXME.
* testing/lisp/test-org-timer.el: Require `org-timer`.
* testing/lisp/test-org-table.el: Require `ox`.
* testing/lisp/test-org-protocol.el: Require `org-protocol` instead of
erroring out if it's not already loaded. Also require `capture`, and
add missing `provide` statement.
* testing/lisp/test-org-pcomplete.el: Require `org`.
* testing/lisp/test-org-list.el: Require `org-list` and `org`.
* testing/lisp/test-org-lint.el: Require `org-footnote` and `org-lint`.
* testing/lisp/test-org-footnote.el: Require `org-footnote`.
* testing/lisp/test-org-element.el: Require `org-element` instead of
erroring out if it's not already loaded. Also require `org` and
`org-inlinetask`.
* testing/lisp/test-org-duration.el: Require `org-duration`.
* testing/lisp/test-org-datetree.el: Require `org-datetree`.
* testing/lisp/test-org-colview.el: Require `org-colview`,
`org-duration`, and `org-inlinetask`.
* testing/lisp/test-org-clock.el: Require `org-duration` and `org-clock`.
* testing/lisp/test-org-archive.el: Require `org-archive`.
* testing/lisp/test-org-agenda.el
(test-org-agenda/bulk-custom-arg-func): Add FIXME.
* testing/lisp/test-ol.el: Require `ol` and `org-id`.
(test-org-link/store-link): Declare `org-store-link-props` and add FIXME.
* testing/lisp/test-oc.el (test-org-cite/export-capability): Add FIXME.
* testing/lisp/test-ob.el: Require `ob-core`, `org-src`, `ob-ref`,
and `org-table`.
(test-ob/eval-header-argument): Rename `foo` to `test-ob--foo` and
declare it as dynbound.
(test-ob/blocks-with-spaces, test-ob/specific-colnames): Add FIXME.
(test-ob/noweb-expansions-in-cache):
Declare `noweb-expansions-in-cache-var` as dynbound.
* testing/lisp/test-ob-tangle.el: Require `org` and `ob-tangle`.
* testing/lisp/test-ob-shell.el:
* testing/lisp/test-ob-python.el: Require `ob-core`.
* testing/lisp/test-ob-lob.el: Require `ob-lob`.
(temporary-value-for-test): Declare as dynbound.
* testing/lisp/test-ob-plantuml.el: Require `ob-plantuml` instead of
erroring out if it's not already loaded.
* testing/lisp/test-ob-lilypond.el: Require `ob-lilypond` instead of
erroring out if it's not already loaded. Use `with-current-buffer`.
* testing/lisp/test-ob-julia.el: Require `ob-core`.
* testing/lisp/test-ob-java.el (org-babel-temporary-directory):
Remove dead code now that `org-babel-temporary-directory` is always bound.
* testing/lisp/test-ob-exp.el: Require `ob-exp`, `org-src`, and `org-test`.
(ob-exp/evaluate-all-executables-in-order):
Declare `*evaluation-collector*` as dynbound.
* testing/lisp/test-ob-emacs-lisp.el (ob-emacs-lisp/dynamic-lexical-edit)
(ob-emacs-lisp/dynamic-lexical-execute):
Rename dynbound var to `ob-emacs--x` and declare it as such.
* testing/lisp/test-ob-R.el: Require `ob-core`.
(ess-ask-for-ess-directory, ess-history-file): Declare vars.
2022-09-14 17:21:37 -04:00
|
|
|
|
(require 'org-element)
|
|
|
|
|
|
(require 'org)
|
|
|
|
|
|
(require 'org-inlinetask)
|
2012-02-23 10:28:13 -05:00
|
|
|
|
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(defun org-test-parse-and-interpret (text)
|
|
|
|
|
|
"Parse TEXT as Org syntax and interpret it.
|
|
|
|
|
|
Return interpreted string."
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(org-mode)
|
|
|
|
|
|
(insert text)
|
|
|
|
|
|
(org-element-interpret-data (org-element-parse-buffer))))
|
|
|
|
|
|
|
2023-05-29 06:04:45 -04:00
|
|
|
|
|
|
|
|
|
|
;;; Test getters.
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/type ()
|
|
|
|
|
|
"Test `org-element-type' specifications."
|
|
|
|
|
|
(should (eq 'plain-text (org-element-type "string")))
|
|
|
|
|
|
(should-not (org-element-type nil))
|
|
|
|
|
|
(should-not (org-element-type 1))
|
|
|
|
|
|
(should (eq 'dummy (org-element-type '(dummy))))
|
|
|
|
|
|
(should (eq 'dummy (org-element-type '(dummy nil 'foo))))
|
|
|
|
|
|
(should (eq 'dummy (org-element-type '(dummy (:a a :b b) 'foo))))
|
|
|
|
|
|
;; anonymous node.
|
|
|
|
|
|
(should-not (org-element-type '((dummy))))
|
|
|
|
|
|
(should (eq 'anonymous (org-element-type '((dummy)) t)))
|
|
|
|
|
|
(should (eq 'anonymous (org-element-type '("string") t)))
|
|
|
|
|
|
(should-not (org-element-type '(1 2) t)))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/type-p ()
|
|
|
|
|
|
"Test `org-element-type-p' specifications."
|
|
|
|
|
|
(should (org-element-type-p '(foo) 'foo))
|
|
|
|
|
|
(should (org-element-type-p '(foo) '(foo)))
|
|
|
|
|
|
(should (org-element-type-p '(foo) '(foo bar)))
|
|
|
|
|
|
(should-not (org-element-type-p '(foo) 'bar))
|
|
|
|
|
|
(should-not (org-element-type-p '(foo) '(bar baz)))
|
|
|
|
|
|
(should (org-element-type-p "string" 'plain-text))
|
|
|
|
|
|
(should (org-element-type-p '((foo)) 'anonymous)))
|
|
|
|
|
|
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(ert-deftest test-org-element/org-element-property-raw ()
|
|
|
|
|
|
"Test `org-element-property-raw' specifications."
|
2023-05-29 06:04:45 -04:00
|
|
|
|
;; No properties.
|
|
|
|
|
|
(dolist (element `( nil
|
|
|
|
|
|
(headline nil)
|
|
|
|
|
|
(headline nil (headline))
|
|
|
|
|
|
"string"))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should-not (org-element-property-raw :begin element))
|
|
|
|
|
|
(should (eq 'default (org-element-property-raw :begin element 'default)))
|
|
|
|
|
|
(should-not (org-element-property-raw :begin1 element))
|
|
|
|
|
|
(should (eq 'default (org-element-property-raw :begin1 element 'default)))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(dolist (prop '(:begin))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should-not (org-element-property-raw prop element))
|
|
|
|
|
|
(should (eq 'default (org-element-property-raw prop element 'default))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(dolist (prop '(:begin1))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should-not (org-element-property-raw prop element))
|
|
|
|
|
|
(should (eq 'default (org-element-property-raw prop element 'default)))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
;; Only non-standard properties.
|
|
|
|
|
|
(dolist (element `((headline (:begin1 1))
|
|
|
|
|
|
(headline (:begin1 1) (headline))
|
|
|
|
|
|
,(propertize "string" :begin1 1)))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should-not (org-element-property-raw :begin element))
|
|
|
|
|
|
(should (eq 'default (org-element-property-raw :begin element 'default)))
|
|
|
|
|
|
(should (= 1 (org-element-property-raw :begin1 element)))
|
|
|
|
|
|
(should (= 1 (org-element-property-raw :begin1 element 'default)))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(dolist (prop '(:begin))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should-not (org-element-property-raw prop element))
|
|
|
|
|
|
(should (eq 'default (org-element-property-raw prop element 'default))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(dolist (prop '(:begin1))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (= 1 (org-element-property-raw prop element)))
|
|
|
|
|
|
(should (= 1 (org-element-property-raw prop element 'default)))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
;; Only standard properties.
|
|
|
|
|
|
(dolist (element `((headline (:standard-properties ,(make-vector 10 'test)))
|
|
|
|
|
|
(headline (:standard-properties ,(make-vector 10 'test)) (headline))))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (eq 'test (org-element-property-raw :begin element)))
|
|
|
|
|
|
(should (eq 'test (org-element-property-raw :begin element 'default)))
|
|
|
|
|
|
(should-not (org-element-property-raw :begin1 element))
|
|
|
|
|
|
(should (eq 'default (org-element-property-raw :begin1 element 'default)))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(dolist (prop '(:begin))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (eq 'test (org-element-property-raw prop element)))
|
|
|
|
|
|
(should (eq 'test (org-element-property-raw prop element 'default))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(dolist (prop '(:begin1))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should-not (org-element-property-raw prop element))
|
|
|
|
|
|
(should (eq 'default (org-element-property-raw prop element 'default)))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
;; Standard properties in the plist.
|
|
|
|
|
|
(dolist (element `((headline (:begin 1))
|
|
|
|
|
|
(headline (:begin 1) (headline))
|
|
|
|
|
|
,(propertize "string" :begin 1)))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (= 1 (org-element-property-raw :begin element)))
|
|
|
|
|
|
(should (= 1 (org-element-property-raw :begin element 'default)))
|
|
|
|
|
|
(should-not (org-element-property-raw :begin1 element))
|
|
|
|
|
|
(should (eq 'default (org-element-property-raw :begin1 element 'default)))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(dolist (prop '(:begin))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (= 1 (org-element-property-raw prop element)))
|
|
|
|
|
|
(should (= 1 (org-element-property-raw prop element 'default))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(dolist (prop '(:begin1))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should-not (org-element-property-raw prop element))
|
|
|
|
|
|
(should (eq 'default (org-element-property-raw prop element 'default)))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
;; Standard properties mixed in the plist and standard array.
|
|
|
|
|
|
(dolist (element `((headline (:standard-properties ,(make-vector 10 'test) :begin 1))
|
|
|
|
|
|
(headline (:begin 1 :standard-properties ,(make-vector 10 'test)))
|
|
|
|
|
|
(headline (:standard-properties ,(make-vector 10 'test) :begin 1) (headline))))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (eq 'test (org-element-property-raw :begin element)))
|
|
|
|
|
|
(should (eq 'test (org-element-property-raw :begin element 'default)))
|
|
|
|
|
|
(should-not (org-element-property-raw :begin1 element))
|
|
|
|
|
|
(should (eq 'default (org-element-property-raw :begin1 element 'default)))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(dolist (prop '(:begin))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (eq 'test (org-element-property-raw prop element)))
|
|
|
|
|
|
(should (eq 'test (org-element-property-raw prop element 'default))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(dolist (prop '(:begin1))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should-not (org-element-property-raw prop element))
|
|
|
|
|
|
(should (eq 'default (org-element-property-raw prop element 'default)))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
;; General case.
|
|
|
|
|
|
(dolist (element `((headline (:standard-properties ,(make-vector 10 'test) :begin1 1))
|
|
|
|
|
|
(headline (:begin1 1 :standard-properties ,(make-vector 10 'test)))
|
|
|
|
|
|
(headline (:standard-properties ,(make-vector 10 'test) :begin1 1) (headline))))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (eq 'test (org-element-property-raw :begin element)))
|
|
|
|
|
|
(should (eq 'test (org-element-property-raw :begin element 'default)))
|
|
|
|
|
|
(should (= 1 (org-element-property-raw :begin1 element)))
|
|
|
|
|
|
(should (= 1 (org-element-property-raw :begin1 element 'default)))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(dolist (prop '(:begin))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (eq 'test (org-element-property-raw prop element)))
|
|
|
|
|
|
(should (eq 'test (org-element-property-raw prop element 'default))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(dolist (prop '(:begin1))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (= 1 (org-element-property-raw prop element)))
|
|
|
|
|
|
(should (= 1 (org-element-property-raw prop element 'default))))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/property ()
|
|
|
|
|
|
"Test resolving deferred properties."
|
|
|
|
|
|
;; Resolve `:deferred' property.
|
|
|
|
|
|
(let ((el (org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:deferred
|
|
|
|
|
|
,(org-element-deferred-create
|
|
|
|
|
|
t (lambda (el) (org-element-put-property el :foo 'bar) nil))))))
|
|
|
|
|
|
(should (eq 'bar (org-element-property :foo el)))
|
|
|
|
|
|
(should-not (org-element-property :foo2 el)))
|
|
|
|
|
|
;; Deferred value.
|
|
|
|
|
|
(let ((el (org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:foo
|
|
|
|
|
|
,(org-element-deferred-create
|
|
|
|
|
|
nil (lambda (_) 'bar))))))
|
|
|
|
|
|
(should (eq 'bar (org-element-property :foo el))))
|
|
|
|
|
|
;; Auto-undefer.
|
|
|
|
|
|
(let ((el (org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:foo
|
|
|
|
|
|
,(org-element-deferred-create
|
|
|
|
|
|
t (lambda (_) 'bar))))))
|
|
|
|
|
|
(should (eq 'bar (org-element-property :foo el)))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (eq 'bar (org-element-property-raw :foo el))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
;; Force undefer.
|
|
|
|
|
|
(let ((el (org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:foo
|
|
|
|
|
|
,(org-element-deferred-create
|
|
|
|
|
|
nil (lambda (_) 'bar))))))
|
|
|
|
|
|
(should (eq 'bar (org-element-property :foo el)))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should-not (eq 'bar (org-element-property-raw :foo el)))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(should (eq 'bar (org-element-property :foo el nil 'force)))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (eq 'bar (org-element-property-raw :foo el))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
;; Test deferred alias.
|
|
|
|
|
|
(let ((el (org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`( :foo 1
|
|
|
|
|
|
:bar
|
|
|
|
|
|
,(org-element-deferred-create-alias :foo)))))
|
|
|
|
|
|
(should (equal 1 (org-element-property :foo el)))
|
|
|
|
|
|
(should (equal 1 (org-element-property :bar el))))
|
|
|
|
|
|
;; Test deferred list.
|
|
|
|
|
|
(let ((el (org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:foo
|
|
|
|
|
|
,(org-element-deferred-create-list
|
|
|
|
|
|
(list 1 2 (org-element-deferred-create nil (lambda (_) 3))))))))
|
|
|
|
|
|
(should (equal '(1 2 3) (org-element-property :foo el))))
|
|
|
|
|
|
;; Test deferred property with side effects.
|
|
|
|
|
|
(let ((el (org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:foo
|
|
|
|
|
|
,(org-element-deferred-create
|
|
|
|
|
|
nil (lambda (el)
|
|
|
|
|
|
(org-element-put-property el :foo 1)
|
|
|
|
|
|
(throw :org-element-deferred-retry nil)))))))
|
|
|
|
|
|
(should (eq 1 (org-element-property :foo el))))
|
|
|
|
|
|
;; Test recursive undefer.
|
|
|
|
|
|
(let ((el (org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:foo
|
|
|
|
|
|
,(org-element-deferred-create
|
|
|
|
|
|
nil (lambda (el)
|
|
|
|
|
|
(org-element-deferred-create
|
|
|
|
|
|
nil (lambda (_) 1))))))))
|
|
|
|
|
|
(should (eq 1 (org-element-property :foo el)))))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/property-2 ()
|
|
|
|
|
|
"Test `org-element-property-2' specifications."
|
|
|
|
|
|
(let ((el (org-element-create 'dummy '(:foo bar))))
|
|
|
|
|
|
(should (eq (org-element-property :foo el)
|
|
|
|
|
|
(org-element-property-2 el :foo)))))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/parent ()
|
|
|
|
|
|
"Test `org-element-parent' specifications."
|
|
|
|
|
|
(let ((el (org-element-create 'dummy '(:parent bar))))
|
|
|
|
|
|
(should (eq (org-element-property :parent el)
|
|
|
|
|
|
(org-element-parent el)))))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/properties-resolve ()
|
|
|
|
|
|
"Test `org-element-properties-resolve' specifications."
|
|
|
|
|
|
(let ((el (org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`( :foo ,(org-element-deferred-create t (lambda (_) 1))
|
|
|
|
|
|
:bar ,(org-element-deferred-create nil (lambda (_) 2))
|
|
|
|
|
|
:deferred
|
|
|
|
|
|
,(org-element-deferred-create
|
|
|
|
|
|
nil (lambda (el)
|
|
|
|
|
|
(org-element-put-property el :baz 3)))))))
|
|
|
|
|
|
;; Resolve conditionally.
|
|
|
|
|
|
(setq el (org-element-properties-resolve el))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (eq 1 (org-element-property-raw :foo el)))
|
|
|
|
|
|
(should-not (eq 2 (org-element-property-raw :bar el)))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(should (eq 2 (org-element-property :bar el)))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (eq 3 (org-element-property-raw :baz el)))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
;; Resolve unconditionally.
|
|
|
|
|
|
(setq el (org-element-properties-resolve el 'force))
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(should (eq 2 (org-element-property-raw :bar el)))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/secondary-p ()
|
|
|
|
|
|
"Test `org-element-secondary-p' specifications."
|
|
|
|
|
|
;; In a secondary string, return property name.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq :title
|
|
|
|
|
|
(org-test-with-temp-text "* Headline *object*"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'bold
|
|
|
|
|
|
(lambda (object) (org-element-secondary-p object))
|
|
|
|
|
|
nil t))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq :foo
|
|
|
|
|
|
(org-element-secondary-p
|
|
|
|
|
|
(let* ((el (org-element-create
|
|
|
|
|
|
'dummy '(:secondary (:foo))))
|
|
|
|
|
|
(child (org-element-create "string" `(:parent ,el))))
|
|
|
|
|
|
(org-element-put-property
|
|
|
|
|
|
el :foo (list child))
|
|
|
|
|
|
child))))
|
|
|
|
|
|
;; Outside a secondary string, return nil.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "Paragraph *object*"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'bold
|
|
|
|
|
|
(lambda (object) (org-element-type (org-element-secondary-p object)))
|
|
|
|
|
|
nil t)))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq :foo
|
|
|
|
|
|
(org-element-secondary-p
|
|
|
|
|
|
(let* ((el (org-element-create
|
|
|
|
|
|
'dummy '(:secondary (:foo))))
|
|
|
|
|
|
(child (org-element-create "string" `(:parent ,el))))
|
|
|
|
|
|
(org-element-put-property
|
|
|
|
|
|
el :bar (list child))
|
|
|
|
|
|
child)))))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/class ()
|
|
|
|
|
|
"Test `org-element-class' specifications."
|
|
|
|
|
|
;; Regular tests.
|
|
|
|
|
|
(should (eq 'element (org-element-class '(paragraph nil) nil)))
|
|
|
|
|
|
(should (eq 'object (org-element-class '(target nil) nil)))
|
|
|
|
|
|
;; Special types.
|
|
|
|
|
|
(should (eq 'element (org-element-class '(org-data nil) nil)))
|
|
|
|
|
|
(should (eq 'object (org-element-class "text" nil)))
|
|
|
|
|
|
(should (eq 'object (org-element-class '("secondary " "string") nil)))
|
|
|
|
|
|
;; Pseudo elements.
|
|
|
|
|
|
(should (eq 'element (org-element-class '(foo nil) nil)))
|
|
|
|
|
|
(should (eq 'element (org-element-class '(foo nil) '(center-block nil))))
|
|
|
|
|
|
(should (eq 'element (org-element-class '(foo nil) '(org-data nil))))
|
|
|
|
|
|
;; Pseudo objects.
|
|
|
|
|
|
(should (eq 'object (org-element-class '(foo nil) '(bold nil))))
|
|
|
|
|
|
(should (eq 'object (org-element-class '(foo nil) '(paragraph nil))))
|
|
|
|
|
|
(should (eq 'object (org-element-class '(foo nil) '("secondary"))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'object
|
|
|
|
|
|
(let* ((datum '(foo nil))
|
|
|
|
|
|
(headline `(headline (:title (,datum) :secondary (:title)))))
|
|
|
|
|
|
(org-element-put-property datum :parent headline)
|
|
|
|
|
|
(org-element-class datum)))))
|
2012-02-23 10:28:13 -05:00
|
|
|
|
|
2012-05-05 09:56:12 -04:00
|
|
|
|
|
2023-05-29 06:04:45 -04:00
|
|
|
|
;;; Test `org-element-map' and `org-element-properties-map'
|
2012-05-05 09:56:12 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/map ()
|
|
|
|
|
|
"Test `org-element-map'."
|
|
|
|
|
|
;; Can map to `plain-text' objects.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 2
|
|
|
|
|
|
(org-test-with-temp-text "Some text \alpha
|
|
|
|
|
|
#+BEGIN_CENTER
|
|
|
|
|
|
Some other text
|
|
|
|
|
|
#+END_CENTER"
|
|
|
|
|
|
(let ((count 0))
|
|
|
|
|
|
(org-element-map
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(org-element-parse-buffer) 'plain-text
|
|
|
|
|
|
(lambda (s) (when (string-match "text" s) (cl-incf count))))
|
2012-05-05 09:56:12 -04:00
|
|
|
|
count))))
|
|
|
|
|
|
;; Applies to secondary strings
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-element-map '("some " (bold nil "bold") "text") 'bold 'identity))
|
|
|
|
|
|
;; Enter secondary strings before entering contents.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
"alpha"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:name
|
|
|
|
|
|
(org-test-with-temp-text "* Some \\alpha headline\n\\beta entity."
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'entity 'identity nil t)))))
|
|
|
|
|
|
;; Apply NO-RECURSION argument.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_CENTER\n\\alpha\n#+END_CENTER"
|
|
|
|
|
|
(org-element-map
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(org-element-parse-buffer) 'entity 'identity nil nil 'center-block)))
|
2012-09-30 16:13:47 -04:00
|
|
|
|
;; Use WITH-AFFILIATED argument.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
2023-04-25 07:15:17 -04:00
|
|
|
|
'("1" "a" "2" "b")
|
2012-09-30 16:13:47 -04:00
|
|
|
|
(org-test-with-temp-text "#+CAPTION[a]: 1\n#+CAPTION[b]: 2\nParagraph"
|
|
|
|
|
|
(org-element-map
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(org-element-at-point) 'plain-text 'identity nil nil nil t)))))
|
2012-05-05 09:56:12 -04:00
|
|
|
|
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(ert-deftest test-org-element/ast-map ()
|
|
|
|
|
|
"Test `org-element-ast-map' specifications."
|
|
|
|
|
|
;; TYPES = t
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(plain-text plain-text bold)
|
|
|
|
|
|
(org-element-ast-map
|
|
|
|
|
|
(org-element-create 'anonymous nil "a" "b" (org-element-create 'bold))
|
|
|
|
|
|
t #'org-element-type)))
|
|
|
|
|
|
;; IGNORE
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(plain-text plain-text)
|
|
|
|
|
|
(let ((bold (org-element-create 'bold)))
|
|
|
|
|
|
(org-element-ast-map
|
|
|
|
|
|
(org-element-create 'anonymous nil "a" "b" bold)
|
|
|
|
|
|
t #'org-element-type (list bold)))))
|
|
|
|
|
|
;; FUN as a list form
|
|
|
|
|
|
(org-test-with-temp-text "* H1\n* H2"
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'("H1" "H2")
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(org-element-parse-buffer)
|
|
|
|
|
|
t '(org-element-property :raw-value node)))))
|
|
|
|
|
|
;; Extra secondary properties.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(bold bold)
|
|
|
|
|
|
(org-element-ast-map
|
|
|
|
|
|
(org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:foo ,(org-element-create 'bold))
|
|
|
|
|
|
(org-element-create 'bold))
|
|
|
|
|
|
'bold #'org-element-type
|
|
|
|
|
|
nil nil nil '(:foo))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(bold bold)
|
|
|
|
|
|
(org-element-ast-map
|
|
|
|
|
|
(org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:foo ,(org-element-create 'bold))
|
|
|
|
|
|
(org-element-create 'bold))
|
|
|
|
|
|
'bold #'org-element-type)))
|
|
|
|
|
|
;; No secondary.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(bold bold)
|
|
|
|
|
|
(org-element-ast-map
|
|
|
|
|
|
(org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:secondary (:foo) :foo ,(org-element-create 'bold))
|
|
|
|
|
|
(org-element-create 'bold))
|
|
|
|
|
|
'bold #'org-element-type
|
|
|
|
|
|
nil nil nil nil 'no-secondary)))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(bold bold)
|
|
|
|
|
|
(org-element-ast-map
|
|
|
|
|
|
(org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:secondary (:foo) :foo ,(org-element-create 'bold))
|
|
|
|
|
|
(org-element-create 'bold))
|
|
|
|
|
|
'bold #'org-element-type)))
|
|
|
|
|
|
;; Deferred values.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(dummy bold)
|
|
|
|
|
|
(org-element-ast-map
|
|
|
|
|
|
(org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:secondary (:foo) :foo ,(org-element-deferred-create nil (lambda (_) "a")))
|
|
|
|
|
|
(org-element-create 'bold))
|
|
|
|
|
|
t #'org-element-type
|
|
|
|
|
|
nil nil nil nil nil 'no-undefer)))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(dummy plain-text bold)
|
|
|
|
|
|
(org-element-ast-map
|
|
|
|
|
|
(org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`(:secondary (:foo) :foo ,(org-element-deferred-create nil (lambda (_) "a")))
|
|
|
|
|
|
(org-element-create 'bold))
|
|
|
|
|
|
t #'org-element-type))))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/properties-mapc ()
|
|
|
|
|
|
"Test `org-element-properties-mapc' specifications."
|
|
|
|
|
|
(let ((el (org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`( :foo ,(org-element-deferred-create t (lambda (_) 1))
|
|
|
|
|
|
:bar 2))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(catch :found
|
|
|
|
|
|
(org-element-properties-mapc
|
|
|
|
|
|
(lambda (_ val _)
|
|
|
|
|
|
(when (org-element-deferred-p val)
|
|
|
|
|
|
(throw :found t)))
|
|
|
|
|
|
el)))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(catch :found
|
|
|
|
|
|
(org-element-properties-mapc
|
|
|
|
|
|
(lambda (prop val _)
|
|
|
|
|
|
(when (and (eq prop :foo) (eq 1 val))
|
|
|
|
|
|
(throw :found t)))
|
|
|
|
|
|
el 'undefer)))))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/properties-map ()
|
|
|
|
|
|
"Test `org-element-properties-map' specifications."
|
|
|
|
|
|
;; Check resolving deferred properties.
|
|
|
|
|
|
(let ((el (org-element-create
|
|
|
|
|
|
'dummy
|
|
|
|
|
|
`( :foo ,(org-element-deferred-create t (lambda (_) 1))
|
|
|
|
|
|
:bar 2))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(2)
|
|
|
|
|
|
(cdr
|
|
|
|
|
|
(org-element-properties-map
|
|
|
|
|
|
(lambda (_ val _) val) el))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(equal '(1 2)
|
|
|
|
|
|
(org-element-properties-map
|
|
|
|
|
|
(lambda (_ val _) val) el)))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(1 2)
|
|
|
|
|
|
(org-element-properties-map
|
|
|
|
|
|
(lambda (_ val _) val) el 'undefer))))
|
|
|
|
|
|
;; Check functions with different arity.
|
|
|
|
|
|
(let ((el (org-element-create 'dummy '(:foo 1 :bar 2 :baz 3))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
;; Single argument.
|
|
|
|
|
|
(equal '(1 2 3)
|
|
|
|
|
|
(org-element-properties-map #'identity el)))
|
|
|
|
|
|
;; Two arguments.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(1 2 nil)
|
|
|
|
|
|
(org-element-properties-map
|
|
|
|
|
|
(lambda (prop val) (unless (eq prop :baz) val)) el)))
|
|
|
|
|
|
;; Three arguments.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(1 2 4)
|
|
|
|
|
|
(org-element-properties-map
|
|
|
|
|
|
(lambda (prop val node)
|
|
|
|
|
|
(if (eq prop :baz)
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(1+ (org-element-property-raw :baz node))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
val))
|
|
|
|
|
|
el)))))
|
2012-07-10 11:21:36 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; Test Setters
|
|
|
|
|
|
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(ert-deftest test-org-element/org-element-create ()
|
|
|
|
|
|
"Test `org-element-create' specifications."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(pcase (org-element-create 'foo '(:a 1 :b 2))
|
|
|
|
|
|
(`(foo (:standard-properties ,_ :a 1 :b 2)) t)))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(pcase (org-element-create 'foo '(:begin 10))
|
|
|
|
|
|
(`(foo (:standard-properties ,vec))
|
|
|
|
|
|
(= 10 (aref vec (org-element--property-idx :begin))))))
|
|
|
|
|
|
;; Strings
|
|
|
|
|
|
(should (equal "foo" (org-element-create "foo")))
|
|
|
|
|
|
(should (equal "foo" (org-element-create 'plain-text nil "foo")))
|
|
|
|
|
|
(should (get-text-property 0 :a (org-element-create 'plain-text '(:a 1) "foo")))
|
|
|
|
|
|
(should (get-text-property 0 :begin (org-element-create 'plain-text '(:begin 1) "foo")))
|
|
|
|
|
|
;; Children
|
|
|
|
|
|
(let ((children '("a" "b" (org-element-create 'foo))))
|
|
|
|
|
|
(should (equal (cddr (apply #'org-element-create 'bar nil children))
|
|
|
|
|
|
children))))
|
|
|
|
|
|
|
2012-07-10 11:21:36 -04:00
|
|
|
|
(ert-deftest test-org-element/put-property ()
|
|
|
|
|
|
"Test `org-element-put-property' specifications."
|
2012-10-25 15:33:57 -04:00
|
|
|
|
;; Standard test.
|
2012-07-11 08:17:02 -04:00
|
|
|
|
(org-test-with-temp-text "* Headline\n *a*"
|
|
|
|
|
|
(let ((tree (org-element-parse-buffer)))
|
|
|
|
|
|
(org-element-put-property
|
|
|
|
|
|
(org-element-map tree 'bold 'identity nil t) :test 1)
|
|
|
|
|
|
(should (org-element-property
|
2012-10-25 15:33:57 -04:00
|
|
|
|
:test (org-element-map tree 'bold 'identity nil t)))))
|
|
|
|
|
|
;; Put property on a string.
|
|
|
|
|
|
(should
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(org-element-property :test (org-element-put-property "Paragraph" :test t)))
|
|
|
|
|
|
;; No properties.
|
|
|
|
|
|
(let ((element (list 'heading nil))
|
|
|
|
|
|
vec)
|
|
|
|
|
|
(setq vec (make-vector (length org-element--standard-properties) nil))
|
|
|
|
|
|
(aset vec 0 1)
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(list 'heading (list :standard-properties vec))
|
|
|
|
|
|
(org-element-put-property element :begin 1))))
|
|
|
|
|
|
(let ((element (list 'heading nil)))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(list 'heading (list :begin1 1))
|
|
|
|
|
|
(org-element-put-property element :begin1 1))))
|
|
|
|
|
|
;; Standard properties.
|
|
|
|
|
|
(let ((element (list 'heading (list :standard-properties (make-vector (length org-element--standard-properties) 'foo)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 1
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(org-element-property-raw :begin (org-element-put-property element :begin 1)))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
;; Adding standard properties when other standard properties are defined manually in the plist.
|
|
|
|
|
|
(let ((element (list 'heading (list :begin 1 :end 20 :foo 'foo))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 2
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(org-element-property-raw :begin (org-element-put-property element :begin 2))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
;; Check setter.
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(cl-incf (org-element-property-raw :begin element))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(should
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(= 3 (org-element-property-raw :begin element)))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(= 20
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(org-element-property-raw :end element)))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'foo
|
2023-06-30 09:49:08 -04:00
|
|
|
|
(org-element-property-raw :foo element)))))
|
2023-05-29 06:04:45 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/put-property-2 ()
|
|
|
|
|
|
"Test `org-element-put-property-2' specifications."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-element-put-property (org-element-create 'foo) :test 'value)
|
|
|
|
|
|
(org-element-put-property-2 :test 'value (org-element-create 'foo)))))
|
2012-07-10 11:21:36 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/set-contents ()
|
|
|
|
|
|
"Test `org-element-set-contents' specifications."
|
|
|
|
|
|
;; Accept multiple entries.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("b" (italic nil "a"))
|
2012-07-11 08:17:02 -04:00
|
|
|
|
(org-test-with-temp-text "* Headline\n *a*"
|
|
|
|
|
|
(let ((tree (org-element-parse-buffer)))
|
|
|
|
|
|
(org-element-set-contents
|
|
|
|
|
|
(org-element-map tree 'bold 'identity nil t) "b" '(italic nil "a"))
|
|
|
|
|
|
(org-element-contents
|
|
|
|
|
|
(org-element-map tree 'bold 'identity nil t))))))
|
2012-07-10 11:21:36 -04:00
|
|
|
|
;; Accept atoms and elements.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("b")
|
2012-07-11 08:17:02 -04:00
|
|
|
|
(org-test-with-temp-text "* Headline\n *a*"
|
|
|
|
|
|
(let ((tree (org-element-parse-buffer)))
|
|
|
|
|
|
(org-element-set-contents
|
|
|
|
|
|
(org-element-map tree 'bold 'identity nil t) "b")
|
|
|
|
|
|
(org-element-contents
|
|
|
|
|
|
(org-element-map tree 'bold 'identity nil t))))))
|
2012-07-10 11:21:36 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal '((italic nil "b"))
|
2012-07-11 08:17:02 -04:00
|
|
|
|
(org-test-with-temp-text "* Headline\n *a*"
|
|
|
|
|
|
(let ((tree (org-element-parse-buffer)))
|
|
|
|
|
|
(org-element-set-contents
|
|
|
|
|
|
(org-element-map tree 'bold 'identity nil t) '(italic nil "b"))
|
|
|
|
|
|
(org-element-contents
|
|
|
|
|
|
(org-element-map tree 'bold 'identity nil t))))))
|
2012-07-10 11:21:36 -04:00
|
|
|
|
;; Allow nil contents.
|
|
|
|
|
|
(should-not
|
2012-07-11 08:17:02 -04:00
|
|
|
|
(org-test-with-temp-text "* Headline\n *a*"
|
|
|
|
|
|
(let ((tree (org-element-parse-buffer)))
|
|
|
|
|
|
(org-element-set-contents (org-element-map tree 'bold 'identity nil t))
|
2023-03-03 10:31:37 -05:00
|
|
|
|
(org-element-contents (org-element-map tree 'bold 'identity nil t)))))
|
|
|
|
|
|
;; Set contents of anonymous elements.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '#1=((b (:parent #1#)))
|
|
|
|
|
|
(let ((element '#1=((a (:parent #1#)) (b (:parent #1#)))))
|
|
|
|
|
|
(org-element-set-contents element `(b (:parent ,element)))
|
|
|
|
|
|
element))))
|
2012-07-10 11:21:36 -04:00
|
|
|
|
|
2012-08-18 04:13:35 -04:00
|
|
|
|
(ert-deftest test-org-element/adopt-elements ()
|
2023-05-16 06:41:53 -04:00
|
|
|
|
"Test `org-element-adopt' specifications."
|
2012-07-10 11:21:36 -04:00
|
|
|
|
;; Adopt an element.
|
|
|
|
|
|
(should
|
2012-08-18 04:13:35 -04:00
|
|
|
|
(equal '(plain-text italic)
|
2012-07-11 08:17:02 -04:00
|
|
|
|
(org-test-with-temp-text "* Headline\n *a*"
|
|
|
|
|
|
(let ((tree (org-element-parse-buffer)))
|
2023-05-16 06:41:53 -04:00
|
|
|
|
(org-element-adopt
|
2022-11-26 03:05:19 -05:00
|
|
|
|
(org-element-map tree 'bold 'identity nil t) '(italic nil "a"))
|
2012-07-11 08:17:02 -04:00
|
|
|
|
(mapcar (lambda (blob) (org-element-type blob))
|
|
|
|
|
|
(org-element-contents
|
|
|
|
|
|
(org-element-map tree 'bold 'identity nil t)))))))
|
2012-07-10 11:21:36 -04:00
|
|
|
|
;; Adopt a string.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("a" "b")
|
2012-07-11 08:17:02 -04:00
|
|
|
|
(org-test-with-temp-text "* Headline\n *a*"
|
|
|
|
|
|
(let ((tree (org-element-parse-buffer)))
|
2023-05-16 06:41:53 -04:00
|
|
|
|
(org-element-adopt
|
2022-11-26 03:05:19 -05:00
|
|
|
|
(org-element-map tree 'bold 'identity nil t) "b")
|
2012-07-11 08:17:02 -04:00
|
|
|
|
(org-element-contents
|
|
|
|
|
|
(org-element-map tree 'bold 'identity nil t)))))))
|
2012-07-10 11:21:36 -04:00
|
|
|
|
|
2013-11-30 08:25:55 -05:00
|
|
|
|
(ert-deftest test-org-element/extract-element ()
|
2023-05-14 14:39:05 -04:00
|
|
|
|
"Test `org-element-extract' specifications."
|
2013-11-30 08:25:55 -05:00
|
|
|
|
;; Extract a greater element.
|
|
|
|
|
|
(should
|
Re-implement org-element-cache and add headline support
* lisp/org-element.el (org-element-with-disabled-cache): New macro.
(org-element-greater-elements): Add new org-data element. It
functions like a virtual headline containing the whole buffer. The
org-data properties are like headlie properties, but according to the
top-level drawer. org-data's category is the buffer's category as
defined by top-level property drawer, #+CATEGORY keyworsd, and the
buffer file name.
(org-element--cache-element-properties, org-element-set-element): New
variable containing properties to be transferred when updating changed
element in cache in `org-element-set-element'.
(org-element--get-node-properties): Allow parsing node propreties in
top-level drawer when new optional argument is passed. Respect
PROPERTY+ syntax.
(org-element--get-global-node-properties): New function. It returns
node properties for top-level property drawer.
(org-element-org-data-parser, org-element-org-data-interpreter):
Implement the new org-data element.
(org-element-headline-parser, org-element-section-parser): Add new
:robust-begin and :robust-end
properties delimiting safe changes that do not modify headline
element.
(org-element--list-struct): Fix cache update when adding a headline
inside list.
(org-element--current-element): Implement cache support. Record
parsing mode (:mode) and parsing granularity (:granularity) in the
element properties.
(org-element-parse-buffer, org-element--next-mode): Support new
org-data element.
(org-element--parse-elements): Record parsing granularity in the
returned tree
(org-element-use-cache): Enable cache by default.
(org-element-cache-persistent): New variable controlling cache
persistance across sessions. Enabled by default.
(org-element--cache-self-verify,
org-element--cache-self-verify-frequency,
org-element--cache-diagnostics, org-element--cache-map-statistics,
org-element--cache-map-statistics-threshold,
org-element--cache-diagnostics-level,
org-element--cache-diagnostics-ring,
org-element--cache-diagnostics-ring-size): New variables controlling
cache diagnostics and self-diagnostics. Greatly simplifies cache
debugging.
(org-element--cache, org-element--cache-sync-requests,
org-element--cache-sync-timer): Make cache buffer-local by default.
(org-element--headline-cache): Implement separate cache storing only
headlines and inlinetasks.
(org-element--cache-size, org-element--headline-cache-size): New
variables containing cache sizes. This is much faster than
`avl-tree-size'.
(org-element--cache-sync-requests): Update docstring explaning the
request list structure.
(org-element--cache-sync-keys-value): New variable replacing
`org-element--cache-sync-keys' hash table. The hash table was not
reliable because it was using elements as keys. Upon any cached
element update/shift, the keys were invalidated making cache ordering
incorrect and breaking the cache badly. Now, the cache keys are
stored as :org-element--cache-sync-key element property and the new
variable stores marker value indicating the current sync request
cycle. See `org-element--cache-key' for more details.
(org-element--cache-change-tic): New variable controlling buffer
modification count that is registered in cache. This variable allows
catching "stealth" edits.
(org-element--cache-non-modifying-commands): New variable listing
commands that will not be slown down if we fill cache on the fly.
(org-element--request-key, org-element--request-beg,
org-element--request-end, org-element--request-offset,
org-element--request-parent, org-element--request-phase): New macros.
They improve code readability (especially when using nameless-mode).
(org-element--format-element, org-element--cache-log-message,
org-element--cache-warn): New macros implementing generic logging
functionality.
(org-element--cache-key): Add section and org-data element support.
Change cache key storage from hash map to :org-element--cache-sync-key
element property + `org-element--cache-sync-keys-value'. We use the
latter to group all the cache keys during a single cache request
sequence. Once sync request is fully complete, the
`org-element--cache-sync-keys-value' is updated making all the old
sync keys obsolete (they will still be store as element properties).
(org-element--headline-cache-root): New function returning headline
cache root.
(org-element--cache-active-p): Prevent cache updates when
`inhibit-modification-hooks' is non-nil, unless non-nil optional
argument is provided.
(org-element--cache-find): Share cache between indirect buffers and
the base buffer. We have to do it because after-change hooks for
indirect buffer are not called in the base buffer and vice versa. Add
support for section and org-data elements.
(org-element--cache-put): Implement new approach for cache key
storage. Add diagnostics. Indicate cached elements using :cached
element property. Support cache size calculation.
(org-element--cache-remove): Invalidate parent contents when removing
element. Support cache size calculation. Detect cache corruption due
to misordered elements.
(org-element--cache-shift-positions): Support :robust-begin and
:robust-end element properties.
(org-element--cache-sync): Add diagnostics. Add detailed comments.
Prevent slowdown when large cache chunks need to be deleted forcing
O(N) complexity cutoff. In phase 2, fix cases when next request
contains deleted cache key. In phase 2, fix scenario when newly
inserted element intersects with existing elements in cache. In phase
2, detect obsolete parents removed from cache.
(org-element--open-end-p): New function checking if an element can
have blank lines right after its :contents-end.
(org-element--parse-to): Do not alter match data. Process complex
parsing mode changes correctly. Support headlines in cache. Support
org-data parsing. Add detailed comments. Add diagnostics.
(org-element--cache-sensitive-re): Make list lines sensitive.
(org-element--cache-change-warning): Update docstring. Now, the
variable can have t, nil, and number values. Numbers are used to
provide more details about changed headlines.
(org-element--cache-before-change, org-element--cache-after-change):
Handle headline hierarchy. Properly handle cache in indirect
buffers.
(org-element--cache-after-change): Update docstring clarifying the
return values. Add special handling for headline and org-data
elements updating them in-place instead of removing together with the
whole contents when possible. Use :robust-begin/:robust-end element
properties to detect robust changes.
(org-element--cache-submit-request): Add detailed comments. Correctly
handle cache in indirect buffers. Delegate element modifications to
`org-element--cache-for-removal'.
(org-element--cache-verify-element): New function for cache
self-verification.
(org-element--cache-persist-before-write,
org-element--cache-persist-before-read,
org-element--cache-persist-after-read): Implement cache persistance.
(org-element-cache-reset): Correctly handle cache in indirect
buffers. Support cache persistance. Support new cache size
calculation and new cache key schema.
(org-element-cache-map): New function analagous to `org-element-map',
but much faster. The function overperforms org-ql written by Adam
Porter aka alphapapa [1] and reuses some ideas from there (namely,
fast element skipping via regexps).
[1] https://github.com/alphapapa/org-ql/
(org-element-at-point): The returned elements are now guaranteed to
have correct parents up to org-data. New optional argument
CACHED-ONLY limits element search to current cache---if element is not
in cache and current command is not in cache
`org-element--cache-non-modifying-commands', the cache is not updated
and the function returns nil. Also, support cache verification.
(org-element-at-point-no-context): New function. It is analogous of
older `org-element-at-point' with no guarantee that :parent properties
are correct beyond direct parent heading. This function does not
update cache and can be useful when cache updates should be avoided
for performance reasons.
* lisp/ob-core.el (org-babel-where-is-src-block-result): Support
section and org-data elements in cache.
* lisp/org-macro.el (org-macro-replace-all,
org-macro--find-keyword-value): Support org-element-cache.
* lisp/org-table.el (orgtbl-to-generic): Support org-element-cache.
* lisp/org.el (org-mode): Add cache persistance.
(org-up-element): Preserve old behaviour when error is returned for
section and org-data element.
*
testing/lisp/test-org-archive.el (test-org-archive/update-status-cookie):
Fix test when cache is active.
* testing/lisp/test-org-colview.el (test-org-colview/columns-update):
Fix test.
* testing/lisp/test-org-element.el (test-org-element/extract-element):
Add suport for new org-data element.
* testing/lisp/test-org-element.el (test-org-element/parent-property):
Fix equality check. Parents returned by cache and `org-element-map'
may not be `eq' now. Just `equal'.
* testing/lisp/test-org-element.el (test-org-element/context): Support
section and headline parents.
2021-10-16 09:17:10 -04:00
|
|
|
|
(eq 'org-data
|
|
|
|
|
|
(org-test-with-temp-text "* Headline"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(element (org-element-map tree 'headline 'identity nil t)))
|
2023-05-14 14:39:05 -04:00
|
|
|
|
(org-element-extract element)
|
Re-implement org-element-cache and add headline support
* lisp/org-element.el (org-element-with-disabled-cache): New macro.
(org-element-greater-elements): Add new org-data element. It
functions like a virtual headline containing the whole buffer. The
org-data properties are like headlie properties, but according to the
top-level drawer. org-data's category is the buffer's category as
defined by top-level property drawer, #+CATEGORY keyworsd, and the
buffer file name.
(org-element--cache-element-properties, org-element-set-element): New
variable containing properties to be transferred when updating changed
element in cache in `org-element-set-element'.
(org-element--get-node-properties): Allow parsing node propreties in
top-level drawer when new optional argument is passed. Respect
PROPERTY+ syntax.
(org-element--get-global-node-properties): New function. It returns
node properties for top-level property drawer.
(org-element-org-data-parser, org-element-org-data-interpreter):
Implement the new org-data element.
(org-element-headline-parser, org-element-section-parser): Add new
:robust-begin and :robust-end
properties delimiting safe changes that do not modify headline
element.
(org-element--list-struct): Fix cache update when adding a headline
inside list.
(org-element--current-element): Implement cache support. Record
parsing mode (:mode) and parsing granularity (:granularity) in the
element properties.
(org-element-parse-buffer, org-element--next-mode): Support new
org-data element.
(org-element--parse-elements): Record parsing granularity in the
returned tree
(org-element-use-cache): Enable cache by default.
(org-element-cache-persistent): New variable controlling cache
persistance across sessions. Enabled by default.
(org-element--cache-self-verify,
org-element--cache-self-verify-frequency,
org-element--cache-diagnostics, org-element--cache-map-statistics,
org-element--cache-map-statistics-threshold,
org-element--cache-diagnostics-level,
org-element--cache-diagnostics-ring,
org-element--cache-diagnostics-ring-size): New variables controlling
cache diagnostics and self-diagnostics. Greatly simplifies cache
debugging.
(org-element--cache, org-element--cache-sync-requests,
org-element--cache-sync-timer): Make cache buffer-local by default.
(org-element--headline-cache): Implement separate cache storing only
headlines and inlinetasks.
(org-element--cache-size, org-element--headline-cache-size): New
variables containing cache sizes. This is much faster than
`avl-tree-size'.
(org-element--cache-sync-requests): Update docstring explaning the
request list structure.
(org-element--cache-sync-keys-value): New variable replacing
`org-element--cache-sync-keys' hash table. The hash table was not
reliable because it was using elements as keys. Upon any cached
element update/shift, the keys were invalidated making cache ordering
incorrect and breaking the cache badly. Now, the cache keys are
stored as :org-element--cache-sync-key element property and the new
variable stores marker value indicating the current sync request
cycle. See `org-element--cache-key' for more details.
(org-element--cache-change-tic): New variable controlling buffer
modification count that is registered in cache. This variable allows
catching "stealth" edits.
(org-element--cache-non-modifying-commands): New variable listing
commands that will not be slown down if we fill cache on the fly.
(org-element--request-key, org-element--request-beg,
org-element--request-end, org-element--request-offset,
org-element--request-parent, org-element--request-phase): New macros.
They improve code readability (especially when using nameless-mode).
(org-element--format-element, org-element--cache-log-message,
org-element--cache-warn): New macros implementing generic logging
functionality.
(org-element--cache-key): Add section and org-data element support.
Change cache key storage from hash map to :org-element--cache-sync-key
element property + `org-element--cache-sync-keys-value'. We use the
latter to group all the cache keys during a single cache request
sequence. Once sync request is fully complete, the
`org-element--cache-sync-keys-value' is updated making all the old
sync keys obsolete (they will still be store as element properties).
(org-element--headline-cache-root): New function returning headline
cache root.
(org-element--cache-active-p): Prevent cache updates when
`inhibit-modification-hooks' is non-nil, unless non-nil optional
argument is provided.
(org-element--cache-find): Share cache between indirect buffers and
the base buffer. We have to do it because after-change hooks for
indirect buffer are not called in the base buffer and vice versa. Add
support for section and org-data elements.
(org-element--cache-put): Implement new approach for cache key
storage. Add diagnostics. Indicate cached elements using :cached
element property. Support cache size calculation.
(org-element--cache-remove): Invalidate parent contents when removing
element. Support cache size calculation. Detect cache corruption due
to misordered elements.
(org-element--cache-shift-positions): Support :robust-begin and
:robust-end element properties.
(org-element--cache-sync): Add diagnostics. Add detailed comments.
Prevent slowdown when large cache chunks need to be deleted forcing
O(N) complexity cutoff. In phase 2, fix cases when next request
contains deleted cache key. In phase 2, fix scenario when newly
inserted element intersects with existing elements in cache. In phase
2, detect obsolete parents removed from cache.
(org-element--open-end-p): New function checking if an element can
have blank lines right after its :contents-end.
(org-element--parse-to): Do not alter match data. Process complex
parsing mode changes correctly. Support headlines in cache. Support
org-data parsing. Add detailed comments. Add diagnostics.
(org-element--cache-sensitive-re): Make list lines sensitive.
(org-element--cache-change-warning): Update docstring. Now, the
variable can have t, nil, and number values. Numbers are used to
provide more details about changed headlines.
(org-element--cache-before-change, org-element--cache-after-change):
Handle headline hierarchy. Properly handle cache in indirect
buffers.
(org-element--cache-after-change): Update docstring clarifying the
return values. Add special handling for headline and org-data
elements updating them in-place instead of removing together with the
whole contents when possible. Use :robust-begin/:robust-end element
properties to detect robust changes.
(org-element--cache-submit-request): Add detailed comments. Correctly
handle cache in indirect buffers. Delegate element modifications to
`org-element--cache-for-removal'.
(org-element--cache-verify-element): New function for cache
self-verification.
(org-element--cache-persist-before-write,
org-element--cache-persist-before-read,
org-element--cache-persist-after-read): Implement cache persistance.
(org-element-cache-reset): Correctly handle cache in indirect
buffers. Support cache persistance. Support new cache size
calculation and new cache key schema.
(org-element-cache-map): New function analagous to `org-element-map',
but much faster. The function overperforms org-ql written by Adam
Porter aka alphapapa [1] and reuses some ideas from there (namely,
fast element skipping via regexps).
[1] https://github.com/alphapapa/org-ql/
(org-element-at-point): The returned elements are now guaranteed to
have correct parents up to org-data. New optional argument
CACHED-ONLY limits element search to current cache---if element is not
in cache and current command is not in cache
`org-element--cache-non-modifying-commands', the cache is not updated
and the function returns nil. Also, support cache verification.
(org-element-at-point-no-context): New function. It is analogous of
older `org-element-at-point' with no guarantee that :parent properties
are correct beyond direct parent heading. This function does not
update cache and can be useful when cache updates should be avoided
for performance reasons.
* lisp/ob-core.el (org-babel-where-is-src-block-result): Support
section and org-data elements in cache.
* lisp/org-macro.el (org-macro-replace-all,
org-macro--find-keyword-value): Support org-element-cache.
* lisp/org-table.el (orgtbl-to-generic): Support org-element-cache.
* lisp/org.el (org-mode): Add cache persistance.
(org-up-element): Preserve old behaviour when error is returned for
section and org-data element.
*
testing/lisp/test-org-archive.el (test-org-archive/update-status-cookie):
Fix test when cache is active.
* testing/lisp/test-org-colview.el (test-org-colview/columns-update):
Fix test.
* testing/lisp/test-org-element.el (test-org-element/extract-element):
Add suport for new org-data element.
* testing/lisp/test-org-element.el (test-org-element/parent-property):
Fix equality check. Parents returned by cache and `org-element-map'
may not be `eq' now. Just `equal'.
* testing/lisp/test-org-element.el (test-org-element/context): Support
section and headline parents.
2021-10-16 09:17:10 -04:00
|
|
|
|
(org-element-type tree)))))
|
2013-11-30 08:25:55 -05:00
|
|
|
|
;; Extract an element.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(org-test-with-temp-text "Paragraph"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(element (org-element-map tree 'paragraph 'identity nil t)))
|
2023-05-14 14:39:05 -04:00
|
|
|
|
(org-element-extract element)
|
2013-11-30 08:25:55 -05:00
|
|
|
|
tree))
|
|
|
|
|
|
'paragraph
|
|
|
|
|
|
'identity))
|
|
|
|
|
|
;; Extract an object, even in a secondary string.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(org-test-with-temp-text "*bold*"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(element (org-element-map tree 'bold 'identity nil t)))
|
2023-05-14 14:39:05 -04:00
|
|
|
|
(org-element-extract element)
|
2013-11-30 08:25:55 -05:00
|
|
|
|
tree))
|
|
|
|
|
|
'bold
|
|
|
|
|
|
'identity))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(org-test-with-temp-text "* Headline *bold*"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(element (org-element-map tree 'bold 'identity nil t)))
|
2023-05-14 14:39:05 -04:00
|
|
|
|
(org-element-extract element)
|
2013-11-30 08:25:55 -05:00
|
|
|
|
tree))
|
|
|
|
|
|
'bold
|
|
|
|
|
|
'identity))
|
|
|
|
|
|
;; Return value doesn't have any :parent set.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:parent
|
|
|
|
|
|
(org-test-with-temp-text "* Headline\n Paragraph with *bold* text."
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(element (org-element-map tree 'bold 'identity nil t)))
|
2023-05-14 14:39:05 -04:00
|
|
|
|
(org-element-extract element))))))
|
2013-11-30 08:25:55 -05:00
|
|
|
|
|
2013-11-30 17:31:42 -05:00
|
|
|
|
(ert-deftest test-org-element/insert-before ()
|
|
|
|
|
|
"Test `org-element-insert-before' specifications."
|
|
|
|
|
|
;; Standard test.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(italic entity bold)
|
|
|
|
|
|
(org-test-with-temp-text "/some/ *paragraph*"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
testing: Make all files use `lexical-binding`
Mainly, add the corresponding cookie, but also add various `require`s
so that the compiler knows which vars should be trated as dynbound.
This does not fix all the warnings, but does try to eliminate
all those about "unused" variables. For the variables truly unused,
the patch usually adds an underscore to their name to silence the warning.
Some of the fixes affect files which already used `lexical-binding`.
Not sure why the test worked before: maybe because the tests were run
without compiling them first (which could cause some of the
missing `require`d packages to be autoloaded before we got to the
problematic code, thus hiding the problem)?
I found some suspicious code, for which I added FIXMEs.
There are also a few changes to the main files.
* lisp/org-protocol.el (org-protocol-check-filename-for-protocol):
Don't call `server-edit` if it's not yet defined. [ Needed to get
the tests to pass. ]
* lisp/ob-core.el (org-babel-temporary-directory)
(org-babel-temporary-stable-directory): Always define (and use nil
if we don't want to create a directory for it). Simplify the code based
on the fact that (defvar V E) only evaluates E if V is not yet `boundp`.
(org-babel-temp-file, org-babel-temp-stable-file)
(org-babel-remove-temporary-directory)
(org-babel-remove-temporary-stable-directory): Adjust accordingly.
* lisp/org.el (org-log-beginning): Add FIXME.
* testing/org-test.el: Require `org` and `org-id`.
(org-id-locations-file): Don't `defconst` it.
(org-test-at-id, org-test-in-example-file, org-test-at-marker)
(org-test-with-temp-text, org-test-with-temp-text-in-file): Move edebug
specs into `declare` (and simplify them).
(org-test-with-tramp-remote-dir--worker): Declare dynbound tramp vars.
(org--compile-when): Fix quoting of `exp`.
(org-test-load): Tweak regexps.
* testing/org-batch-test-init.el: Tweak regexp, remove dead code and
add a FIXME about it.
* testing/lisp/test-ox.el: Require `ox` instead of
erroring out if it's not already loaded. Also require `org-inlinetask`.
(org-test-with-parsed-data): Silence warnings when `info` is not used.
(test-org-export/bind-keyword): Add FIXME.
* testing/lisp/test-ox-publish.el: Require `org-test` and `ox-publish`.
(test-org-publish/resolve-external-link): Expose lambdas to
the compiler. Remove unused var `ids`.
(test-org-publish/get-project-from-filename): Remove unused var `file`.
* testing/lisp/test-org.el: Require `org-macs`, `org`,
`org-inlinetask`, `org-refile`, and `org-agenda`.
(test-org/org-read-date): Declare `org-time-was-given` as dynbound.
(test-org/set-regexps-and-options): Add FIXME.
* testing/lisp/test-org-timer.el: Require `org-timer`.
* testing/lisp/test-org-table.el: Require `ox`.
* testing/lisp/test-org-protocol.el: Require `org-protocol` instead of
erroring out if it's not already loaded. Also require `capture`, and
add missing `provide` statement.
* testing/lisp/test-org-pcomplete.el: Require `org`.
* testing/lisp/test-org-list.el: Require `org-list` and `org`.
* testing/lisp/test-org-lint.el: Require `org-footnote` and `org-lint`.
* testing/lisp/test-org-footnote.el: Require `org-footnote`.
* testing/lisp/test-org-element.el: Require `org-element` instead of
erroring out if it's not already loaded. Also require `org` and
`org-inlinetask`.
* testing/lisp/test-org-duration.el: Require `org-duration`.
* testing/lisp/test-org-datetree.el: Require `org-datetree`.
* testing/lisp/test-org-colview.el: Require `org-colview`,
`org-duration`, and `org-inlinetask`.
* testing/lisp/test-org-clock.el: Require `org-duration` and `org-clock`.
* testing/lisp/test-org-archive.el: Require `org-archive`.
* testing/lisp/test-org-agenda.el
(test-org-agenda/bulk-custom-arg-func): Add FIXME.
* testing/lisp/test-ol.el: Require `ol` and `org-id`.
(test-org-link/store-link): Declare `org-store-link-props` and add FIXME.
* testing/lisp/test-oc.el (test-org-cite/export-capability): Add FIXME.
* testing/lisp/test-ob.el: Require `ob-core`, `org-src`, `ob-ref`,
and `org-table`.
(test-ob/eval-header-argument): Rename `foo` to `test-ob--foo` and
declare it as dynbound.
(test-ob/blocks-with-spaces, test-ob/specific-colnames): Add FIXME.
(test-ob/noweb-expansions-in-cache):
Declare `noweb-expansions-in-cache-var` as dynbound.
* testing/lisp/test-ob-tangle.el: Require `org` and `ob-tangle`.
* testing/lisp/test-ob-shell.el:
* testing/lisp/test-ob-python.el: Require `ob-core`.
* testing/lisp/test-ob-lob.el: Require `ob-lob`.
(temporary-value-for-test): Declare as dynbound.
* testing/lisp/test-ob-plantuml.el: Require `ob-plantuml` instead of
erroring out if it's not already loaded.
* testing/lisp/test-ob-lilypond.el: Require `ob-lilypond` instead of
erroring out if it's not already loaded. Use `with-current-buffer`.
* testing/lisp/test-ob-julia.el: Require `ob-core`.
* testing/lisp/test-ob-java.el (org-babel-temporary-directory):
Remove dead code now that `org-babel-temporary-directory` is always bound.
* testing/lisp/test-ob-exp.el: Require `ob-exp`, `org-src`, and `org-test`.
(ob-exp/evaluate-all-executables-in-order):
Declare `*evaluation-collector*` as dynbound.
* testing/lisp/test-ob-emacs-lisp.el (ob-emacs-lisp/dynamic-lexical-edit)
(ob-emacs-lisp/dynamic-lexical-execute):
Rename dynbound var to `ob-emacs--x` and declare it as such.
* testing/lisp/test-ob-R.el: Require `ob-core`.
(ess-ask-for-ess-directory, ess-history-file): Declare vars.
2022-09-14 17:21:37 -04:00
|
|
|
|
(_paragraph (org-element-map tree 'paragraph #'identity nil t))
|
2013-11-30 17:31:42 -05:00
|
|
|
|
(bold (org-element-map tree 'bold 'identity nil t)))
|
|
|
|
|
|
(org-element-insert-before '(entity (:name "\\alpha")) bold)
|
|
|
|
|
|
(org-element-map tree '(bold entity italic) #'org-element-type nil)))))
|
|
|
|
|
|
;; Insert an object in a secondary string.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(entity italic)
|
|
|
|
|
|
(org-test-with-temp-text "* /A/\n Paragraph."
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(headline (org-element-map tree 'headline 'identity nil t))
|
|
|
|
|
|
(italic (org-element-map tree 'italic 'identity nil t)))
|
|
|
|
|
|
(org-element-insert-before '(entity (:name "\\alpha")) italic)
|
|
|
|
|
|
(org-element-map (org-element-property :title headline) '(entity italic)
|
|
|
|
|
|
#'org-element-type))))))
|
|
|
|
|
|
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(ert-deftest test-org-element/set ()
|
2023-05-14 14:39:05 -04:00
|
|
|
|
"Test `org-element-set' specifications."
|
2013-12-01 09:48:54 -05:00
|
|
|
|
;; Check if new element is inserted.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "* Headline\n*a*"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(bold (org-element-map tree 'bold 'identity nil t)))
|
2023-05-14 14:39:05 -04:00
|
|
|
|
(org-element-set bold '(italic nil "b"))
|
2013-12-01 09:48:54 -05:00
|
|
|
|
(org-element-map tree 'italic 'identity))))
|
|
|
|
|
|
;; Check if old element is removed.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "* Headline\n*a*"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(bold (org-element-map tree 'bold 'identity nil t)))
|
2023-05-14 14:39:05 -04:00
|
|
|
|
(org-element-set bold '(italic nil "b"))
|
2013-12-01 09:48:54 -05:00
|
|
|
|
(org-element-map tree 'bold 'identity))))
|
|
|
|
|
|
;; Check if :parent property is correctly set.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'paragraph
|
|
|
|
|
|
(org-test-with-temp-text "* Headline\n*a*"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(bold (org-element-map tree 'bold 'identity nil t)))
|
2023-05-14 14:39:05 -04:00
|
|
|
|
(org-element-set bold '(italic nil "b"))
|
2013-12-01 09:48:54 -05:00
|
|
|
|
(org-element-type
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:parent (org-element-map tree 'italic 'identity nil t)))))))
|
|
|
|
|
|
;; Allow to replace strings with elements.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("b")
|
|
|
|
|
|
(org-test-with-temp-text "* Headline"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(text (org-element-map tree 'plain-text 'identity nil t)))
|
2023-05-14 14:39:05 -04:00
|
|
|
|
(org-element-set text (list 'bold nil "b"))
|
2013-12-01 09:48:54 -05:00
|
|
|
|
(org-element-map tree 'plain-text 'identity)))))
|
|
|
|
|
|
;; Allow to replace elements with strings.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "a"
|
|
|
|
|
|
(org-test-with-temp-text "* =verbatim="
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(verb (org-element-map tree 'verbatim 'identity nil t)))
|
2023-05-14 14:39:05 -04:00
|
|
|
|
(org-element-set verb "a")
|
2013-12-01 09:48:54 -05:00
|
|
|
|
(org-element-map tree 'plain-text 'identity nil t)))))
|
|
|
|
|
|
;; Allow to replace strings with strings.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "b"
|
|
|
|
|
|
(org-test-with-temp-text "a"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(text (org-element-map tree 'plain-text 'identity nil t)))
|
2023-05-14 14:39:05 -04:00
|
|
|
|
(org-element-set text "b")
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(org-element-map tree 'plain-text 'identity nil t)))))
|
|
|
|
|
|
;; KEEP-PROPS
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:foo
|
|
|
|
|
|
(org-element-set
|
|
|
|
|
|
(org-element-create 'dummy '(:foo bar))
|
|
|
|
|
|
(org-element-create 'dummy '(:foo2 bar2))
|
|
|
|
|
|
'(:foo)))))
|
2013-12-01 09:48:54 -05:00
|
|
|
|
|
2015-02-09 04:07:34 -05:00
|
|
|
|
(ert-deftest test-org-element/copy ()
|
|
|
|
|
|
"Test `org-element-copy' specifications."
|
|
|
|
|
|
;; Preserve type.
|
|
|
|
|
|
(should (eq 'bold
|
|
|
|
|
|
(org-test-with-temp-text "*bold*"
|
|
|
|
|
|
(org-element-type (org-element-copy (org-element-context))))))
|
|
|
|
|
|
(should (eq 'plain-text
|
|
|
|
|
|
(org-test-with-temp-text "*bold*"
|
|
|
|
|
|
(org-element-type
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'plain-text
|
|
|
|
|
|
#'org-element-copy nil t)))))
|
|
|
|
|
|
;; Preserve properties except `:parent'.
|
|
|
|
|
|
(should (= 7
|
|
|
|
|
|
(org-test-with-temp-text "*bold*"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:end (org-element-copy (org-element-context))))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "*bold*"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:parent (org-element-copy (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "*bold*"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:parent
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'plain-text
|
|
|
|
|
|
#'org-element-copy nil t))))
|
|
|
|
|
|
;; Copying nil returns nil.
|
|
|
|
|
|
(should-not (org-element-copy nil))
|
|
|
|
|
|
;; Return a copy secondary strings.
|
|
|
|
|
|
(should (equal '("text") (org-element-copy '("text"))))
|
2024-01-03 09:41:18 -05:00
|
|
|
|
(should-not (eq '("text") (org-element-copy '("text"))))
|
|
|
|
|
|
;; Do not alter the source.
|
|
|
|
|
|
(org-test-with-temp-text "*bold*"
|
|
|
|
|
|
(let* ((source (org-element-context))
|
|
|
|
|
|
(copy (org-element-copy source)))
|
|
|
|
|
|
(should-not (org-element-parent copy))
|
|
|
|
|
|
(should (org-element-parent source)))))
|
2015-02-09 04:07:34 -05:00
|
|
|
|
|
2012-07-10 11:21:36 -04:00
|
|
|
|
|
2012-02-23 10:28:13 -05:00
|
|
|
|
|
2012-04-30 11:20:57 -04:00
|
|
|
|
;;; Test Parsers
|
2012-02-23 10:28:13 -05:00
|
|
|
|
|
2012-09-13 07:03:55 -04:00
|
|
|
|
;;;; Affiliated Keywords
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/affiliated-keywords-parser ()
|
|
|
|
|
|
"Test affiliated keywords parsing."
|
|
|
|
|
|
;; Read simple keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "para"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:name
|
|
|
|
|
|
(org-test-with-temp-text "#+NAME: para\nParagraph"
|
|
|
|
|
|
(org-element-at-point)))))
|
2012-09-23 03:49:32 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(= 1
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:begin
|
|
|
|
|
|
(org-test-with-temp-text "#+NAME: para\nParagraph"
|
|
|
|
|
|
(org-element-at-point)))))
|
2012-09-13 07:03:55 -04:00
|
|
|
|
;; Parse multiple keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
2023-04-24 09:38:14 -04:00
|
|
|
|
'("line1" "line2")
|
2012-09-13 07:03:55 -04:00
|
|
|
|
(org-element-property
|
|
|
|
|
|
:attr_ascii
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+ATTR_ASCII: line1\n#+ATTR_ASCII: line2\nParagraph"
|
|
|
|
|
|
(org-element-at-point)))))
|
2019-06-08 18:51:53 -04:00
|
|
|
|
;; Parse "parsed" keywords, unless granularity prevents it.
|
2012-09-13 07:03:55 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
2012-09-13 10:51:54 -04:00
|
|
|
|
'(("caption"))
|
2012-09-13 07:03:55 -04:00
|
|
|
|
(org-test-with-temp-text "#+CAPTION: caption\nParagraph"
|
|
|
|
|
|
(car (org-element-property :caption (org-element-at-point))))))
|
2019-06-08 18:51:53 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+CAPTION: *caption*\nParagraph"
|
|
|
|
|
|
(org-element-map (org-element-map (org-element-parse-buffer)
|
|
|
|
|
|
'paragraph
|
|
|
|
|
|
(lambda (e) (org-element-property :caption e)) nil t)
|
|
|
|
|
|
'bold
|
|
|
|
|
|
#'org-element-type nil t)))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+CAPTION: *caption*\nParagraph"
|
|
|
|
|
|
(org-element-map (org-element-map (org-element-parse-buffer 'element)
|
|
|
|
|
|
'paragraph
|
|
|
|
|
|
(lambda (e) (org-element-property :caption e)) nil t)
|
|
|
|
|
|
'bold
|
|
|
|
|
|
#'org-element-type nil t)))
|
2012-09-13 07:03:55 -04:00
|
|
|
|
;; Parse dual keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
2012-09-13 10:51:54 -04:00
|
|
|
|
'((("long") "short"))
|
2012-09-13 07:03:55 -04:00
|
|
|
|
(org-test-with-temp-text "#+CAPTION[short]: long\nParagraph"
|
2012-09-13 10:51:54 -04:00
|
|
|
|
(org-element-property :caption (org-element-at-point)))))
|
|
|
|
|
|
;; Allow multiple caption keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
2023-04-24 09:38:14 -04:00
|
|
|
|
'((("l1") "s1") (("l2") "s2"))
|
2012-09-13 10:51:54 -04:00
|
|
|
|
(org-test-with-temp-text "#+CAPTION[s1]: l1\n#+CAPTION[s2]: l2\nParagraph"
|
2012-10-28 17:43:50 -04:00
|
|
|
|
(org-element-property :caption (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
2023-04-24 09:38:14 -04:00
|
|
|
|
'((nil "s1") (("l1")))
|
2012-10-28 17:43:50 -04:00
|
|
|
|
(org-test-with-temp-text "#+CAPTION[s1]:\n#+CAPTION: l1\nParagraph"
|
2013-02-11 08:42:16 -05:00
|
|
|
|
(org-element-property :caption (org-element-at-point)))))
|
|
|
|
|
|
;; Corner case: orphaned keyword at the end of an element.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'keyword
|
|
|
|
|
|
(org-test-with-temp-text "- item\n #+name: name\nSome paragraph"
|
|
|
|
|
|
(progn (search-forward "name")
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "- item\n #+name: name\nSome paragraph"
|
|
|
|
|
|
(progn (search-forward "Some")
|
2023-10-12 07:24:35 -04:00
|
|
|
|
(org-element-property :name (org-element-at-point)))))
|
|
|
|
|
|
;; Corner case: orphaned keyword before comment.
|
|
|
|
|
|
;; Comments cannot have affiliated keywords.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+name: foo\n# bar"
|
|
|
|
|
|
(progn (search-forward "bar")
|
2023-10-13 08:14:57 -04:00
|
|
|
|
(org-element-property :name (org-element-at-point)))))
|
|
|
|
|
|
;; Headlines cannot have affiliated keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "<point>#+name: foo\n* Heading"
|
|
|
|
|
|
(org-element-type-p (org-element-at-point) 'keyword)))
|
|
|
|
|
|
;; Clocks cannot have affiliated keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "<point>#+name: foo
|
|
|
|
|
|
CLOCK: [2023-10-13 Fri 14:40]--[2023-10-13 Fri 14:51] => 0:11"
|
|
|
|
|
|
(org-element-type-p (org-element-at-point) 'keyword)))
|
|
|
|
|
|
;; Inlinetasks cannot have affiliated keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(let ((org-inlinetask-min-level 4))
|
|
|
|
|
|
(org-test-with-temp-text "<point>#+name: foo
|
|
|
|
|
|
**** Inlinetask"
|
|
|
|
|
|
(org-element-type-p (org-element-at-point) 'keyword)))))
|
2012-09-13 07:03:55 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;;;; Babel Call
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/babel-call-parser ()
|
|
|
|
|
|
"Test `babel-call' parsing."
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Standard test.
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(should
|
2015-04-21 05:54:22 -04:00
|
|
|
|
(eq 'babel-call
|
|
|
|
|
|
(org-test-with-temp-text "#+CALL: test()"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Ignore case.
|
|
|
|
|
|
(should
|
2015-04-21 05:54:22 -04:00
|
|
|
|
(eq 'babel-call
|
|
|
|
|
|
(org-test-with-temp-text "#+call: test()"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2013-11-10 05:28:14 -05:00
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+CALL: test()\n "
|
2015-04-21 05:54:22 -04:00
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max))))
|
|
|
|
|
|
;; Parse call name.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "test"
|
|
|
|
|
|
(org-test-with-temp-text "#+CALL: test()"
|
|
|
|
|
|
(org-element-property :call (org-element-at-point)))))
|
2017-06-20 15:20:30 -04:00
|
|
|
|
;; Parse inside header. It may contain paired square brackets.
|
2015-04-21 05:54:22 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal ":results output"
|
|
|
|
|
|
(org-test-with-temp-text "#+CALL: test[:results output]()"
|
|
|
|
|
|
(org-element-property :inside-header (org-element-at-point)))))
|
2017-06-20 15:20:30 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal ":results output, a=table[1:2], b=2"
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+CALL: test[:results output, a=table[1:2], b=2]()"
|
|
|
|
|
|
(org-element-property :inside-header (org-element-at-point)))))
|
|
|
|
|
|
;; Parse arguments, which can be nested. However, stop at paired
|
|
|
|
|
|
;; parenthesis, even when, e.g.,end header contains some.
|
2015-04-21 05:54:22 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal "n=4"
|
|
|
|
|
|
(org-test-with-temp-text "#+CALL: test(n=4)"
|
|
|
|
|
|
(org-element-property :arguments (org-element-at-point)))))
|
2015-07-02 18:33:45 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal "test()"
|
|
|
|
|
|
(org-test-with-temp-text "#+CALL: test(test())"
|
|
|
|
|
|
(org-element-property :arguments (org-element-at-point)))))
|
2017-06-20 15:20:30 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal "a=1"
|
|
|
|
|
|
(org-test-with-temp-text "#+CALL: test(a=1) :post another-call()"
|
|
|
|
|
|
(org-element-property :arguments (org-element-at-point)))))
|
2015-04-21 05:54:22 -04:00
|
|
|
|
;; Parse end header.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal ":results html"
|
|
|
|
|
|
(org-test-with-temp-text "#+CALL: test() :results html"
|
|
|
|
|
|
(org-element-property :end-header (org-element-at-point))))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Bold
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/bold-parser ()
|
|
|
|
|
|
"Test `bold' parser."
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Standard test.
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(should
|
2016-12-08 03:44:26 -05:00
|
|
|
|
(org-test-with-temp-text "*bold*"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'bold #'identity nil t)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Multi-line markup.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-contents
|
2016-12-08 03:44:26 -05:00
|
|
|
|
(org-test-with-temp-text "*first line\nsecond line*"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'bold #'identity nil t)))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
'("first line\nsecond line"))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Center Block
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/center-block-parser ()
|
|
|
|
|
|
"Test `center-block' parser."
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Standard test.
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-test-with-temp-text "#+BEGIN_CENTER\nText\n#+END_CENTER"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'center-block 'identity)))
|
|
|
|
|
|
;; Ignore case.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+begin_center\nText\n#+end_center"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'center-block 'identity)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Ignore incomplete block.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_CENTER"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'center-block
|
|
|
|
|
|
'identity nil t)))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_CENTER\nC\n#+END_CENTER\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
2020-04-25 10:39:40 -04:00
|
|
|
|
;;;; Citation
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/citation-parser ()
|
|
|
|
|
|
"Test `citation' parser"
|
|
|
|
|
|
;; Parse citations. They must contain at least a bare key.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'citation
|
|
|
|
|
|
(org-test-with-temp-text "[cite:@key]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'citation
|
|
|
|
|
|
(org-test-with-temp-text "[cite:text]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
;; Citation may contain a style.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'citation
|
|
|
|
|
|
(org-test-with-temp-text "[cite/style:@key]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "style"
|
|
|
|
|
|
(org-test-with-temp-text "[cite/style:@key]"
|
|
|
|
|
|
(org-element-property :style (org-element-context)))))
|
|
|
|
|
|
;; Handle multi citations separated with semi-columns.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'citation
|
|
|
|
|
|
(org-test-with-temp-text "[cite:@a;@b;@c]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("a" "b" "c")
|
|
|
|
|
|
(org-test-with-temp-text "[cite:@a;@b;@c]"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'citation-reference
|
|
|
|
|
|
(lambda (r) (org-element-property :key r))))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'citation
|
|
|
|
|
|
(org-test-with-temp-text "[cite:@a;-@b]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("a" "b")
|
|
|
|
|
|
(org-test-with-temp-text "[cite:@a;-@b]"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'citation-reference
|
|
|
|
|
|
(lambda (r) (org-element-property :key r))))))
|
|
|
|
|
|
;; Multi citations accept `:prefix' and `:suffix' properties.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("common-prefix")
|
|
|
|
|
|
(org-test-with-temp-text "[cite:common-prefix;@a]"
|
|
|
|
|
|
(org-element-property :prefix (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("common-suffix")
|
|
|
|
|
|
(org-test-with-temp-text "[cite:@a;common-suffix]"
|
|
|
|
|
|
(org-element-property :suffix (org-element-context)))))
|
|
|
|
|
|
;; White spaces right after "cite" tags are ignored. So are white
|
|
|
|
|
|
;; spaces at the end of the citation.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("common-prefix ")
|
|
|
|
|
|
(org-test-with-temp-text "[cite: common-prefix ;@a]"
|
|
|
|
|
|
(org-element-property :prefix (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(" common-suffix")
|
|
|
|
|
|
(org-test-with-temp-text "[cite: @a; common-suffix ]"
|
2021-07-28 04:32:29 -04:00
|
|
|
|
(org-element-property :suffix (org-element-context)))))
|
|
|
|
|
|
;; Allow citations in a table cell.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'citation
|
|
|
|
|
|
(org-test-with-temp-text "| <point>[cite:@key] |"
|
|
|
|
|
|
(org-element-type (org-element-context))))))
|
2020-04-25 10:39:40 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Citation Reference
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/citation-reference-parser ()
|
|
|
|
|
|
"Test `citation' reference parser."
|
|
|
|
|
|
;; Parse bare keys.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'citation-reference
|
|
|
|
|
|
(org-test-with-temp-text "[cite:<point>@key]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
;; Bare keys can contain any word character, and some punctuation,
|
|
|
|
|
|
;; but not semicolon, square brackets, and space.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "_key"
|
|
|
|
|
|
(org-test-with-temp-text "[cite:@_k<point>ey]"
|
|
|
|
|
|
(org-element-property :key (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'citation-reference
|
|
|
|
|
|
(org-test-with-temp-text "[cite:<point>@a]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'citation-reference
|
|
|
|
|
|
(org-test-with-temp-text "[cite:<point>@ö]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'citation-reference
|
|
|
|
|
|
(org-test-with-temp-text "[cite:<point>@_]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "a:.#$%&-+?<>~/1"
|
|
|
|
|
|
(org-test-with-temp-text "[cite:<point>@a:.#$%&-+?<>~/1]"
|
|
|
|
|
|
(org-element-property :key (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'citation-reference
|
|
|
|
|
|
(org-test-with-temp-text "[cite:<point>@;]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(equal "key"
|
|
|
|
|
|
(org-test-with-temp-text "[cite:<point>@[]]"
|
|
|
|
|
|
(org-element-property :key (org-element-context)))))
|
|
|
|
|
|
;; References in citations accept optional `:prefix' and `:suffix'
|
|
|
|
|
|
;; properties.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("pre ")
|
|
|
|
|
|
(org-test-with-temp-text "[cite:pre <point>@key]"
|
|
|
|
|
|
(org-element-property :prefix (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(" post")
|
|
|
|
|
|
(org-test-with-temp-text "[cite:<point>@key post]"
|
|
|
|
|
|
(org-element-property :suffix (org-element-context)))))
|
|
|
|
|
|
;; White spaces between "cite" tag and prefix are ignored.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("pre ")
|
|
|
|
|
|
(org-test-with-temp-text "[cite: pre <point>@key]"
|
|
|
|
|
|
(org-element-property :prefix (org-element-context)))))
|
|
|
|
|
|
;; Semicolons do not belong to prefix or suffix.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("pre ")
|
|
|
|
|
|
(org-test-with-temp-text "[cite:@key1;pre <point>@key2]"
|
|
|
|
|
|
(org-element-property :prefix (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(" post")
|
|
|
|
|
|
(org-test-with-temp-text "[cite:@key1 <point>post;@key2]"
|
|
|
|
|
|
(org-element-property :suffix (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("pre ")
|
|
|
|
|
|
(org-test-with-temp-text "[cite:global prefix;pre<point> @key1]"
|
|
|
|
|
|
(org-element-property :prefix (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(" post")
|
|
|
|
|
|
(org-test-with-temp-text "[cite:@key1 <point>post; global suffix]"
|
|
|
|
|
|
(org-element-property :suffix (org-element-context))))))
|
|
|
|
|
|
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;;;; Clock
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/clock-parser ()
|
|
|
|
|
|
"Test `clock' parser."
|
|
|
|
|
|
;; Running clock.
|
2013-10-29 09:53:21 -04:00
|
|
|
|
(let ((clock (org-test-with-temp-text "CLOCK: [2012-01-01 sun. 00:01]"
|
|
|
|
|
|
(org-element-at-point))))
|
2012-06-08 14:16:57 -04:00
|
|
|
|
(should (eq (org-element-property :status clock) 'running))
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-element-property :raw-value
|
|
|
|
|
|
(org-element-property :value clock))
|
|
|
|
|
|
"[2012-01-01 sun. 00:01]"))
|
|
|
|
|
|
(should-not (org-element-property :duration clock)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Closed clock.
|
2013-10-29 09:53:21 -04:00
|
|
|
|
(let ((clock
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"CLOCK: [2012-01-01 sun. 00:01]--[2012-01-01 sun. 00:02] => 0:01"
|
|
|
|
|
|
(org-element-at-point))))
|
2012-06-08 14:16:57 -04:00
|
|
|
|
(should (eq (org-element-property :status clock) 'closed))
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(should (equal (org-element-property :raw-value
|
|
|
|
|
|
(org-element-property :value clock))
|
2012-06-08 14:16:57 -04:00
|
|
|
|
"[2012-01-01 sun. 00:01]--[2012-01-01 sun. 00:02]"))
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(should (equal (org-element-property :duration clock) "0:01"))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Code
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/code-parser ()
|
|
|
|
|
|
"Test `code' parser."
|
|
|
|
|
|
;; Regular test.
|
|
|
|
|
|
(should
|
2016-12-08 03:44:26 -05:00
|
|
|
|
(org-test-with-temp-text "~code~"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'code #'identity)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Multi-line markup.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-property
|
|
|
|
|
|
:value
|
2016-12-08 03:44:26 -05:00
|
|
|
|
(org-test-with-temp-text "~first line\nsecond line~"
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(org-element-parse-buffer) 'code #'identity nil t)))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
"first line\nsecond line")))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Comment
|
2012-05-02 11:18:14 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/comment-parser ()
|
2012-05-04 13:24:51 -04:00
|
|
|
|
"Test `comment' parser."
|
2012-05-02 11:18:14 -04:00
|
|
|
|
;; Regular comment.
|
2019-12-15 08:06:20 -05:00
|
|
|
|
(should (eq 'comment
|
|
|
|
|
|
(org-test-with-temp-text "# Comment"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2012-05-02 11:18:14 -04:00
|
|
|
|
;; Inline comment.
|
2019-12-15 08:06:20 -05:00
|
|
|
|
(should (eq 'comment
|
|
|
|
|
|
(org-test-with-temp-text " # Comment"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2012-05-02 11:18:14 -04:00
|
|
|
|
;; Preserve indentation.
|
|
|
|
|
|
(should
|
2019-12-15 08:06:20 -05:00
|
|
|
|
(equal "No blank\n One blank"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:value
|
|
|
|
|
|
(org-test-with-temp-text "# No blank\n# One blank"
|
|
|
|
|
|
(org-element-at-point)))))
|
2012-05-02 11:18:14 -04:00
|
|
|
|
;; Comment with blank lines.
|
|
|
|
|
|
(should
|
2019-12-15 08:06:20 -05:00
|
|
|
|
(equal "First part\n\n\nSecond part"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:value
|
|
|
|
|
|
(org-test-with-temp-text "# First part\n# \n#\n# Second part"
|
|
|
|
|
|
(org-element-at-point)))))
|
2012-08-02 13:47:14 -04:00
|
|
|
|
;; Do not mix comments and keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 1
|
|
|
|
|
|
(org-test-with-temp-text "#+keyword: value\n# comment\n#+keyword: value"
|
2013-11-10 04:18:17 -05:00
|
|
|
|
(length (org-element-map (org-element-parse-buffer) 'comment
|
2019-12-15 08:06:20 -05:00
|
|
|
|
#'identity)))))
|
2012-08-02 13:47:14 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal "comment"
|
2019-12-15 08:06:20 -05:00
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+key: value\n<point># comment\n#+key: value"
|
|
|
|
|
|
(org-element-property :value (org-element-at-point)))))
|
2013-11-10 04:18:17 -05:00
|
|
|
|
;; Correctly handle non-empty blank lines at the end of buffer.
|
|
|
|
|
|
(should
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-test-with-temp-text "# A\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Comment Block
|
2012-05-02 11:18:14 -04:00
|
|
|
|
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(ert-deftest test-org-element/comment-block-parser ()
|
|
|
|
|
|
"Test `comment-block' parser."
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Standard test.
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-test-with-temp-text "#+BEGIN_COMMENT\nText\n#+END_COMMENT"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'comment-block 'identity)))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Ignore case.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+begin_comment\nText\n#+end_comment"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'comment-block 'identity)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Ignore incomplete block.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_COMMENT"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'comment-block
|
|
|
|
|
|
'identity nil t)))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_COMMENT\nC\n#+END_COMMENT\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-10-27 08:23:37 -04:00
|
|
|
|
;;;; Diary Sexp
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/diary-sexp-parser ()
|
|
|
|
|
|
"Test `diary-sexp' parser."
|
|
|
|
|
|
;; Standard test.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'diary-sexp
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"%%(org-anniversary 1956 5 14)(2) Arthur Dent is %d years old"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Diary sexp must live at beginning of line
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'diary-sexp
|
|
|
|
|
|
(org-test-with-temp-text " %%(org-bbdb-anniversaries)"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "%%(org-bbdb-anniversaries)\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-10-27 08:23:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;;;; Drawer
|
2012-05-02 11:18:14 -04:00
|
|
|
|
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(ert-deftest test-org-element/drawer-parser ()
|
|
|
|
|
|
"Test `drawer' parser."
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Standard test.
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(should
|
2013-10-20 08:40:09 -04:00
|
|
|
|
(org-test-with-temp-text ":TEST:\nText\n:END:"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'drawer 'identity)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Ignore incomplete drawer.
|
|
|
|
|
|
(should-not
|
2013-10-20 08:40:09 -04:00
|
|
|
|
(org-test-with-temp-text ":TEST:"
|
2013-11-10 05:47:06 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'drawer 'identity nil t)))
|
2021-05-16 04:14:54 -04:00
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text ":END:"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'drawer 'identity nil t)))
|
2013-11-10 05:28:14 -05:00
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text ":TEST:\nC\n:END:\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Dynamic Block
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/dynamic-block-parser ()
|
|
|
|
|
|
"Test `dynamic-block' parser."
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Standard test.
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+BEGIN: myblock :param1 val1 :param2 val2\nText\n#+END:"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'dynamic-block 'identity)))
|
|
|
|
|
|
;; Ignore case.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+begin: myblock :param1 val1 :param2 val2\nText\n#+end:"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'dynamic-block 'identity)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Ignore incomplete block.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN: myblock :param1 val1 :param2 val2"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'dynamic-block
|
|
|
|
|
|
'identity nil t)))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN: myblock :param val1\nC\n#+END:\n "
|
2023-09-12 04:15:17 -04:00
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max))))
|
|
|
|
|
|
;; Block name is mandatory.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN:\n\n#+END:\n"
|
|
|
|
|
|
(org-element-type-p (org-element-at-point) 'dynamic-block))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Entity
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/entity-parser ()
|
|
|
|
|
|
"Test `entity' parser."
|
|
|
|
|
|
;; Without brackets.
|
|
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-test-with-temp-text "\\sin"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'entity 'identity)))
|
2023-10-19 04:15:45 -04:00
|
|
|
|
;; Special case: space-based entities.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
"_ "
|
|
|
|
|
|
;; Space after entity must be a part of its name.
|
|
|
|
|
|
(org-test-with-temp-text "\\_ Foo"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:name
|
|
|
|
|
|
(car (org-element-map (org-element-parse-buffer) 'entity 'identity))))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
;; {} is not a part of whitespace entity name.
|
|
|
|
|
|
(org-test-with-temp-text "\\_ {}Foo"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:bracketsp
|
|
|
|
|
|
(car (org-element-map (org-element-parse-buffer) 'entity 'identity)))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; With brackets.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:use-brackets-p
|
|
|
|
|
|
(org-test-with-temp-text "\\alpha{}text"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'entity 'identity nil t))))
|
|
|
|
|
|
;; User-defined entity.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:name
|
|
|
|
|
|
(let ((org-entities-user
|
|
|
|
|
|
'(("test" "test" nil "test" "test" "test" "test"))))
|
|
|
|
|
|
(org-test-with-temp-text "\\test"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'entity 'identity nil t))))
|
org-element: Fix parsing error in `org-element-context'
* lisp/org-element.el (org-element-text-markup-successor,
org-element-latex-or-entity-successor,
org-element-export-snippet-successor,
org-element-footnote-reference-successor,
org-element-inline-babel-call-successor,
org-element-inline-src-block-successor,
org-element-line-break-successor, org-element-link-successor,
org-element-plain-link-successor, org-element-macro-successor,
org-element-radio-target-successor,
org-element-statistics-cookie-successor,
org-element-sub/superscript-successor,
org-element-table-cell-successor, org-element-target-successor,
org-element-timestamp-successor): Remove LIMIT argument.
(org-element--parse-objects, org-element--get-next-object-candidates):
Apply signature change to successors.
(org-element-context): Narrow buffer around object containers so
parsing of objects when using this function is done under the same
restrictions as in buffer parsing.
* testing/lisp/test-org-element.el: Add test.
2013-08-30 07:29:51 -04:00
|
|
|
|
"test"))
|
|
|
|
|
|
;; Special case: entity at the end of a container.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'entity
|
|
|
|
|
|
(org-test-with-temp-text "*\\alpha \\beta*"
|
|
|
|
|
|
(search-forward "be")
|
|
|
|
|
|
(org-element-type (org-element-context))))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Example Block
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/example-block-parser ()
|
|
|
|
|
|
"Test `example-block' parser."
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Standard test.
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXAMPLE\nText\n#+END_EXAMPLE"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'example-block 'identity)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Ignore incomplete block.
|
|
|
|
|
|
(should-not
|
2013-05-25 08:18:48 -04:00
|
|
|
|
(eq 'example-block
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXAMPLE"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2012-09-30 11:45:21 -04:00
|
|
|
|
;; Properly un-escape code.
|
|
|
|
|
|
(should
|
2018-01-24 06:56:25 -05:00
|
|
|
|
(equal "* Headline\n #+keyword:\nText\n"
|
2012-09-30 11:45:21 -04:00
|
|
|
|
(org-test-with-temp-text
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+BEGIN_EXAMPLE\n,* Headline\n ,#+keyword:\nText\n#+END_EXAMPLE"
|
2013-05-25 08:18:48 -04:00
|
|
|
|
(org-element-property :value (org-element-at-point)))))
|
2013-11-10 05:28:14 -05:00
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXAMPLE\nC\n#+END_EXAMPLE\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-03-10 05:37:13 -05:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/block-switches ()
|
|
|
|
|
|
"Test `example-block' and `src-block' switches parsing."
|
|
|
|
|
|
(let ((org-coderef-label-format "(ref:%s)"))
|
|
|
|
|
|
;; 1. Test "-i" switch.
|
2013-05-25 08:18:48 -04:00
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
|
org-element: Rename a few internal functions
* contrib/lisp/org-element.el (org-element--parse-elements): Renamed
from `org-element-parse-elements'.
(org-element--parse-objects): Renamed from `org-element-parse-objects'.
(org-element--get-next-object-candidates): Renamed from
`org-element-get-next-object-candidates'.
(org-element--interpret-affiliated-keywords): Renamed from
`org-element-interpret--affiliated-keywords'.
(org-element--current-element): Renamed from
`org-element-current-element'.
(org-element--collect-affiliated-keywords): Renamed from
`org-element-collect-affiliated-keywords'.
(org-element-center-block-parser, org-element-drawer-parser,
org-element-dynamic-block-parser,
org-element-footnote-definition-parser, org-element-inlinetask-parser,
org-element-plain-list-parser, org-element-quote-block-parser,
org-element-special-block-parser, org-element-comment-parser,
org-element-comment-block-parser, org-element-example-block-parser,
org-element-export-block-parser, org-element-fixed-width-parser,
org-element-horizontal-rule-parser,
org-element-latex-environment-parser, org-element-paragraph-parser,
org-element-src-block-parser, org-element-table-parser,
org-element-verse-block-parser, org-element-fill-paragraph,
org-element-context, org-element-at-point, org-element-interpret-data,
org-element-parse-secondary-string, org-element-parse-buffer): Apply
name change.
* contrib/lisp/org-export.el (org-export-get-buffer-attributes): Apply
name change.
* testing/lisp/test-org-element.el: Update tests accordingly.
* testing/lisp/test-org-export.el: Update tests accordingly.
2012-07-19 05:23:43 -04:00
|
|
|
|
(org-element-property :preserve-indent (org-element-at-point))))
|
2013-05-25 08:18:48 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SRC emacs-lisp -i\n(+ 1 1)\n#+END_SRC"
|
|
|
|
|
|
(org-element-property :preserve-indent (org-element-at-point))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXAMPLE\nText.\n#+END_EXAMPLE"
|
|
|
|
|
|
(org-element-property :preserve-indent (org-element-at-point))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXAMPLE -i\nText.\n#+END_EXAMPLE"
|
org-element: Rename a few internal functions
* contrib/lisp/org-element.el (org-element--parse-elements): Renamed
from `org-element-parse-elements'.
(org-element--parse-objects): Renamed from `org-element-parse-objects'.
(org-element--get-next-object-candidates): Renamed from
`org-element-get-next-object-candidates'.
(org-element--interpret-affiliated-keywords): Renamed from
`org-element-interpret--affiliated-keywords'.
(org-element--current-element): Renamed from
`org-element-current-element'.
(org-element--collect-affiliated-keywords): Renamed from
`org-element-collect-affiliated-keywords'.
(org-element-center-block-parser, org-element-drawer-parser,
org-element-dynamic-block-parser,
org-element-footnote-definition-parser, org-element-inlinetask-parser,
org-element-plain-list-parser, org-element-quote-block-parser,
org-element-special-block-parser, org-element-comment-parser,
org-element-comment-block-parser, org-element-example-block-parser,
org-element-export-block-parser, org-element-fixed-width-parser,
org-element-horizontal-rule-parser,
org-element-latex-environment-parser, org-element-paragraph-parser,
org-element-src-block-parser, org-element-table-parser,
org-element-verse-block-parser, org-element-fill-paragraph,
org-element-context, org-element-at-point, org-element-interpret-data,
org-element-parse-secondary-string, org-element-parse-buffer): Apply
name change.
* contrib/lisp/org-export.el (org-export-get-buffer-attributes): Apply
name change.
* testing/lisp/test-org-element.el: Update tests accordingly.
* testing/lisp/test-org-export.el: Update tests accordingly.
2012-07-19 05:23:43 -04:00
|
|
|
|
(org-element-property :preserve-indent (org-element-at-point))))
|
2012-03-10 05:37:13 -05:00
|
|
|
|
;; 2. "-n -r -k" combination should number lines, retain labels but
|
|
|
|
|
|
;; not use them in coderefs.
|
2015-01-22 00:59:04 -05:00
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXAMPLE -n -r -k\nText.\n#+END_EXAMPLE"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(should (org-element-property :number-lines element))
|
|
|
|
|
|
(should (org-element-property :retain-labels element))
|
|
|
|
|
|
(should-not (org-element-property :use-labels element))))
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+BEGIN_SRC emacs-lisp -n -r -k\n(+ 1 1)\n#+END_SRC"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(should (org-element-property :number-lines element))
|
|
|
|
|
|
(should (org-element-property :retain-labels element))
|
|
|
|
|
|
(should-not (org-element-property :use-labels element))))
|
2012-03-10 05:37:13 -05:00
|
|
|
|
;; 3. "-n -r" combination should number-lines remove labels and not
|
|
|
|
|
|
;; use them in coderefs.
|
2015-01-22 00:59:04 -05:00
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXAMPLE -n -r\nText.\n#+END_EXAMPLE"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(should (org-element-property :number-lines element))
|
|
|
|
|
|
(should-not (org-element-property :retain-labels element))
|
|
|
|
|
|
(should-not (org-element-property :use-labels element))))
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SRC emacs-lisp -n -r\n(+ 1 1)\n#+END_SRC"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(should (org-element-property :number-lines element))
|
|
|
|
|
|
(should-not (org-element-property :retain-labels element))
|
|
|
|
|
|
(should-not (org-element-property :use-labels element))))
|
2012-03-10 05:37:13 -05:00
|
|
|
|
;; 4. "-n" or "+n" should number lines, retain labels and use them
|
|
|
|
|
|
;; in coderefs.
|
2013-05-25 08:18:48 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXAMPLE -n\nText.\n#+END_EXAMPLE"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(and (org-element-property :number-lines element)
|
|
|
|
|
|
(org-element-property :retain-labels element)
|
|
|
|
|
|
(org-element-property :use-labels element)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SRC emacs-lisp -n\n(+ 1 1)\n#+END_SRC"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(and (org-element-property :number-lines element)
|
|
|
|
|
|
(org-element-property :retain-labels element)
|
|
|
|
|
|
(org-element-property :use-labels element)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXAMPLE +n\nText.\n#+END_EXAMPLE"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(and (org-element-property :number-lines element)
|
|
|
|
|
|
(org-element-property :retain-labels element)
|
|
|
|
|
|
(org-element-property :use-labels element)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SRC emacs-lisp +n\n(+ 1 1)\n#+END_SRC"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(and (org-element-property :number-lines element)
|
|
|
|
|
|
(org-element-property :retain-labels element)
|
|
|
|
|
|
(org-element-property :use-labels element)))))
|
2012-03-10 05:37:13 -05:00
|
|
|
|
;; 5. No switch should not number lines, but retain labels and use
|
|
|
|
|
|
;; them in coderefs.
|
2015-01-22 00:59:04 -05:00
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXAMPLE\nText.\n#+END_EXAMPLE"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(should (not (org-element-property :number-lines element)))
|
|
|
|
|
|
(should (org-element-property :retain-labels element))
|
|
|
|
|
|
(should (org-element-property :use-labels element))))
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(should (not (org-element-property :number-lines element)))
|
|
|
|
|
|
(should (org-element-property :retain-labels element))
|
|
|
|
|
|
(should (org-element-property :use-labels element))))
|
2012-03-10 05:37:13 -05:00
|
|
|
|
;; 6. "-r" switch only: do not number lines, remove labels, and
|
|
|
|
|
|
;; don't use labels in coderefs.
|
2015-01-22 00:59:04 -05:00
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXAMPLE -r\nText.\n#+END_EXAMPLE"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(should (not (org-element-property :number-lines element)))
|
|
|
|
|
|
(should (not (org-element-property :retain-labels element)))
|
|
|
|
|
|
(should (not (org-element-property :use-labels element)))))
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SRC emacs-lisp -r\n(+ 1 1)\n#+END_SRC"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(should (not (org-element-property :number-lines element)))
|
|
|
|
|
|
(should (not (org-element-property :retain-labels element)))
|
|
|
|
|
|
(should (not (org-element-property :use-labels element)))))
|
2012-03-10 05:37:13 -05:00
|
|
|
|
;; 7. Recognize coderefs with user-defined syntax.
|
2013-05-25 08:18:48 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
"[ref:%s]"
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+BEGIN_EXAMPLE -l \"[ref:%s]\"\nText [ref:text]\n#+END_EXAMPLE"
|
|
|
|
|
|
(org-element-property :label-fmt (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
"[ref:%s]"
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+BEGIN_SRC emacs-lisp -l \"[ref:%s]\"\n(+ 1 1) [ref:text]\n#+END_SRC"
|
|
|
|
|
|
(org-element-property :label-fmt (org-element-at-point)))))))
|
2012-03-10 05:37:13 -05:00
|
|
|
|
|
|
|
|
|
|
|
2014-09-08 05:57:27 -04:00
|
|
|
|
;;;; Export Block
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/export-block-parser ()
|
|
|
|
|
|
"Test `export-block' parser."
|
|
|
|
|
|
;; Standard test.
|
|
|
|
|
|
(should
|
2015-02-03 10:16:54 -05:00
|
|
|
|
(eq 'export-block
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXPORT LATEX\nText\n#+END_EXPORT"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "LATEX"
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXPORT LATEX\nText\n#+END_EXPORT"
|
|
|
|
|
|
(org-element-property :type (org-element-at-point)))))
|
2014-09-08 05:57:27 -04:00
|
|
|
|
;; Ignore case.
|
|
|
|
|
|
(should
|
2015-02-03 10:16:54 -05:00
|
|
|
|
(eq 'export-block
|
|
|
|
|
|
(org-test-with-temp-text "#+begin_export latex\nText\n#+end_export"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2014-09-08 05:57:27 -04:00
|
|
|
|
;; Ignore incomplete block.
|
|
|
|
|
|
(should-not
|
2015-02-03 10:16:54 -05:00
|
|
|
|
(eq 'export-block
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXPORT"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2014-09-08 05:57:27 -04:00
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
2015-02-03 10:16:54 -05:00
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXPORT latex\nC\n#+END_EXPORT\n "
|
2016-05-13 11:53:22 -04:00
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max))))
|
|
|
|
|
|
;; Un-escape commas in `:value'.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "* H\n"
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXPORT org\n,* H\n#+END_EXPORT\n "
|
|
|
|
|
|
(org-element-property :value (org-element-at-point))))))
|
2014-09-08 05:57:27 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;;;; Export Snippet
|
2012-04-30 11:20:57 -04:00
|
|
|
|
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(ert-deftest test-org-element/export-snippet-parser ()
|
2012-05-04 13:24:51 -04:00
|
|
|
|
"Test `export-snippet' parser."
|
2012-04-30 11:20:57 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
2023-04-20 08:11:19 -04:00
|
|
|
|
'("backend" . "contents")
|
|
|
|
|
|
(org-test-with-temp-text "@@backend:contents@@"
|
2012-04-30 11:20:57 -04:00
|
|
|
|
(org-element-map
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-parse-buffer) 'export-snippet
|
|
|
|
|
|
(lambda (snippet) (cons (org-element-property :back-end snippet)
|
|
|
|
|
|
(org-element-property :value snippet)))
|
|
|
|
|
|
nil t)))))
|
2012-04-30 11:20:57 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;;;; Fixed Width
|
2012-05-02 11:18:14 -04:00
|
|
|
|
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(ert-deftest test-org-element/fixed-width-parser ()
|
2012-05-02 11:18:14 -04:00
|
|
|
|
"Test fixed-width area parsing."
|
|
|
|
|
|
;; Preserve indentation.
|
|
|
|
|
|
(should
|
2018-07-01 18:24:38 -04:00
|
|
|
|
(equal "no blank\n one blank"
|
|
|
|
|
|
(org-test-with-temp-text ": no blank\n: one blank"
|
|
|
|
|
|
(org-element-property :value (org-element-at-point)))))
|
2012-05-02 11:18:14 -04:00
|
|
|
|
;; Fixed-width with empty lines.
|
|
|
|
|
|
(should
|
2018-07-01 18:24:38 -04:00
|
|
|
|
(equal "first part\n\n\nsecond part"
|
|
|
|
|
|
(org-test-with-temp-text ": first part\n:\n: \n: second part"
|
|
|
|
|
|
(org-element-property :value (org-element-at-point)))))
|
2012-05-02 11:18:14 -04:00
|
|
|
|
;; Parse indented fixed-width markers.
|
|
|
|
|
|
(should
|
2018-07-01 18:24:38 -04:00
|
|
|
|
(eq 'fixed-width
|
|
|
|
|
|
(org-test-with-temp-text "Text\n<point> : no blank\n : one blank"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2012-05-02 11:18:14 -04:00
|
|
|
|
;; Distinguish fixed-width areas within a list and outside of it.
|
|
|
|
|
|
(should
|
2018-07-01 18:24:38 -04:00
|
|
|
|
(org-test-with-temp-text "
|
2012-05-02 11:18:14 -04:00
|
|
|
|
- Item
|
2018-07-01 18:24:38 -04:00
|
|
|
|
: fixed-width inside<point>
|
2012-05-02 11:18:14 -04:00
|
|
|
|
: fixed-width outside"
|
2018-07-01 18:24:38 -04:00
|
|
|
|
(= (org-element-property :end (org-element-at-point))
|
|
|
|
|
|
(line-beginning-position 2))))
|
2013-11-10 05:28:14 -05:00
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text ": A\n "
|
2018-07-01 18:24:38 -04:00
|
|
|
|
(= (org-element-property :end (org-element-at-point))
|
|
|
|
|
|
(point-max)))))
|
2012-05-02 11:18:14 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;;;; Footnote Definition
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/footnote-definition-parser ()
|
|
|
|
|
|
"Test `footnote-definition' parser."
|
|
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-test-with-temp-text "[fn:1] Definition"
|
2017-06-07 17:45:17 -04:00
|
|
|
|
(eq (org-element-type (org-element-at-point)) 'footnote-definition)))
|
|
|
|
|
|
;; Footnote with more contents.
|
2012-05-04 19:38:11 -04:00
|
|
|
|
(should
|
2017-06-07 17:45:17 -04:00
|
|
|
|
(= 29 (org-test-with-temp-text "[fn:1] Definition\n\n| a | b |"
|
|
|
|
|
|
(org-element-property :end (org-element-at-point)))))
|
|
|
|
|
|
;; Test difference between :contents-end and :end property
|
|
|
|
|
|
(should
|
|
|
|
|
|
(< (org-test-with-temp-text "[fn:1] Definition\n\n\n"
|
|
|
|
|
|
(org-element-property :contents-end (org-element-at-point)))
|
|
|
|
|
|
(org-test-with-temp-text "[fn:1] Definition\n\n\n"
|
|
|
|
|
|
(org-element-property :end (org-element-at-point)))))
|
2012-09-12 09:40:13 -04:00
|
|
|
|
;; Footnote starting with special syntax.
|
|
|
|
|
|
(should-not
|
2017-06-07 17:45:17 -04:00
|
|
|
|
(org-test-with-temp-text "[fn:1] <point>- no item"
|
|
|
|
|
|
(eq (org-element-type (org-element-at-point)) 'item)))
|
2013-09-11 11:07:09 -04:00
|
|
|
|
;; Correctly handle footnote starting with an empty line.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 9
|
|
|
|
|
|
(org-test-with-temp-text "[fn:1]\n\n Body"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-property :contents-begin (org-element-at-point)))))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "[fn:1] Definition\n "
|
2016-01-14 03:31:24 -05:00
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max))))
|
|
|
|
|
|
;; Footnote with attributes.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 1
|
|
|
|
|
|
(org-test-with-temp-text "#+attr_latex: :offset 0in\n[fn:1] A footnote."
|
|
|
|
|
|
(length
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'footnote-definition
|
|
|
|
|
|
#'identity)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "[fn:1] 1\n\n#+attr_latex: :offset 0in\n[fn:2] 2"
|
|
|
|
|
|
(goto-char (org-element-property :end (org-element-at-point)))
|
2017-06-07 17:45:17 -04:00
|
|
|
|
(looking-at "#")))
|
|
|
|
|
|
;; An empty footnote has no contents.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "[fn:1]\n\n"
|
|
|
|
|
|
(let ((footnote (org-element-at-point)))
|
|
|
|
|
|
(or (org-element-property :contents-begin footnote)
|
2017-11-09 16:47:35 -05:00
|
|
|
|
(org-element-property :contents-end footnote)))))
|
|
|
|
|
|
;; Parse `:pre-blank'.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 0
|
|
|
|
|
|
(org-test-with-temp-text "[fn:1] A"
|
|
|
|
|
|
(org-element-property :pre-blank (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 1
|
|
|
|
|
|
(org-test-with-temp-text "[fn:1]\nA"
|
|
|
|
|
|
(org-element-property :pre-blank (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 2
|
|
|
|
|
|
(org-test-with-temp-text "[fn:1]\n\nA"
|
|
|
|
|
|
(org-element-property :pre-blank (org-element-at-point))))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;;;; Footnotes Reference.
|
2012-04-06 17:50:00 -04:00
|
|
|
|
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(ert-deftest test-org-element/footnote-reference-parser ()
|
2012-05-04 13:24:51 -04:00
|
|
|
|
"Test `footnote-reference' parser."
|
2014-07-06 05:08:57 -04:00
|
|
|
|
;; Parse a standard reference.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "Text[fn:label]"
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-map
|
2014-07-06 05:08:57 -04:00
|
|
|
|
(org-element-parse-buffer) 'footnote-reference 'identity)))
|
|
|
|
|
|
;; Parse an inline reference.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "Text[fn:test:def]"
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-map
|
2014-07-06 05:08:57 -04:00
|
|
|
|
(org-element-parse-buffer) 'footnote-reference 'identity)))
|
|
|
|
|
|
;; Parse an anonymous reference.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "Text[fn::def]"
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-map
|
2014-07-06 05:08:57 -04:00
|
|
|
|
(org-element-parse-buffer) 'footnote-reference 'identity)))
|
2022-02-28 09:25:08 -05:00
|
|
|
|
;; Parse inline references with syntax loaded characters.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'footnote-reference
|
|
|
|
|
|
(org-test-with-temp-text "Text[fn<point>::(def]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'footnote-reference
|
|
|
|
|
|
(org-test-with-temp-text "Text[fn<point>::\"def]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2014-07-06 05:08:57 -04:00
|
|
|
|
;; Parse nested footnotes.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 2
|
|
|
|
|
|
(length
|
|
|
|
|
|
(org-test-with-temp-text "Text[fn::def [fn:label]]"
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-map
|
2014-07-06 05:08:57 -04:00
|
|
|
|
(org-element-parse-buffer) 'footnote-reference 'identity)))))
|
|
|
|
|
|
;; Parse adjacent footnotes.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "Text[fn:label1][fn:label2]"
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(= 2
|
|
|
|
|
|
(length
|
|
|
|
|
|
(org-element-map
|
2014-07-06 05:08:57 -04:00
|
|
|
|
(org-element-parse-buffer) 'footnote-reference 'identity)))))
|
|
|
|
|
|
;; Only properly closed footnotes are recognized as such.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "Text[fn:label"
|
2012-04-06 17:50:00 -04:00
|
|
|
|
(org-element-map
|
2014-07-06 05:08:57 -04:00
|
|
|
|
(org-element-parse-buffer) 'footnote-reference 'identity))))
|
2012-04-06 17:50:00 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;;;; Headline
|
2012-04-30 11:20:57 -04:00
|
|
|
|
|
2018-06-06 09:41:50 -04:00
|
|
|
|
(ert-deftest test-org-element/headline-todo-keyword ()
|
|
|
|
|
|
"Test todo keyword recognition."
|
|
|
|
|
|
;; Reference test.
|
|
|
|
|
|
(org-test-with-temp-text "* TODO Headline"
|
|
|
|
|
|
(let ((org-todo-keywords '((sequence "TODO" "DONE"))))
|
|
|
|
|
|
(should (org-element-property :todo-keyword (org-element-at-point)))))
|
|
|
|
|
|
;; Todo keyword is prefix of headlines first word.
|
|
|
|
|
|
(org-test-with-temp-text "* TODOHeadline"
|
|
|
|
|
|
(let ((org-todo-keywords '((sequence "TODO" "DONE"))))
|
2023-03-22 10:52:24 -04:00
|
|
|
|
(should-not (org-element-property :todo-keyword (org-element-at-point)))))
|
|
|
|
|
|
(org-test-with-temp-text "* TODO"
|
|
|
|
|
|
(let ((org-todo-keywords '((sequence "TODO" "DONE"))))
|
2023-03-22 11:06:34 -04:00
|
|
|
|
(should (org-element-property :todo-keyword (org-element-at-point)))))
|
|
|
|
|
|
(org-test-with-temp-text "* :tag:"
|
|
|
|
|
|
(should (member "tag" (org-element-property :tags (org-element-at-point)))))
|
|
|
|
|
|
(org-test-with-temp-text "* COMMENT"
|
|
|
|
|
|
(should (org-element-property :commentedp (org-element-at-point))))
|
|
|
|
|
|
(org-test-with-temp-text "* COMMENT title"
|
|
|
|
|
|
(should (equal "title" (org-element-property :raw-value (org-element-at-point)))))
|
|
|
|
|
|
(org-test-with-temp-text "* COMMENT:tag:"
|
|
|
|
|
|
(should-not (org-element-property :commentedp (org-element-at-point)))))
|
2018-06-06 09:41:50 -04:00
|
|
|
|
|
2012-04-30 11:20:57 -04:00
|
|
|
|
(ert-deftest test-org-element/headline-comment-keyword ()
|
|
|
|
|
|
"Test COMMENT keyword recognition."
|
|
|
|
|
|
;; Reference test.
|
|
|
|
|
|
(org-test-with-temp-text "* Headline"
|
2021-11-20 05:37:52 -05:00
|
|
|
|
(should-not (org-element-property :commentedp (org-element-at-point))))
|
2012-04-30 11:20:57 -04:00
|
|
|
|
;; Standard position.
|
|
|
|
|
|
(org-test-with-temp-text "* COMMENT Headline"
|
2021-11-20 05:37:52 -05:00
|
|
|
|
(let ((headline (org-element-at-point)))
|
2012-09-29 03:46:09 -04:00
|
|
|
|
(should (org-element-property :commentedp headline))
|
|
|
|
|
|
(should (equal (org-element-property :raw-value headline) "Headline"))))
|
|
|
|
|
|
;; Case sensitivity.
|
2021-11-20 05:37:52 -05:00
|
|
|
|
(org-test-with-temp-text "* Comment Headline"
|
|
|
|
|
|
(let ((headline (org-element-at-point)))
|
2012-09-29 03:46:09 -04:00
|
|
|
|
(should-not (org-element-property :commentedp headline))
|
|
|
|
|
|
(should (equal (org-element-property :raw-value headline)
|
2021-11-20 05:37:52 -05:00
|
|
|
|
"Comment Headline"))))
|
2012-04-30 11:20:57 -04:00
|
|
|
|
;; With another keyword.
|
|
|
|
|
|
(org-test-with-temp-text "* TODO COMMENT Headline"
|
2021-11-20 05:37:52 -05:00
|
|
|
|
(let* ((org-todo-keywords '((sequence "TODO" "DONE")))
|
2012-09-29 03:46:09 -04:00
|
|
|
|
(headline (org-element-at-point)))
|
|
|
|
|
|
(should (org-element-property :commentedp headline))
|
|
|
|
|
|
(should (equal (org-element-property :raw-value headline) "Headline"))))
|
2012-09-29 02:54:46 -04:00
|
|
|
|
;; With the keyword only.
|
|
|
|
|
|
(org-test-with-temp-text "* COMMENT"
|
2021-11-20 05:37:52 -05:00
|
|
|
|
(let* ((headline (org-element-at-point)))
|
2012-09-29 03:46:09 -04:00
|
|
|
|
(should (org-element-property :commentedp headline))
|
|
|
|
|
|
(should (equal (org-element-property :raw-value headline) "")))))
|
2012-04-30 11:20:57 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/headline-archive-tag ()
|
|
|
|
|
|
"Test ARCHIVE tag recognition."
|
|
|
|
|
|
;; Reference test.
|
org-element: Implement caching for dynamic parser
* lisp/org-element.el (org-element-use-cache, org-element--cache,
org-element--cache-sync-idle-time,
org-element--cache-merge-changes-threshold, org-element--cache-status,
org-element--cache-opening-line, org-element--cache-closing-line): New
variables.
(org-element-cache-reset, org-element--cache-pending-changes-p,
org-element--cache-push-change, org-element--cache-cancel-changes,
org-element--cache-get-key, org-element-cache-get,
org-element-cache-put, org-element--shift-positions,
org-element--cache-before-change, org-element--cache-record-change,
org-element--cache-sync): New functions.
(org-element-at-point, org-element-context): Use cache when possible.
* lisp/org.el (org-mode, org-set-modules): Reset cache.
* lisp/org-footnote.el (org-footnote-section): Reset cache.
* testing/lisp/test-org-element.el: Update tests.
This patch gives a boost to `org-element-at-point' and, to a lesser
extent, to `org-element-context'.
2013-10-27 06:09:17 -04:00
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "* Headline"
|
2021-11-20 05:37:52 -05:00
|
|
|
|
(org-element-property :archivedp (org-element-at-point))))
|
2012-04-30 11:20:57 -04:00
|
|
|
|
;; Single tag.
|
|
|
|
|
|
(org-test-with-temp-text "* Headline :ARCHIVE:"
|
2021-11-20 05:37:52 -05:00
|
|
|
|
(let ((headline (org-element-at-point)))
|
|
|
|
|
|
(should (org-element-property :archivedp headline))))
|
2012-04-30 11:20:57 -04:00
|
|
|
|
;; Multiple tags.
|
|
|
|
|
|
(org-test-with-temp-text "* Headline :test:ARCHIVE:"
|
2021-11-20 05:37:52 -05:00
|
|
|
|
(let ((headline (org-element-at-point)))
|
|
|
|
|
|
(should (org-element-property :archivedp headline))))
|
org-element: Implement caching for dynamic parser
* lisp/org-element.el (org-element-use-cache, org-element--cache,
org-element--cache-sync-idle-time,
org-element--cache-merge-changes-threshold, org-element--cache-status,
org-element--cache-opening-line, org-element--cache-closing-line): New
variables.
(org-element-cache-reset, org-element--cache-pending-changes-p,
org-element--cache-push-change, org-element--cache-cancel-changes,
org-element--cache-get-key, org-element-cache-get,
org-element-cache-put, org-element--shift-positions,
org-element--cache-before-change, org-element--cache-record-change,
org-element--cache-sync): New functions.
(org-element-at-point, org-element-context): Use cache when possible.
* lisp/org.el (org-mode, org-set-modules): Reset cache.
* lisp/org-footnote.el (org-footnote-section): Reset cache.
* testing/lisp/test-org-element.el: Update tests.
This patch gives a boost to `org-element-at-point' and, to a lesser
extent, to `org-element-context'.
2013-10-27 06:09:17 -04:00
|
|
|
|
;; Tag is case-sensitive.
|
|
|
|
|
|
(should-not
|
2021-11-20 05:37:52 -05:00
|
|
|
|
(org-test-with-temp-text "* Headline :Archive:"
|
|
|
|
|
|
(org-element-property :archivedp (org-element-at-point)))))
|
2012-04-30 11:20:57 -04:00
|
|
|
|
|
2013-02-18 02:58:59 -05:00
|
|
|
|
(ert-deftest test-org-element/headline-properties ()
|
|
|
|
|
|
"Test properties from property drawer."
|
|
|
|
|
|
;; All properties from property drawer have their symbol upper
|
|
|
|
|
|
;; cased.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "* Headline\n:PROPERTIES:\n:foo: bar\n:END:"
|
|
|
|
|
|
(org-element-property :FOO (org-element-at-point))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "* Headline\n:PROPERTIES:\n:foo: bar\n:END:"
|
2014-06-18 17:28:19 -04:00
|
|
|
|
(org-element-property :foo (org-element-at-point))))
|
2014-06-29 09:23:22 -04:00
|
|
|
|
;; Also parse properties associated in inlinetasks.
|
|
|
|
|
|
(when (featurep 'org-inlinetask)
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "*************** Inlinetask
|
|
|
|
|
|
:PROPERTIES:
|
|
|
|
|
|
:foo: bar
|
|
|
|
|
|
:END:
|
|
|
|
|
|
*************** END"
|
|
|
|
|
|
(org-element-property :FOO (org-element-at-point)))))
|
2014-06-18 17:28:19 -04:00
|
|
|
|
;; Do not find property drawer in a verbatim area.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* Headline
|
|
|
|
|
|
#+BEGIN_EXAMPLE
|
|
|
|
|
|
:PROPERTIES:
|
|
|
|
|
|
:foo: bar
|
|
|
|
|
|
:END:
|
|
|
|
|
|
#+END_EXAMPLE"
|
|
|
|
|
|
(org-element-property :FOO (org-element-at-point))))
|
|
|
|
|
|
;; Do not use properties from a drawer associated to an inlinetask.
|
|
|
|
|
|
(when (featurep 'org-inlinetask)
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* Headline
|
|
|
|
|
|
*************** Inlinetask
|
|
|
|
|
|
:PROPERTIES:
|
|
|
|
|
|
:foo: bar
|
|
|
|
|
|
:END:
|
|
|
|
|
|
*************** END"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:FOO (let ((org-inlinetask-min-level 15)) (org-element-at-point))))))
|
|
|
|
|
|
;; Do not find incomplete drawers.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "* Headline\n:PROPERTIES:\n:foo: bar"
|
|
|
|
|
|
(org-element-property :FOO (org-element-at-point)))))
|
2013-02-18 02:58:59 -05:00
|
|
|
|
|
2012-04-30 11:20:57 -04:00
|
|
|
|
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;;;; Horizontal Rule
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/horizontal-rule-parser ()
|
|
|
|
|
|
"Test `horizontal-rule' parser."
|
|
|
|
|
|
;; Standard.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "-----"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'horizontal-rule 'identity)))
|
|
|
|
|
|
;; Indented.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text " -----"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'horizontal-rule 'identity)))
|
|
|
|
|
|
;; Hyphen must be alone on the line.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "-----wrong"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'horizontal-rule 'identity)))
|
|
|
|
|
|
;; 4 hyphens is too small.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "----"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'horizontal-rule 'identity)))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "-----\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Inline Babel Call
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/inline-babel-call-parser ()
|
|
|
|
|
|
"Test `inline-babel-call' parser."
|
2015-04-21 05:54:22 -04:00
|
|
|
|
;; Standard test.
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(should
|
2015-04-21 05:54:22 -04:00
|
|
|
|
(eq 'inline-babel-call
|
|
|
|
|
|
(org-test-with-temp-text "call_test()"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'inline-babel-call
|
|
|
|
|
|
(org-test-with-temp-text "call_test[:results output](x=2)[:results html]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
;; Parse call name.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
"test"
|
|
|
|
|
|
(org-test-with-temp-text "call_test[:results output](x=2)[:results html]"
|
|
|
|
|
|
(org-element-property :call (org-element-context)))))
|
|
|
|
|
|
;; Parse inside header.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
":results output"
|
|
|
|
|
|
(org-test-with-temp-text "call_test[:results output](x=2)[:results html]"
|
|
|
|
|
|
(org-element-property :inside-header (org-element-context)))))
|
|
|
|
|
|
;; Parse arguments.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
"x=2"
|
|
|
|
|
|
(org-test-with-temp-text "call_test[:results output](x=2)[:results html]"
|
|
|
|
|
|
(org-element-property :arguments (org-element-context)))))
|
|
|
|
|
|
;; Parse end header.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
":results html"
|
|
|
|
|
|
(org-test-with-temp-text "call_test[:results output](x=2)[:results html]"
|
2015-12-30 17:59:57 -05:00
|
|
|
|
(org-element-property :end-header (org-element-context)))))
|
|
|
|
|
|
;; Handle multi-line babel calls.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'inline-babel-call
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"call_test[:results\noutput](x=2)[:results html]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'inline-babel-call
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"call_test[:results output](x=2\ny=3)[:results html]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'inline-babel-call
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"call_test[:results output](x=2)[:results\nhtml]"
|
2016-06-10 17:42:50 -04:00
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
;; Parse parameters containing round brackets.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'inline-babel-call
|
|
|
|
|
|
(org-test-with-temp-text "call_test[:var x='(1)](x=2)"
|
2015-12-30 17:59:57 -05:00
|
|
|
|
(org-element-type (org-element-context))))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Inline Src Block
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/inline-src-block-parser ()
|
|
|
|
|
|
"Test `inline-src-block' parser."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp{(+ 1 1)}"
|
2012-09-20 13:12:39 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'inline-src-block 'identity)))
|
2014-06-13 09:32:54 -04:00
|
|
|
|
;; With switches.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp[:foo bar]{(+ 1 1)}"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'inline-src-block 'identity)))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp[ :foo bar]{(+ 1 1)}"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'inline-src-block 'identity)))
|
|
|
|
|
|
;; Empty switches.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp[]{(+ 1 1)}"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'inline-src-block 'identity)))
|
|
|
|
|
|
;; Invalid syntax.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp[]foo{(+ 1 1)}"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'inline-src-block 'identity)))
|
2018-02-03 18:30:00 -05:00
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "foosrc_emacs-lisp[]{(+ 1 1)}"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'inline-src-block 'identity)))
|
2014-06-13 09:32:54 -04:00
|
|
|
|
;; Invalid language name
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-\tlisp{(+ 1 1)}"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'inline-src-block 'identity)))
|
2012-09-20 13:12:39 -04:00
|
|
|
|
;; Test parsing at the beginning of an item.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "- src_emacs-lisp{(+ 1 1)}"
|
2015-12-30 17:59:57 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'inline-src-block 'identity)))
|
|
|
|
|
|
;; Test parsing multi-line source blocks.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'inline-src-block
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp{(+ 1\n 1)}"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'inline-src-block
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp[\n:foo bar]{(+ 1 1)}"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'inline-src-block
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp[:foo\nbar]{(+ 1 1)}"
|
2016-03-16 13:13:52 -04:00
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
;; Besides curly brackets, ignore any other bracket type.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "[foo"
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp{[foo}"
|
|
|
|
|
|
(org-element-property :value (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "foo]"
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp{foo]}"
|
|
|
|
|
|
(org-element-property :value (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "(foo"
|
2016-03-16 13:17:50 -04:00
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp{(foo}"
|
2016-03-16 13:13:52 -04:00
|
|
|
|
(org-element-property :value (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "foo)"
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp{foo)}"
|
2016-06-10 17:42:50 -04:00
|
|
|
|
(org-element-property :value (org-element-context)))))
|
|
|
|
|
|
;; Parse parameters containing square brackets.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'inline-src-block
|
|
|
|
|
|
(org-test-with-temp-text "src_emacs-lisp[:var table=t[1,1]]{(+ 1 1)}"
|
|
|
|
|
|
(org-element-type (org-element-context))))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Inlinetask
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/inlinetask-parser ()
|
|
|
|
|
|
"Test `inlinetask' parser."
|
|
|
|
|
|
(when (featurep 'org-inlinetask)
|
|
|
|
|
|
(let ((org-inlinetask-min-level 15))
|
2014-02-17 16:59:25 -05:00
|
|
|
|
;; Regular inlinetask.
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(should
|
2014-02-17 16:59:25 -05:00
|
|
|
|
(eq 'inlinetask
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"*************** Task\nTest\n*************** END"
|
2016-11-09 17:25:53 -05:00
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'inlinetask
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"*************** Task\nTest\n*************** END"
|
2014-02-17 16:59:25 -05:00
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Degenerate inlinetask.
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(should
|
2014-02-17 16:59:25 -05:00
|
|
|
|
(eq 'inlinetask
|
|
|
|
|
|
(org-test-with-temp-text "*************** Task"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Mixed inlinetasks.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"
|
|
|
|
|
|
*************** Task
|
|
|
|
|
|
*************** Task2
|
|
|
|
|
|
Contents
|
|
|
|
|
|
*************** END"
|
|
|
|
|
|
(forward-line)
|
|
|
|
|
|
(goto-char (org-element-property :end (org-element-at-point)))
|
|
|
|
|
|
(eobp)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; TODO keyword.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
"TODO"
|
|
|
|
|
|
(let ((org-todo-keywords '((sequence "TODO" "DONE"))))
|
|
|
|
|
|
(org-test-with-temp-text "*************** TODO Task"
|
2014-02-17 16:59:25 -05:00
|
|
|
|
(org-element-property :todo-keyword (org-element-at-point))))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Planning info.
|
|
|
|
|
|
(should
|
2014-02-17 16:59:25 -05:00
|
|
|
|
(org-test-with-temp-text "
|
2015-10-16 17:19:06 -04:00
|
|
|
|
*************** Task<point>
|
2014-12-24 04:47:46 -05:00
|
|
|
|
DEADLINE: <2012-03-29 thu.>
|
|
|
|
|
|
*************** END"
|
|
|
|
|
|
(org-element-property :deadline (org-element-at-point))))
|
2015-10-16 17:19:06 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'planning
|
|
|
|
|
|
(org-test-with-temp-text "
|
|
|
|
|
|
*************** Task
|
|
|
|
|
|
<point>DEADLINE: <2012-03-29 thu.>
|
|
|
|
|
|
*************** END"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2014-12-24 04:47:46 -05:00
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "
|
2015-10-16 17:19:06 -04:00
|
|
|
|
*************** Task<point>
|
2012-05-04 13:24:51 -04:00
|
|
|
|
DEADLINE: <2012-03-29 thu.>"
|
2014-02-17 16:59:25 -05:00
|
|
|
|
(org-element-property :deadline (org-element-at-point))))
|
2015-10-16 17:19:06 -04:00
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'planning
|
|
|
|
|
|
(org-test-with-temp-text "
|
|
|
|
|
|
*************** Task
|
|
|
|
|
|
<point>DEADLINE: <2012-03-29 thu.>"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Priority.
|
|
|
|
|
|
(should
|
2014-02-17 16:59:25 -05:00
|
|
|
|
(eq
|
2012-05-04 13:24:51 -04:00
|
|
|
|
?A
|
|
|
|
|
|
(org-test-with-temp-text "
|
|
|
|
|
|
*************** [#A] Task"
|
2014-02-17 16:59:25 -05:00
|
|
|
|
(forward-line)
|
|
|
|
|
|
(org-element-property :priority (org-element-at-point)))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Tags.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'("test")
|
|
|
|
|
|
(org-test-with-temp-text "
|
|
|
|
|
|
*************** Task :test:"
|
2014-02-17 16:59:25 -05:00
|
|
|
|
(forward-line)
|
|
|
|
|
|
(org-element-property :tags (org-element-at-point)))))
|
2013-02-18 02:58:59 -05:00
|
|
|
|
;; Regular properties are accessed through upper case keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "
|
|
|
|
|
|
*************** Task
|
|
|
|
|
|
:PROPERTIES:
|
|
|
|
|
|
:foo: bar
|
|
|
|
|
|
:END:
|
|
|
|
|
|
*************** END"
|
|
|
|
|
|
(forward-line)
|
|
|
|
|
|
(org-element-property :FOO (org-element-at-point))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "
|
|
|
|
|
|
*************** Task
|
|
|
|
|
|
:PROPERTIES:
|
|
|
|
|
|
:foo: bar
|
|
|
|
|
|
:END:
|
|
|
|
|
|
*************** END"
|
|
|
|
|
|
(forward-line)
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-property :foo (org-element-at-point))))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "*************** Task\n*************** END\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;;;; Italic
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/italic-parser ()
|
|
|
|
|
|
"Test `italic' parser."
|
|
|
|
|
|
;; Regular test.
|
|
|
|
|
|
(should
|
2016-12-08 03:44:26 -05:00
|
|
|
|
(org-test-with-temp-text "/italic/"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'italic #'identity nil t)))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Multi-line markup.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-contents
|
2016-12-08 03:44:26 -05:00
|
|
|
|
(org-test-with-temp-text "/first line\nsecond line/"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'italic #'identity nil t)))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
'("first line\nsecond line"))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Item
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/item-parser ()
|
|
|
|
|
|
"Test `item' parser."
|
|
|
|
|
|
;; Standard test.
|
|
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-test-with-temp-text "- item"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'item 'identity)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Counter.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 6
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:counter
|
|
|
|
|
|
(org-test-with-temp-text "6. [@6] item"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'item 'identity nil t)))))
|
|
|
|
|
|
;; Tag
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'("tag")
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:tag
|
|
|
|
|
|
(org-test-with-temp-text "- tag :: description"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'item 'identity nil t)))))
|
2012-08-18 06:37:39 -04:00
|
|
|
|
;; No tags in ordered lists.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:tag
|
|
|
|
|
|
(org-test-with-temp-text "1. tag :: description"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'item 'identity nil t))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Check-boxes
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(trans on off)
|
|
|
|
|
|
(org-test-with-temp-text "
|
|
|
|
|
|
- [-] item 1
|
|
|
|
|
|
- [X] item 1.1
|
|
|
|
|
|
- [ ] item 1.2"
|
2017-11-09 16:47:35 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'item
|
|
|
|
|
|
(lambda (item) (org-element-property :checkbox item))))))
|
2012-09-12 09:40:13 -04:00
|
|
|
|
;; Item starting with special syntax.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(("- item"))
|
|
|
|
|
|
(org-test-with-temp-text "- - item"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'paragraph
|
|
|
|
|
|
'org-element-contents))))
|
2013-10-16 04:36:48 -04:00
|
|
|
|
;; Block in an item: ignore indentation within the block.
|
|
|
|
|
|
(should
|
2017-11-04 16:50:11 -04:00
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"-<point> item\n #+begin_src emacs-lisp\n(+ 1 1)\n #+end_src"
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max))))
|
2017-11-09 16:47:35 -05:00
|
|
|
|
;; Parse `:pre-blank'.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 0
|
|
|
|
|
|
(org-test-with-temp-text "-<point> A"
|
|
|
|
|
|
(org-element-property :pre-blank (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 1
|
|
|
|
|
|
(org-test-with-temp-text "-<point>\n A"
|
|
|
|
|
|
(org-element-property :pre-blank (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 2
|
|
|
|
|
|
(org-test-with-temp-text "-<point>\n\n A"
|
|
|
|
|
|
(org-element-property :pre-blank (org-element-at-point)))))
|
2017-11-04 16:50:11 -04:00
|
|
|
|
;; Last item in a list or sub-list has no `:post-blank' lines, since
|
|
|
|
|
|
;; those belong to the plain-list.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 0
|
|
|
|
|
|
(org-test-with-temp-text "- A\n\n- <point>B\n\nEnd list"
|
|
|
|
|
|
(org-element-property :post-blank (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 0
|
|
|
|
|
|
(org-test-with-temp-text "- A\n\n - B\n\n<point> - C\n\n End sub-list"
|
2023-08-22 04:24:36 -04:00
|
|
|
|
(org-element-property :post-blank (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 0
|
|
|
|
|
|
(org-test-with-temp-text "1. foo\n 1. bar\n 2.<point> baz\n\n2. lorem\nipsum"
|
2017-11-04 16:50:11 -04:00
|
|
|
|
(org-element-property :post-blank (org-element-at-point))))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;;;; Keyword
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/keyword-parser ()
|
|
|
|
|
|
"Test `keyword' parser."
|
|
|
|
|
|
;; Standard test.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+KEYWORD: value"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'keyword 'identity)))
|
|
|
|
|
|
;; Keywords are case-insensitive.
|
|
|
|
|
|
(should
|
2012-06-08 14:16:57 -04:00
|
|
|
|
(org-test-with-temp-text "#+keyword: value"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'keyword 'identity)))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Affiliated keywords are not keywords.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+NAME: value
|
|
|
|
|
|
Paragraph"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'keyword 'identity)))
|
|
|
|
|
|
;; Do not mix keywords with Babel calls and dynamic blocks.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+CALL: fun()"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'keyword 'identity)))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN: my-fun\nBody\n#+END:"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'keyword 'identity)))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+KEYWORD: value\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
2023-03-05 16:01:11 -05:00
|
|
|
|
;;;; LaTeX Environment
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/latex-environment-parser ()
|
|
|
|
|
|
"Test `latex-environment' parser."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "\\begin{equation}\ne^{i\\pi}+1=0\n\\end{equation}"
|
2013-04-28 03:34:42 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'latex-environment 'identity)))
|
2012-05-10 16:55:12 -04:00
|
|
|
|
;; Allow nested environments.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
"\\begin{outer}
|
|
|
|
|
|
\\begin{inner}
|
|
|
|
|
|
e^{i\\pi}+1=0
|
|
|
|
|
|
\\end{inner}
|
|
|
|
|
|
\\end{outer}"
|
|
|
|
|
|
(org-test-with-temp-text "
|
|
|
|
|
|
\\begin{outer}
|
|
|
|
|
|
\\begin{inner}
|
|
|
|
|
|
e^{i\\pi}+1=0
|
|
|
|
|
|
\\end{inner}
|
|
|
|
|
|
\\end{outer}"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:value
|
|
|
|
|
|
(org-element-map
|
2013-04-28 03:34:42 -04:00
|
|
|
|
(org-element-parse-buffer) 'latex-environment 'identity nil t)))))
|
2013-05-12 11:15:06 -04:00
|
|
|
|
;; Allow environments with options and arguments.
|
2013-04-28 03:34:42 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'latex-environment
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"\\begin{theorem}[Euler]\ne^{i\\pi}+1=0\n\\end{theorem}"
|
2013-05-12 11:15:06 -04:00
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'latex-environment
|
|
|
|
|
|
(org-test-with-temp-text "\\begin{env}{arg}\nvalue\n\\end{env}"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2014-07-22 09:09:03 -04:00
|
|
|
|
;; Allow environments without newline after \begin{.}.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'latex-environment
|
|
|
|
|
|
(org-test-with-temp-text "\\begin{env}{arg}something\nvalue\n\\end{env}"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Allow one-line environments.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'latex-environment
|
|
|
|
|
|
(org-test-with-temp-text "\\begin{env}{arg}something\\end{env}"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Should not allow different tags.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'latex-environment
|
|
|
|
|
|
(org-test-with-temp-text "\\begin{env*}{arg}something\\end{env}"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; LaTeX environments must be on separate lines.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'latex-environment
|
|
|
|
|
|
(org-test-with-temp-text "\\begin{env} x \\end{env} y"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2013-05-12 11:15:06 -04:00
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'latex-environment
|
2014-07-22 09:09:03 -04:00
|
|
|
|
(org-test-with-temp-text "y \\begin{env} x<point> \\end{env}"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "\\begin{env}\n\\end{env}\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
2023-03-05 16:01:11 -05:00
|
|
|
|
;;;; LaTeX Fragment
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/latex-fragment-parser ()
|
|
|
|
|
|
"Test `latex-fragment' parser."
|
2017-06-26 16:07:05 -04:00
|
|
|
|
;; Basic $...$ test.
|
2013-10-24 11:15:23 -04:00
|
|
|
|
(should
|
2015-05-09 04:01:35 -04:00
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$a$"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2017-06-26 16:07:05 -04:00
|
|
|
|
;; Test valid characters after $...$ construct.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$a$a"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2013-10-24 11:15:23 -04:00
|
|
|
|
(should
|
2015-05-09 04:01:35 -04:00
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$a$!"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2013-10-24 11:15:23 -04:00
|
|
|
|
(should
|
2015-05-09 04:01:35 -04:00
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$a$,"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2013-10-24 11:15:23 -04:00
|
|
|
|
(should
|
2015-05-09 04:01:35 -04:00
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$a$\""
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$a$)"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$a$ "
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2017-05-13 03:18:07 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$a$'"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2017-06-26 16:07:05 -04:00
|
|
|
|
;; Test forbidden characters inside $...$.
|
2015-05-09 04:01:35 -04:00
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'latex-fragment
|
2017-06-26 16:07:05 -04:00
|
|
|
|
(org-test-with-temp-text "$.a$"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$,a$"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$;a$"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$ a$"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$a.$"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$a,$"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$a $"
|
2015-05-09 04:01:35 -04:00
|
|
|
|
(org-element-type (org-element-context)))))
|
2017-06-26 16:07:05 -04:00
|
|
|
|
;; Test $$...$$.
|
2015-05-09 04:01:35 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "$$a$$"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2017-06-26 16:07:05 -04:00
|
|
|
|
;; Test \(...\).
|
2015-05-09 04:01:35 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "\\(a\\)"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2017-06-26 16:07:05 -04:00
|
|
|
|
;; Test \[...\].
|
2015-05-09 04:01:35 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'latex-fragment
|
|
|
|
|
|
(org-test-with-temp-text "\\[a\\]"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2013-10-24 11:15:23 -04:00
|
|
|
|
;; Test fragment at the beginning of an item.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'latex-fragment
|
2015-05-09 04:01:35 -04:00
|
|
|
|
(org-test-with-temp-text "- $<point>x$"
|
|
|
|
|
|
(org-element-type (org-element-context))))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Line Break
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/line-break-parser ()
|
|
|
|
|
|
"Test `line-break' parser."
|
|
|
|
|
|
;; Regular test.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "Text \\\\"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'line-break 'identity)))
|
|
|
|
|
|
;; Line break with trailing white spaces.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "Text \\\\ "
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'line-break 'identity)))
|
|
|
|
|
|
;; Three backslashes are too much.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "Text \\\\\\"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'line-break 'identity))))
|
|
|
|
|
|
|
|
|
|
|
|
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;;;; Link
|
2012-05-01 09:08:08 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/link-parser ()
|
2012-05-04 13:24:51 -04:00
|
|
|
|
"Test `link' parser."
|
2013-02-25 15:32:15 -05:00
|
|
|
|
;; Radio target.
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(equal
|
|
|
|
|
|
"radio"
|
2014-04-10 16:23:27 -04:00
|
|
|
|
(org-test-with-temp-text "<<<radio>>>A radio link"
|
|
|
|
|
|
(org-update-radio-target-regexp)
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-property
|
|
|
|
|
|
:type
|
2014-04-10 16:23:27 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'link #'identity nil t)))))
|
2016-10-26 18:41:19 -04:00
|
|
|
|
;; Pathological case: radio target of length 1 at beginning of line
|
|
|
|
|
|
;; not followed by spaces.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "* <<<a>>>\n<point>a-bug"
|
|
|
|
|
|
(org-update-radio-target-regexp)
|
|
|
|
|
|
(org-element-parse-buffer)))
|
2017-04-15 11:27:01 -04:00
|
|
|
|
;; Pathological case: radio target in an emphasis environment.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'bold
|
|
|
|
|
|
(org-test-with-temp-text "* <<<radio>>>\n<point>*radio*"
|
|
|
|
|
|
(org-update-radio-target-regexp)
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'link
|
|
|
|
|
|
(org-test-with-temp-text "* <<<radio>>>\n*<point>radio*"
|
|
|
|
|
|
(org-update-radio-target-regexp)
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2013-02-25 15:32:15 -05:00
|
|
|
|
;; Standard link.
|
2012-05-01 09:08:08 -04:00
|
|
|
|
;;
|
2013-02-25 15:32:15 -05:00
|
|
|
|
;; ... with description.
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(equal
|
|
|
|
|
|
'("Orgmode.org")
|
2018-01-16 13:42:57 -05:00
|
|
|
|
(org-test-with-temp-text "[[https://orgmode.org][Orgmode.org]]"
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-contents
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'link 'identity nil t)))))
|
2013-02-25 15:32:15 -05:00
|
|
|
|
;; ... without description.
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(equal
|
2018-01-16 13:42:57 -05:00
|
|
|
|
"https"
|
|
|
|
|
|
(org-test-with-temp-text "[[https://orgmode.org]]"
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-property
|
|
|
|
|
|
:type
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'link 'identity nil t)))))
|
2013-02-25 15:32:15 -05:00
|
|
|
|
;; ... with expansion.
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(equal
|
2014-04-17 02:41:14 -04:00
|
|
|
|
"//orgmode.org/worg"
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-test-with-temp-text "[[Org:worg]]"
|
2018-01-16 13:42:57 -05:00
|
|
|
|
(let ((org-link-abbrev-alist '(("Org" . "https://orgmode.org/"))))
|
2014-04-17 02:41:14 -04:00
|
|
|
|
(org-element-property
|
|
|
|
|
|
:path
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'link 'identity nil t))))))
|
2013-02-25 15:32:15 -05:00
|
|
|
|
;; ... with translation.
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(equal
|
|
|
|
|
|
"127.0.0.1"
|
2018-01-16 13:42:57 -05:00
|
|
|
|
(org-test-with-temp-text "[[https://orgmode.org]]"
|
2016-06-04 15:48:02 -04:00
|
|
|
|
(let ((org-link-translation-function
|
|
|
|
|
|
(lambda (type _) (cons type "127.0.0.1"))))
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:path
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'link
|
|
|
|
|
|
#'identity nil t))))))
|
2013-02-25 15:32:15 -05:00
|
|
|
|
;; ... custom-id link.
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(equal
|
|
|
|
|
|
"custom-id"
|
|
|
|
|
|
(org-test-with-temp-text "[[#some-id]]"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:type
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'link 'identity nil t)))))
|
2013-02-25 15:32:15 -05:00
|
|
|
|
;; ... coderef link.
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(equal
|
|
|
|
|
|
"coderef"
|
|
|
|
|
|
(org-test-with-temp-text "[[(reference)]]"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:type
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'link 'identity nil t)))))
|
2013-02-25 15:32:15 -05:00
|
|
|
|
;; ... fuzzy link.
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(equal
|
|
|
|
|
|
"fuzzy"
|
|
|
|
|
|
(org-test-with-temp-text "[[target-or-title]]"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:type
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'link 'identity nil t)))))
|
2013-02-25 15:32:15 -05:00
|
|
|
|
;; ... file-type link with search option.
|
2012-08-25 04:38:25 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(("file" "projects.org" "*task title"))
|
|
|
|
|
|
(org-test-with-temp-text "[[file:projects.org::*task title]]"
|
2013-02-25 15:32:15 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'link
|
|
|
|
|
|
(lambda (l) (list (org-element-property :type l)
|
2015-04-20 06:35:41 -04:00
|
|
|
|
(org-element-property :path l)
|
|
|
|
|
|
(org-element-property :search-option l)))))))
|
2014-07-26 04:47:29 -04:00
|
|
|
|
;; ... file-type link with application...
|
2012-08-25 04:38:25 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
2015-02-03 17:00:21 -05:00
|
|
|
|
'("file" "projects.org" "emacs")
|
|
|
|
|
|
(org-test-with-temp-text "[[file+emacs:projects.org]]"
|
2014-07-26 04:47:29 -04:00
|
|
|
|
(let ((l (org-element-context)))
|
|
|
|
|
|
(list (org-element-property :type l)
|
|
|
|
|
|
(org-element-property :path l)
|
|
|
|
|
|
(org-element-property :application l))))))
|
2014-04-19 15:28:34 -04:00
|
|
|
|
;; ... `:path' in a file-type link must be compatible with "file"
|
2014-07-26 09:10:22 -04:00
|
|
|
|
;; scheme in URI syntax, even if Org syntax isn't...
|
2014-04-19 15:28:34 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text-in-file ""
|
|
|
|
|
|
(let ((file (expand-file-name (buffer-file-name))))
|
|
|
|
|
|
(insert (format "[[file://%s]]" file))
|
2015-04-20 06:35:41 -04:00
|
|
|
|
(equal (org-element-property :path (org-element-context)) file))))
|
2014-04-19 15:28:34 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text-in-file ""
|
|
|
|
|
|
(let ((file (expand-file-name (buffer-file-name))))
|
|
|
|
|
|
(insert (format "[[file:%s]]" file))
|
2015-04-20 06:35:41 -04:00
|
|
|
|
(equal (org-element-property :path (org-element-context)) file))))
|
2014-07-26 04:47:29 -04:00
|
|
|
|
;; ... multi-line link.
|
|
|
|
|
|
(should
|
2015-08-04 10:40:25 -04:00
|
|
|
|
(equal "ls *.org"
|
|
|
|
|
|
(org-test-with-temp-text "[[shell:ls\n*.org]]"
|
2014-07-26 04:47:29 -04:00
|
|
|
|
(org-element-property :path (org-element-context)))))
|
2014-07-26 09:11:38 -04:00
|
|
|
|
;; Plain link.
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(should
|
2018-01-16 13:42:57 -05:00
|
|
|
|
(org-test-with-temp-text "A link: https://orgmode.org"
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'link 'identity)))
|
2015-08-04 10:40:25 -04:00
|
|
|
|
;; Angular link. Follow RFC 3986.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'link
|
2018-01-16 13:42:57 -05:00
|
|
|
|
(org-test-with-temp-text "A link: <point><https://orgmode.org>"
|
2015-08-04 10:40:25 -04:00
|
|
|
|
(org-element-type (org-element-context)))))
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(should
|
2015-08-04 10:40:25 -04:00
|
|
|
|
(equal "//orgmode.org"
|
2018-01-16 13:42:57 -05:00
|
|
|
|
(org-test-with-temp-text "A link: <point><https://orgmode\n.org>"
|
2016-04-06 05:08:53 -04:00
|
|
|
|
(org-element-property :path (org-element-context)))))
|
2012-12-18 16:16:01 -05:00
|
|
|
|
;; Link abbreviation.
|
|
|
|
|
|
(should
|
2018-01-16 13:42:57 -05:00
|
|
|
|
(equal "https"
|
2012-12-18 16:16:01 -05:00
|
|
|
|
(org-test-with-temp-text
|
2018-01-16 13:42:57 -05:00
|
|
|
|
"#+LINK: orgmode https://www.orgmode.org/\n[[orgmode:#docs]]"
|
2012-12-18 16:16:01 -05:00
|
|
|
|
(progn (org-mode-restart)
|
org-element: Fix parsing error in `org-element-context'
* lisp/org-element.el (org-element-text-markup-successor,
org-element-latex-or-entity-successor,
org-element-export-snippet-successor,
org-element-footnote-reference-successor,
org-element-inline-babel-call-successor,
org-element-inline-src-block-successor,
org-element-line-break-successor, org-element-link-successor,
org-element-plain-link-successor, org-element-macro-successor,
org-element-radio-target-successor,
org-element-statistics-cookie-successor,
org-element-sub/superscript-successor,
org-element-table-cell-successor, org-element-target-successor,
org-element-timestamp-successor): Remove LIMIT argument.
(org-element--parse-objects, org-element--get-next-object-candidates):
Apply signature change to successors.
(org-element-context): Narrow buffer around object containers so
parsing of objects when using this function is done under the same
restrictions as in buffer parsing.
* testing/lisp/test-org-element.el: Add test.
2013-08-30 07:29:51 -04:00
|
|
|
|
(goto-char (1- (point-max)))
|
2012-12-18 16:16:01 -05:00
|
|
|
|
(org-element-property :type (org-element-context))))))
|
2022-11-04 03:14:44 -04:00
|
|
|
|
;; Link abbreviation with spaces.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "https"
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+LINK: \"Nu Html Checker\" https://validator.w3.org/nu/?doc=%h
|
|
|
|
|
|
[[Nu Html Checker:test]]"
|
|
|
|
|
|
(progn (org-mode-restart)
|
|
|
|
|
|
(goto-char (1- (point-max)))
|
|
|
|
|
|
(org-element-property :type (org-element-context))))))
|
2012-12-18 16:16:01 -05:00
|
|
|
|
;; Link abbreviation in a secondary string.
|
|
|
|
|
|
(should
|
2018-01-16 13:42:57 -05:00
|
|
|
|
(equal "https"
|
2012-12-18 16:16:01 -05:00
|
|
|
|
(org-test-with-temp-text
|
2018-01-16 13:42:57 -05:00
|
|
|
|
"#+LINK: orgmode https://www.orgmode.org/\n* H [[orgmode:#docs]]"
|
2012-12-18 16:16:01 -05:00
|
|
|
|
(progn (org-mode-restart)
|
2013-02-25 15:32:15 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'link
|
|
|
|
|
|
(lambda (link) (org-element-property :type link))
|
2016-12-17 05:35:50 -05:00
|
|
|
|
nil t nil t))))))
|
2012-05-01 09:08:08 -04:00
|
|
|
|
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;;;; Macro
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/macro-parser ()
|
|
|
|
|
|
"Test `macro' parser."
|
|
|
|
|
|
;; Without arguments.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "{{{macro}}}"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'macro 'identity)))
|
|
|
|
|
|
;; With arguments.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "{{{macro(arg1,arg2)}}}"
|
2013-01-31 16:15:15 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'macro 'identity)))
|
|
|
|
|
|
;; Properly handle protected commas in arguments...
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 2
|
|
|
|
|
|
(length
|
|
|
|
|
|
(org-test-with-temp-text "{{{macro(arg1\\,arg1,arg2)}}}"
|
|
|
|
|
|
(org-element-property :args (org-element-context))))))
|
|
|
|
|
|
;; ... even when last argument ends with a protected comma.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("C-,")
|
|
|
|
|
|
(org-test-with-temp-text "{{{macro(C-\\,)}}}"
|
org-element: Allow to escape escaping character before a comma
* lisp/org-element.el (org-element-macro-parser): Allow to escape
escaping character before a comma. Also do not trim spaces at
argument boundaries.
* doc/org.texi (Macro replacement): Update documentation about
possible locations and escaping mechanism.
* testing/lisp/test-org-element.el: Add tests.
With this patch, macro's arguments are read as the following:
"a,b" -> '("a" "b")
"a\,b" -> '("a,b")
"a\\,b" -> '("a\" "b")
"a\\\,b" -> '("a\,b")
"a\\\\,b" -> '(a"\\" "b")
Note that with the patch, you only need to escape backslashes before
a comma:
"a\\b\,c" -> '("a\\b,c")
2013-03-23 14:10:41 -04:00
|
|
|
|
(org-element-property :args (org-element-context)))))
|
|
|
|
|
|
;; Allow to escape escaping character.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("C-\\" "")
|
|
|
|
|
|
(org-test-with-temp-text "{{{macro(C-\\\\,)}}}"
|
|
|
|
|
|
(org-element-property :args (org-element-context)))))
|
|
|
|
|
|
;; No need to escape backslashes elsewhere.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("\\")
|
|
|
|
|
|
(org-test-with-temp-text "{{{macro(\\)}}}"
|
2013-01-31 16:15:15 -05:00
|
|
|
|
(org-element-property :args (org-element-context))))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-09-23 09:52:02 -04:00
|
|
|
|
;;;; Node Property
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/node-property ()
|
|
|
|
|
|
"Test `node-property' parser."
|
|
|
|
|
|
;; Standard test.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("abc" "value")
|
2014-09-13 16:43:45 -04:00
|
|
|
|
(org-test-with-temp-text "* H\n:PROPERTIES:\n<point>:abc: value\n:END:"
|
2014-08-31 05:10:56 -04:00
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(list (org-element-property :key element)
|
|
|
|
|
|
(org-element-property :value element))))))
|
Org document property-drawers
Add functionality to define property-blocks on document level, in
addition to at headline level.
* doc/org-manual.org:
* etc/ORG-NEWS: Document new functionality.
* lisp/org.el (org-keyword-regexp): Define constant instead of
hardcoding.
(org-file-properties): Renamed, see next line.
(org-keyword-properties): Renamed from above. Due to the fact that
properties can be defined for the whole document using property
drawers this local variable needs a rename to make its name less
ambigous.
(org-refresh-properties, org-refresh-property, org-entry-properties)
(org-refresh-category-properties, org-get-property-block)
(org-entry-get-with-inheritance, org-entry-put)
(org-insert-property-drawer, org-end-of-subtree): Made to work before
first headline.
(org-at-property-block-p): New function to validate if point is at the
start of a property block.
(org-property-global-value): Renamed, see next line.
(org-property-global-or-keyword-value): Renamed from above to match
its functionality better.
(org-back-to-heading-or-point-min): New function to make a document
work as a level 0 node in the outline.
(org-at-keyword-p): Predicate function to answer to if we're currently
at a keyword line or not.
(org-up-heading-or-point-min): New function to make a document work as
a level 0 node in the outline.
* lisp/org-element.el (org-element--current-element): Can now detect
property-blocks before first headline according to it's positional
rules.
* lisp/org-attach.el (org-attach): Make it possible to call the
attachment dispatcher also before the first headline, since document
property drawers make attachments possible for the whole document
now.
* lisp/org-capture.el: Modified only due to rename of function in
org.el.
* lisp/org-compat.el (org-file-properties)
(org-property-global-value): Renamed functions declared obsolete.
* testing/lisp/test-org.el (org/insert-property-drawer)
(org/set-property, org/delete-property, org/delete-property-globally):
Additions of tests to check if they work before first headline.
(org/at-property-p, org/at-property-block-p, org/get-property-block)
(org/entry-get, org/refresh-properties): New tests
* testing/examples/property-inheritance.org: Switch from
property-keywords to a property-drawer in the testfile.
Functionality should be the same, but now using a document drawer
instead of property-keywords.
Reason for switching is that I'd like us to slowly depricate
property-keywords.
* testing/lisp/test-org-element.el:
* contrib/lisp/ox-taskjuggler.el: A comment is modified only due to
rename of function in org.el.
2019-05-26 16:13:09 -04:00
|
|
|
|
;; The insides of property blocks on document level are parsed the
|
|
|
|
|
|
;; same way as headline property blocks. I.e. the concept of
|
|
|
|
|
|
;; `node-property' apply also for properties in those blocks.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("abc" "value")
|
|
|
|
|
|
(org-test-with-temp-text ":PROPERTIES:\n<point>:abc: value\n:END:"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(list (org-element-property :key element)
|
|
|
|
|
|
(org-element-property :value element))))))
|
2012-09-23 09:52:02 -04:00
|
|
|
|
;; Value should be trimmed.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "value"
|
2014-09-13 16:43:45 -04:00
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H\n:PROPERTIES:\n<point>:abc: value \n:END:"
|
2014-08-31 05:10:56 -04:00
|
|
|
|
(org-element-property :value (org-element-at-point)))))
|
2012-09-23 09:52:02 -04:00
|
|
|
|
;; A node property requires to be wrapped within a property drawer.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'node-property
|
|
|
|
|
|
(org-test-with-temp-text ":abc: value"
|
2014-08-31 05:10:56 -04:00
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Accept empty properties.
|
|
|
|
|
|
(should
|
2014-09-02 06:30:57 -04:00
|
|
|
|
(equal '(("foo" "value") ("bar" ""))
|
2014-09-13 16:43:45 -04:00
|
|
|
|
(org-test-with-temp-text "* H\n:PROPERTIES:\n:foo: value\n:bar:\n:END:"
|
2014-08-31 05:10:56 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'node-property
|
|
|
|
|
|
(lambda (p)
|
|
|
|
|
|
(list (org-element-property :key p)
|
2014-09-13 16:43:45 -04:00
|
|
|
|
(org-element-property :value p))))))))
|
2012-09-23 09:52:02 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-07-28 08:35:35 -04:00
|
|
|
|
;;;; Paragraph
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/paragraph-parser ()
|
|
|
|
|
|
"Test `paragraph' parser."
|
|
|
|
|
|
;; Standard test.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "Paragraph"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'paragraph 'identity nil t)))
|
|
|
|
|
|
;; Property find end of a paragraph stuck to another element.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq ?#
|
|
|
|
|
|
(org-test-with-temp-text "Paragraph\n# Comment"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'paragraph
|
|
|
|
|
|
(lambda (p) (char-after (org-element-property :end p)))
|
|
|
|
|
|
nil t))))
|
2012-08-17 11:24:33 -04:00
|
|
|
|
;; Include ill-formed Keywords.
|
2012-08-17 09:22:36 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+wrong_keyword something"
|
2012-08-17 11:24:33 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'paragraph 'identity)))
|
|
|
|
|
|
;; Include incomplete-drawers.
|
|
|
|
|
|
(should
|
2024-02-13 06:45:20 -05:00
|
|
|
|
(org-test-with-temp-text "<point>:TEST:\nParagraph"
|
|
|
|
|
|
(let ((elem (org-element-at-point)))
|
|
|
|
|
|
(and (eq (org-element-type elem) 'paragraph)
|
|
|
|
|
|
(= (point-max) (org-element-property :end elem))))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "<point>foo\n:end:\nbar"
|
2013-10-20 08:40:09 -04:00
|
|
|
|
(let ((elem (org-element-at-point)))
|
|
|
|
|
|
(and (eq (org-element-type elem) 'paragraph)
|
|
|
|
|
|
(= (point-max) (org-element-property :end elem))))))
|
2012-08-17 11:24:33 -04:00
|
|
|
|
;; Include incomplete blocks.
|
|
|
|
|
|
(should
|
2024-02-13 06:45:20 -05:00
|
|
|
|
(org-test-with-temp-text "<point>#+BEGIN_CENTER\nParagraph"
|
2012-08-17 11:24:33 -04:00
|
|
|
|
(let ((elem (org-element-at-point)))
|
|
|
|
|
|
(and (eq (org-element-type elem) 'paragraph)
|
|
|
|
|
|
(= (point-max) (org-element-property :end elem))))))
|
|
|
|
|
|
(should
|
2024-02-13 06:45:20 -05:00
|
|
|
|
(org-test-with-temp-text "<point>foo\n#+END_CENTER\nbar"
|
2012-08-17 11:24:33 -04:00
|
|
|
|
(let ((elem (org-element-at-point)))
|
|
|
|
|
|
(and (eq (org-element-type elem) 'paragraph)
|
2012-08-25 09:26:33 -04:00
|
|
|
|
(= (point-max) (org-element-property :end elem))))))
|
|
|
|
|
|
;; Include incomplete latex environments.
|
|
|
|
|
|
(should
|
2024-02-13 06:45:20 -05:00
|
|
|
|
(org-test-with-temp-text "<point>\begin{equation}\nParagraph"
|
2012-08-25 09:26:33 -04:00
|
|
|
|
(let ((elem (org-element-at-point)))
|
|
|
|
|
|
(and (eq (org-element-type elem) 'paragraph)
|
|
|
|
|
|
(= (point-max) (org-element-property :end elem))))))
|
2015-04-27 16:24:00 -04:00
|
|
|
|
(should
|
2024-02-13 06:45:20 -05:00
|
|
|
|
(org-test-with-temp-text "<point>Paragraph\n\begin{equation}"
|
2015-04-27 16:24:00 -04:00
|
|
|
|
(let ((elem (org-element-at-point)))
|
|
|
|
|
|
(and (eq (org-element-type elem) 'paragraph)
|
|
|
|
|
|
(= (point-max) (org-element-property :end elem))))))
|
|
|
|
|
|
;; Stop at affiliated keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "Paragraph\n#+NAME: test\n| table |"
|
|
|
|
|
|
(let ((elem (org-element-at-point)))
|
|
|
|
|
|
(and (eq (org-element-type elem) 'paragraph)
|
|
|
|
|
|
(not (org-element-property :name elem))
|
|
|
|
|
|
(= (org-element-property :end elem) (line-beginning-position 2))))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"Paragraph\n#+CAPTION[with short caption]: test\n| table |"
|
|
|
|
|
|
(let ((elem (org-element-at-point)))
|
|
|
|
|
|
(and (eq (org-element-type elem) 'paragraph)
|
|
|
|
|
|
(not (org-element-property :name elem))
|
|
|
|
|
|
(= (org-element-property :end elem) (line-beginning-position 2))))))
|
2012-08-25 09:26:33 -04:00
|
|
|
|
;; Do not steal affiliated keywords from container.
|
|
|
|
|
|
(should
|
2015-04-27 16:24:00 -04:00
|
|
|
|
(org-test-with-temp-text "#+ATTR_LATEX: test\n- item<point> 1"
|
|
|
|
|
|
(let ((elem (org-element-at-point)))
|
2012-08-25 09:26:33 -04:00
|
|
|
|
(and (eq (org-element-type elem) 'paragraph)
|
|
|
|
|
|
(not (org-element-property :attr_latex elem))
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(/= (org-element-property :begin elem) 1)))))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_CENTER\nC\n#+END_CENTER\n "
|
2021-10-16 11:42:30 -04:00
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_CENTER\n<point>C\n#+END_CENTER\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(search-forward "END")
|
|
|
|
|
|
(line-beginning-position))))))
|
2012-07-28 08:35:35 -04:00
|
|
|
|
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;;;; Plain List
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/plain-list-parser ()
|
|
|
|
|
|
"Test `plain-list' parser."
|
2013-06-01 15:38:15 -04:00
|
|
|
|
(org-test-with-temp-text "- item"
|
|
|
|
|
|
(should (org-element-map (org-element-parse-buffer) 'plain-list 'identity)))
|
2017-11-04 16:50:11 -04:00
|
|
|
|
;; Blank lines after a list or sub-list belongs to that list.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 1
|
|
|
|
|
|
(org-test-with-temp-text "- A\n\n- B\n\nEnd list"
|
|
|
|
|
|
(org-element-property :post-blank (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 1
|
|
|
|
|
|
(org-test-with-temp-text "- A\n\n<point> - B\n\n - C\n\n End sub-list"
|
|
|
|
|
|
(org-element-property :post-blank (org-element-at-point)))))
|
|
|
|
|
|
;; Blank lines after the list only belong to outer plain list,
|
|
|
|
|
|
;; however.
|
2013-06-01 15:38:15 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(t t)
|
|
|
|
|
|
(org-test-with-temp-text "
|
2012-05-04 13:24:51 -04:00
|
|
|
|
- outer
|
|
|
|
|
|
- inner
|
|
|
|
|
|
|
|
|
|
|
|
Outside list"
|
2013-06-01 15:38:15 -04:00
|
|
|
|
(let ((endings (org-element-map (org-element-parse-buffer) 'plain-list
|
|
|
|
|
|
(lambda (pl) (org-element-property :end pl)))))
|
|
|
|
|
|
(list
|
|
|
|
|
|
;; Move to ending of outer list.
|
|
|
|
|
|
(progn (goto-char (car endings)) (looking-at "Outside list"))
|
|
|
|
|
|
;; Move to ending of inner list.
|
2013-07-21 09:54:08 -04:00
|
|
|
|
(progn (goto-char (nth 1 endings)) (looking-at "^$")))))))
|
2013-07-21 09:51:14 -04:00
|
|
|
|
;; Correctly compute end of list if it doesn't end at a line
|
|
|
|
|
|
;; beginning.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "- list\n \n "
|
2021-10-16 11:42:30 -04:00
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max))))
|
|
|
|
|
|
;; Correctly compute list ending when list is before first headline.
|
|
|
|
|
|
(dolist (org-element-use-cache '(t nil))
|
|
|
|
|
|
(org-test-with-temp-text "- list\n* Headline\n"
|
|
|
|
|
|
(should (= (org-element-property :end (org-element-at-point)) 8)))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;;;; Planning
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(ert-deftest test-org-element/planning-parser ()
|
|
|
|
|
|
"Test `planning' parser."
|
2014-08-31 09:39:35 -04:00
|
|
|
|
;; Test various keywords.
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(should
|
2014-08-31 09:39:35 -04:00
|
|
|
|
(org-element-property
|
|
|
|
|
|
:closed
|
|
|
|
|
|
(org-test-with-temp-text "* H\n<point>CLOSED: [2012-03-29 thu.]"
|
|
|
|
|
|
(org-element-at-point))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(should
|
2014-08-31 09:39:35 -04:00
|
|
|
|
(org-element-property
|
|
|
|
|
|
:deadline
|
|
|
|
|
|
(org-test-with-temp-text "* H\n<point>DEADLINE: <2012-03-29 thu.>"
|
|
|
|
|
|
(org-element-at-point))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(should
|
2014-08-31 09:39:35 -04:00
|
|
|
|
(org-element-property
|
|
|
|
|
|
:scheduled
|
|
|
|
|
|
(org-test-with-temp-text "* H\n<point>SCHEDULED: <2012-03-29 thu.>"
|
|
|
|
|
|
(org-element-at-point))))
|
|
|
|
|
|
;; Planning line only exists right after a headline.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'planning
|
|
|
|
|
|
(org-test-with-temp-text "DEADLINE: <2012-03-29 thu.>"
|
2014-09-13 16:31:06 -04:00
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'planning
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H\n# Comment\n<point>DEADLINE: <2012-03-29 thu.>"
|
2016-11-09 18:25:34 -05:00
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'planning
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H\n\n<point>DEADLINE: <2012-03-29 thu.>"
|
2014-08-31 09:39:35 -04:00
|
|
|
|
(org-element-type (org-element-at-point))))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Property Drawer
|
|
|
|
|
|
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(ert-deftest test-org-element/property-drawer-parser ()
|
2012-05-05 13:57:37 -04:00
|
|
|
|
"Test `property-drawer' parser."
|
|
|
|
|
|
;; Standard test.
|
|
|
|
|
|
(should
|
2014-09-13 16:43:45 -04:00
|
|
|
|
(eq 'property-drawer
|
|
|
|
|
|
(org-test-with-temp-text "* H\n<point>:PROPERTIES:\n:prop: value\n:END:"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'property-drawer
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H\nDEADLINE: <2014-03-04 tue.>\n<point>:PROPERTIES:\n:prop: value\n:END:"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2019-12-15 07:34:30 -05:00
|
|
|
|
;; Parse property drawer at the beginning of the document, possibly
|
|
|
|
|
|
;; after some initial comments.
|
Org document property-drawers
Add functionality to define property-blocks on document level, in
addition to at headline level.
* doc/org-manual.org:
* etc/ORG-NEWS: Document new functionality.
* lisp/org.el (org-keyword-regexp): Define constant instead of
hardcoding.
(org-file-properties): Renamed, see next line.
(org-keyword-properties): Renamed from above. Due to the fact that
properties can be defined for the whole document using property
drawers this local variable needs a rename to make its name less
ambigous.
(org-refresh-properties, org-refresh-property, org-entry-properties)
(org-refresh-category-properties, org-get-property-block)
(org-entry-get-with-inheritance, org-entry-put)
(org-insert-property-drawer, org-end-of-subtree): Made to work before
first headline.
(org-at-property-block-p): New function to validate if point is at the
start of a property block.
(org-property-global-value): Renamed, see next line.
(org-property-global-or-keyword-value): Renamed from above to match
its functionality better.
(org-back-to-heading-or-point-min): New function to make a document
work as a level 0 node in the outline.
(org-at-keyword-p): Predicate function to answer to if we're currently
at a keyword line or not.
(org-up-heading-or-point-min): New function to make a document work as
a level 0 node in the outline.
* lisp/org-element.el (org-element--current-element): Can now detect
property-blocks before first headline according to it's positional
rules.
* lisp/org-attach.el (org-attach): Make it possible to call the
attachment dispatcher also before the first headline, since document
property drawers make attachments possible for the whole document
now.
* lisp/org-capture.el: Modified only due to rename of function in
org.el.
* lisp/org-compat.el (org-file-properties)
(org-property-global-value): Renamed functions declared obsolete.
* testing/lisp/test-org.el (org/insert-property-drawer)
(org/set-property, org/delete-property, org/delete-property-globally):
Additions of tests to check if they work before first headline.
(org/at-property-p, org/at-property-block-p, org/get-property-block)
(org/entry-get, org/refresh-properties): New tests
* testing/examples/property-inheritance.org: Switch from
property-keywords to a property-drawer in the testfile.
Functionality should be the same, but now using a document drawer
instead of property-keywords.
Reason for switching is that I'd like us to slowly depricate
property-keywords.
* testing/lisp/test-org-element.el:
* contrib/lisp/ox-taskjuggler.el: A comment is modified only due to
rename of function in org.el.
2019-05-26 16:13:09 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'property-drawer
|
|
|
|
|
|
(org-test-with-temp-text "<point>:PROPERTIES:\n:prop: value\n:END:"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'property-drawer
|
|
|
|
|
|
(org-test-with-temp-text "# C\n# C\n<point>:PROPERTIES:\n:prop: value\n:END:"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2023-10-12 06:34:08 -04:00
|
|
|
|
(should
|
Org document property-drawers
Add functionality to define property-blocks on document level, in
addition to at headline level.
* doc/org-manual.org:
* etc/ORG-NEWS: Document new functionality.
* lisp/org.el (org-keyword-regexp): Define constant instead of
hardcoding.
(org-file-properties): Renamed, see next line.
(org-keyword-properties): Renamed from above. Due to the fact that
properties can be defined for the whole document using property
drawers this local variable needs a rename to make its name less
ambigous.
(org-refresh-properties, org-refresh-property, org-entry-properties)
(org-refresh-category-properties, org-get-property-block)
(org-entry-get-with-inheritance, org-entry-put)
(org-insert-property-drawer, org-end-of-subtree): Made to work before
first headline.
(org-at-property-block-p): New function to validate if point is at the
start of a property block.
(org-property-global-value): Renamed, see next line.
(org-property-global-or-keyword-value): Renamed from above to match
its functionality better.
(org-back-to-heading-or-point-min): New function to make a document
work as a level 0 node in the outline.
(org-at-keyword-p): Predicate function to answer to if we're currently
at a keyword line or not.
(org-up-heading-or-point-min): New function to make a document work as
a level 0 node in the outline.
* lisp/org-element.el (org-element--current-element): Can now detect
property-blocks before first headline according to it's positional
rules.
* lisp/org-attach.el (org-attach): Make it possible to call the
attachment dispatcher also before the first headline, since document
property drawers make attachments possible for the whole document
now.
* lisp/org-capture.el: Modified only due to rename of function in
org.el.
* lisp/org-compat.el (org-file-properties)
(org-property-global-value): Renamed functions declared obsolete.
* testing/lisp/test-org.el (org/insert-property-drawer)
(org/set-property, org/delete-property, org/delete-property-globally):
Additions of tests to check if they work before first headline.
(org/at-property-p, org/at-property-block-p, org/get-property-block)
(org/entry-get, org/refresh-properties): New tests
* testing/examples/property-inheritance.org: Switch from
property-keywords to a property-drawer in the testfile.
Functionality should be the same, but now using a document drawer
instead of property-keywords.
Reason for switching is that I'd like us to slowly depricate
property-keywords.
* testing/lisp/test-org-element.el:
* contrib/lisp/ox-taskjuggler.el: A comment is modified only due to
rename of function in org.el.
2019-05-26 16:13:09 -04:00
|
|
|
|
(eq 'property-drawer
|
|
|
|
|
|
(org-test-with-temp-text "\n<point>:PROPERTIES:\n:prop: value\n:END:"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2014-09-13 16:43:45 -04:00
|
|
|
|
;; Allow properties without value and no property at all.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'property-drawer
|
|
|
|
|
|
(org-test-with-temp-text "* H\n<point>:PROPERTIES:\n:prop:\n:END:"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'property-drawer
|
|
|
|
|
|
(org-test-with-temp-text "* H\n<point>:PROPERTIES:\n:END:"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Ignore incomplete drawer, drawer at a wrong location or with
|
|
|
|
|
|
;; wrong contents.
|
2012-05-04 13:24:51 -04:00
|
|
|
|
(should-not
|
2014-09-13 16:43:45 -04:00
|
|
|
|
(eq 'property-drawer
|
|
|
|
|
|
(org-test-with-temp-text "* H\n<point>:PROPERTIES:\n:prop: value"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(should-not
|
2014-09-13 16:43:45 -04:00
|
|
|
|
(eq 'property-drawer
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H\nParagraph\n<point>:PROPERTIES:\n:prop: value\n:END:"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'property-drawer
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H\nParagraph\n<point>:PROPERTIES:\nparagraph\n:END:"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2016-11-09 18:25:34 -05:00
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'property-drawer
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H\n\n<point>:PROPERTIES:\n:prop: value\n:END:"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2014-09-13 16:43:45 -04:00
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(should
|
2014-09-13 16:43:45 -04:00
|
|
|
|
(org-test-with-temp-text "* H\n<point>:PROPERTIES:\n:END:\n "
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Quote Block
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/quote-block-parser ()
|
|
|
|
|
|
"Test `quote-block' parser."
|
|
|
|
|
|
;; Regular test.
|
|
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-test-with-temp-text "#+BEGIN_QUOTE\nText\n#+END_QUOTE"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'quote-block 'identity)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Ignore incomplete block.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_QUOTE"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'quote-block 'identity nil t)))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_QUOTE\nC\n#+END_QUOTE\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;;;; Radio Target
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/radio-target-parser ()
|
|
|
|
|
|
"Test `radio-target' parser."
|
|
|
|
|
|
;; Standard test.
|
|
|
|
|
|
(should
|
2014-03-23 06:28:26 -04:00
|
|
|
|
(eq 'radio-target
|
|
|
|
|
|
(org-test-with-temp-text "<<<radio>>>"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Radio targets with objects.
|
|
|
|
|
|
(should
|
2014-03-23 06:28:26 -04:00
|
|
|
|
(eq 'radio-target
|
|
|
|
|
|
(org-test-with-temp-text "<<<radio \\alpha>>>"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
;; Radio targets starting with an object.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'radio-target
|
|
|
|
|
|
(org-test-with-temp-text "<<<\\alpha radio>>>"
|
2014-04-02 08:16:52 -04:00
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
;; Radio targets cannot begin or end with white space.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'radio-target
|
|
|
|
|
|
(org-test-with-temp-text "<<< radio>>>"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'radio-target
|
|
|
|
|
|
(org-test-with-temp-text "<<<radio >>>"
|
2014-03-23 06:28:26 -04:00
|
|
|
|
(org-element-type (org-element-context))))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;;;; Section
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/section-parser ()
|
|
|
|
|
|
"Test `section' parser."
|
|
|
|
|
|
;; Standard test.
|
|
|
|
|
|
(should
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-test-with-temp-text "* Headline\nText"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'section 'identity)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; There's a section before the first headline.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "Text"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'section 'identity)))
|
|
|
|
|
|
;; A section cannot be empty.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "* Headline 1\n* Headline 2"
|
2012-09-01 16:52:43 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'section 'identity)))
|
|
|
|
|
|
;; A section doesn't contain sub-trees.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "* Head\nText\n** Sub-Head"
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'section 'identity nil t)
|
|
|
|
|
|
'headline 'identity))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Special Block
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/special-block-parser ()
|
|
|
|
|
|
"Test `special-block' parser."
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Standard test.
|
2013-06-17 11:08:53 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal "SPECIAL"
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SPECIAL\nText\n#+END_SPECIAL"
|
|
|
|
|
|
(org-element-property :type (org-element-at-point)))))
|
2014-09-17 13:38:06 -04:00
|
|
|
|
;; Special blocks are case sensitive.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "CaSe"
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_CaSe\nText\n#+END_CaSe"
|
|
|
|
|
|
(org-element-property :type (org-element-at-point)))))
|
2013-06-17 11:08:53 -04:00
|
|
|
|
;; Special blocks can contain paragraphs.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'paragraph
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SPECIAL\nText\n#+END_SPECIAL"
|
|
|
|
|
|
(forward-line)
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Ignore incomplete block.
|
|
|
|
|
|
(should-not
|
2013-06-17 11:08:53 -04:00
|
|
|
|
(eq 'special-block
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SPECIAL"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Allow special characters in type.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(special-block "SPECIAL*")
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SPECIAL*\nContents\n#+END_SPECIAL*"
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(list (org-element-type element)
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-property :type element))))))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SPECIAL\nC\n#+END_SPECIAL\n "
|
2022-10-18 18:37:05 -04:00
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max))))
|
|
|
|
|
|
;; When contents is empty, the parsed contents is nil.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SPECIAL\n#+END_SPECIAL"
|
2022-10-17 14:19:02 -04:00
|
|
|
|
(eq nil (org-element-contents (org-element-at-point)))))
|
|
|
|
|
|
;; Parse parameters if any, trimming blanks.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SPECIAL* s p :w 3 \nContent.\n#+END_SPECIAL*"
|
|
|
|
|
|
(equal "s p :w 3"
|
|
|
|
|
|
(org-element-property :parameters (org-element-at-point)))))
|
|
|
|
|
|
;; When parameters is blank, `:parameters' is nil.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SPECIAL* \t \nContent.\n#+END_SPECIAL*"
|
|
|
|
|
|
(eq nil (org-element-property :parameters (org-element-at-point))))
|
|
|
|
|
|
))
|
|
|
|
|
|
|
|
|
|
|
|
|
2012-05-04 13:24:51 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;;;; Src Block
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/src-block-parser ()
|
|
|
|
|
|
"Test `src-block' parser."
|
|
|
|
|
|
;; Regular tests.
|
|
|
|
|
|
(should
|
2013-05-25 08:18:48 -04:00
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SRC org\nText\n#+END_SRC"
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'src-block 'identity)))
|
|
|
|
|
|
;; Ignore incomplete block.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SRC"
|
2012-09-30 11:45:21 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'src-block 'identity)))
|
|
|
|
|
|
;; Properly un-escape code.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "* Headline\n #+keyword\nText\n"
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+BEGIN_SRC org\n,* Headline\n ,#+keyword\nText\n#+END_SRC"
|
2013-05-25 08:18:48 -04:00
|
|
|
|
(org-element-property :value (org-element-at-point)))))
|
2013-11-10 05:28:14 -05:00
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\nC\n#+END_SRC\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Statistics Cookie
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/statistics-cookie ()
|
|
|
|
|
|
"Test `statistics-cookie' parser."
|
|
|
|
|
|
;; With numbers.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "[1/2]"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'statistics-cookie 'identity)))
|
|
|
|
|
|
;; With percents.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "[33%]"
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(org-element-parse-buffer) 'statistics-cookie 'identity))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Strike Through
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/strike-through-parser ()
|
|
|
|
|
|
"Test `strike-through' parser."
|
|
|
|
|
|
;; Regular test.
|
|
|
|
|
|
(should
|
2016-12-08 03:44:26 -05:00
|
|
|
|
(org-test-with-temp-text "+strike-through+"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'strike-through #'identity)))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Multi-line markup.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-contents
|
2016-12-08 03:44:26 -05:00
|
|
|
|
(org-test-with-temp-text "+first line\nsecond line+"
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(org-element-parse-buffer) 'strike-through #'identity nil t)))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
'("first line\nsecond line"))))
|
|
|
|
|
|
|
|
|
|
|
|
|
2012-07-10 11:21:36 -04:00
|
|
|
|
;;;; Subscript
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/subscript-parser ()
|
|
|
|
|
|
"Test `subscript' parser."
|
|
|
|
|
|
;; Without braces.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "a_b"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'subscript 'identity)))
|
|
|
|
|
|
;; With braces.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "a_{b}"
|
2012-10-14 15:34:22 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'subscript 'identity)))
|
2012-10-14 15:47:07 -04:00
|
|
|
|
;; Multiple subscripts in a paragraph.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 2
|
|
|
|
|
|
(org-test-with-temp-text "a_b and c_d"
|
|
|
|
|
|
(length
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'subscript 'identity))))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-07-10 11:21:36 -04:00
|
|
|
|
;;;; Superscript
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/superscript-parser ()
|
|
|
|
|
|
"Test `superscript' parser."
|
|
|
|
|
|
;; Without braces.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "a^b"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'superscript 'identity)))
|
|
|
|
|
|
;; With braces.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "a^{b}"
|
2012-10-14 15:34:22 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'superscript 'identity)))
|
2012-10-14 15:47:07 -04:00
|
|
|
|
;; Multiple superscript in a paragraph.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 2
|
|
|
|
|
|
(org-test-with-temp-text "a^b and c^d"
|
|
|
|
|
|
(length
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(org-element-parse-buffer) 'superscript 'identity))))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Table
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/table-parser ()
|
|
|
|
|
|
"Test `table' parser."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "| a |"
|
2012-05-11 09:17:14 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'table 'identity)))
|
|
|
|
|
|
;; TBLFM keyword is case insensitive.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "| a |\n#+tblfm: test"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:tblfm
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'table 'identity nil t))))
|
|
|
|
|
|
;; Handle multiple TBLFM lines.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 2
|
|
|
|
|
|
(org-test-with-temp-text "| a |\n#+TBLFM: test1\n#+TBLFM: test2"
|
|
|
|
|
|
(length (org-element-property
|
|
|
|
|
|
:tblfm
|
|
|
|
|
|
(org-element-map
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-parse-buffer) 'table 'identity nil t))))))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "| a |\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Table Cell
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/table-cell-parser ()
|
|
|
|
|
|
"Test `table-cell' parser."
|
2014-04-08 12:46:41 -04:00
|
|
|
|
;; Regular table cell.
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "| a |"
|
2014-04-08 12:46:41 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'table-cell 'identity)))
|
|
|
|
|
|
;; Last vertical bar may be omitted.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "| a "
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'table-cell 'identity))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Table Row
|
|
|
|
|
|
|
2012-05-11 09:17:14 -04:00
|
|
|
|
(ert-deftest test-org-element/table-row-parser ()
|
2012-05-05 13:57:37 -04:00
|
|
|
|
"Test `table-row' parser."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(standard rule)
|
|
|
|
|
|
(org-test-with-temp-text "| a |\n|---|"
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(org-element-parse-buffer) 'table-row
|
|
|
|
|
|
(lambda (row) (org-element-property :type row)))))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Target
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/target-parser ()
|
|
|
|
|
|
"Test `target' parser."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "<<target>>"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'target 'identity))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Timestamp
|
|
|
|
|
|
|
2018-07-01 18:18:44 -04:00
|
|
|
|
(ert-deftest test-org-element/timestamp-parser ()
|
2012-05-05 13:57:37 -04:00
|
|
|
|
"Test `timestamp' parser."
|
|
|
|
|
|
;; Active timestamp.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "<2012-03-29 16:40>"
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(eq (org-element-property :type (org-element-context)) 'active)))
|
2012-11-15 15:02:26 -05:00
|
|
|
|
(should-not
|
2012-11-15 15:46:08 -05:00
|
|
|
|
(org-test-with-temp-text "<2012-03-29 Thu>"
|
2012-11-15 15:02:26 -05:00
|
|
|
|
(let ((timestamp (org-element-context)))
|
|
|
|
|
|
(or (org-element-property :hour-start timestamp)
|
|
|
|
|
|
(org-element-property :minute-start timestamp)))))
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal '(2012 3 29 16 40)
|
2012-11-15 15:46:08 -05:00
|
|
|
|
(org-test-with-temp-text "<2012-03-29 Thu 16:40>"
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(let ((object (org-element-context)))
|
|
|
|
|
|
(list (org-element-property :year-start object)
|
|
|
|
|
|
(org-element-property :month-start object)
|
|
|
|
|
|
(org-element-property :day-start object)
|
|
|
|
|
|
(org-element-property :hour-start object)
|
|
|
|
|
|
(org-element-property :minute-start object))))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Inactive timestamp.
|
|
|
|
|
|
(should
|
2012-11-15 15:46:08 -05:00
|
|
|
|
(org-test-with-temp-text "[2012-03-29 Thu 16:40]"
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(eq (org-element-property :type (org-element-context)) 'inactive)))
|
|
|
|
|
|
;; Time range.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(2012 3 29 16 40 7 30)
|
2012-11-15 15:46:08 -05:00
|
|
|
|
(org-test-with-temp-text "<2012-03-29 Thu 7:30-16:40>"
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(let ((object (org-element-context)))
|
|
|
|
|
|
(list (org-element-property :year-end object)
|
|
|
|
|
|
(org-element-property :month-end object)
|
|
|
|
|
|
(org-element-property :day-end object)
|
|
|
|
|
|
(org-element-property :hour-end object)
|
|
|
|
|
|
(org-element-property :minute-end object)
|
|
|
|
|
|
(org-element-property :hour-start object)
|
|
|
|
|
|
(org-element-property :minute-start object))))))
|
2012-11-15 15:46:08 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'active-range
|
|
|
|
|
|
(org-test-with-temp-text "<2012-03-29 Thu 7:30-16:40>"
|
|
|
|
|
|
(org-element-property :type (org-element-context)))))
|
2012-07-17 10:33:45 -04:00
|
|
|
|
;; Date range.
|
|
|
|
|
|
(should
|
2012-11-15 15:46:08 -05:00
|
|
|
|
(org-test-with-temp-text "[2012-03-29 Thu 16:40]--[2012-03-29 Thu 16:41]"
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(eq (org-element-property :type (org-element-context)) 'inactive-range)))
|
2012-11-15 15:02:26 -05:00
|
|
|
|
(should-not
|
2012-11-15 15:46:08 -05:00
|
|
|
|
(org-test-with-temp-text "[2011-07-14 Thu]--[2012-03-29 Thu]"
|
2012-11-15 15:02:26 -05:00
|
|
|
|
(let ((timestamp (org-element-context)))
|
|
|
|
|
|
(or (org-element-property :hour-end timestamp)
|
|
|
|
|
|
(org-element-property :minute-end timestamp)))))
|
2013-10-13 04:17:16 -04:00
|
|
|
|
;; With repeater, warning delay and both.
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'catch-up
|
2012-11-15 15:46:08 -05:00
|
|
|
|
(org-test-with-temp-text "<2012-03-29 Thu ++1y>"
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(org-element-property :repeater-type (org-element-context)))))
|
2013-10-13 04:17:16 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'first
|
|
|
|
|
|
(org-test-with-temp-text "<2012-03-29 Thu --1y>"
|
|
|
|
|
|
(org-element-property :warning-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(cumulate all)
|
|
|
|
|
|
(org-test-with-temp-text "<2012-03-29 Thu +1y -1y>"
|
|
|
|
|
|
(let ((ts (org-element-context)))
|
|
|
|
|
|
(list (org-element-property :repeater-type ts)
|
2023-02-18 02:55:39 -05:00
|
|
|
|
(org-element-property :warning-type ts))))))
|
|
|
|
|
|
;; :range-type property
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
(org-test-with-temp-text "<2023-07-02 Sun>"
|
|
|
|
|
|
(org-element-property :range-type (org-element-timestamp-parser)))
|
|
|
|
|
|
nil))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
(org-test-with-temp-text "<2023-07-02 Sun 12:00>"
|
|
|
|
|
|
(org-element-property :range-type (org-element-timestamp-parser)))
|
|
|
|
|
|
nil))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
(org-test-with-temp-text "<2023-07-02 Sun 12:00-13:00>"
|
|
|
|
|
|
(org-element-property :range-type (org-element-timestamp-parser)))
|
|
|
|
|
|
'timerange))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
(org-test-with-temp-text "<2023-07-02 Sun 12:00-12:00>"
|
|
|
|
|
|
(org-element-property :range-type (org-element-timestamp-parser)))
|
|
|
|
|
|
'timerange))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
(org-test-with-temp-text "<2023-07-02 Sun>--<2023-07-02 Sun>"
|
|
|
|
|
|
(org-element-property :range-type (org-element-timestamp-parser)))
|
|
|
|
|
|
'daterange))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
(org-test-with-temp-text "<2023-07-02 Sun>--<2023-07-03 Mon>"
|
|
|
|
|
|
(org-element-property :range-type (org-element-timestamp-parser)))
|
|
|
|
|
|
'daterange))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
(org-test-with-temp-text "<2023-07-02 Sun 12:00>--<2023-07-02 Sun 12:00>"
|
|
|
|
|
|
(org-element-property :range-type (org-element-timestamp-parser)))
|
|
|
|
|
|
'daterange))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
(org-test-with-temp-text "<2023-07-02 Sun 12:00>--<2023-07-03 Mon 13:00>"
|
|
|
|
|
|
(org-element-property :range-type (org-element-timestamp-parser)))
|
|
|
|
|
|
'daterange))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
(org-test-with-temp-text "<2023-07-02 Sun 12:00>--<2023-07-02 Sun>"
|
|
|
|
|
|
(org-element-property :range-type (org-element-timestamp-parser)))
|
|
|
|
|
|
'daterange))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
(org-test-with-temp-text "<2023-07-02 Sun 12:00>--<2023-07-03 Mon>"
|
|
|
|
|
|
(org-element-property :range-type (org-element-timestamp-parser)))
|
|
|
|
|
|
'daterange))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
(org-test-with-temp-text "<2023-07-02 Sun 12:00>--<2023-07-02 Sun 13:00>"
|
|
|
|
|
|
(org-element-property :range-type (org-element-timestamp-parser)))
|
|
|
|
|
|
'daterange))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
(org-test-with-temp-text "<2023-07-02 Sun 12:00 +5d>--<2023-07-02 Sun 13:00>"
|
|
|
|
|
|
(org-element-property :range-type (org-element-timestamp-parser)))
|
|
|
|
|
|
'daterange)))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
;;;; Underline
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/underline-parser ()
|
|
|
|
|
|
"Test `underline' parser."
|
|
|
|
|
|
;; Regular test.
|
|
|
|
|
|
(should
|
2016-12-08 03:44:26 -05:00
|
|
|
|
(org-test-with-temp-text "_underline_"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'underline #'identity)))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Multi-line markup.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-contents
|
2016-12-08 03:44:26 -05:00
|
|
|
|
(org-test-with-temp-text "_first line\nsecond line_"
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(org-element-parse-buffer) 'underline #'identity nil t)))
|
2023-10-10 08:05:38 -04:00
|
|
|
|
'("first line\nsecond line")))
|
|
|
|
|
|
;; Nested underlines.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 2
|
|
|
|
|
|
(org-test-with-temp-text "__test__"
|
|
|
|
|
|
(length
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'underline 'identity))))))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;; Verbatim
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/verbatim-parser ()
|
|
|
|
|
|
"Test `verbatim' parser."
|
|
|
|
|
|
;; Regular test.
|
|
|
|
|
|
(should
|
2016-12-08 03:44:26 -05:00
|
|
|
|
(org-test-with-temp-text "=verbatim="
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'verbatim #'identity)))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
;; Multi-line markup.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:value
|
2016-12-08 03:44:26 -05:00
|
|
|
|
(org-test-with-temp-text "=first line\nsecond line="
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'verbatim #'identity nil t)))
|
2012-05-05 13:57:37 -04:00
|
|
|
|
"first line\nsecond line")))
|
|
|
|
|
|
|
|
|
|
|
|
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;;;; Verse Block
|
2012-04-25 16:15:29 -04:00
|
|
|
|
|
2012-05-01 09:08:08 -04:00
|
|
|
|
(ert-deftest test-org-element/verse-block-parser ()
|
2012-05-04 13:24:51 -04:00
|
|
|
|
"Test `verse-block' parser."
|
2012-04-25 16:15:29 -04:00
|
|
|
|
;; Standard test.
|
org-element: Remove folding status in parsed data
* lisp/org-element.el (org-element-center-block-parser,
org-element-drawer-parser, org-element-dynamic-block-parser,
org-element-item-parser, org-element-quote-block-parser,
org-element-comment-block-parser, org-element-export-block-parser,
org-element-verse-block-parser, org-element-special-block-parser,
org-element-example-block-parser, org-element-headline-parser,
org-element-inlinetask-parser): Remove :hiddenp property.
* lisp/org.el (org-end-of-line, org-down-element): Use an equivalent
of :hiddenp property.
* testing/lisp/test-org-element.el: Remove tests.
The property is removed because it is buggy (e.g., when there's a link
just after a block opening line) and not really useful.
2013-10-03 16:57:02 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_VERSE\nVerse block\n#+END_VERSE"
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'verse-block 'identity)))
|
2012-04-25 16:15:29 -04:00
|
|
|
|
;; Ignore case.
|
org-element: Remove folding status in parsed data
* lisp/org-element.el (org-element-center-block-parser,
org-element-drawer-parser, org-element-dynamic-block-parser,
org-element-item-parser, org-element-quote-block-parser,
org-element-comment-block-parser, org-element-export-block-parser,
org-element-verse-block-parser, org-element-special-block-parser,
org-element-example-block-parser, org-element-headline-parser,
org-element-inlinetask-parser): Remove :hiddenp property.
* lisp/org.el (org-end-of-line, org-down-element): Use an equivalent
of :hiddenp property.
* testing/lisp/test-org-element.el: Remove tests.
The property is removed because it is buggy (e.g., when there's a link
just after a block opening line) and not really useful.
2013-10-03 16:57:02 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+begin_verse\nVerse block\n#+end_verse"
|
2012-05-05 13:57:37 -04:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'verse-block 'identity)))
|
2012-04-25 16:15:29 -04:00
|
|
|
|
;; Parse objects in verse blocks.
|
org-element: Remove folding status in parsed data
* lisp/org-element.el (org-element-center-block-parser,
org-element-drawer-parser, org-element-dynamic-block-parser,
org-element-item-parser, org-element-quote-block-parser,
org-element-comment-block-parser, org-element-export-block-parser,
org-element-verse-block-parser, org-element-special-block-parser,
org-element-example-block-parser, org-element-headline-parser,
org-element-inlinetask-parser): Remove :hiddenp property.
* lisp/org.el (org-end-of-line, org-down-element): Use an equivalent
of :hiddenp property.
* testing/lisp/test-org-element.el: Remove tests.
The property is removed because it is buggy (e.g., when there's a link
just after a block opening line) and not really useful.
2013-10-03 16:57:02 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_VERSE\nVerse \\alpha\n#+END_VERSE"
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'entity 'identity)))
|
2012-05-04 13:24:51 -04:00
|
|
|
|
;; Ignore incomplete verse block.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_VERSE"
|
2013-11-10 05:28:14 -05:00
|
|
|
|
(org-element-map (org-element-parse-buffer) 'verse-block 'identity nil t)))
|
|
|
|
|
|
;; Handle non-empty blank line at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_VERSE\nC\n#+END_VERSE\n "
|
|
|
|
|
|
(= (org-element-property :end (org-element-at-point)) (point-max)))))
|
2012-04-25 16:15:29 -04:00
|
|
|
|
|
2023-10-12 06:34:08 -04:00
|
|
|
|
;;; Org data.
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/org-data-parser ()
|
|
|
|
|
|
"Test `org-data' parser."
|
|
|
|
|
|
;; Standard test.
|
|
|
|
|
|
(org-test-with-temp-text "This is test."
|
|
|
|
|
|
(let ((data (org-element-lineage (org-element-at-point) 'org-data)))
|
|
|
|
|
|
(should (equal 1 (org-element-begin data)))
|
|
|
|
|
|
(should (equal (point-max) (org-element-end data)))))
|
|
|
|
|
|
;; Parse top-level property drawer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
"bar"
|
|
|
|
|
|
(org-test-with-temp-text ":PROPERTIES:
|
|
|
|
|
|
:FOO: bar
|
|
|
|
|
|
:END:"
|
|
|
|
|
|
(org-element-property-inherited :FOO (org-element-at-point)))))
|
|
|
|
|
|
;; With leading comment line.
|
|
|
|
|
|
(org-test-with-temp-text "# comment
|
|
|
|
|
|
:PROPERTIES:
|
|
|
|
|
|
:FOO: bar
|
|
|
|
|
|
:END:"
|
|
|
|
|
|
(should (equal "bar" (org-element-property-inherited :FOO (org-element-at-point)))))
|
|
|
|
|
|
;; Blank line on top.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
"bar"
|
|
|
|
|
|
(org-test-with-temp-text "
|
|
|
|
|
|
:PROPERTIES:
|
|
|
|
|
|
:FOO: bar<point>
|
|
|
|
|
|
:END:"
|
|
|
|
|
|
(org-element-property-inherited :FOO (org-element-at-point))))))
|
2012-04-25 16:15:29 -04:00
|
|
|
|
|
2012-03-28 09:33:20 -04:00
|
|
|
|
|
2012-04-30 11:20:57 -04:00
|
|
|
|
;;; Test Interpreters.
|
2012-04-10 17:15:32 -04:00
|
|
|
|
|
2013-11-11 07:16:43 -05:00
|
|
|
|
(ert-deftest test-org-element/interpret-data ()
|
|
|
|
|
|
"Test `org-element-interpret-data' specifications."
|
|
|
|
|
|
;; Interpret simple affiliated keywords.
|
2012-04-10 17:15:32 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-interpret-data
|
|
|
|
|
|
'(org-data nil (paragraph (:name "para") "Paragraph")))
|
2018-01-28 09:40:15 -05:00
|
|
|
|
"#+name: para\nParagraph\n"))
|
2013-11-11 07:16:43 -05:00
|
|
|
|
;; Interpret multiple affiliated keywords.
|
2012-04-10 17:15:32 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-interpret-data
|
2023-04-24 09:38:14 -04:00
|
|
|
|
'(org-data nil (paragraph (:attr_ascii ("line1" "line2")) "Paragraph")))
|
2018-01-28 09:40:15 -05:00
|
|
|
|
"#+attr_ascii: line1\n#+attr_ascii: line2\nParagraph\n"))
|
2013-11-11 07:16:43 -05:00
|
|
|
|
;; Interpret parsed affiliated keywords.
|
2012-04-10 17:15:32 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-interpret-data
|
2012-09-13 10:51:54 -04:00
|
|
|
|
'(org-data nil (paragraph (:caption (("caption"))) "Paragraph")))
|
2018-01-28 09:40:15 -05:00
|
|
|
|
"#+caption: caption\nParagraph\n"))
|
2013-11-11 07:16:43 -05:00
|
|
|
|
;; Interpret dual affiliated keywords.
|
2012-04-10 17:15:32 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-interpret-data
|
2012-09-13 10:51:54 -04:00
|
|
|
|
'(org-data nil (paragraph (:caption ((("long") "short"))) "Paragraph")))
|
2018-01-28 09:40:15 -05:00
|
|
|
|
"#+caption[short]: long\nParagraph\n"))
|
2012-09-13 10:51:54 -04:00
|
|
|
|
;; Interpret multiple parsed dual keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-interpret-data
|
|
|
|
|
|
'(org-data nil (paragraph
|
2023-04-24 09:38:14 -04:00
|
|
|
|
(:caption ((("l1") "s1") (("l2") "s2"))) "Paragraph")))
|
2018-01-28 09:40:15 -05:00
|
|
|
|
"#+caption[s1]: l1\n#+caption[s2]: l2\nParagraph\n"))
|
2013-11-11 07:16:43 -05:00
|
|
|
|
;; Pseudo objects and elements are transparent.
|
|
|
|
|
|
(should
|
2015-02-09 06:02:16 -05:00
|
|
|
|
(equal "A B"
|
|
|
|
|
|
(org-trim
|
|
|
|
|
|
(org-element-interpret-data
|
|
|
|
|
|
'(paragraph nil (pseudo-object (:post-blank 1) "A") "B")))))
|
2013-11-11 07:16:43 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(equal "A\n\nB\n"
|
|
|
|
|
|
(org-element-interpret-data
|
|
|
|
|
|
'(center nil
|
|
|
|
|
|
(pseudo-element (:post-blank 1) (paragraph nil "A"))
|
2021-04-19 12:17:55 -04:00
|
|
|
|
(paragraph nil "B")))))
|
|
|
|
|
|
;; Obey post-blank property in strings.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "A "
|
|
|
|
|
|
(org-element-interpret-data
|
|
|
|
|
|
(org-element-put-property "A" :post-blank 1)))))
|
2012-04-10 17:15:32 -04:00
|
|
|
|
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(ert-deftest test-org-element/center-block-interpreter ()
|
|
|
|
|
|
"Test center block interpreter."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "#+BEGIN_CENTER\nTest\n#+END_CENTER")
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin_center\nTest\n#+end_center\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/drawer-interpreter ()
|
|
|
|
|
|
"Test drawer interpreter."
|
|
|
|
|
|
(should
|
2013-10-20 08:40:09 -04:00
|
|
|
|
(equal (org-test-parse-and-interpret ":TEST:\nTest\n:END:")
|
2012-04-27 11:16:17 -04:00
|
|
|
|
":TEST:\nTest\n:END:\n")))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/dynamic-block-interpreter ()
|
|
|
|
|
|
"Test dynamic block interpreter."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN: myblock :parameter value1\nTest\n#+END:")
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin: myblock :parameter value1\nTest\n#+end:\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/footnote-definition-interpreter ()
|
|
|
|
|
|
"Test footnote definition interpreter."
|
2017-11-09 16:47:35 -05:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "[fn:1] Test") "[fn:1] Test\n"))
|
|
|
|
|
|
;; Handle `:pre-blank' in definitions.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "[fn:1]\nparagraph")
|
|
|
|
|
|
"[fn:1]\nparagraph\n"))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "[fn:1]\n\nparagraph")
|
|
|
|
|
|
"[fn:1]\n\nparagraph\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/headline-interpreter ()
|
|
|
|
|
|
"Test headline and section interpreters."
|
|
|
|
|
|
;; 1. Standard test.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "* Headline") "* Headline\n"))
|
|
|
|
|
|
;; 2. With TODO keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-todo-keywords '((sequence "TODO" "DONE"))))
|
|
|
|
|
|
(org-test-parse-and-interpret "* TODO Headline"))
|
|
|
|
|
|
"* TODO Headline\n"))
|
|
|
|
|
|
;; 3. With tags...
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; 3.1. ... and a positive `org-tags-column' value.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-tags-column 20))
|
|
|
|
|
|
(org-test-parse-and-interpret "* Headline :tag:"))
|
|
|
|
|
|
"* Headline :tag:\n"))
|
|
|
|
|
|
;; 3.2. ... and a negative `org-tags-column' value.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-tags-column -20))
|
|
|
|
|
|
(org-test-parse-and-interpret "* Headline :tag:"))
|
|
|
|
|
|
"* Headline :tag:\n"))
|
|
|
|
|
|
;; 3.3. ... and a null `org-tags-column' value.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-tags-column 0))
|
|
|
|
|
|
(org-test-parse-and-interpret "* Headline :tag:"))
|
|
|
|
|
|
"* Headline :tag:\n"))
|
|
|
|
|
|
;; 4. With priority cookie.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "* [#B] Headline")
|
|
|
|
|
|
"* [#B] Headline\n"))
|
|
|
|
|
|
;; 5. With comment keyword.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-comment-string "COMMENT"))
|
|
|
|
|
|
(org-test-parse-and-interpret "* COMMENT Headline"))
|
|
|
|
|
|
"* COMMENT Headline\n"))
|
2014-01-28 15:30:48 -05:00
|
|
|
|
;; 6. Keep same number of blank lines before body.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret
|
|
|
|
|
|
"* Headline\n\n\nText after two blank lines.")
|
2014-08-28 05:07:24 -04:00
|
|
|
|
"* Headline\n\n\nText after two blank lines.\n"))
|
|
|
|
|
|
;; 8. Preserve `org-odd-levels-only' state.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "* H\n*** H2\n"
|
|
|
|
|
|
(let ((org-odd-levels-only t))
|
|
|
|
|
|
(org-test-parse-and-interpret "* H\n*** H2")))))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/inlinetask-interpreter ()
|
|
|
|
|
|
"Test inlinetask interpretation."
|
|
|
|
|
|
(when (featurep 'org-inlinetask)
|
|
|
|
|
|
(let ((org-inlinetask-min-level 15))
|
|
|
|
|
|
;; 1. Regular inlinetask.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
|
|
|
|
|
"*************** Task\nTest\n*************** END")
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"*************** Task\nTest\n*************** end\n"))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
;; 2. Degenerate inlinetask.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "*************** Task")
|
|
|
|
|
|
"*************** Task\n"))
|
|
|
|
|
|
;; 3. Prefer degenerate form when there are no contents.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"*************** Task\n*************** end")
|
2012-04-27 11:16:17 -04:00
|
|
|
|
"*************** Task\n"))
|
|
|
|
|
|
;; 4. With TODO keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-todo-keywords '((sequence "TODO" "DONE"))))
|
|
|
|
|
|
(org-test-parse-and-interpret "*************** TODO Task"))
|
|
|
|
|
|
"*************** TODO Task\n"))
|
|
|
|
|
|
;; 5. With tags...
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; 5.1. ... and a positive `org-tags-column' value.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-tags-column 30))
|
|
|
|
|
|
(org-test-parse-and-interpret "*************** Task :tag:"))
|
|
|
|
|
|
"*************** Task :tag:\n"))
|
|
|
|
|
|
;; 5.2. ... and a negative `org-tags-column' value.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-tags-column -30))
|
|
|
|
|
|
(org-test-parse-and-interpret "*************** Task :tag:"))
|
|
|
|
|
|
"*************** Task :tag:\n"))
|
|
|
|
|
|
;; 5.3. ... and a null `org-tags-column' value.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-tags-column 0))
|
|
|
|
|
|
(org-test-parse-and-interpret "*************** Task :tag:"))
|
|
|
|
|
|
"*************** Task :tag:\n"))
|
|
|
|
|
|
;; 6. With priority cookie.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "*************** [#B] Task")
|
|
|
|
|
|
"*************** [#B] Task\n")))))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/plain-list-interpreter ()
|
|
|
|
|
|
"Test plain-list and item interpreters."
|
2012-06-12 08:29:53 -04:00
|
|
|
|
(let ((org-list-two-spaces-after-bullet-regexp nil))
|
2013-07-05 15:09:23 -04:00
|
|
|
|
;; Unordered list.
|
2012-06-12 08:29:53 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "- item 1") "- item 1\n"))
|
2013-07-05 15:09:23 -04:00
|
|
|
|
;; Description list.
|
2012-06-12 08:29:53 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "- tag :: desc") "- tag :: desc\n"))
|
2013-07-05 15:09:23 -04:00
|
|
|
|
;; Ordered list.
|
2012-06-12 08:29:53 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-plain-list-ordered-item-terminator t))
|
|
|
|
|
|
(org-test-parse-and-interpret "1. Item"))
|
|
|
|
|
|
"1. Item\n"))
|
2013-07-05 15:09:23 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-plain-list-ordered-item-terminator ?\)))
|
|
|
|
|
|
(org-test-parse-and-interpret "1) Item"))
|
|
|
|
|
|
"1) Item\n"))
|
|
|
|
|
|
;; Ordered list with counter.
|
2012-06-12 08:29:53 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-plain-list-ordered-item-terminator t))
|
|
|
|
|
|
(org-test-parse-and-interpret "1. [@5] Item"))
|
|
|
|
|
|
"5. [@5] Item\n"))
|
2013-07-05 15:09:23 -04:00
|
|
|
|
;; List with check-boxes.
|
2012-06-12 08:29:53 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret
|
|
|
|
|
|
"- [-] Item 1\n - [X] Item 2\n - [ ] Item 3")
|
|
|
|
|
|
"- [-] Item 1\n - [X] Item 2\n - [ ] Item 3\n"))
|
2013-07-05 15:09:23 -04:00
|
|
|
|
;; Item not starting with a paragraph.
|
2012-06-12 08:29:53 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "-\n | a | b |")
|
2013-07-05 15:09:23 -04:00
|
|
|
|
"- \n | a | b |\n"))
|
2017-11-09 16:47:35 -05:00
|
|
|
|
;; Handle `:pre-blank' in items.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "-\n paragraph")
|
|
|
|
|
|
"- \n paragraph\n"))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "-\n\n paragraph")
|
|
|
|
|
|
"- \n\n paragraph\n"))
|
2013-07-05 15:09:23 -04:00
|
|
|
|
;; Special case: correctly handle "*" bullets.
|
2013-07-05 18:39:28 -04:00
|
|
|
|
(should (org-test-parse-and-interpret " * item"))
|
|
|
|
|
|
;; Special case: correctly handle empty items.
|
|
|
|
|
|
(should (org-test-parse-and-interpret "-"))))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/quote-block-interpreter ()
|
|
|
|
|
|
"Test quote block interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_QUOTE\nTest\n#+END_QUOTE")
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin_quote\nTest\n#+end_quote\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/special-block-interpreter ()
|
|
|
|
|
|
"Test special block interpreter."
|
2022-10-17 14:19:02 -04:00
|
|
|
|
;; No parameters
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_SPECIAL\nTest\n#+END_SPECIAL")
|
2022-10-18 18:37:05 -04:00
|
|
|
|
"#+begin_SPECIAL\nTest\n#+end_SPECIAL\n"))
|
|
|
|
|
|
;; No content
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_SPECIAL\n#+END_SPECIAL")
|
2022-10-17 14:19:02 -04:00
|
|
|
|
"#+begin_SPECIAL\n#+end_SPECIAL\n"))
|
|
|
|
|
|
;; Some parameters
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_special some parameters until EOL\nA very special content\n#+END_special")
|
|
|
|
|
|
"#+begin_special some parameters until EOL\nA very special content\n#+end_special\n"))
|
|
|
|
|
|
;; No parameters (blanks only)
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_special \t \nA very special content\n#+END_special")
|
|
|
|
|
|
"#+begin_special\nA very special content\n#+end_special\n"))
|
|
|
|
|
|
;; Some parameters with leading and trailing blanks, no content, and
|
|
|
|
|
|
;; a /special/ name.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_spe<c>ial :a :b \t :c \t \n#+END_spe<c>ial")
|
|
|
|
|
|
"#+begin_spe<c>ial :a :b \t :c\n#+end_spe<c>ial\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/babel-call-interpreter ()
|
2015-04-21 05:54:22 -04:00
|
|
|
|
"Test Babel call interpreter."
|
|
|
|
|
|
;; Without argument.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "#+CALL: test()")
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+call: test()\n"))
|
2015-04-21 05:54:22 -04:00
|
|
|
|
;; With argument.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "#+CALL: test(x=2)")
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+call: test(x=2)\n"))
|
2015-04-21 05:54:22 -04:00
|
|
|
|
;; With header arguments.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
2015-04-21 05:54:22 -04:00
|
|
|
|
"#+CALL: test[:results output]() :results html")
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+call: test[:results output]() :results html\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
2012-04-28 16:59:25 -04:00
|
|
|
|
(ert-deftest test-org-element/clock-interpreter ()
|
|
|
|
|
|
"Test clock interpreter."
|
|
|
|
|
|
;; Running clock.
|
|
|
|
|
|
(should
|
2013-11-16 04:15:28 -05:00
|
|
|
|
(string-match
|
|
|
|
|
|
"CLOCK: \\[2012-01-01 .* 00:01\\]"
|
2013-10-29 09:53:21 -04:00
|
|
|
|
(org-test-parse-and-interpret "CLOCK: [2012-01-01 sun. 00:01]")))
|
2012-04-28 16:59:25 -04:00
|
|
|
|
;; Closed clock.
|
|
|
|
|
|
(should
|
2013-11-16 04:15:28 -05:00
|
|
|
|
(string-match
|
|
|
|
|
|
"CLOCK: \\[2012-01-01 .* 00:01\\]--\\[2012-01-01 .* 00:02\\] => 0:01"
|
2013-10-29 09:53:21 -04:00
|
|
|
|
(org-test-parse-and-interpret "
|
|
|
|
|
|
CLOCK: [2012-01-01 sun. 00:01]--[2012-01-01 sun. 00:02] => 0:01"))))
|
2012-04-28 16:59:25 -04:00
|
|
|
|
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(ert-deftest test-org-element/comment-interpreter ()
|
|
|
|
|
|
"Test comment interpreter."
|
|
|
|
|
|
;; Regular comment.
|
2012-08-17 09:22:36 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "# Comment") "# Comment\n"))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
;; Inline comment.
|
2012-07-31 19:27:27 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret " # Comment")
|
|
|
|
|
|
"# Comment\n"))
|
2012-05-02 11:18:14 -04:00
|
|
|
|
;; Preserve indentation.
|
2012-07-31 19:27:27 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret " # No blank\n# One blank")
|
|
|
|
|
|
"# No blank\n# One blank\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/comment-block-interpreter ()
|
|
|
|
|
|
"Test comment block interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_COMMENT\nTest\n#+END_COMMENT")
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin_comment\nTest\n#+end_comment\n"))
|
2014-08-07 08:45:28 -04:00
|
|
|
|
;; Accept missing final newline in value.
|
|
|
|
|
|
(should
|
2018-01-24 06:56:25 -05:00
|
|
|
|
(equal "#+begin_comment\nTest\n#+end_comment\n"
|
|
|
|
|
|
(org-element-interpret-data '(comment-block (:value "Test"))))))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
2012-10-27 08:23:37 -04:00
|
|
|
|
(ert-deftest test-org-element/diary-sexp ()
|
|
|
|
|
|
"Test diary-sexp interpreter."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"%%(org-anniversary 1956 5 14)(2) Arthur Dent is %d years old")
|
|
|
|
|
|
"%%(org-anniversary 1956 5 14)(2) Arthur Dent is %d years old\n")))
|
|
|
|
|
|
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(ert-deftest test-org-element/example-block-interpreter ()
|
|
|
|
|
|
"Test example block interpreter."
|
2012-04-30 17:44:30 -04:00
|
|
|
|
;; Without switches.
|
2018-02-04 04:04:17 -05:00
|
|
|
|
(should (equal "#+begin_example\nTest\n#+end_example\n"
|
|
|
|
|
|
(let ((org-src-preserve-indentation t))
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_EXAMPLE\nTest\n#+END_EXAMPLE"))))
|
2012-04-30 17:44:30 -04:00
|
|
|
|
;; With switches.
|
|
|
|
|
|
(should
|
2018-02-04 04:04:17 -05:00
|
|
|
|
(equal "#+begin_example -n -k\n(+ 1 1)\n#+end_example\n"
|
|
|
|
|
|
(let ((org-src-preserve-indentation t))
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_EXAMPLE -n -k\n(+ 1 1)\n#+END_EXAMPLE"))))
|
2012-09-30 11:45:21 -04:00
|
|
|
|
;; Preserve code escaping.
|
|
|
|
|
|
(should
|
2018-01-24 06:56:25 -05:00
|
|
|
|
(equal
|
2018-02-04 04:04:17 -05:00
|
|
|
|
(let ((org-src-preserve-indentation t))
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_EXAMPLE\n,* Headline\n,#+KEYWORD: value\nText\n#+END_EXAMPLE"))
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin_example\n,* Headline\n,#+KEYWORD: value\nText\n#+end_example\n"))
|
2014-08-07 08:45:28 -04:00
|
|
|
|
;; Accept missing final newline in value.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin_example\nTest\n#+end_example\n"
|
2018-02-04 04:04:17 -05:00
|
|
|
|
(let ((org-src-preserve-indentation t))
|
|
|
|
|
|
(org-element-interpret-data '(example-block (:value "Test"))))))
|
|
|
|
|
|
;; Handle indentation.
|
|
|
|
|
|
(should (equal "#+begin_example\n Test\n#+end_example\n"
|
|
|
|
|
|
(let ((org-src-preserve-indentation nil)
|
|
|
|
|
|
(org-edit-src-content-indentation 2))
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_EXAMPLE\nTest\n#+END_EXAMPLE"))))
|
|
|
|
|
|
(should (equal "#+begin_example\n Test\n#+end_example\n"
|
|
|
|
|
|
(let ((org-src-preserve-indentation t)
|
|
|
|
|
|
(org-edit-src-content-indentation 2))
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_EXAMPLE\n Test\n#+END_EXAMPLE")))))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
2014-09-08 05:57:27 -04:00
|
|
|
|
(ert-deftest test-org-element/export-block-interpreter ()
|
|
|
|
|
|
"Test export block interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin_export HTML\nTest\n#+end_export")
|
|
|
|
|
|
"#+begin_export HTML\nTest\n#+end_export\n")))
|
2014-09-08 05:57:27 -04:00
|
|
|
|
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(ert-deftest test-org-element/fixed-width-interpreter ()
|
|
|
|
|
|
"Test fixed width interpreter."
|
2012-05-02 11:18:14 -04:00
|
|
|
|
;; Standard test.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret ": Test") ": Test\n"))
|
|
|
|
|
|
;; Preserve indentation.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret ": 2 blanks\n: 1 blank")
|
2013-04-26 04:38:05 -04:00
|
|
|
|
": 2 blanks\n: 1 blank\n"))
|
|
|
|
|
|
;; Handle empty string.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-element-fixed-width-interpreter
|
|
|
|
|
|
'(fixed-width (:value "")) nil)
|
2023-01-12 04:18:34 -05:00
|
|
|
|
":\n"))
|
2013-04-26 04:38:05 -04:00
|
|
|
|
;; Handle nil value.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-element-fixed-width-interpreter
|
|
|
|
|
|
'(fixed-width (:value nil)) nil)))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/horizontal-rule-interpreter ()
|
|
|
|
|
|
"Test horizontal rule interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "-------") "-----\n")))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/keyword-interpreter ()
|
|
|
|
|
|
"Test keyword interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "#+KEYWORD: value")
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+keyword: value\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/latex-environment-interpreter ()
|
|
|
|
|
|
"Test latex environment interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
2012-04-28 16:59:25 -04:00
|
|
|
|
"\\begin{equation}\n1+1=2\n\\end{equation}")
|
2013-04-28 03:34:42 -04:00
|
|
|
|
"\\begin{equation}\n1+1=2\n\\end{equation}\n"))
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
|
|
|
|
|
"\\begin{theorem}[me]\n1+1=2\n\\end{theorem}")
|
|
|
|
|
|
"\\begin{theorem}[me]\n1+1=2\n\\end{theorem}\n")))
|
2012-04-28 16:59:25 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/planning-interpreter ()
|
|
|
|
|
|
"Test planning interpreter."
|
2013-10-29 09:53:21 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match
|
|
|
|
|
|
"\\* Headline
|
2013-11-16 04:15:28 -05:00
|
|
|
|
DEADLINE: <2012-03-29 .*?> SCHEDULED: <2012-03-29 .*?> CLOSED: \\[2012-03-29 .*?\\]"
|
2013-10-29 09:53:21 -04:00
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"* Headline
|
|
|
|
|
|
DEADLINE: <2012-03-29 thu.> SCHEDULED: <2012-03-29 thu.> CLOSED: [2012-03-29 thu.]"))))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/property-drawer-interpreter ()
|
|
|
|
|
|
"Test property drawer interpreter."
|
|
|
|
|
|
(should (equal (let ((org-property-format "%-10s %s"))
|
|
|
|
|
|
(org-test-parse-and-interpret
|
2014-09-13 16:43:45 -04:00
|
|
|
|
"* H\n:PROPERTIES:\n:prop: value\n:END:"))
|
|
|
|
|
|
"* H\n:PROPERTIES:\n:prop: value\n:END:\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/src-block-interpreter ()
|
|
|
|
|
|
"Test src block interpreter."
|
2012-04-30 12:21:35 -04:00
|
|
|
|
;; With arguments.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should
|
2014-12-24 04:48:24 -05:00
|
|
|
|
(equal (let ((org-edit-src-content-indentation 2)
|
|
|
|
|
|
(org-src-preserve-indentation nil))
|
2012-06-07 15:41:59 -04:00
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_SRC emacs-lisp :results silent\n(+ 1 1)\n#+END_SRC"))
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin_src emacs-lisp :results silent\n (+ 1 1)\n#+end_src\n"))
|
2012-04-30 12:21:35 -04:00
|
|
|
|
;; With switches.
|
|
|
|
|
|
(should
|
2014-12-24 04:48:24 -05:00
|
|
|
|
(equal (let ((org-edit-src-content-indentation 2)
|
|
|
|
|
|
(org-src-preserve-indentation nil))
|
2012-06-07 15:41:59 -04:00
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_SRC emacs-lisp -n -k\n(+ 1 1)\n#+END_SRC"))
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin_src emacs-lisp -n -k\n (+ 1 1)\n#+end_src\n"))
|
2012-09-30 11:45:21 -04:00
|
|
|
|
;; Preserve code escaping.
|
|
|
|
|
|
(should
|
2018-01-24 06:56:25 -05:00
|
|
|
|
(equal
|
|
|
|
|
|
(let ((org-edit-src-content-indentation 2)
|
|
|
|
|
|
(org-src-preserve-indentation nil))
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_SRC org\n,* Headline\n,#+KEYWORD: value\nText\n#+END_SRC"))
|
|
|
|
|
|
"#+begin_src org\n ,* Headline\n ,#+KEYWORD: value\n Text\n#+end_src\n"))
|
2013-05-25 08:18:48 -04:00
|
|
|
|
;; Do not apply `org-edit-src-content-indentation' when preserving
|
|
|
|
|
|
;; indentation.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-edit-src-content-indentation 2)
|
|
|
|
|
|
(org-src-preserve-indentation t))
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"))
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin_src emacs-lisp\n(+ 1 1)\n#+end_src\n"))
|
2013-05-25 08:18:48 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal (let ((org-edit-src-content-indentation 2)
|
|
|
|
|
|
(org-src-preserve-indentation nil))
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"#+BEGIN_SRC emacs-lisp -i\n(+ 1 1)\n#+END_SRC"))
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin_src emacs-lisp -i\n(+ 1 1)\n#+end_src\n"))
|
2014-08-07 08:45:28 -04:00
|
|
|
|
;; Accept missing final newline in value.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin_src emacs-lisp\n Test\n#+end_src\n"
|
2014-12-24 04:48:24 -05:00
|
|
|
|
(let ((org-edit-src-content-indentation 2)
|
|
|
|
|
|
(org-src-preserve-indentation nil))
|
2014-08-07 08:45:28 -04:00
|
|
|
|
(org-element-interpret-data
|
|
|
|
|
|
'(src-block (:language "emacs-lisp" :value "Test")))))))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/table-interpreter ()
|
|
|
|
|
|
"Test table, table-row and table-cell interpreters."
|
|
|
|
|
|
;; 1. Simple table.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "| a | b |\n| c | d |")
|
|
|
|
|
|
"| a | b |\n| c | d |\n"))
|
2012-05-11 09:17:14 -04:00
|
|
|
|
;; 2. With horizontal rules.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
|
|
|
|
|
"| a | b |\n|---+---|\n| c | d |")
|
|
|
|
|
|
"| a | b |\n|---+---|\n| c | d |\n"))
|
2012-05-11 09:17:14 -04:00
|
|
|
|
;; 3. With meta-data.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "| / | < | > |\n| * | 1 | 2 |")
|
2012-05-05 13:57:37 -04:00
|
|
|
|
"| / | < | > |\n| * | 1 | 2 |\n"))
|
|
|
|
|
|
;; 4. With a formula.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret
|
|
|
|
|
|
"| 2 |\n| 4 |\n| 3 |\n#+TBLFM: @3=vmean(@1..@2)")
|
2012-05-11 09:17:14 -04:00
|
|
|
|
"| 2 |\n| 4 |\n| 3 |\n#+TBLFM: @3=vmean(@1..@2)\n"))
|
|
|
|
|
|
;; 5. With multiple formulas.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret
|
|
|
|
|
|
"| 2 |\n| 4 |\n| 3 |\n#+TBLFM: test1\n#+TBLFM: test2")
|
|
|
|
|
|
"| 2 |\n| 4 |\n| 3 |\n#+TBLFM: test1\n#+TBLFM: test2\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
2012-07-17 10:33:45 -04:00
|
|
|
|
(ert-deftest test-org-element/timestamp-interpreter ()
|
|
|
|
|
|
"Test timestamp interpreter."
|
|
|
|
|
|
;; Active.
|
2013-11-16 04:15:28 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match "<2012-03-29 .* 16:40>"
|
|
|
|
|
|
(org-test-parse-and-interpret "<2012-03-29 thu. 16:40>")))
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match "<2012-03-29 .* 16:40>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:type active :year-start 2012 :month-start 3 :day-start 29
|
|
|
|
|
|
:hour-start 16 :minute-start 40)) nil)))
|
2023-02-18 02:55:39 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match
|
|
|
|
|
|
"<2012-03-29 .* 16:40>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:type active :year-start 2012 :month-start 3 :day-start 29
|
|
|
|
|
|
:hour-start 16 :minute-start 40 :year-end 2012 :month-end 3
|
|
|
|
|
|
:day-end 29 :hour-end 16 :minute-end 40)) nil)))
|
2012-07-17 10:33:45 -04:00
|
|
|
|
;; Inactive.
|
2013-11-16 04:15:28 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match "\\[2012-03-29 .* 16:40\\]"
|
|
|
|
|
|
(org-test-parse-and-interpret "[2012-03-29 thu. 16:40]")))
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match
|
|
|
|
|
|
"\\[2012-03-29 .* 16:40\\]"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:type inactive :year-start 2012 :month-start 3 :day-start 29
|
|
|
|
|
|
:hour-start 16 :minute-start 40)) nil)))
|
2023-02-18 02:55:39 -05:00
|
|
|
|
;; Active daterange.
|
2013-11-16 04:15:28 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match "<2012-03-29 .* 16:40>--<2012-03-29 .* 16:41>"
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"<2012-03-29 thu. 16:40>--<2012-03-29 thu. 16:41>")))
|
2023-02-18 02:55:39 -05:00
|
|
|
|
;;; No end time, dates are not equal
|
|
|
|
|
|
(should
|
|
|
|
|
|
;; Expected result: "<2012-03-29 Thu 16:40>--<2012-03-30 Fri>"
|
|
|
|
|
|
(string=
|
|
|
|
|
|
(format
|
|
|
|
|
|
"<%s>--<%s>"
|
|
|
|
|
|
(format-time-string (cdr org-time-stamp-formats) (org-encode-time 0 40 16 29 03 2012))
|
|
|
|
|
|
(format-time-string (car org-time-stamp-formats) (org-encode-time 0 0 0 30 03 2012)))
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:type active-range :year-start 2012 :month-start 3 :day-start 29
|
|
|
|
|
|
:hour-start 16 :minute-start 40 :year-end 2012 :month-end 3
|
|
|
|
|
|
:day-end 30)) nil)))
|
|
|
|
|
|
;;; No start time, dates are not equal
|
|
|
|
|
|
(should
|
|
|
|
|
|
;; Expected result: "<2012-03-29 Thu>--<2012-03-30 Fri 16:40>"
|
|
|
|
|
|
(string=
|
|
|
|
|
|
(format
|
|
|
|
|
|
"<%s>--<%s>"
|
|
|
|
|
|
(format-time-string (car org-time-stamp-formats) (org-encode-time 0 0 0 29 03 2012))
|
|
|
|
|
|
(format-time-string (cdr org-time-stamp-formats) (org-encode-time 0 40 16 30 03 2012)))
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:type active-range :year-start 2012 :month-start 3 :day-start 29
|
|
|
|
|
|
:hour-end 16 :minute-end 40 :year-end 2012 :month-end 3
|
|
|
|
|
|
:day-end 30)) nil)))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(string-match
|
|
|
|
|
|
"<2012-03-29 .* 16:40>--<2012-03-29 .* 16:40>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:type active-range :year-start 2012 :month-start 3 :day-start 29
|
|
|
|
|
|
:hour-start 16 :minute-start 40 :year-end 2012 :month-end 3
|
|
|
|
|
|
:day-end 29 :hour-end 16 :minute-end 40)) nil)))
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match
|
|
|
|
|
|
"<2012-03-29 .* 16:40>--<2012-03-29 .* 16:41>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:type active-range :year-start 2012 :month-start 3 :day-start 29
|
|
|
|
|
|
:hour-start 16 :minute-start 40 :year-end 2012 :month-end 3
|
|
|
|
|
|
:day-end 29 :hour-end 16 :minute-end 41)) nil)))
|
2023-02-18 02:55:39 -05:00
|
|
|
|
;; Inactive daterange.
|
2013-11-16 04:15:28 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match "\\[2012-03-29 .* 16:40\\]--\\[2012-03-29 .* 16:41\\]"
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"[2012-03-29 thu. 16:40]--[2012-03-29 thu. 16:41]")))
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match
|
|
|
|
|
|
"\\[2012-03-29 .* 16:40\\]--\\[2012-03-29 .* 16:41\\]"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:type inactive-range :year-start 2012 :month-start 3 :day-start 29
|
|
|
|
|
|
:hour-start 16 :minute-start 40 :year-end 2012 :month-end 3
|
|
|
|
|
|
:day-end 29 :hour-end 16 :minute-end 41)) nil)))
|
2023-02-18 02:55:39 -05:00
|
|
|
|
;; Active timerange
|
|
|
|
|
|
(should
|
|
|
|
|
|
(string-match "<2012-03-29 .* 16:40-16:41>"
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"<2012-03-29 thu. 16:40-16:41>")))
|
2012-07-17 10:33:45 -04:00
|
|
|
|
;; Diary.
|
2013-01-07 07:01:36 -05:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "<%%diary-float t 4 2>")
|
|
|
|
|
|
"<%%diary-float t 4 2>\n"))
|
2013-10-13 12:13:35 -04:00
|
|
|
|
;; Timestamp with repeater interval, with delay, with both.
|
2013-11-16 04:15:28 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match "<2012-03-29 .* \\+1y>"
|
|
|
|
|
|
(org-test-parse-and-interpret "<2012-03-29 thu. +1y>")))
|
2012-09-28 08:50:21 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match
|
|
|
|
|
|
"<2012-03-29 .* \\+1y>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:type active :year-start 2012 :month-start 3 :day-start 29
|
2012-11-24 19:03:51 -05:00
|
|
|
|
:repeater-type cumulate :repeater-value 1 :repeater-unit year))
|
2013-01-10 07:57:37 -05:00
|
|
|
|
nil)))
|
2013-10-13 12:13:35 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match
|
|
|
|
|
|
"<2012-03-29 .* -1y>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:type active :year-start 2012 :month-start 3 :day-start 29
|
|
|
|
|
|
:warning-type all :warning-value 1 :warning-unit year))
|
|
|
|
|
|
nil)))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(string-match
|
|
|
|
|
|
"<2012-03-29 .* \\+1y -1y>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:type active :year-start 2012 :month-start 3 :day-start 29
|
|
|
|
|
|
:warning-type all :warning-value 1 :warning-unit year
|
|
|
|
|
|
:repeater-type cumulate :repeater-value 1 :repeater-unit year))
|
|
|
|
|
|
nil)))
|
2013-01-10 07:57:37 -05:00
|
|
|
|
;; Timestamp range with repeater interval
|
2013-11-16 04:15:28 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match "<2012-03-29 .* \\+1y>--<2012-03-30 .* \\+1y>"
|
|
|
|
|
|
(org-test-parse-and-interpret
|
|
|
|
|
|
"<2012-03-29 Thu +1y>--<2012-03-30 Thu +1y>")))
|
2013-01-10 07:57:37 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(string-match
|
|
|
|
|
|
"<2012-03-29 .* \\+1y>--<2012-03-30 .* \\+1y>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:type active-range :year-start 2012 :month-start 3 :day-start 29
|
|
|
|
|
|
:year-end 2012 :month-end 3 :day-end 30 :repeater-type cumulate
|
|
|
|
|
|
:repeater-value 1 :repeater-unit year))
|
2023-02-18 02:55:39 -05:00
|
|
|
|
nil)))
|
|
|
|
|
|
;; Tests for :range-type property
|
|
|
|
|
|
;;; Errors
|
|
|
|
|
|
(should-error
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:range-type timerange
|
|
|
|
|
|
:type active
|
|
|
|
|
|
:year-start 2023 :month-start 7 :day-start 10
|
|
|
|
|
|
:year-end 2023 :month-end 7 :day-end 10
|
|
|
|
|
|
:hour-start 17 :minute-start 30
|
|
|
|
|
|
:hour-end 17 :minute-end 30))
|
|
|
|
|
|
nil))
|
|
|
|
|
|
(should-error
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:range-type daterange
|
|
|
|
|
|
:type active :year-start 2023 :month-start 7 :day-start 10
|
|
|
|
|
|
:hour-start 17 :minute-start 30)) nil))
|
|
|
|
|
|
(should-error
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:range-type timerange
|
|
|
|
|
|
:type inactive
|
|
|
|
|
|
:year-start 2023 :month-start 7 :day-start 10
|
|
|
|
|
|
:year-end 2023 :month-end 7 :day-end 10
|
|
|
|
|
|
:hour-start 17 :minute-start 30
|
|
|
|
|
|
:hour-end 17 :minute-end 30))
|
|
|
|
|
|
nil))
|
|
|
|
|
|
(should-error
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:range-type daterange
|
|
|
|
|
|
:type inactive :year-start 2023 :month-start 7 :day-start 10
|
|
|
|
|
|
:hour-start 17 :minute-start 30)) nil))
|
|
|
|
|
|
|
|
|
|
|
|
;;; End part is nil
|
|
|
|
|
|
(should
|
|
|
|
|
|
;; Expected result: "<2023-07-10 Mon>--<2023-07-10 Mon>"
|
|
|
|
|
|
(string=
|
|
|
|
|
|
(format
|
|
|
|
|
|
"<%s>--<%s>"
|
|
|
|
|
|
(format-time-string (car org-time-stamp-formats) (org-encode-time 0 0 0 10 7 2023))
|
|
|
|
|
|
(format-time-string (car org-time-stamp-formats) (org-encode-time 0 0 0 10 7 2023)))
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:range-type daterange
|
|
|
|
|
|
:type active-range :year-start 2023 :month-start 7 :day-start 10)) nil)))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(string-match "<2023-07-10 .* 17:30-17:30>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:range-type timerange
|
|
|
|
|
|
:type active-range :year-start 2023 :month-start 7 :day-start 10
|
|
|
|
|
|
:hour-start 17 :minute-start 30)) nil)))
|
|
|
|
|
|
(should
|
|
|
|
|
|
;; Expected result: "<2023-07-10 Mon 17:30>--<2023-07-10 Mon>"
|
|
|
|
|
|
(string=
|
|
|
|
|
|
(format
|
|
|
|
|
|
"<%s>--<%s>"
|
|
|
|
|
|
(format-time-string (cdr org-time-stamp-formats) (org-encode-time 0 30 17 10 7 2023))
|
|
|
|
|
|
(format-time-string (car org-time-stamp-formats) (org-encode-time 0 0 0 10 7 2023)))
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:range-type daterange
|
|
|
|
|
|
:type active-range :year-start 2023 :month-start 7 :day-start 10
|
|
|
|
|
|
:hour-start 17 :minute-start 30)) nil)))
|
|
|
|
|
|
;;; End is equal to start
|
|
|
|
|
|
(should
|
|
|
|
|
|
(string-match "<2023-07-10 .* 17:30-17:30>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:range-type timerange
|
|
|
|
|
|
:type active-range
|
|
|
|
|
|
:year-start 2023 :month-start 7 :day-start 10
|
|
|
|
|
|
:year-end 2023 :month-end 7 :day-end 10
|
|
|
|
|
|
:hour-start 17 :minute-start 30
|
|
|
|
|
|
:hour-end 17 :minute-end 30)) nil)))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(string-match "<2023-07-10 .* 17:30>--<2023-07-10 .* 17:30>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:range-type daterange
|
|
|
|
|
|
:type active-range
|
|
|
|
|
|
:year-start 2023 :month-start 7 :day-start 10
|
|
|
|
|
|
:year-end 2023 :month-end 7 :day-end 10
|
|
|
|
|
|
:hour-start 17 :minute-start 30
|
|
|
|
|
|
:hour-end 17 :minute-end 30)) nil)))
|
|
|
|
|
|
;;;; End date is not equal to start date, but interpret the object as a timerange (:range-type 'timerange)
|
|
|
|
|
|
(should
|
|
|
|
|
|
(string-match "<2023-07-10 .* 17:30-18:30>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:range-type timerange
|
|
|
|
|
|
:type active-range
|
|
|
|
|
|
:year-start 2023 :month-start 7 :day-start 10
|
|
|
|
|
|
:year-end 2023 :month-end 8 :day-end 10
|
|
|
|
|
|
:hour-start 17 :minute-start 30
|
|
|
|
|
|
:hour-end 18 :minute-end 30)) nil)))
|
|
|
|
|
|
;;;; End date is not equal to start date, interpret the object as a daterange (:range-type 'daterange)
|
|
|
|
|
|
(should
|
|
|
|
|
|
(string-match "<2023-07-10 .* 17:30>--<2023-08-10 .* 18:30>"
|
|
|
|
|
|
(org-element-timestamp-interpreter
|
|
|
|
|
|
'(timestamp
|
|
|
|
|
|
(:range-type daterange
|
|
|
|
|
|
:type active-range
|
|
|
|
|
|
:year-start 2023 :month-start 7 :day-start 10
|
|
|
|
|
|
:year-end 2023 :month-end 8 :day-end 10
|
|
|
|
|
|
:hour-start 17 :minute-start 30
|
|
|
|
|
|
:hour-end 18 :minute-end 30)) nil))))
|
2012-07-17 10:33:45 -04:00
|
|
|
|
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(ert-deftest test-org-element/verse-block-interpreter ()
|
|
|
|
|
|
"Test verse block interpretation."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "#+BEGIN_VERSE\nTest\n#+END_VERSE")
|
2018-01-24 06:56:25 -05:00
|
|
|
|
"#+begin_verse\nTest\n#+end_verse\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
org-element: Define new objects (bold, code, italic, ...)
* contrib/lisp/org-e-ascii.el (org-e-ascii-option-alist): Fix typo.
(org-e-ascii-bold, org-e-ascii-code, org-e-ascii-strike-through,
org-e-ascii-underline): New functions.
(org-e-ascii-emphasis): Remove function.
* contrib/lisp/org-e-html.el (org-e-html-text-markup-alist): Variable
renamed from `org-e-html-emphasis-alist'. Change value type.
(org-e-html-bold, org-e-html-italic, org-e-html-strike-through,
org-e-html-underline): New functions.
(org-e-html-verbatim): Update function.
(org-e-html-emphasis): Remove function.
* contrib/lisp/org-e-latex.el (org-e-latex-text-markup-alist):
Variable renamed from `org-e-latex-emphasis-alist'. Change value
type.
(org-e-latex-center-block): Fix docstring.
(org-e-latex--text-markup, org-e-latex-bold, org-e-latex-code,
org-e-latex-italic, org-e-latex-strike-through,
org-e-latex-underline): New functions.
(org-e-latex-verbatim): Update function.
(org-e-latex-emphasis): Remove function.
* contrib/lisp/org-e-odt.el (org-e-odt-bold, org-e-odt-code,
org-e-odt-italic, org-e-odt-strike-through, org-e-odt-underline):
New functions.
(org-e-odt-verbatim): Update function.
(org-e-odt-center-block): Fix docstring.
(org-e-odt-emphasis): Remove function.
* contrib/lisp/org-element.el (org-element-bold-parser):
(org-element-bold-interpreter, org-element-code-parser,
org-element-code-interpreter, org-element-italic-parser,
org-element-italic-interpreter, org-element-strike-through-parser,
org-element-strike-through-interpreter, org-element-underline-parser,
org-element-underline-interpreter): New functions.
(org-element-emphasis-parser, org-element-emphasis-interpreter):
Remove functions.
(org-element-verbatim-parser, org-element-verbatim-interpreter,
org-element-text-markup-successor): Update function.
(org-element-object-successor-alist): Add associations for new object
types.
(org-element-recursive-objects): Add `bold', `italic',
`strike-through' and `underline' as recursive types.
(org-element-object-restrictions): Add restrictions for new recursive
object types.
* contrib/lisp/org-export.el (org-export-filters-alist): Add filters
for new object types.
(org-export-with-todo-keywords): Add missing keywords.
(org-export-filter-center-block-functions,
org-export-filter-drawer-functions,
org-export-filter-dynamic-block-functions,
org-export-filter-headline-functions,
org-export-filter-inlinetask-functions,
org-export-filter-plain-list-functions,
org-export-filter-item-functions, org-export-filter-comment-functions,
org-export-filter-comment-block-functions,
org-export-filter-example-block-functions,
org-export-filter-export-block-functions,
org-export-filter-fixed-width-functions,
org-export-filter-footnote-definition-functions,
org-export-filter-horizontal-rule-functions,
org-export-filter-keyword-functions,
org-export-filter-latex-environment-functions,
org-export-filter-babel-call-functions,
org-export-filter-paragraph-functions,
org-export-filter-property-drawer-functions,
org-export-filter-quote-section-functions,
org-export-filter-quote-block-functions,
org-export-filter-section-functions,
org-export-filter-special-block-functions,
org-export-filter-src-block-functions,
org-export-filter-table-functions,
org-export-filter-table-cell-functions,
org-export-filter-table-row-functions,
org-export-filter-verse-block-functions,
org-export-filter-entity-functions,
org-export-filter-export-snippet-functions,
org-export-filter-footnote-reference-functions,
org-export-filter-inline-babel-call-functions,
org-export-filter-inline-src-block-functions,
org-export-filter-latex-fragment-functions,
org-export-filter-line-break-functions,
org-export-filter-link-functions, org-export-filter-macro-functions,
org-export-filter-radio-target-functions,
org-export-filter-statistics-cookie-functions,
org-export-filter-subscript-functions,
org-export-filter-superscript-functions,
org-export-filter-target-functions,
org-export-filter-time-stamp-functions,
org-export-filter-verbatim-functions): Fix docstring.
(org-export-filter-bold-functions, org-export-filter-code-functions,
org-export-filter-italic-functions,
org-export-filter-strike-through-functions,
org-export-filter-underline-functions): New variables.
(org-export-filter-emphasis-functions): Remove variable.
* testing/lisp/test-org-element.el: Add tests.
2012-04-28 12:00:50 -04:00
|
|
|
|
(ert-deftest test-org-element/bold-interpreter ()
|
|
|
|
|
|
"Test bold interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "*text*") "*text*\n")))
|
|
|
|
|
|
|
2020-04-25 10:39:40 -04:00
|
|
|
|
(ert-deftest test-org-element/citation-interpreter ()
|
|
|
|
|
|
"Test citation interpreter."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "[cite:@key]\n"
|
|
|
|
|
|
(org-test-parse-and-interpret "[cite:@key]")))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "[cite:-@key]\n"
|
|
|
|
|
|
(org-test-parse-and-interpret "[cite:-@key]")))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "[cite/style:@key]\n"
|
|
|
|
|
|
(org-test-parse-and-interpret "[cite/style:@key]")))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "[cite:pre @key]\n"
|
|
|
|
|
|
(org-test-parse-and-interpret "[cite:pre @key]")))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "[cite:@key post]\n"
|
|
|
|
|
|
(org-test-parse-and-interpret "[cite:@key post]")))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "[cite:@a ;b]\n"
|
|
|
|
|
|
(org-test-parse-and-interpret "[cite: @a ;b]")))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "[cite:@a;@b;@c]\n"
|
|
|
|
|
|
(org-test-parse-and-interpret "[cite:@a;@b;@c]")))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "[cite:common-pre ; @a]\n"
|
|
|
|
|
|
(org-test-parse-and-interpret "[cite:common-pre ; @a]")))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "[cite:@a ; common-post]\n"
|
|
|
|
|
|
(org-test-parse-and-interpret "[cite:@a ; common-post]"))))
|
|
|
|
|
|
|
org-element: Define new objects (bold, code, italic, ...)
* contrib/lisp/org-e-ascii.el (org-e-ascii-option-alist): Fix typo.
(org-e-ascii-bold, org-e-ascii-code, org-e-ascii-strike-through,
org-e-ascii-underline): New functions.
(org-e-ascii-emphasis): Remove function.
* contrib/lisp/org-e-html.el (org-e-html-text-markup-alist): Variable
renamed from `org-e-html-emphasis-alist'. Change value type.
(org-e-html-bold, org-e-html-italic, org-e-html-strike-through,
org-e-html-underline): New functions.
(org-e-html-verbatim): Update function.
(org-e-html-emphasis): Remove function.
* contrib/lisp/org-e-latex.el (org-e-latex-text-markup-alist):
Variable renamed from `org-e-latex-emphasis-alist'. Change value
type.
(org-e-latex-center-block): Fix docstring.
(org-e-latex--text-markup, org-e-latex-bold, org-e-latex-code,
org-e-latex-italic, org-e-latex-strike-through,
org-e-latex-underline): New functions.
(org-e-latex-verbatim): Update function.
(org-e-latex-emphasis): Remove function.
* contrib/lisp/org-e-odt.el (org-e-odt-bold, org-e-odt-code,
org-e-odt-italic, org-e-odt-strike-through, org-e-odt-underline):
New functions.
(org-e-odt-verbatim): Update function.
(org-e-odt-center-block): Fix docstring.
(org-e-odt-emphasis): Remove function.
* contrib/lisp/org-element.el (org-element-bold-parser):
(org-element-bold-interpreter, org-element-code-parser,
org-element-code-interpreter, org-element-italic-parser,
org-element-italic-interpreter, org-element-strike-through-parser,
org-element-strike-through-interpreter, org-element-underline-parser,
org-element-underline-interpreter): New functions.
(org-element-emphasis-parser, org-element-emphasis-interpreter):
Remove functions.
(org-element-verbatim-parser, org-element-verbatim-interpreter,
org-element-text-markup-successor): Update function.
(org-element-object-successor-alist): Add associations for new object
types.
(org-element-recursive-objects): Add `bold', `italic',
`strike-through' and `underline' as recursive types.
(org-element-object-restrictions): Add restrictions for new recursive
object types.
* contrib/lisp/org-export.el (org-export-filters-alist): Add filters
for new object types.
(org-export-with-todo-keywords): Add missing keywords.
(org-export-filter-center-block-functions,
org-export-filter-drawer-functions,
org-export-filter-dynamic-block-functions,
org-export-filter-headline-functions,
org-export-filter-inlinetask-functions,
org-export-filter-plain-list-functions,
org-export-filter-item-functions, org-export-filter-comment-functions,
org-export-filter-comment-block-functions,
org-export-filter-example-block-functions,
org-export-filter-export-block-functions,
org-export-filter-fixed-width-functions,
org-export-filter-footnote-definition-functions,
org-export-filter-horizontal-rule-functions,
org-export-filter-keyword-functions,
org-export-filter-latex-environment-functions,
org-export-filter-babel-call-functions,
org-export-filter-paragraph-functions,
org-export-filter-property-drawer-functions,
org-export-filter-quote-section-functions,
org-export-filter-quote-block-functions,
org-export-filter-section-functions,
org-export-filter-special-block-functions,
org-export-filter-src-block-functions,
org-export-filter-table-functions,
org-export-filter-table-cell-functions,
org-export-filter-table-row-functions,
org-export-filter-verse-block-functions,
org-export-filter-entity-functions,
org-export-filter-export-snippet-functions,
org-export-filter-footnote-reference-functions,
org-export-filter-inline-babel-call-functions,
org-export-filter-inline-src-block-functions,
org-export-filter-latex-fragment-functions,
org-export-filter-line-break-functions,
org-export-filter-link-functions, org-export-filter-macro-functions,
org-export-filter-radio-target-functions,
org-export-filter-statistics-cookie-functions,
org-export-filter-subscript-functions,
org-export-filter-superscript-functions,
org-export-filter-target-functions,
org-export-filter-time-stamp-functions,
org-export-filter-verbatim-functions): Fix docstring.
(org-export-filter-bold-functions, org-export-filter-code-functions,
org-export-filter-italic-functions,
org-export-filter-strike-through-functions,
org-export-filter-underline-functions): New variables.
(org-export-filter-emphasis-functions): Remove variable.
* testing/lisp/test-org-element.el: Add tests.
2012-04-28 12:00:50 -04:00
|
|
|
|
(ert-deftest test-org-element/code-interpreter ()
|
|
|
|
|
|
"Test code interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "~text~") "~text~\n")))
|
|
|
|
|
|
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(ert-deftest test-org-element/entity-interpreter ()
|
|
|
|
|
|
"Test entity interpreter."
|
|
|
|
|
|
;; 1. Without brackets.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "\\alpha text") "\\alpha text\n"))
|
|
|
|
|
|
;; 2. With brackets.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "\\alpha{}text") "\\alpha{}text\n")))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/export-snippet-interpreter ()
|
|
|
|
|
|
"Test export snippet interpreter."
|
2023-04-20 08:11:19 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "@@backend:contents@@")
|
|
|
|
|
|
"@@backend:contents@@\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/footnote-reference-interpreter ()
|
|
|
|
|
|
"Test footnote reference interpreter."
|
2015-12-16 12:22:27 -05:00
|
|
|
|
;; Regular reference.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "Text[fn:1]") "Text[fn:1]\n"))
|
2015-12-16 12:22:27 -05:00
|
|
|
|
;; Named reference.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "Text[fn:label]")
|
|
|
|
|
|
"Text[fn:label]\n"))
|
2015-12-16 12:22:27 -05:00
|
|
|
|
;; Inline reference.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "Text[fn:label:def]")
|
|
|
|
|
|
"Text[fn:label:def]\n"))
|
2015-12-16 12:22:27 -05:00
|
|
|
|
;; Anonymous reference.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "Text[fn::def]")
|
|
|
|
|
|
"Text[fn::def]\n")))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/inline-babel-call-interpreter ()
|
|
|
|
|
|
"Test inline babel call interpreter."
|
2015-04-21 05:54:22 -04:00
|
|
|
|
;; Without arguments.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "call_test()") "call_test()\n"))
|
2015-04-21 05:54:22 -04:00
|
|
|
|
;; With arguments.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "call_test(x=2)")
|
|
|
|
|
|
"call_test(x=2)\n"))
|
2015-04-21 05:54:22 -04:00
|
|
|
|
;; With header arguments.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
|
|
|
|
|
"call_test[:results output]()[:results html]")
|
|
|
|
|
|
"call_test[:results output]()[:results html]\n")))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/inline-src-block-interpreter ()
|
|
|
|
|
|
"Test inline src block interpreter."
|
|
|
|
|
|
;; 1. Without header argument.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "src_emacs-lisp{(+ 1 1)}")
|
|
|
|
|
|
"src_emacs-lisp{(+ 1 1)}\n"))
|
|
|
|
|
|
;; 2. With header arguments.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
|
|
|
|
|
"src_emacs-lisp[:results silent]{(+ 1 1)}")
|
|
|
|
|
|
"src_emacs-lisp[:results silent]{(+ 1 1)}\n")))
|
|
|
|
|
|
|
org-element: Define new objects (bold, code, italic, ...)
* contrib/lisp/org-e-ascii.el (org-e-ascii-option-alist): Fix typo.
(org-e-ascii-bold, org-e-ascii-code, org-e-ascii-strike-through,
org-e-ascii-underline): New functions.
(org-e-ascii-emphasis): Remove function.
* contrib/lisp/org-e-html.el (org-e-html-text-markup-alist): Variable
renamed from `org-e-html-emphasis-alist'. Change value type.
(org-e-html-bold, org-e-html-italic, org-e-html-strike-through,
org-e-html-underline): New functions.
(org-e-html-verbatim): Update function.
(org-e-html-emphasis): Remove function.
* contrib/lisp/org-e-latex.el (org-e-latex-text-markup-alist):
Variable renamed from `org-e-latex-emphasis-alist'. Change value
type.
(org-e-latex-center-block): Fix docstring.
(org-e-latex--text-markup, org-e-latex-bold, org-e-latex-code,
org-e-latex-italic, org-e-latex-strike-through,
org-e-latex-underline): New functions.
(org-e-latex-verbatim): Update function.
(org-e-latex-emphasis): Remove function.
* contrib/lisp/org-e-odt.el (org-e-odt-bold, org-e-odt-code,
org-e-odt-italic, org-e-odt-strike-through, org-e-odt-underline):
New functions.
(org-e-odt-verbatim): Update function.
(org-e-odt-center-block): Fix docstring.
(org-e-odt-emphasis): Remove function.
* contrib/lisp/org-element.el (org-element-bold-parser):
(org-element-bold-interpreter, org-element-code-parser,
org-element-code-interpreter, org-element-italic-parser,
org-element-italic-interpreter, org-element-strike-through-parser,
org-element-strike-through-interpreter, org-element-underline-parser,
org-element-underline-interpreter): New functions.
(org-element-emphasis-parser, org-element-emphasis-interpreter):
Remove functions.
(org-element-verbatim-parser, org-element-verbatim-interpreter,
org-element-text-markup-successor): Update function.
(org-element-object-successor-alist): Add associations for new object
types.
(org-element-recursive-objects): Add `bold', `italic',
`strike-through' and `underline' as recursive types.
(org-element-object-restrictions): Add restrictions for new recursive
object types.
* contrib/lisp/org-export.el (org-export-filters-alist): Add filters
for new object types.
(org-export-with-todo-keywords): Add missing keywords.
(org-export-filter-center-block-functions,
org-export-filter-drawer-functions,
org-export-filter-dynamic-block-functions,
org-export-filter-headline-functions,
org-export-filter-inlinetask-functions,
org-export-filter-plain-list-functions,
org-export-filter-item-functions, org-export-filter-comment-functions,
org-export-filter-comment-block-functions,
org-export-filter-example-block-functions,
org-export-filter-export-block-functions,
org-export-filter-fixed-width-functions,
org-export-filter-footnote-definition-functions,
org-export-filter-horizontal-rule-functions,
org-export-filter-keyword-functions,
org-export-filter-latex-environment-functions,
org-export-filter-babel-call-functions,
org-export-filter-paragraph-functions,
org-export-filter-property-drawer-functions,
org-export-filter-quote-section-functions,
org-export-filter-quote-block-functions,
org-export-filter-section-functions,
org-export-filter-special-block-functions,
org-export-filter-src-block-functions,
org-export-filter-table-functions,
org-export-filter-table-cell-functions,
org-export-filter-table-row-functions,
org-export-filter-verse-block-functions,
org-export-filter-entity-functions,
org-export-filter-export-snippet-functions,
org-export-filter-footnote-reference-functions,
org-export-filter-inline-babel-call-functions,
org-export-filter-inline-src-block-functions,
org-export-filter-latex-fragment-functions,
org-export-filter-line-break-functions,
org-export-filter-link-functions, org-export-filter-macro-functions,
org-export-filter-radio-target-functions,
org-export-filter-statistics-cookie-functions,
org-export-filter-subscript-functions,
org-export-filter-superscript-functions,
org-export-filter-target-functions,
org-export-filter-time-stamp-functions,
org-export-filter-verbatim-functions): Fix docstring.
(org-export-filter-bold-functions, org-export-filter-code-functions,
org-export-filter-italic-functions,
org-export-filter-strike-through-functions,
org-export-filter-underline-functions): New variables.
(org-export-filter-emphasis-functions): Remove variable.
* testing/lisp/test-org-element.el: Add tests.
2012-04-28 12:00:50 -04:00
|
|
|
|
(ert-deftest test-org-element/italic-interpreter ()
|
|
|
|
|
|
"Test italic interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "/text/") "/text/\n")))
|
|
|
|
|
|
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(ert-deftest test-org-element/latex-fragment-interpreter ()
|
|
|
|
|
|
"Test latex fragment interpreter."
|
2013-10-29 09:53:21 -04:00
|
|
|
|
(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")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/line-break-interpreter ()
|
|
|
|
|
|
"Test line break interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "First line \\\\ \nSecond line")
|
|
|
|
|
|
"First line \\\\\nSecond line\n")))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/link-interpreter ()
|
|
|
|
|
|
"Test link interpreter."
|
2015-08-19 09:12:57 -04:00
|
|
|
|
;; Links targeted from a radio target.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (let ((org-target-link-regexp "radio-target"))
|
|
|
|
|
|
(org-test-parse-and-interpret "a radio-target"))
|
|
|
|
|
|
"a radio-target\n"))
|
2015-08-19 09:12:57 -04:00
|
|
|
|
;; Links without description.
|
2018-01-16 13:42:57 -05:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "[[https://orgmode.org]]")
|
|
|
|
|
|
"[[https://orgmode.org]]\n"))
|
2016-10-08 18:26:45 -04:00
|
|
|
|
;; Links with a description, even one containing a link.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
2018-01-16 13:42:57 -05:00
|
|
|
|
"[[https://orgmode.org][Org mode]]")
|
|
|
|
|
|
"[[https://orgmode.org][Org mode]]\n"))
|
2016-10-08 18:26:45 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret
|
2018-01-16 13:42:57 -05:00
|
|
|
|
"[[https://orgmode.org][https://orgmode.org]]")
|
|
|
|
|
|
"[[https://orgmode.org][https://orgmode.org]]\n"))
|
2015-08-19 09:12:57 -04:00
|
|
|
|
;; File links.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "[[file+emacs:todo.org]]")
|
|
|
|
|
|
"[[file+emacs:todo.org]]\n"))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "[[file:todo.org::*task]]")
|
|
|
|
|
|
"[[file:todo.org::*task]]\n"))
|
2023-12-29 09:44:10 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-test-parse-and-interpret "[[/tmp/todo.org::*task]]")
|
|
|
|
|
|
"[[/tmp/todo.org::*task]]\n"))
|
2015-08-19 09:12:57 -04:00
|
|
|
|
;; Id links.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "[[id:aaaa]]") "[[id:aaaa]]\n"))
|
2015-08-19 09:12:57 -04:00
|
|
|
|
;; Custom-id links.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "[[#id]]") "[[#id]]\n"))
|
2015-08-19 09:12:57 -04:00
|
|
|
|
;; Code-ref links.
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "[[(ref)]]") "[[(ref)]]\n"))
|
2016-10-08 18:26:45 -04:00
|
|
|
|
;; Plain links.
|
2018-01-16 13:42:57 -05:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "https://orgmode.org")
|
|
|
|
|
|
"https://orgmode.org\n"))
|
2016-10-08 18:26:45 -04:00
|
|
|
|
;; Angular links.
|
2018-01-16 13:42:57 -05:00
|
|
|
|
(should (equal (org-test-parse-and-interpret "<https://orgmode.org>")
|
|
|
|
|
|
"<https://orgmode.org>\n"))
|
2016-10-24 17:56:34 -04:00
|
|
|
|
;; Pathological case: link with a %-sign in description.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "[[file://path][%s]]")
|
|
|
|
|
|
"[[file://path][%s]]\n")))
|
2012-04-27 11:16:17 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/macro-interpreter ()
|
|
|
|
|
|
"Test macro interpreter."
|
|
|
|
|
|
;; 1. Without argument.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "{{{test}}}") "{{{test}}}\n"))
|
|
|
|
|
|
;; 2. With arguments.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "{{{test(arg1,arg2)}}}")
|
|
|
|
|
|
"{{{test(arg1,arg2)}}}\n")))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/radio-target-interpreter ()
|
|
|
|
|
|
"Test radio target interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "<<<some text>>>")
|
|
|
|
|
|
"<<<some text>>>\n")))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/statistics-cookie-interpreter ()
|
|
|
|
|
|
"Test statistics cookie interpreter."
|
|
|
|
|
|
;; 1. Without percent
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "[0/1]") "[0/1]\n"))
|
|
|
|
|
|
;; 2. With percent.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "[66%]") "[66%]\n")))
|
|
|
|
|
|
|
org-element: Define new objects (bold, code, italic, ...)
* contrib/lisp/org-e-ascii.el (org-e-ascii-option-alist): Fix typo.
(org-e-ascii-bold, org-e-ascii-code, org-e-ascii-strike-through,
org-e-ascii-underline): New functions.
(org-e-ascii-emphasis): Remove function.
* contrib/lisp/org-e-html.el (org-e-html-text-markup-alist): Variable
renamed from `org-e-html-emphasis-alist'. Change value type.
(org-e-html-bold, org-e-html-italic, org-e-html-strike-through,
org-e-html-underline): New functions.
(org-e-html-verbatim): Update function.
(org-e-html-emphasis): Remove function.
* contrib/lisp/org-e-latex.el (org-e-latex-text-markup-alist):
Variable renamed from `org-e-latex-emphasis-alist'. Change value
type.
(org-e-latex-center-block): Fix docstring.
(org-e-latex--text-markup, org-e-latex-bold, org-e-latex-code,
org-e-latex-italic, org-e-latex-strike-through,
org-e-latex-underline): New functions.
(org-e-latex-verbatim): Update function.
(org-e-latex-emphasis): Remove function.
* contrib/lisp/org-e-odt.el (org-e-odt-bold, org-e-odt-code,
org-e-odt-italic, org-e-odt-strike-through, org-e-odt-underline):
New functions.
(org-e-odt-verbatim): Update function.
(org-e-odt-center-block): Fix docstring.
(org-e-odt-emphasis): Remove function.
* contrib/lisp/org-element.el (org-element-bold-parser):
(org-element-bold-interpreter, org-element-code-parser,
org-element-code-interpreter, org-element-italic-parser,
org-element-italic-interpreter, org-element-strike-through-parser,
org-element-strike-through-interpreter, org-element-underline-parser,
org-element-underline-interpreter): New functions.
(org-element-emphasis-parser, org-element-emphasis-interpreter):
Remove functions.
(org-element-verbatim-parser, org-element-verbatim-interpreter,
org-element-text-markup-successor): Update function.
(org-element-object-successor-alist): Add associations for new object
types.
(org-element-recursive-objects): Add `bold', `italic',
`strike-through' and `underline' as recursive types.
(org-element-object-restrictions): Add restrictions for new recursive
object types.
* contrib/lisp/org-export.el (org-export-filters-alist): Add filters
for new object types.
(org-export-with-todo-keywords): Add missing keywords.
(org-export-filter-center-block-functions,
org-export-filter-drawer-functions,
org-export-filter-dynamic-block-functions,
org-export-filter-headline-functions,
org-export-filter-inlinetask-functions,
org-export-filter-plain-list-functions,
org-export-filter-item-functions, org-export-filter-comment-functions,
org-export-filter-comment-block-functions,
org-export-filter-example-block-functions,
org-export-filter-export-block-functions,
org-export-filter-fixed-width-functions,
org-export-filter-footnote-definition-functions,
org-export-filter-horizontal-rule-functions,
org-export-filter-keyword-functions,
org-export-filter-latex-environment-functions,
org-export-filter-babel-call-functions,
org-export-filter-paragraph-functions,
org-export-filter-property-drawer-functions,
org-export-filter-quote-section-functions,
org-export-filter-quote-block-functions,
org-export-filter-section-functions,
org-export-filter-special-block-functions,
org-export-filter-src-block-functions,
org-export-filter-table-functions,
org-export-filter-table-cell-functions,
org-export-filter-table-row-functions,
org-export-filter-verse-block-functions,
org-export-filter-entity-functions,
org-export-filter-export-snippet-functions,
org-export-filter-footnote-reference-functions,
org-export-filter-inline-babel-call-functions,
org-export-filter-inline-src-block-functions,
org-export-filter-latex-fragment-functions,
org-export-filter-line-break-functions,
org-export-filter-link-functions, org-export-filter-macro-functions,
org-export-filter-radio-target-functions,
org-export-filter-statistics-cookie-functions,
org-export-filter-subscript-functions,
org-export-filter-superscript-functions,
org-export-filter-target-functions,
org-export-filter-time-stamp-functions,
org-export-filter-verbatim-functions): Fix docstring.
(org-export-filter-bold-functions, org-export-filter-code-functions,
org-export-filter-italic-functions,
org-export-filter-strike-through-functions,
org-export-filter-underline-functions): New variables.
(org-export-filter-emphasis-functions): Remove variable.
* testing/lisp/test-org-element.el: Add tests.
2012-04-28 12:00:50 -04:00
|
|
|
|
(ert-deftest test-org-element/strike-through-interpreter ()
|
|
|
|
|
|
"Test strike through interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "+target+") "+target+\n")))
|
|
|
|
|
|
|
2012-04-27 11:16:17 -04:00
|
|
|
|
(ert-deftest test-org-element/subscript-interpreter ()
|
|
|
|
|
|
"Test subscript interpreter."
|
|
|
|
|
|
;; 1. Without brackets.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "a_b") "a_b\n"))
|
|
|
|
|
|
;; 2. With brackets.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "a_{b}") "a_{b}\n")))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/superscript-interpreter ()
|
|
|
|
|
|
"Test superscript interpreter."
|
|
|
|
|
|
;; 1. Without brackets.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "a^b") "a^b\n"))
|
|
|
|
|
|
;; 2. With brackets.
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "a^{b}") "a^{b}\n")))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/target-interpreter ()
|
|
|
|
|
|
"Test target interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "<<target>>") "<<target>>\n")))
|
2012-04-25 16:15:29 -04:00
|
|
|
|
|
org-element: Define new objects (bold, code, italic, ...)
* contrib/lisp/org-e-ascii.el (org-e-ascii-option-alist): Fix typo.
(org-e-ascii-bold, org-e-ascii-code, org-e-ascii-strike-through,
org-e-ascii-underline): New functions.
(org-e-ascii-emphasis): Remove function.
* contrib/lisp/org-e-html.el (org-e-html-text-markup-alist): Variable
renamed from `org-e-html-emphasis-alist'. Change value type.
(org-e-html-bold, org-e-html-italic, org-e-html-strike-through,
org-e-html-underline): New functions.
(org-e-html-verbatim): Update function.
(org-e-html-emphasis): Remove function.
* contrib/lisp/org-e-latex.el (org-e-latex-text-markup-alist):
Variable renamed from `org-e-latex-emphasis-alist'. Change value
type.
(org-e-latex-center-block): Fix docstring.
(org-e-latex--text-markup, org-e-latex-bold, org-e-latex-code,
org-e-latex-italic, org-e-latex-strike-through,
org-e-latex-underline): New functions.
(org-e-latex-verbatim): Update function.
(org-e-latex-emphasis): Remove function.
* contrib/lisp/org-e-odt.el (org-e-odt-bold, org-e-odt-code,
org-e-odt-italic, org-e-odt-strike-through, org-e-odt-underline):
New functions.
(org-e-odt-verbatim): Update function.
(org-e-odt-center-block): Fix docstring.
(org-e-odt-emphasis): Remove function.
* contrib/lisp/org-element.el (org-element-bold-parser):
(org-element-bold-interpreter, org-element-code-parser,
org-element-code-interpreter, org-element-italic-parser,
org-element-italic-interpreter, org-element-strike-through-parser,
org-element-strike-through-interpreter, org-element-underline-parser,
org-element-underline-interpreter): New functions.
(org-element-emphasis-parser, org-element-emphasis-interpreter):
Remove functions.
(org-element-verbatim-parser, org-element-verbatim-interpreter,
org-element-text-markup-successor): Update function.
(org-element-object-successor-alist): Add associations for new object
types.
(org-element-recursive-objects): Add `bold', `italic',
`strike-through' and `underline' as recursive types.
(org-element-object-restrictions): Add restrictions for new recursive
object types.
* contrib/lisp/org-export.el (org-export-filters-alist): Add filters
for new object types.
(org-export-with-todo-keywords): Add missing keywords.
(org-export-filter-center-block-functions,
org-export-filter-drawer-functions,
org-export-filter-dynamic-block-functions,
org-export-filter-headline-functions,
org-export-filter-inlinetask-functions,
org-export-filter-plain-list-functions,
org-export-filter-item-functions, org-export-filter-comment-functions,
org-export-filter-comment-block-functions,
org-export-filter-example-block-functions,
org-export-filter-export-block-functions,
org-export-filter-fixed-width-functions,
org-export-filter-footnote-definition-functions,
org-export-filter-horizontal-rule-functions,
org-export-filter-keyword-functions,
org-export-filter-latex-environment-functions,
org-export-filter-babel-call-functions,
org-export-filter-paragraph-functions,
org-export-filter-property-drawer-functions,
org-export-filter-quote-section-functions,
org-export-filter-quote-block-functions,
org-export-filter-section-functions,
org-export-filter-special-block-functions,
org-export-filter-src-block-functions,
org-export-filter-table-functions,
org-export-filter-table-cell-functions,
org-export-filter-table-row-functions,
org-export-filter-verse-block-functions,
org-export-filter-entity-functions,
org-export-filter-export-snippet-functions,
org-export-filter-footnote-reference-functions,
org-export-filter-inline-babel-call-functions,
org-export-filter-inline-src-block-functions,
org-export-filter-latex-fragment-functions,
org-export-filter-line-break-functions,
org-export-filter-link-functions, org-export-filter-macro-functions,
org-export-filter-radio-target-functions,
org-export-filter-statistics-cookie-functions,
org-export-filter-subscript-functions,
org-export-filter-superscript-functions,
org-export-filter-target-functions,
org-export-filter-time-stamp-functions,
org-export-filter-verbatim-functions): Fix docstring.
(org-export-filter-bold-functions, org-export-filter-code-functions,
org-export-filter-italic-functions,
org-export-filter-strike-through-functions,
org-export-filter-underline-functions): New variables.
(org-export-filter-emphasis-functions): Remove variable.
* testing/lisp/test-org-element.el: Add tests.
2012-04-28 12:00:50 -04:00
|
|
|
|
(ert-deftest test-org-element/underline-interpreter ()
|
|
|
|
|
|
"Test underline interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "_text_") "_text_\n")))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/verbatim-interpreter ()
|
|
|
|
|
|
"Test verbatim interpreter."
|
|
|
|
|
|
(should (equal (org-test-parse-and-interpret "=text=") "=text=\n")))
|
|
|
|
|
|
|
2012-04-10 17:15:32 -04:00
|
|
|
|
|
2012-04-25 14:40:13 -04:00
|
|
|
|
|
2012-04-30 11:20:57 -04:00
|
|
|
|
;;; Test Granularity
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/granularity ()
|
|
|
|
|
|
"Test granularity impact on buffer parsing."
|
2019-05-25 21:34:34 -04:00
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* Head 1
|
2012-04-30 11:20:57 -04:00
|
|
|
|
** Head 2
|
|
|
|
|
|
#+BEGIN_CENTER
|
|
|
|
|
|
Centered paragraph.
|
|
|
|
|
|
#+END_CENTER
|
|
|
|
|
|
Paragraph \\alpha."
|
|
|
|
|
|
;; 1.1. Granularity set to `headline' should parse every headline
|
|
|
|
|
|
;; in buffer, and only them.
|
|
|
|
|
|
(let ((tree (org-element-parse-buffer 'headline)))
|
|
|
|
|
|
(should (= 2 (length (org-element-map tree 'headline 'identity))))
|
|
|
|
|
|
(should-not (org-element-map tree 'paragraph 'identity)))
|
|
|
|
|
|
;; 1.2. Granularity set to `greater-element' should not enter
|
|
|
|
|
|
;; greater elements excepted headlines and sections.
|
|
|
|
|
|
(let ((tree (org-element-parse-buffer 'greater-element)))
|
|
|
|
|
|
(should (= 1 (length (org-element-map tree 'center-block 'identity))))
|
|
|
|
|
|
(should (= 1 (length (org-element-map tree 'paragraph 'identity))))
|
|
|
|
|
|
(should-not (org-element-map tree 'entity 'identity)))
|
|
|
|
|
|
;; 1.3. Granularity set to `element' should enter every
|
|
|
|
|
|
;; greater-element.
|
|
|
|
|
|
(let ((tree (org-element-parse-buffer 'element)))
|
|
|
|
|
|
(should (= 2 (length (org-element-map tree 'paragraph 'identity))))
|
|
|
|
|
|
(should-not (org-element-map tree 'entity 'identity)))
|
|
|
|
|
|
;; 1.4. Granularity set to `object' can see everything.
|
|
|
|
|
|
(let ((tree (org-element-parse-buffer 'object)))
|
|
|
|
|
|
(should (= 1 (length (org-element-map tree 'entity 'identity)))))))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/secondary-string-parsing ()
|
|
|
|
|
|
"Test if granularity correctly toggles secondary strings parsing."
|
2014-07-25 08:47:38 -04:00
|
|
|
|
;; With a granularity bigger than `object', no secondary string
|
|
|
|
|
|
;; should be parsed.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(stringp
|
|
|
|
|
|
(org-test-with-temp-text "* Headline"
|
|
|
|
|
|
(let ((headline
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer 'headline) 'headline
|
|
|
|
|
|
#'identity nil 'first-match)))
|
|
|
|
|
|
(org-element-property :title headline)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(stringp
|
|
|
|
|
|
(org-test-with-temp-text "* Headline\n- tag :: item"
|
|
|
|
|
|
(let ((item (org-element-map (org-element-parse-buffer 'element) 'item
|
|
|
|
|
|
#'identity nil 'first-match)))
|
|
|
|
|
|
(org-element-property :tag item)))))
|
2012-04-30 11:20:57 -04:00
|
|
|
|
(when (featurep 'org-inlinetask)
|
2014-07-25 08:47:38 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(stringp
|
|
|
|
|
|
(let ((org-inlinetask-min-level 15))
|
|
|
|
|
|
(org-test-with-temp-text "*************** Inlinetask"
|
|
|
|
|
|
(let ((inlinetask (org-element-map (org-element-parse-buffer 'element)
|
|
|
|
|
|
'inlinetask
|
|
|
|
|
|
#'identity nil 'first-match)))
|
|
|
|
|
|
(org-element-property :title inlinetask)))))))
|
|
|
|
|
|
;; With a default granularity, secondary strings should be parsed.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(listp
|
|
|
|
|
|
(org-test-with-temp-text "* Headline"
|
|
|
|
|
|
(let ((headline
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'headline
|
|
|
|
|
|
#'identity nil 'first-match)))
|
|
|
|
|
|
(org-element-property :title headline)))))
|
|
|
|
|
|
;; `org-element-at-point' should never parse a secondary string.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(listp
|
|
|
|
|
|
(org-test-with-temp-text "* Headline"
|
|
|
|
|
|
(org-element-property :title (org-element-at-point)))))
|
|
|
|
|
|
;; Preserve current local variables when parsing a secondary string.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(let ((org-entities nil)
|
|
|
|
|
|
(org-entities-user nil))
|
|
|
|
|
|
(org-test-with-temp-text "
|
|
|
|
|
|
#+CAPTION: \\foo
|
|
|
|
|
|
Text
|
|
|
|
|
|
# Local Variables:
|
|
|
|
|
|
# org-entities-user: ((\"foo\"))
|
|
|
|
|
|
# End:"
|
|
|
|
|
|
(let ((safe-local-variable-values '((org-entities-user . (("foo"))))))
|
|
|
|
|
|
(hack-local-variables))
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'entity
|
|
|
|
|
|
#'identity nil nil nil t)))))
|
2012-04-30 11:20:57 -04:00
|
|
|
|
|
|
|
|
|
|
|
2013-05-08 03:56:26 -04:00
|
|
|
|
|
|
|
|
|
|
;;; Test Visible Only Parsing
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/parse-buffer-visible ()
|
|
|
|
|
|
"Test `org-element-parse-buffer' with visible only argument."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("H1" "H3" "H5")
|
2020-01-11 14:05:07 -05:00
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H1\n** H2\n** H3 :visible:\n** H4\n** H5 :visible:"
|
|
|
|
|
|
(org-occur ":visible:")
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer nil t) 'headline
|
|
|
|
|
|
(lambda (hl) (org-element-property :raw-value hl))))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "Test"
|
|
|
|
|
|
(let ((contents "Test"))
|
|
|
|
|
|
(org-test-with-temp-text contents
|
|
|
|
|
|
(add-text-properties 0 1 '(invisible t) contents)
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer nil t) 'plain-text
|
|
|
|
|
|
#'org-no-properties nil t)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "Test"
|
|
|
|
|
|
(let ((contents "Test"))
|
|
|
|
|
|
(org-test-with-temp-text (concat "- " contents)
|
|
|
|
|
|
(add-text-properties 0 1 '(invisible t) contents)
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer nil t) 'plain-text
|
|
|
|
|
|
#'org-no-properties nil t))))))
|
2013-05-08 03:56:26 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-06-08 14:16:57 -04:00
|
|
|
|
|
|
|
|
|
|
;;; Test `:parent' Property
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/parent-property ()
|
|
|
|
|
|
"Test `:parent' property."
|
|
|
|
|
|
;; Elements.
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_CENTER\nText\n#+END_CENTER"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(parent (org-element-property
|
|
|
|
|
|
:parent
|
|
|
|
|
|
(org-element-map tree 'paragraph 'identity nil t))))
|
|
|
|
|
|
(should parent)
|
2012-07-18 05:25:29 -04:00
|
|
|
|
(should (eq (org-element-map tree 'center-block 'identity nil t)
|
|
|
|
|
|
parent))))
|
2012-06-08 14:16:57 -04:00
|
|
|
|
;; Objects.
|
|
|
|
|
|
(org-test-with-temp-text "a_{/b/}"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(parent (org-element-property
|
|
|
|
|
|
:parent
|
|
|
|
|
|
(org-element-map tree 'italic 'identity nil t))))
|
|
|
|
|
|
(should parent)
|
2012-07-18 05:25:29 -04:00
|
|
|
|
(should (eq parent
|
|
|
|
|
|
(org-element-map tree 'subscript 'identity nil t)))))
|
2012-06-08 14:16:57 -04:00
|
|
|
|
;; Secondary strings
|
|
|
|
|
|
(org-test-with-temp-text "* /italic/"
|
|
|
|
|
|
(let* ((tree (org-element-parse-buffer))
|
|
|
|
|
|
(parent (org-element-property
|
|
|
|
|
|
:parent (org-element-map tree 'italic 'identity nil t))))
|
|
|
|
|
|
(should parent)
|
Re-implement org-element-cache and add headline support
* lisp/org-element.el (org-element-with-disabled-cache): New macro.
(org-element-greater-elements): Add new org-data element. It
functions like a virtual headline containing the whole buffer. The
org-data properties are like headlie properties, but according to the
top-level drawer. org-data's category is the buffer's category as
defined by top-level property drawer, #+CATEGORY keyworsd, and the
buffer file name.
(org-element--cache-element-properties, org-element-set-element): New
variable containing properties to be transferred when updating changed
element in cache in `org-element-set-element'.
(org-element--get-node-properties): Allow parsing node propreties in
top-level drawer when new optional argument is passed. Respect
PROPERTY+ syntax.
(org-element--get-global-node-properties): New function. It returns
node properties for top-level property drawer.
(org-element-org-data-parser, org-element-org-data-interpreter):
Implement the new org-data element.
(org-element-headline-parser, org-element-section-parser): Add new
:robust-begin and :robust-end
properties delimiting safe changes that do not modify headline
element.
(org-element--list-struct): Fix cache update when adding a headline
inside list.
(org-element--current-element): Implement cache support. Record
parsing mode (:mode) and parsing granularity (:granularity) in the
element properties.
(org-element-parse-buffer, org-element--next-mode): Support new
org-data element.
(org-element--parse-elements): Record parsing granularity in the
returned tree
(org-element-use-cache): Enable cache by default.
(org-element-cache-persistent): New variable controlling cache
persistance across sessions. Enabled by default.
(org-element--cache-self-verify,
org-element--cache-self-verify-frequency,
org-element--cache-diagnostics, org-element--cache-map-statistics,
org-element--cache-map-statistics-threshold,
org-element--cache-diagnostics-level,
org-element--cache-diagnostics-ring,
org-element--cache-diagnostics-ring-size): New variables controlling
cache diagnostics and self-diagnostics. Greatly simplifies cache
debugging.
(org-element--cache, org-element--cache-sync-requests,
org-element--cache-sync-timer): Make cache buffer-local by default.
(org-element--headline-cache): Implement separate cache storing only
headlines and inlinetasks.
(org-element--cache-size, org-element--headline-cache-size): New
variables containing cache sizes. This is much faster than
`avl-tree-size'.
(org-element--cache-sync-requests): Update docstring explaning the
request list structure.
(org-element--cache-sync-keys-value): New variable replacing
`org-element--cache-sync-keys' hash table. The hash table was not
reliable because it was using elements as keys. Upon any cached
element update/shift, the keys were invalidated making cache ordering
incorrect and breaking the cache badly. Now, the cache keys are
stored as :org-element--cache-sync-key element property and the new
variable stores marker value indicating the current sync request
cycle. See `org-element--cache-key' for more details.
(org-element--cache-change-tic): New variable controlling buffer
modification count that is registered in cache. This variable allows
catching "stealth" edits.
(org-element--cache-non-modifying-commands): New variable listing
commands that will not be slown down if we fill cache on the fly.
(org-element--request-key, org-element--request-beg,
org-element--request-end, org-element--request-offset,
org-element--request-parent, org-element--request-phase): New macros.
They improve code readability (especially when using nameless-mode).
(org-element--format-element, org-element--cache-log-message,
org-element--cache-warn): New macros implementing generic logging
functionality.
(org-element--cache-key): Add section and org-data element support.
Change cache key storage from hash map to :org-element--cache-sync-key
element property + `org-element--cache-sync-keys-value'. We use the
latter to group all the cache keys during a single cache request
sequence. Once sync request is fully complete, the
`org-element--cache-sync-keys-value' is updated making all the old
sync keys obsolete (they will still be store as element properties).
(org-element--headline-cache-root): New function returning headline
cache root.
(org-element--cache-active-p): Prevent cache updates when
`inhibit-modification-hooks' is non-nil, unless non-nil optional
argument is provided.
(org-element--cache-find): Share cache between indirect buffers and
the base buffer. We have to do it because after-change hooks for
indirect buffer are not called in the base buffer and vice versa. Add
support for section and org-data elements.
(org-element--cache-put): Implement new approach for cache key
storage. Add diagnostics. Indicate cached elements using :cached
element property. Support cache size calculation.
(org-element--cache-remove): Invalidate parent contents when removing
element. Support cache size calculation. Detect cache corruption due
to misordered elements.
(org-element--cache-shift-positions): Support :robust-begin and
:robust-end element properties.
(org-element--cache-sync): Add diagnostics. Add detailed comments.
Prevent slowdown when large cache chunks need to be deleted forcing
O(N) complexity cutoff. In phase 2, fix cases when next request
contains deleted cache key. In phase 2, fix scenario when newly
inserted element intersects with existing elements in cache. In phase
2, detect obsolete parents removed from cache.
(org-element--open-end-p): New function checking if an element can
have blank lines right after its :contents-end.
(org-element--parse-to): Do not alter match data. Process complex
parsing mode changes correctly. Support headlines in cache. Support
org-data parsing. Add detailed comments. Add diagnostics.
(org-element--cache-sensitive-re): Make list lines sensitive.
(org-element--cache-change-warning): Update docstring. Now, the
variable can have t, nil, and number values. Numbers are used to
provide more details about changed headlines.
(org-element--cache-before-change, org-element--cache-after-change):
Handle headline hierarchy. Properly handle cache in indirect
buffers.
(org-element--cache-after-change): Update docstring clarifying the
return values. Add special handling for headline and org-data
elements updating them in-place instead of removing together with the
whole contents when possible. Use :robust-begin/:robust-end element
properties to detect robust changes.
(org-element--cache-submit-request): Add detailed comments. Correctly
handle cache in indirect buffers. Delegate element modifications to
`org-element--cache-for-removal'.
(org-element--cache-verify-element): New function for cache
self-verification.
(org-element--cache-persist-before-write,
org-element--cache-persist-before-read,
org-element--cache-persist-after-read): Implement cache persistance.
(org-element-cache-reset): Correctly handle cache in indirect
buffers. Support cache persistance. Support new cache size
calculation and new cache key schema.
(org-element-cache-map): New function analagous to `org-element-map',
but much faster. The function overperforms org-ql written by Adam
Porter aka alphapapa [1] and reuses some ideas from there (namely,
fast element skipping via regexps).
[1] https://github.com/alphapapa/org-ql/
(org-element-at-point): The returned elements are now guaranteed to
have correct parents up to org-data. New optional argument
CACHED-ONLY limits element search to current cache---if element is not
in cache and current command is not in cache
`org-element--cache-non-modifying-commands', the cache is not updated
and the function returns nil. Also, support cache verification.
(org-element-at-point-no-context): New function. It is analogous of
older `org-element-at-point' with no guarantee that :parent properties
are correct beyond direct parent heading. This function does not
update cache and can be useful when cache updates should be avoided
for performance reasons.
* lisp/ob-core.el (org-babel-where-is-src-block-result): Support
section and org-data elements in cache.
* lisp/org-macro.el (org-macro-replace-all,
org-macro--find-keyword-value): Support org-element-cache.
* lisp/org-table.el (orgtbl-to-generic): Support org-element-cache.
* lisp/org.el (org-mode): Add cache persistance.
(org-up-element): Preserve old behaviour when error is returned for
section and org-data element.
*
testing/lisp/test-org-archive.el (test-org-archive/update-status-cookie):
Fix test when cache is active.
* testing/lisp/test-org-colview.el (test-org-colview/columns-update):
Fix test.
* testing/lisp/test-org-element.el (test-org-element/extract-element):
Add suport for new org-data element.
* testing/lisp/test-org-element.el (test-org-element/parent-property):
Fix equality check. Parents returned by cache and `org-element-map'
may not be `eq' now. Just `equal'.
* testing/lisp/test-org-element.el (test-org-element/context): Support
section and headline parents.
2021-10-16 09:17:10 -04:00
|
|
|
|
(should (equal parent
|
|
|
|
|
|
(org-element-map tree 'headline 'identity nil t))))))
|
2012-06-08 14:16:57 -04:00
|
|
|
|
|
|
|
|
|
|
|
2012-04-30 11:20:57 -04:00
|
|
|
|
|
|
|
|
|
|
;;; Test Normalize Contents
|
2012-04-25 14:40:13 -04:00
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/normalize-contents ()
|
|
|
|
|
|
"Test `org-element-normalize-contents' specifications."
|
2014-02-07 14:00:45 -05:00
|
|
|
|
;; Remove maximum common indentation from element's contents.
|
2012-04-25 14:40:13 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-normalize-contents
|
|
|
|
|
|
'(paragraph nil " Two spaces\n Three spaces"))
|
|
|
|
|
|
'(paragraph nil "Two spaces\n Three spaces")))
|
2017-01-12 08:33:17 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-normalize-contents
|
|
|
|
|
|
'(paragraph nil " Two spaces\nNo space"))
|
|
|
|
|
|
'(paragraph nil " Two spaces\nNo space")))
|
2014-02-07 14:00:45 -05:00
|
|
|
|
;; Ignore objects within contents when computing maximum common
|
2015-03-06 19:52:58 -05:00
|
|
|
|
;; indentation. However, if contents start with an object, common
|
|
|
|
|
|
;; indentation is 0.
|
2012-04-25 14:40:13 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-normalize-contents
|
|
|
|
|
|
'(paragraph nil " One " (emphasis nil "space") "\n Two spaces"))
|
|
|
|
|
|
'(paragraph nil "One " (emphasis nil "space") "\n Two spaces")))
|
2015-03-06 19:52:58 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-normalize-contents
|
|
|
|
|
|
'(paragraph nil (verbatim nil "V") "No space\n Two\n Three"))
|
|
|
|
|
|
'(paragraph nil (verbatim nil "V") "No space\n Two\n Three")))
|
2014-02-07 14:00:45 -05:00
|
|
|
|
;; Ignore blank lines.
|
2012-04-25 14:40:13 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-normalize-contents
|
|
|
|
|
|
'(paragraph nil " Two spaces\n\n \n Two spaces"))
|
2016-01-26 16:53:55 -05:00
|
|
|
|
'(paragraph nil "Two spaces\n\n\nTwo spaces")))
|
2014-02-07 14:00:45 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(paragraph nil " Two spaces\n" (verbatim nil "V") "\n Two spaces")
|
|
|
|
|
|
(org-element-normalize-contents
|
|
|
|
|
|
'(paragraph nil " Two spaces\n " (verbatim nil "V") "\n Two spaces"))))
|
2014-08-15 15:46:46 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(verse-block nil "line 1\n\nline 2")
|
|
|
|
|
|
(org-element-normalize-contents
|
|
|
|
|
|
'(verse-block nil " line 1\n\n line 2"))))
|
2014-02-07 14:00:45 -05:00
|
|
|
|
;; Recursively enter objects in order to compute common indentation.
|
2012-04-25 14:40:13 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-normalize-contents
|
org-element: Define new objects (bold, code, italic, ...)
* contrib/lisp/org-e-ascii.el (org-e-ascii-option-alist): Fix typo.
(org-e-ascii-bold, org-e-ascii-code, org-e-ascii-strike-through,
org-e-ascii-underline): New functions.
(org-e-ascii-emphasis): Remove function.
* contrib/lisp/org-e-html.el (org-e-html-text-markup-alist): Variable
renamed from `org-e-html-emphasis-alist'. Change value type.
(org-e-html-bold, org-e-html-italic, org-e-html-strike-through,
org-e-html-underline): New functions.
(org-e-html-verbatim): Update function.
(org-e-html-emphasis): Remove function.
* contrib/lisp/org-e-latex.el (org-e-latex-text-markup-alist):
Variable renamed from `org-e-latex-emphasis-alist'. Change value
type.
(org-e-latex-center-block): Fix docstring.
(org-e-latex--text-markup, org-e-latex-bold, org-e-latex-code,
org-e-latex-italic, org-e-latex-strike-through,
org-e-latex-underline): New functions.
(org-e-latex-verbatim): Update function.
(org-e-latex-emphasis): Remove function.
* contrib/lisp/org-e-odt.el (org-e-odt-bold, org-e-odt-code,
org-e-odt-italic, org-e-odt-strike-through, org-e-odt-underline):
New functions.
(org-e-odt-verbatim): Update function.
(org-e-odt-center-block): Fix docstring.
(org-e-odt-emphasis): Remove function.
* contrib/lisp/org-element.el (org-element-bold-parser):
(org-element-bold-interpreter, org-element-code-parser,
org-element-code-interpreter, org-element-italic-parser,
org-element-italic-interpreter, org-element-strike-through-parser,
org-element-strike-through-interpreter, org-element-underline-parser,
org-element-underline-interpreter): New functions.
(org-element-emphasis-parser, org-element-emphasis-interpreter):
Remove functions.
(org-element-verbatim-parser, org-element-verbatim-interpreter,
org-element-text-markup-successor): Update function.
(org-element-object-successor-alist): Add associations for new object
types.
(org-element-recursive-objects): Add `bold', `italic',
`strike-through' and `underline' as recursive types.
(org-element-object-restrictions): Add restrictions for new recursive
object types.
* contrib/lisp/org-export.el (org-export-filters-alist): Add filters
for new object types.
(org-export-with-todo-keywords): Add missing keywords.
(org-export-filter-center-block-functions,
org-export-filter-drawer-functions,
org-export-filter-dynamic-block-functions,
org-export-filter-headline-functions,
org-export-filter-inlinetask-functions,
org-export-filter-plain-list-functions,
org-export-filter-item-functions, org-export-filter-comment-functions,
org-export-filter-comment-block-functions,
org-export-filter-example-block-functions,
org-export-filter-export-block-functions,
org-export-filter-fixed-width-functions,
org-export-filter-footnote-definition-functions,
org-export-filter-horizontal-rule-functions,
org-export-filter-keyword-functions,
org-export-filter-latex-environment-functions,
org-export-filter-babel-call-functions,
org-export-filter-paragraph-functions,
org-export-filter-property-drawer-functions,
org-export-filter-quote-section-functions,
org-export-filter-quote-block-functions,
org-export-filter-section-functions,
org-export-filter-special-block-functions,
org-export-filter-src-block-functions,
org-export-filter-table-functions,
org-export-filter-table-cell-functions,
org-export-filter-table-row-functions,
org-export-filter-verse-block-functions,
org-export-filter-entity-functions,
org-export-filter-export-snippet-functions,
org-export-filter-footnote-reference-functions,
org-export-filter-inline-babel-call-functions,
org-export-filter-inline-src-block-functions,
org-export-filter-latex-fragment-functions,
org-export-filter-line-break-functions,
org-export-filter-link-functions, org-export-filter-macro-functions,
org-export-filter-radio-target-functions,
org-export-filter-statistics-cookie-functions,
org-export-filter-subscript-functions,
org-export-filter-superscript-functions,
org-export-filter-target-functions,
org-export-filter-time-stamp-functions,
org-export-filter-verbatim-functions): Fix docstring.
(org-export-filter-bold-functions, org-export-filter-code-functions,
org-export-filter-italic-functions,
org-export-filter-strike-through-functions,
org-export-filter-underline-functions): New variables.
(org-export-filter-emphasis-functions): Remove variable.
* testing/lisp/test-org-element.el: Add tests.
2012-04-28 12:00:50 -04:00
|
|
|
|
'(paragraph nil " Two spaces " (bold nil " and\n One space")))
|
|
|
|
|
|
'(paragraph nil " Two spaces " (bold nil " and\nOne space"))))
|
2014-02-07 14:00:45 -05:00
|
|
|
|
;; When optional argument is provided, ignore first line
|
|
|
|
|
|
;; indentation.
|
2012-04-25 14:40:13 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-normalize-contents
|
|
|
|
|
|
'(paragraph nil "No space\n Two spaces\n Three spaces") t)
|
2015-03-06 19:52:58 -05:00
|
|
|
|
'(paragraph nil "No space\nTwo spaces\n Three spaces")))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-normalize-contents
|
|
|
|
|
|
'(paragraph nil (verbatim nil "V") "No space\n Two\n Three") t)
|
|
|
|
|
|
'(paragraph nil (verbatim nil "V") "No space\nTwo\n Three")))
|
|
|
|
|
|
;; Corner case: do not ignore indentation of string right after
|
|
|
|
|
|
;; a line break.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
(org-element-normalize-contents
|
|
|
|
|
|
'(paragraph nil " 1 space" (line-break) " 2 spaces"))
|
|
|
|
|
|
'(paragraph nil "1 space" (line-break) " 2 spaces"))))
|
2012-04-25 14:40:13 -04:00
|
|
|
|
|
2012-04-30 11:20:57 -04:00
|
|
|
|
|
2012-04-10 17:15:32 -04:00
|
|
|
|
|
2012-04-30 11:20:57 -04:00
|
|
|
|
;;; Test Navigation Tools.
|
2012-02-23 19:23:25 -05:00
|
|
|
|
|
2012-05-05 03:14:39 -04:00
|
|
|
|
(ert-deftest test-org-element/at-point ()
|
|
|
|
|
|
"Test `org-element-at-point' specifications."
|
2012-07-29 18:40:21 -04:00
|
|
|
|
;; Return closest element containing point.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'paragraph
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_CENTER\nA\n#+END_CENTER"
|
|
|
|
|
|
(progn (search-forward "A")
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
2023-05-31 06:14:21 -04:00
|
|
|
|
;; Point in other buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'paragraph
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_CENTER\nA\n#+END_CENTER"
|
|
|
|
|
|
(progn (search-forward "A")
|
|
|
|
|
|
(org-element-type
|
|
|
|
|
|
(let ((mk (point-marker)))
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(org-element-at-point mk))))))))
|
2012-07-29 18:40:21 -04:00
|
|
|
|
;; Correctly set `:parent' property.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'center-block
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_CENTER\nA\n#+END_CENTER"
|
|
|
|
|
|
(progn (search-forward "A")
|
|
|
|
|
|
(org-element-type
|
|
|
|
|
|
(org-element-property :parent (org-element-at-point)))))))
|
2013-09-11 06:22:05 -04:00
|
|
|
|
;; Special case: at a blank line just below a headline, return that
|
|
|
|
|
|
;; headline.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "H1" (org-test-with-temp-text "* H1\n \n* H2\n"
|
|
|
|
|
|
(forward-line)
|
|
|
|
|
|
(org-element-property :title (org-element-at-point)))))
|
2012-05-05 03:14:39 -04:00
|
|
|
|
;; Special case: at the very beginning of a table, return `table'
|
|
|
|
|
|
;; object instead of `table-row'.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'table
|
|
|
|
|
|
(org-test-with-temp-text "| a | b |"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Special case: at the very beginning of a list or sub-list, return
|
|
|
|
|
|
;; `plain-list' object instead of `item'.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'plain-list
|
|
|
|
|
|
(org-test-with-temp-text "- item"
|
2012-07-29 18:40:21 -04:00
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2012-08-08 03:54:56 -04:00
|
|
|
|
;; Special case: at the closing line of a greater element, be sure
|
|
|
|
|
|
;; to return it instead of the last element in its contents.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'center-block
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_CENTER\nParagraph\n#+END_CENTER"
|
|
|
|
|
|
(progn (forward-line 2)
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
2012-08-11 18:48:09 -04:00
|
|
|
|
;; Special case: at a blank line between two items, be sure to
|
|
|
|
|
|
;; return item above instead of the last element of its contents.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'item
|
|
|
|
|
|
(org-test-with-temp-text "- Para1\n\n- Para2"
|
2015-08-14 10:31:16 -04:00
|
|
|
|
(forward-line)
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2012-08-11 18:48:09 -04:00
|
|
|
|
;; Special case: at the last blank line in a plain list, return it
|
|
|
|
|
|
;; instead of the last item.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'plain-list
|
|
|
|
|
|
(org-test-with-temp-text "- Para1\n- Para2\n\nPara3"
|
|
|
|
|
|
(progn (forward-line 2)
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
2021-10-16 11:42:30 -04:00
|
|
|
|
;; Special case: at the last blank line in a plain list at the end of
|
|
|
|
|
|
;; a headline, return the plain list, not the last item, and not the
|
|
|
|
|
|
;; headline.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'plain-list
|
|
|
|
|
|
(org-test-with-temp-text "* Headline\n- Para1\n- Para2\n\nPara3\n* Another headline"
|
|
|
|
|
|
(progn (forward-line 3)
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
2013-09-18 15:15:04 -04:00
|
|
|
|
;; Special case: when a list ends at the end of buffer and there's
|
|
|
|
|
|
;; no final newline, return last element in last item.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'paragraph
|
|
|
|
|
|
(org-test-with-temp-text "- a"
|
|
|
|
|
|
(end-of-line)
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
2012-12-15 18:37:49 -05:00
|
|
|
|
;; Parse a list within a block itself contained in a list.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'plain-list
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"- outer\n #+begin_center\n - inner\n #+end_center"
|
|
|
|
|
|
(search-forward "inner")
|
|
|
|
|
|
(beginning-of-line)
|
2013-06-25 11:32:26 -04:00
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Do not error at eob on an empty line.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "* H\n"
|
|
|
|
|
|
(forward-line)
|
2022-01-24 09:54:18 -05:00
|
|
|
|
(or (org-element-at-point) t)))
|
2022-06-30 11:33:03 -04:00
|
|
|
|
;; Return greater element when outside contents.
|
2022-01-24 09:54:18 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'drawer
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
":DRAWER:\ntest\n:EN<point>D:\n"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'drawer
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
":DRA<point>WER:\ntest\n:END:\n"
|
|
|
|
|
|
(org-element-type (org-element-at-point)))))
|
|
|
|
|
|
;; Return greater element when at :contents-end.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'drawer
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
":DRAWER:\ntest\n<point>:END:\n"
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
2012-05-05 03:14:39 -04:00
|
|
|
|
|
2012-07-06 18:47:51 -04:00
|
|
|
|
(ert-deftest test-org-element/context ()
|
|
|
|
|
|
"Test `org-element-context' specifications."
|
2012-07-29 18:40:21 -04:00
|
|
|
|
;; Return closest object containing point.
|
2012-07-06 18:47:51 -04:00
|
|
|
|
(should
|
2012-07-29 18:40:21 -04:00
|
|
|
|
(eq 'underline
|
2016-02-11 03:47:54 -05:00
|
|
|
|
(org-test-with-temp-text "Some *text with _under<point>line_ text*"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2012-07-06 18:47:51 -04:00
|
|
|
|
;; Find objects in secondary strings.
|
|
|
|
|
|
(should
|
2012-07-29 18:40:21 -04:00
|
|
|
|
(eq 'underline
|
2016-02-11 03:47:54 -05:00
|
|
|
|
(org-test-with-temp-text "* Headline _<point>with_ underlining"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2012-10-05 08:24:45 -04:00
|
|
|
|
;; Find objects in objects.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'macro
|
2016-02-11 03:47:54 -05:00
|
|
|
|
(org-test-with-temp-text "| a | {<point>{{macro}}} |"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2012-10-05 08:24:45 -04:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'table-cell
|
2016-02-11 03:47:54 -05:00
|
|
|
|
(org-test-with-temp-text "| a | b<point> {{{macro}}} |"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
;; Find objects in item tags.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'bold
|
|
|
|
|
|
(org-test-with-temp-text "- *bo<point>ld* ::"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'bold
|
|
|
|
|
|
(org-test-with-temp-text "- *bold* ::<point>"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'bold
|
|
|
|
|
|
(org-test-with-temp-text "- *bold* ::\n<point>"
|
2014-02-25 14:48:15 -05:00
|
|
|
|
(org-element-type (org-element-context)))))
|
2013-03-14 18:11:26 -04:00
|
|
|
|
;; Do not find objects in table rules.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'table-row
|
2015-06-28 15:09:16 -04:00
|
|
|
|
(org-test-with-temp-text "| a | b |\n|-<point>--|---|\n| c | d |"
|
2013-03-14 18:11:26 -04:00
|
|
|
|
(org-element-type (org-element-context)))))
|
2012-10-29 05:53:32 -04:00
|
|
|
|
;; Find objects in parsed affiliated keywords.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'macro
|
2016-02-11 03:47:54 -05:00
|
|
|
|
(org-test-with-temp-text "#+CAPTION: {<point>{{macro}}}\n| a | b |"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2013-11-03 11:47:55 -05:00
|
|
|
|
(should
|
|
|
|
|
|
(eq 'bold
|
2016-02-11 03:47:54 -05:00
|
|
|
|
(org-test-with-temp-text "#+caption: *<point>bold*\nParagraph"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2014-02-23 06:42:08 -05:00
|
|
|
|
;; Find objects at the end of buffer.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'bold
|
|
|
|
|
|
(org-test-with-temp-text "*bold*"
|
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2012-07-29 18:40:21 -04:00
|
|
|
|
;; Correctly set `:parent' property.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'paragraph
|
2016-02-11 03:47:54 -05:00
|
|
|
|
(org-test-with-temp-text "Some *bold<point>* text"
|
|
|
|
|
|
(org-element-type
|
|
|
|
|
|
(org-element-property :parent (org-element-context))))))
|
2012-11-23 17:46:52 -05:00
|
|
|
|
;; Between two objects, return the second one.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'macro
|
2016-02-11 03:47:54 -05:00
|
|
|
|
(org-test-with-temp-text "<<target>><point>{{{test}}}"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
2013-01-09 09:33:29 -05:00
|
|
|
|
;; Test optional argument.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'underline
|
2016-02-11 03:47:54 -05:00
|
|
|
|
(org-test-with-temp-text "Some *text with _under<point>line_ text*"
|
|
|
|
|
|
(org-element-type (org-element-context (org-element-at-point))))))
|
2014-03-12 04:05:50 -04:00
|
|
|
|
;; Special case: bold object at the beginning of a headline.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'bold
|
2016-02-11 03:47:54 -05:00
|
|
|
|
(org-test-with-temp-text "* *bo<point>ld*"
|
2014-04-17 15:37:07 -04:00
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
;; Special case: incomplete cell at the end of a table row.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'table-cell
|
2016-02-11 03:47:54 -05:00
|
|
|
|
(org-test-with-temp-text "|a|b|c<point>"
|
2014-07-06 05:08:57 -04:00
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
;; Special case: objects in inline footnotes.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'link
|
2018-01-16 13:42:57 -05:00
|
|
|
|
(org-test-with-temp-text "[fn::[[<point>https://orgmode.org]]]"
|
2016-01-16 08:50:25 -05:00
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
;; Special case: tags looking like a link.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'link
|
|
|
|
|
|
(org-test-with-temp-text "* Headline :file<point>:tags:"
|
|
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'link
|
|
|
|
|
|
(org-test-with-temp-text "* Headline :file<point>:tags: :real:tag:"
|
2023-08-15 04:37:37 -04:00
|
|
|
|
(org-element-type (org-element-context)))))
|
|
|
|
|
|
;; Do not parse partial export snippets.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'export-snippet
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"<point>@@latex:\n\nparagraph\n\n@@"
|
|
|
|
|
|
(org-element-type (org-element-context))))))
|
2012-07-06 18:47:51 -04:00
|
|
|
|
|
2012-02-23 19:23:25 -05:00
|
|
|
|
|
2014-11-16 07:13:52 -05:00
|
|
|
|
|
|
|
|
|
|
;;; Test Tools
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/lineage ()
|
|
|
|
|
|
"Test `org-element-lineage' specifications."
|
|
|
|
|
|
;; Regular tests. When applied to an element or object returned by
|
|
|
|
|
|
;; `org-element-at-point' or `org-element-context', the list is
|
|
|
|
|
|
;; limited to the current section.
|
|
|
|
|
|
(should
|
2022-01-17 07:11:37 -05:00
|
|
|
|
(equal '(paragraph center-block section headline headline org-data)
|
2014-11-16 07:13:52 -05:00
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H1\n** H2\n#+BEGIN_CENTER\n*bold<point>*\n#+END_CENTER"
|
|
|
|
|
|
(mapcar #'car (org-element-lineage (org-element-context))))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(paragraph center-block section headline headline org-data)
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H1\n** H2\n#+BEGIN_CENTER\n*bold<point>*\n#+END_CENTER"
|
|
|
|
|
|
(mapcar #'car
|
|
|
|
|
|
(org-element-lineage
|
|
|
|
|
|
(org-element-map (org-element-parse-buffer) 'bold
|
|
|
|
|
|
#'identity nil t))))))
|
|
|
|
|
|
;; Test TYPES optional argument.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'center-block
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H1\n** H2\n#+BEGIN_CENTER\n*bold<point>*\n#+END_CENTER"
|
|
|
|
|
|
(org-element-type
|
2023-05-18 07:35:35 -04:00
|
|
|
|
(org-element-lineage (org-element-context) 'center-block)))))
|
2014-11-16 07:13:52 -05:00
|
|
|
|
(should-not
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H1\n** H2\n#+BEGIN_CENTER\n*bold<point>*\n#+END_CENTER"
|
|
|
|
|
|
(org-element-lineage (org-element-context) '(example-block))))
|
|
|
|
|
|
;; Test WITH-SELF optional argument.
|
|
|
|
|
|
(should
|
2022-01-17 07:11:37 -05:00
|
|
|
|
(equal '(bold paragraph center-block section headline headline org-data)
|
2014-11-16 07:13:52 -05:00
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H1\n** H2\n#+BEGIN_CENTER\n*bold<point>*\n#+END_CENTER"
|
|
|
|
|
|
(mapcar #'car (org-element-lineage (org-element-context) nil t)))))
|
|
|
|
|
|
;; When TYPES and WITH-SELF are provided, the latter is also checked
|
|
|
|
|
|
;; against the former.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H1\n** H2\n#+BEGIN_CENTER\n*bold<point>*\n#+END_CENTER"
|
|
|
|
|
|
(org-element-lineage (org-element-context) '(bold) t))))
|
|
|
|
|
|
|
2023-05-29 06:04:45 -04:00
|
|
|
|
(ert-deftest test-org-element/lineage-map ()
|
|
|
|
|
|
"Test `org-element-lineage-map' specifications."
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(paragraph center-block section headline headline org-data)
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H1\n** H2\n#+BEGIN_CENTER\n*bold<point>*\n#+END_CENTER"
|
|
|
|
|
|
(org-element-lineage-map (org-element-context) #'org-element-type))))
|
|
|
|
|
|
;; WITH-SELF.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(bold paragraph center-block section headline headline org-data)
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H1\n** H2\n#+BEGIN_CENTER\n*bold<point>*\n#+END_CENTER"
|
|
|
|
|
|
(org-element-lineage-map (org-element-context) #'org-element-type nil t))))
|
|
|
|
|
|
;; FUN as a Lisp form.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '("H2" "H1")
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H1\n** H2\n#+BEGIN_CENTER\n*bold<point>*\n#+END_CENTER"
|
|
|
|
|
|
(org-element-lineage-map
|
|
|
|
|
|
(org-element-context)
|
|
|
|
|
|
'(org-element-property :raw-value node)))))
|
|
|
|
|
|
;; FIRST-MATCH
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal "H2"
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* H1\n** H2\n#+BEGIN_CENTER\n*bold<point>*\n#+END_CENTER"
|
|
|
|
|
|
(org-element-lineage-map
|
|
|
|
|
|
(org-element-context)
|
|
|
|
|
|
'(org-element-property :raw-value node)
|
|
|
|
|
|
nil nil t)))))
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/property-inherited ()
|
|
|
|
|
|
"Test `org-element-property-inherited' specifications."
|
|
|
|
|
|
;; Property without self.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'bar
|
|
|
|
|
|
(org-element-property-inherited
|
|
|
|
|
|
:foo
|
|
|
|
|
|
(car (org-element-contents
|
|
|
|
|
|
(org-element-create
|
|
|
|
|
|
'parent '(:foo bar)
|
|
|
|
|
|
(org-element-create 'child '(:foo baz))))))))
|
|
|
|
|
|
;; With self
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'baz
|
|
|
|
|
|
(org-element-property-inherited
|
|
|
|
|
|
:foo
|
|
|
|
|
|
(car (org-element-contents
|
|
|
|
|
|
(org-element-create
|
|
|
|
|
|
'parent '(:foo bar)
|
|
|
|
|
|
(org-element-create 'child '(:foo baz)))))
|
|
|
|
|
|
'with-self)))
|
|
|
|
|
|
;; ACCUMULATE non-nil.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(bar baz)
|
|
|
|
|
|
(org-element-property-inherited
|
|
|
|
|
|
:foo
|
|
|
|
|
|
(car (org-element-contents
|
|
|
|
|
|
(org-element-create
|
|
|
|
|
|
'parent '(:foo bar)
|
|
|
|
|
|
(org-element-create 'child '(:foo baz)))))
|
|
|
|
|
|
'with-self 'accumulate)))
|
|
|
|
|
|
;; LITERAL-NIL.
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-element-property-inherited
|
|
|
|
|
|
:foo
|
|
|
|
|
|
(org-element-create 'child '(:foo "nil"))
|
|
|
|
|
|
'with-self nil t))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-element-property-inherited
|
|
|
|
|
|
:foo
|
|
|
|
|
|
(org-element-create 'child '(:foo "nil"))
|
|
|
|
|
|
'with-self))
|
|
|
|
|
|
;; INCLUDE-NIL
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(org-element-property-inherited
|
|
|
|
|
|
:foo
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(thread-last
|
|
|
|
|
|
(org-element-create 'grandchild '(:foo baz))
|
|
|
|
|
|
(org-element-create 'child '(:foo nil))
|
|
|
|
|
|
(org-element-create 'parent '(:foo bar)))
|
|
|
|
|
|
'grandchild #'identity nil t)
|
|
|
|
|
|
nil nil nil t))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq
|
|
|
|
|
|
'bar
|
|
|
|
|
|
(org-element-property-inherited
|
|
|
|
|
|
:foo
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(thread-last
|
|
|
|
|
|
(org-element-create 'grandchild '(:foo baz))
|
|
|
|
|
|
(org-element-create 'child '(:foo nil))
|
|
|
|
|
|
(org-element-create 'parent '(:foo bar)))
|
|
|
|
|
|
'grandchild #'identity nil t))))
|
|
|
|
|
|
;; INCLUDE-NIL in accumulated.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(bar nil baz)
|
|
|
|
|
|
(org-element-property-inherited
|
|
|
|
|
|
:foo
|
|
|
|
|
|
(org-element-map
|
|
|
|
|
|
(thread-last
|
|
|
|
|
|
(org-element-create 'grandchild '(:foo baz))
|
|
|
|
|
|
(org-element-create 'child '(:foo nil))
|
|
|
|
|
|
(org-element-create 'parent '(:foo bar)))
|
|
|
|
|
|
'grandchild #'identity nil t)
|
|
|
|
|
|
'with-self 'accumulate nil t)))
|
|
|
|
|
|
;; PROPERTY as a list.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(bar value)
|
|
|
|
|
|
(org-element-property-inherited
|
|
|
|
|
|
'(:foo :extra)
|
|
|
|
|
|
(car (org-element-contents
|
|
|
|
|
|
(org-element-create
|
|
|
|
|
|
'parent '(:foo bar :extra value)
|
|
|
|
|
|
(org-element-create 'child '(:foo baz)))))
|
|
|
|
|
|
nil 'accumulate)))
|
|
|
|
|
|
;; Append list values
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
'(bar value value2)
|
|
|
|
|
|
(org-element-property-inherited
|
|
|
|
|
|
'(:foo :extra)
|
|
|
|
|
|
(car (org-element-contents
|
|
|
|
|
|
(org-element-create
|
|
|
|
|
|
'parent '(:foo bar :extra (value value2))
|
|
|
|
|
|
(org-element-create 'child '(:foo baz)))))
|
|
|
|
|
|
nil 'accumulate))))
|
2014-11-16 07:13:52 -05:00
|
|
|
|
|
org-element: Implement lazy cache synchronization
* lisp/org-element.el (org-element-cache-sync-idle-time): Change
default value.
(org-element-cache-sync-duration, org-element-cache-sync-break,
org-element--cache-sync-requests, org-element--cache-sync-timer,
org-element--cache-sync-keys, org-element--cache-default-key,
org-element--cache-change-warning): New variables.
(org-element-cache-merge-changes-threshold,
org-element--cache-status): Removed variables.
(org-element--cache-key, org-element--cache-generate-key,
org-element--cache-key-less-p, org-element--cache-find,
org-element--cache-set-timer, org-element--cache-process-request,
org-element--cache-submit-request, org-element--parse-to,
org-element--cache-interrupt-p, org-element--cache-put,
org-element--cache-active-p): New functions.
(org-element--cache-compare): Adapt to new keys in AVL tree.
(org-element--cache-pending-changes-p,
org-element--cache-cancel-changes, org-element--cache-mapc,
org-element-cache-get, org-element-cache-put): Removed functions.
(org-element--cache-before-change): Use new variables.
(org-element--cache-after-change): Renamed from
`org-element--cache-record-change'.
(org-element-cache-get): Change signature.
(org-element-cache-put): Rewrite function. Use new tools.
(org-element-cache-reset): Adapt to new variables.
(org-element--cache-sync): Rewrite function.
* lisp/ox.el (org-export--generate-copy-script): Do not copy through
new cache-related variables.
(org-export-ignored-local-variables): New variable.
* testing/lisp/test-org-element.el (test-org-element/cache): New test.
Now only the part of the cache that needs to be accessed is updated
synchronously. Otherwise, it happens on idle time.
2014-01-30 19:14:44 -05:00
|
|
|
|
|
|
|
|
|
|
;;; Test Cache.
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-element/cache ()
|
|
|
|
|
|
"Test basic expectations and common pitfalls for cache."
|
|
|
|
|
|
;; Shift positions.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal '(18 . 23)
|
|
|
|
|
|
(org-test-with-temp-text "para1\n\npara2\n\npara3"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(save-excursion (goto-char (point-max)) (org-element-at-point))
|
|
|
|
|
|
(insert "add")
|
|
|
|
|
|
(forward-line 4)
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(cons (org-element-property :begin element)
|
|
|
|
|
|
(org-element-property :end element)))))))
|
|
|
|
|
|
;; Partial shifting: when the contents of a greater element are
|
|
|
|
|
|
;; modified, only shift ending positions.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+BEGIN_CENTER\nPara1\n\nPara2\n\nPara3\n#+END_CENTER"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(save-excursion (search-forward "3") (org-element-at-point))
|
|
|
|
|
|
(search-forward "Para2")
|
|
|
|
|
|
(insert " ")
|
|
|
|
|
|
(let ((element (org-element-property :parent (org-element-at-point))))
|
|
|
|
|
|
(equal (cons (org-element-property :begin element)
|
|
|
|
|
|
(org-element-property :end element))
|
|
|
|
|
|
(cons (point-min) (point-max)))))))
|
|
|
|
|
|
;; Re-parent shifted elements.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'item
|
|
|
|
|
|
(org-test-with-temp-text "- item\n\n\n para1\n para2"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(end-of-line)
|
|
|
|
|
|
(org-element-at-point)
|
|
|
|
|
|
(save-excursion (goto-char (point-max)) (org-element-at-point))
|
|
|
|
|
|
(forward-line)
|
|
|
|
|
|
(delete-char 1)
|
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(org-element-type
|
|
|
|
|
|
(org-element-property :parent (org-element-at-point)))))))
|
2014-07-17 12:11:49 -04:00
|
|
|
|
;; Preserve local structures when re-parenting.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'table
|
2017-01-21 05:58:42 -05:00
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-test-with-temp-text
|
2021-05-15 07:19:09 -04:00
|
|
|
|
"#+begin_center\nP0\n\n<point>\n\n P1\n | a | b |\n | c | d |\n#+end_center"
|
2014-07-17 12:11:49 -04:00
|
|
|
|
(save-excursion (search-forward "| c |") (org-element-at-point))
|
|
|
|
|
|
(insert "- item")
|
|
|
|
|
|
(search-forward "| c |")
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(org-element-type
|
|
|
|
|
|
(org-element-property :parent (org-element-at-point)))))))
|
|
|
|
|
|
(should-not
|
|
|
|
|
|
(eq 'center-block
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+begin_center\nP0\n\n<point>\n\n P1\n | a | b |\n#+end_center"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(save-excursion (search-forward "| a |") (org-element-at-point))
|
|
|
|
|
|
(insert "- item")
|
|
|
|
|
|
(search-forward "| a |")
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(org-element-type
|
|
|
|
|
|
(org-element-property :parent (org-element-at-point)))))))
|
|
|
|
|
|
;; When re-parenting, also propagate changes to list structures.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(= 2
|
|
|
|
|
|
(org-test-with-temp-text "\n Para\n - item<point>"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-at-point)
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(insert "- Top\n")
|
|
|
|
|
|
(search-forward "- item")
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(length (org-element-property :structure (org-element-at-point)))))))
|
org-element: Implement lazy cache synchronization
* lisp/org-element.el (org-element-cache-sync-idle-time): Change
default value.
(org-element-cache-sync-duration, org-element-cache-sync-break,
org-element--cache-sync-requests, org-element--cache-sync-timer,
org-element--cache-sync-keys, org-element--cache-default-key,
org-element--cache-change-warning): New variables.
(org-element-cache-merge-changes-threshold,
org-element--cache-status): Removed variables.
(org-element--cache-key, org-element--cache-generate-key,
org-element--cache-key-less-p, org-element--cache-find,
org-element--cache-set-timer, org-element--cache-process-request,
org-element--cache-submit-request, org-element--parse-to,
org-element--cache-interrupt-p, org-element--cache-put,
org-element--cache-active-p): New functions.
(org-element--cache-compare): Adapt to new keys in AVL tree.
(org-element--cache-pending-changes-p,
org-element--cache-cancel-changes, org-element--cache-mapc,
org-element-cache-get, org-element-cache-put): Removed functions.
(org-element--cache-before-change): Use new variables.
(org-element--cache-after-change): Renamed from
`org-element--cache-record-change'.
(org-element-cache-get): Change signature.
(org-element-cache-put): Rewrite function. Use new tools.
(org-element-cache-reset): Adapt to new variables.
(org-element--cache-sync): Rewrite function.
* lisp/ox.el (org-export--generate-copy-script): Do not copy through
new cache-related variables.
(org-export-ignored-local-variables): New variable.
* testing/lisp/test-org-element.el (test-org-element/cache): New test.
Now only the part of the cache that needs to be accessed is updated
synchronously. Otherwise, it happens on idle time.
2014-01-30 19:14:44 -05:00
|
|
|
|
;; Modifying the last line of an element alters the element below.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text "para1\n\npara2"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(org-element-at-point)
|
|
|
|
|
|
(forward-line -1)
|
|
|
|
|
|
(insert "merge")
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(equal (cons (org-element-property :begin element)
|
|
|
|
|
|
(org-element-property :end element))
|
|
|
|
|
|
(cons (point-min) (point-max)))))))
|
|
|
|
|
|
;; Modifying the first line of an element alters the element above.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text ": fixed-width\n:not-fixed-width"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(org-element-at-point)
|
|
|
|
|
|
(search-backward ":")
|
|
|
|
|
|
(forward-char)
|
|
|
|
|
|
(insert " ")
|
|
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
|
|
(equal (cons (org-element-property :begin element)
|
|
|
|
|
|
(org-element-property :end element))
|
|
|
|
|
|
(cons (point-min) (point-max)))))))
|
2021-12-16 08:08:33 -05:00
|
|
|
|
(org-test-with-temp-text ":DRAWER:\ntest\n:END:\n <point>#\nParagraph"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-cache-map #'ignore :granularity 'element)
|
|
|
|
|
|
(should (eq 'comment (org-element-type (org-element-at-point))))
|
|
|
|
|
|
(should (eq 0 (org-element-property :post-blank (org-element-at-point (point-min)))))
|
|
|
|
|
|
(insert " ") (delete-char -1)
|
|
|
|
|
|
(org-element-cache-map #'ignore :granularity 'element)
|
|
|
|
|
|
(delete-char 1)
|
|
|
|
|
|
(should (eq 1 (org-element-property :post-blank (org-element-at-point (point-min)))))))
|
org-element: Implement lazy cache synchronization
* lisp/org-element.el (org-element-cache-sync-idle-time): Change
default value.
(org-element-cache-sync-duration, org-element-cache-sync-break,
org-element--cache-sync-requests, org-element--cache-sync-timer,
org-element--cache-sync-keys, org-element--cache-default-key,
org-element--cache-change-warning): New variables.
(org-element-cache-merge-changes-threshold,
org-element--cache-status): Removed variables.
(org-element--cache-key, org-element--cache-generate-key,
org-element--cache-key-less-p, org-element--cache-find,
org-element--cache-set-timer, org-element--cache-process-request,
org-element--cache-submit-request, org-element--parse-to,
org-element--cache-interrupt-p, org-element--cache-put,
org-element--cache-active-p): New functions.
(org-element--cache-compare): Adapt to new keys in AVL tree.
(org-element--cache-pending-changes-p,
org-element--cache-cancel-changes, org-element--cache-mapc,
org-element-cache-get, org-element-cache-put): Removed functions.
(org-element--cache-before-change): Use new variables.
(org-element--cache-after-change): Renamed from
`org-element--cache-record-change'.
(org-element-cache-get): Change signature.
(org-element-cache-put): Rewrite function. Use new tools.
(org-element-cache-reset): Adapt to new variables.
(org-element--cache-sync): Rewrite function.
* lisp/ox.el (org-export--generate-copy-script): Do not copy through
new cache-related variables.
(org-export-ignored-local-variables): New variable.
* testing/lisp/test-org-element.el (test-org-element/cache): New test.
Now only the part of the cache that needs to be accessed is updated
synchronously. Otherwise, it happens on idle time.
2014-01-30 19:14:44 -05:00
|
|
|
|
;; Sensitive change: adding a line alters document structure both
|
|
|
|
|
|
;; above and below.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'example-block
|
|
|
|
|
|
(org-test-with-temp-text "#+BEGIN_EXAMPLE\nPara1\n\nPara2\n"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(org-element-at-point)
|
|
|
|
|
|
(insert "#+END_EXAMPLE")
|
|
|
|
|
|
(search-backward "Para1")
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'example-block
|
|
|
|
|
|
(org-test-with-temp-text "Para1\n\nPara2\n#+END_EXAMPLE"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(save-excursion (goto-char (point-max)) (org-element-at-point))
|
|
|
|
|
|
(insert "#+BEGIN_EXAMPLE\n")
|
|
|
|
|
|
(search-forward "Para2")
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
|
|
|
|
|
;; Sensitive change: removing a line alters document structure both
|
|
|
|
|
|
;; above and below.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'example-block
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"# +BEGIN_EXAMPLE\nPara1\n\nPara2\n#+END_EXAMPLE"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(save-excursion (goto-char (point-max)) (org-element-at-point))
|
|
|
|
|
|
(forward-char)
|
|
|
|
|
|
(delete-char 1)
|
|
|
|
|
|
(search-forward "Para2")
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'example-block
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"#+BEGIN_EXAMPLE\nPara1\n\nPara2\n# +END_EXAMPLE"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(save-excursion (goto-char (point-max)) (org-element-at-point))
|
|
|
|
|
|
(search-forward "# ")
|
|
|
|
|
|
(delete-char -1)
|
|
|
|
|
|
(search-backward "Para1")
|
2015-04-05 18:37:49 -04:00
|
|
|
|
(org-element-type (org-element-at-point))))))
|
2021-12-15 22:53:01 -05:00
|
|
|
|
;; Make sure that we do not generate intersecting elements.
|
|
|
|
|
|
(should (eq 'paragraph
|
|
|
|
|
|
(org-test-with-temp-text ":DRAWER:\nP1\n<point>\n:END:\n#+END_EXAMPLE"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-at-point (point-max))
|
|
|
|
|
|
(org-element-at-point)
|
|
|
|
|
|
(insert "#+BEGIN_EXAMPLE")
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
|
|
|
|
|
;; But yet correctly slurp obsolete elements inside a new element.
|
|
|
|
|
|
(should (eq 'example-block
|
|
|
|
|
|
(org-test-with-temp-text ":DRAWER:\nP1\n<point>\nP2\n#+END_EXAMPLE\n:END:"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-at-point (point-max))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(re-search-forward "P2")
|
|
|
|
|
|
(should (eq 'paragraph (org-element-type (org-element-at-point))))
|
|
|
|
|
|
(re-search-forward "END_")
|
|
|
|
|
|
(should (eq 'paragraph (org-element-type (org-element-at-point)))))
|
|
|
|
|
|
(insert "#+BEGIN_EXAMPLE")
|
|
|
|
|
|
(re-search-forward "P2")
|
|
|
|
|
|
(should (eq 'example-block (org-element-type (org-element-at-point))))
|
|
|
|
|
|
(re-search-forward "END_")
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
2021-12-15 23:03:18 -05:00
|
|
|
|
;; Test edits near :end of element
|
|
|
|
|
|
(should-not (eq 'headline
|
|
|
|
|
|
(org-test-with-temp-text "* H1\nP1\n<point>*H2\n"
|
2021-12-17 07:23:50 -05:00
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-cache-map #'ignore :granularity 'element)
|
|
|
|
|
|
(insert "Blah")
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
2021-12-15 23:03:18 -05:00
|
|
|
|
(should-not (eq 'headline
|
|
|
|
|
|
(org-test-with-temp-text "* H1\nP1\n<point>*H2\n"
|
2023-03-05 16:01:11 -05:00
|
|
|
|
(let ((org-element-use-cache t))
|
2021-12-17 07:23:50 -05:00
|
|
|
|
(org-element-cache-map #'ignore :granularity 'element)
|
|
|
|
|
|
(backward-delete-char 1)
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
|
|
|
|
|
(org-test-with-temp-text "Paragraph.\n #<point> comment"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-cache-map #'ignore :granularity 'element)
|
|
|
|
|
|
(should (eq 'comment (org-element-type (org-element-at-point))))
|
|
|
|
|
|
(insert "not comment anymore")
|
|
|
|
|
|
(org-element-cache-map #'ignore :granularity 'element)
|
|
|
|
|
|
(should-not (eq 'comment (org-element-type (org-element-at-point))))
|
|
|
|
|
|
(should (eq (org-element-at-point) (org-element-at-point 1)))))
|
2021-12-15 23:03:18 -05:00
|
|
|
|
(should (eq 'headline
|
2022-01-21 07:53:11 -05:00
|
|
|
|
(org-test-with-temp-text "* H1\nP1\n<point>* H2\n"
|
2021-12-17 07:23:50 -05:00
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-cache-map #'ignore :granularity 'element)
|
|
|
|
|
|
(insert "Blah\n")
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
2015-04-05 18:37:49 -04:00
|
|
|
|
;; Corner case: watch out drawers named "PROPERTIES" as they are
|
|
|
|
|
|
;; fragile, unlike to other drawers.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'node-property
|
|
|
|
|
|
(org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:A<point>\n:END:"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-at-point)
|
|
|
|
|
|
(insert "+:")
|
2015-06-14 08:52:04 -04:00
|
|
|
|
(org-element-type (org-element-at-point))))))
|
|
|
|
|
|
;; Properly handle elements not altered by modifications but whose
|
|
|
|
|
|
;; parents were removed from cache.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"Paragraph\n\n\n\n#+begin_center\n<point>contents\n#+end_center"
|
|
|
|
|
|
(let ((org-element-use-cache t)
|
|
|
|
|
|
(parent-end (point-max)))
|
|
|
|
|
|
(org-element-at-point)
|
|
|
|
|
|
(save-excursion (search-backward "Paragraph")
|
|
|
|
|
|
(forward-line 2)
|
|
|
|
|
|
(insert "\n "))
|
|
|
|
|
|
(eq (org-element-property
|
|
|
|
|
|
:end (org-element-property :parent (org-element-at-point)))
|
|
|
|
|
|
(+ parent-end 3))))))
|
org-element: Implement lazy cache synchronization
* lisp/org-element.el (org-element-cache-sync-idle-time): Change
default value.
(org-element-cache-sync-duration, org-element-cache-sync-break,
org-element--cache-sync-requests, org-element--cache-sync-timer,
org-element--cache-sync-keys, org-element--cache-default-key,
org-element--cache-change-warning): New variables.
(org-element-cache-merge-changes-threshold,
org-element--cache-status): Removed variables.
(org-element--cache-key, org-element--cache-generate-key,
org-element--cache-key-less-p, org-element--cache-find,
org-element--cache-set-timer, org-element--cache-process-request,
org-element--cache-submit-request, org-element--parse-to,
org-element--cache-interrupt-p, org-element--cache-put,
org-element--cache-active-p): New functions.
(org-element--cache-compare): Adapt to new keys in AVL tree.
(org-element--cache-pending-changes-p,
org-element--cache-cancel-changes, org-element--cache-mapc,
org-element-cache-get, org-element-cache-put): Removed functions.
(org-element--cache-before-change): Use new variables.
(org-element--cache-after-change): Renamed from
`org-element--cache-record-change'.
(org-element-cache-get): Change signature.
(org-element-cache-put): Rewrite function. Use new tools.
(org-element-cache-reset): Adapt to new variables.
(org-element--cache-sync): Rewrite function.
* lisp/ox.el (org-export--generate-copy-script): Do not copy through
new cache-related variables.
(org-export-ignored-local-variables): New variable.
* testing/lisp/test-org-element.el (test-org-element/cache): New test.
Now only the part of the cache that needs to be accessed is updated
synchronously. Otherwise, it happens on idle time.
2014-01-30 19:14:44 -05:00
|
|
|
|
|
2022-01-07 08:24:43 -05:00
|
|
|
|
(ert-deftest test-org-element/cache-affiliated ()
|
|
|
|
|
|
"Test updating affiliated keywords."
|
|
|
|
|
|
;; Inserting a line right after other keywords.
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-test-with-temp-text "
|
|
|
|
|
|
#+caption: test
|
|
|
|
|
|
#+name: test
|
|
|
|
|
|
<point>
|
|
|
|
|
|
line"
|
|
|
|
|
|
(org-element-cache-map #'ignore :granularity 'element)
|
|
|
|
|
|
(should (eq 'keyword (org-element-type (org-element-at-point))))
|
2023-10-12 07:24:35 -04:00
|
|
|
|
(insert "1")
|
2022-01-07 08:24:43 -05:00
|
|
|
|
(should (eq 2 (org-element-property :begin (org-element-at-point)))))))
|
|
|
|
|
|
|
2021-12-15 22:52:22 -05:00
|
|
|
|
(ert-deftest test-org-element/cache-table ()
|
|
|
|
|
|
"Test handling edits in tables."
|
2021-05-15 08:27:20 -04:00
|
|
|
|
;; Unindented second row of the table should not be re-parented by
|
|
|
|
|
|
;; inserted item.
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'table
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-test-with-temp-text
|
2021-10-16 11:42:30 -04:00
|
|
|
|
"#+begin_center
|
|
|
|
|
|
P0
|
|
|
|
|
|
|
|
|
|
|
|
<point>
|
|
|
|
|
|
|
|
|
|
|
|
P1
|
|
|
|
|
|
| a | b |
|
|
|
|
|
|
| c | d |
|
|
|
|
|
|
#+end_center"
|
2021-05-15 08:27:20 -04:00
|
|
|
|
(save-excursion (search-forward "| c |") (org-element-at-point))
|
|
|
|
|
|
(insert "- item")
|
|
|
|
|
|
(search-forward "| c |")
|
|
|
|
|
|
(beginning-of-line)
|
2021-10-16 11:42:30 -04:00
|
|
|
|
(org-element-type (org-element-at-point))))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'table
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"
|
|
|
|
|
|
- item 1
|
|
|
|
|
|
|
|
|
|
|
|
<point>
|
|
|
|
|
|
| a | b |
|
|
|
|
|
|
| c | d |
|
|
|
|
|
|
#+end_center"
|
|
|
|
|
|
(save-excursion (search-forward "| c |") (org-element-at-point))
|
|
|
|
|
|
(delete-char 1)
|
|
|
|
|
|
(search-forward "| c |")
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(org-element-type (org-element-at-point))))))
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq 'table-row
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"
|
|
|
|
|
|
- item 1
|
|
|
|
|
|
<point>
|
|
|
|
|
|
| a | b |
|
|
|
|
|
|
| c | d |
|
|
|
|
|
|
#+end_center"
|
|
|
|
|
|
(save-excursion (search-forward "| c |") (org-element-at-point))
|
|
|
|
|
|
(insert "\n")
|
|
|
|
|
|
(search-forward "| c |")
|
|
|
|
|
|
(beginning-of-line)
|
2021-05-15 08:27:20 -04:00
|
|
|
|
(org-element-type (org-element-at-point)))))))
|
org-element: Implement lazy cache synchronization
* lisp/org-element.el (org-element-cache-sync-idle-time): Change
default value.
(org-element-cache-sync-duration, org-element-cache-sync-break,
org-element--cache-sync-requests, org-element--cache-sync-timer,
org-element--cache-sync-keys, org-element--cache-default-key,
org-element--cache-change-warning): New variables.
(org-element-cache-merge-changes-threshold,
org-element--cache-status): Removed variables.
(org-element--cache-key, org-element--cache-generate-key,
org-element--cache-key-less-p, org-element--cache-find,
org-element--cache-set-timer, org-element--cache-process-request,
org-element--cache-submit-request, org-element--parse-to,
org-element--cache-interrupt-p, org-element--cache-put,
org-element--cache-active-p): New functions.
(org-element--cache-compare): Adapt to new keys in AVL tree.
(org-element--cache-pending-changes-p,
org-element--cache-cancel-changes, org-element--cache-mapc,
org-element-cache-get, org-element-cache-put): Removed functions.
(org-element--cache-before-change): Use new variables.
(org-element--cache-after-change): Renamed from
`org-element--cache-record-change'.
(org-element-cache-get): Change signature.
(org-element-cache-put): Rewrite function. Use new tools.
(org-element-cache-reset): Adapt to new variables.
(org-element--cache-sync): Rewrite function.
* lisp/ox.el (org-export--generate-copy-script): Do not copy through
new cache-related variables.
(org-export-ignored-local-variables): New variable.
* testing/lisp/test-org-element.el (test-org-element/cache): New test.
Now only the part of the cache that needs to be accessed is updated
synchronously. Otherwise, it happens on idle time.
2014-01-30 19:14:44 -05:00
|
|
|
|
|
2021-10-16 11:42:30 -04:00
|
|
|
|
(ert-deftest test-org-element/cache-headline ()
|
|
|
|
|
|
"Test basic expectations and common pitfalls for cached headings."
|
|
|
|
|
|
;; Appending to final headline in a subtree.
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"
|
|
|
|
|
|
* Heading
|
|
|
|
|
|
Aliquam erat volutpat.
|
|
|
|
|
|
|
|
|
|
|
|
*** Subheading
|
|
|
|
|
|
** Another
|
|
|
|
|
|
** Final
|
|
|
|
|
|
:PROPERTIES:
|
|
|
|
|
|
:ID: some
|
|
|
|
|
|
<point>:END:
|
|
|
|
|
|
* Heading 2
|
|
|
|
|
|
** End
|
|
|
|
|
|
"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-at-point)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(org-element-at-point))
|
|
|
|
|
|
(insert ":CATEOGORY: cat\n")
|
|
|
|
|
|
(search-backward "* Heading")
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq (org-element-property :end (org-element-at-point))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(search-forward "* Heading 2")
|
|
|
|
|
|
(line-beginning-position))))
|
|
|
|
|
|
(search-forward "* Heading 2")
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(insert "\n\n")
|
|
|
|
|
|
(search-backward "* Heading")
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq (org-element-property :end (org-element-at-point))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(search-forward "* Heading 2")
|
|
|
|
|
|
(line-beginning-position))))))
|
|
|
|
|
|
;; Appending at eob.
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"
|
|
|
|
|
|
* Heading
|
|
|
|
|
|
*** Sub-heading
|
|
|
|
|
|
** Another
|
|
|
|
|
|
*** 1
|
|
|
|
|
|
***** 2
|
|
|
|
|
|
** 3
|
|
|
|
|
|
Aenean in sem ac leo mollis blandit.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<point>"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-at-point (point-max))
|
|
|
|
|
|
(insert "\n\nTest\n")
|
|
|
|
|
|
(search-backward "* Heading")
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq (point-max)
|
|
|
|
|
|
(org-element-property :end (org-element-at-point))))))
|
|
|
|
|
|
;; Breaking headline at eob.
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"
|
|
|
|
|
|
* Heading
|
|
|
|
|
|
*** Sub-heading
|
|
|
|
|
|
<point>"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-at-point (point-max))
|
|
|
|
|
|
(insert "* heading 2")
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq (point-max)
|
|
|
|
|
|
(org-element-property :end (org-element-at-point))))
|
|
|
|
|
|
(delete-char 1)
|
|
|
|
|
|
(search-backward "* Heading")
|
|
|
|
|
|
(should
|
|
|
|
|
|
(eq (point-max)
|
|
|
|
|
|
(org-element-property :end (org-element-at-point))))))
|
|
|
|
|
|
;; Inserting low-level headline in-between.
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"
|
|
|
|
|
|
* Heading
|
|
|
|
|
|
*** Sub-heading
|
|
|
|
|
|
<point>
|
|
|
|
|
|
*** Sub-heading 2
|
|
|
|
|
|
*** Sub-heading 3
|
|
|
|
|
|
"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-at-point (point-max))
|
|
|
|
|
|
(insert "** heading 2")
|
|
|
|
|
|
(search-forward "*** Sub-heading 2")
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal (org-element-property :parent (org-element-at-point))
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(search-backward "** heading 2")
|
|
|
|
|
|
(org-element-at-point))))))
|
|
|
|
|
|
;; Test when `org-element--cache-for-removal' modifies common parent
|
|
|
|
|
|
;; (`org-data' in this case) around changed region.
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"blah
|
|
|
|
|
|
:DRAWER:
|
|
|
|
|
|
<point>test
|
|
|
|
|
|
:END:
|
|
|
|
|
|
paragraph
|
|
|
|
|
|
* headline"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-at-point (point-max))
|
|
|
|
|
|
(delete-region (point) (point-max))
|
2023-08-16 04:41:31 -04:00
|
|
|
|
(should (eq 'paragraph (org-element-type (org-element-at-point))))))
|
|
|
|
|
|
;; Remove/re-introduce heading.
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"
|
|
|
|
|
|
* 1
|
|
|
|
|
|
** 1-1
|
|
|
|
|
|
a
|
|
|
|
|
|
<point>** 1-2
|
|
|
|
|
|
a
|
|
|
|
|
|
"
|
|
|
|
|
|
(let ((org-element-use-cache t))
|
|
|
|
|
|
(org-element-at-point (point-max))
|
|
|
|
|
|
(insert "FOO")
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
"1-1"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:title
|
|
|
|
|
|
(org-element-lineage (org-element-at-point) '(headline)))))
|
|
|
|
|
|
(insert "\n")
|
|
|
|
|
|
(should
|
|
|
|
|
|
(equal
|
|
|
|
|
|
"1"
|
|
|
|
|
|
(org-element-property
|
|
|
|
|
|
:title
|
|
|
|
|
|
(org-element-lineage (org-element-at-point) '(headline))))))))
|
2021-10-16 11:42:30 -04:00
|
|
|
|
|
2023-10-25 04:00:51 -04:00
|
|
|
|
(ert-deftest test-org-element/cache-ignored-locals ()
|
|
|
|
|
|
"Test `org-element-ignored-local-variables' value.
|
|
|
|
|
|
Anything holding element cache state must not be copied around
|
|
|
|
|
|
buffers, as in `org-element-copy-buffer' or
|
|
|
|
|
|
`org-export-copy-buffer'. Otherwise, we may encounter
|
|
|
|
|
|
hard-to-debug errors when cache state is either not up-to-date or
|
|
|
|
|
|
modified by side effect, influencing the original values."
|
|
|
|
|
|
(mapatoms
|
|
|
|
|
|
(lambda (var)
|
|
|
|
|
|
(when (and (boundp var)
|
|
|
|
|
|
(symbol-value var)
|
|
|
|
|
|
(string-match-p "^org-element--cache" (symbol-name var))
|
|
|
|
|
|
(not (memq var '(org-element--cache-interrupt-C-g-max-count
|
|
|
|
|
|
org-element--cache-map-statistics-threshold
|
|
|
|
|
|
org-element--cache-variables
|
|
|
|
|
|
org-element--cache-interrupt-C-g-count
|
|
|
|
|
|
org-element--cache-interrupt-C-g
|
|
|
|
|
|
org-element--cache-element-properties
|
|
|
|
|
|
org-element--cache-sensitive-re
|
|
|
|
|
|
org-element--cache-hash-size
|
|
|
|
|
|
org-element--cache-non-modifying-commands
|
|
|
|
|
|
org-element--cache-self-verify-frequency
|
|
|
|
|
|
org-element--cache-diagnostics-level))))
|
|
|
|
|
|
(should (memq var org-element-ignored-local-variables))))))
|
|
|
|
|
|
|
2024-01-04 08:14:57 -05:00
|
|
|
|
(ert-deftest test-org-element/cache-get-key ()
|
|
|
|
|
|
"Test `org-element-cache-get-key' and `org-element-cache-store-key'."
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* Heading
|
|
|
|
|
|
Paragraph
|
|
|
|
|
|
with text <point>
|
|
|
|
|
|
|
|
|
|
|
|
Another paragraph."
|
|
|
|
|
|
(org-element-cache-store-key
|
|
|
|
|
|
(org-element-lineage (org-element-at-point) '(headline))
|
|
|
|
|
|
:robust-key 'val-robust 'robust)
|
|
|
|
|
|
(org-element-cache-store-key
|
|
|
|
|
|
(org-element-lineage (org-element-at-point) '(headline))
|
|
|
|
|
|
:fragile-key 'val-fragile)
|
|
|
|
|
|
(insert "and more text.")
|
|
|
|
|
|
(should (eq 'val-robust
|
|
|
|
|
|
(org-element-cache-get-key
|
|
|
|
|
|
(org-element-lineage (org-element-at-point) '(headline))
|
|
|
|
|
|
:robust-key)))
|
|
|
|
|
|
(should (eq 'not-found
|
|
|
|
|
|
(org-element-cache-get-key
|
|
|
|
|
|
(org-element-lineage (org-element-at-point) '(headline))
|
|
|
|
|
|
:fragile-key 'not-found))))
|
|
|
|
|
|
;; No length change in the altered.
|
|
|
|
|
|
(org-test-with-temp-text
|
|
|
|
|
|
"* Heading
|
|
|
|
|
|
Paragraph
|
|
|
|
|
|
<point>with text
|
|
|
|
|
|
|
|
|
|
|
|
Another paragraph."
|
|
|
|
|
|
(org-element-cache-store-key
|
|
|
|
|
|
(org-element-lineage (org-element-at-point) '(headline))
|
|
|
|
|
|
:robust-key 'val-robust 'robust)
|
|
|
|
|
|
(org-element-cache-store-key
|
|
|
|
|
|
(org-element-lineage (org-element-at-point) '(headline))
|
|
|
|
|
|
:fragile-key 'val-fragile)
|
|
|
|
|
|
(search-forward "with")
|
|
|
|
|
|
(org-combine-change-calls (match-beginning 0) (match-end 0)
|
|
|
|
|
|
(replace-match "asdf"))
|
|
|
|
|
|
(should (eq 'val-robust
|
|
|
|
|
|
(org-element-cache-get-key
|
|
|
|
|
|
(org-element-lineage (org-element-at-point) '(headline))
|
|
|
|
|
|
:robust-key)))
|
|
|
|
|
|
(should (eq 'not-found
|
|
|
|
|
|
(org-element-cache-get-key
|
|
|
|
|
|
(org-element-lineage (org-element-at-point) '(headline))
|
|
|
|
|
|
:fragile-key 'not-found)))))
|
|
|
|
|
|
|
2012-02-23 10:28:13 -05:00
|
|
|
|
(provide 'test-org-element)
|
org-element: Implement lazy cache synchronization
* lisp/org-element.el (org-element-cache-sync-idle-time): Change
default value.
(org-element-cache-sync-duration, org-element-cache-sync-break,
org-element--cache-sync-requests, org-element--cache-sync-timer,
org-element--cache-sync-keys, org-element--cache-default-key,
org-element--cache-change-warning): New variables.
(org-element-cache-merge-changes-threshold,
org-element--cache-status): Removed variables.
(org-element--cache-key, org-element--cache-generate-key,
org-element--cache-key-less-p, org-element--cache-find,
org-element--cache-set-timer, org-element--cache-process-request,
org-element--cache-submit-request, org-element--parse-to,
org-element--cache-interrupt-p, org-element--cache-put,
org-element--cache-active-p): New functions.
(org-element--cache-compare): Adapt to new keys in AVL tree.
(org-element--cache-pending-changes-p,
org-element--cache-cancel-changes, org-element--cache-mapc,
org-element-cache-get, org-element-cache-put): Removed functions.
(org-element--cache-before-change): Use new variables.
(org-element--cache-after-change): Renamed from
`org-element--cache-record-change'.
(org-element-cache-get): Change signature.
(org-element-cache-put): Rewrite function. Use new tools.
(org-element-cache-reset): Adapt to new variables.
(org-element--cache-sync): Rewrite function.
* lisp/ox.el (org-export--generate-copy-script): Do not copy through
new cache-related variables.
(org-export-ignored-local-variables): New variable.
* testing/lisp/test-org-element.el (test-org-element/cache): New test.
Now only the part of the cache that needs to be accessed is updated
synchronously. Otherwise, it happens on idle time.
2014-01-30 19:14:44 -05:00
|
|
|
|
|
2012-02-23 10:28:13 -05:00
|
|
|
|
;;; test-org-element.el ends here
|
