org-element: Remove some unneeded element properties
* contrib/lisp/org-element.el (org-element-center-block-parser, org-element-quote-block-parser, org-element-quote-block-interpreter, org-element-special-block-parser, org-element-special-block-interpreter, org-element-babel-call-interpreter, org-element-comment-block-parser, org-element-export-block-interpreter, org-element-src-block-interpreter, org-element-example-block-interpreter): Use standard case for Org syntax. (org-element-inlinetask-parser): Remove `:raw-value' property. (org-element-headline-interpreter, org-element-inlinetask-interpreter): Rely on `:title' property instead of `:raw-value'. (org-element-item-parser): Remove `:raw-tag' property. (org-element-item-interpreter): Do not use `:raw-tag' anymore. Rely on `:tag' instead. (org-element-verse-block-parser): Remove `:raw-value' property. Use standard case for Org syntax, too. (org-element-verse-block-interpreter): Rely on `:value' instead of `:raw-value'. (org-element-footnote-reference-parser): Remove `:raw-definition' value. (org-element-footnote-reference-interpreter): Use `:inline-definition' property, when non-nil, instead of `:raw-definition'. (org-element-radio-target-parser): Rename `:raw-value' into `:value'. Most raw values don't add worthy information to an element, since they can be retrieved with an interpretation of the secondary string they represent.
This commit is contained in:
Nicolas Goaziou
parent
56321d9a87
commit
ada00fb857
|
|
@ -149,13 +149,13 @@ Assume point is at beginning or end of the block."
|
||||||
(keywords (progn
|
(keywords (progn
|
||||||
(end-of-line)
|
(end-of-line)
|
||||||
(re-search-backward
|
(re-search-backward
|
||||||
(concat "^[ \t]*#\\+begin_center") nil t)
|
(concat "^[ \t]*#\\+BEGIN_CENTER") nil t)
|
||||||
(org-element-collect-affiliated-keywords)))
|
(org-element-collect-affiliated-keywords)))
|
||||||
(begin (car keywords))
|
(begin (car keywords))
|
||||||
(contents-begin (progn (forward-line) (point)))
|
(contents-begin (progn (forward-line) (point)))
|
||||||
(hidden (org-truely-invisible-p))
|
(hidden (org-truely-invisible-p))
|
||||||
(contents-end (progn (re-search-forward
|
(contents-end (progn (re-search-forward
|
||||||
(concat "^[ \t]*#\\+end_center") nil t)
|
(concat "^[ \t]*#\\+END_CENTER") nil t)
|
||||||
(point-at-bol)))
|
(point-at-bol)))
|
||||||
(pos-before-blank (progn (forward-line) (point)))
|
(pos-before-blank (progn (forward-line) (point)))
|
||||||
(end (progn (org-skip-whitespace)
|
(end (progn (org-skip-whitespace)
|
||||||
|
|
@ -416,7 +416,8 @@ CONTENTS is the contents of the element."
|
||||||
(let* ((level (org-element-property :level headline))
|
(let* ((level (org-element-property :level headline))
|
||||||
(todo (org-element-property :todo-keyword headline))
|
(todo (org-element-property :todo-keyword headline))
|
||||||
(priority (org-element-property :priority headline))
|
(priority (org-element-property :priority headline))
|
||||||
(title (org-element-property :raw-value headline))
|
(title (org-element-interpret-secondary
|
||||||
|
(org-element-property :title headline)))
|
||||||
(tags (let ((tag-string (org-element-property :tags headline))
|
(tags (let ((tag-string (org-element-property :tags headline))
|
||||||
(archivedp (org-element-property :archivedp headline)))
|
(archivedp (org-element-property :archivedp headline)))
|
||||||
(cond
|
(cond
|
||||||
|
|
@ -460,11 +461,10 @@ CONTENTS is the contents of the element."
|
||||||
"Parse an inline task.
|
"Parse an inline task.
|
||||||
|
|
||||||
Return a list whose car is `inlinetask' and cdr is a plist
|
Return a list whose car is `inlinetask' and cdr is a plist
|
||||||
containing `:raw-value', `:title', `:begin', `:end', `:hiddenp',
|
containing `:title', `:begin', `:end', `:hiddenp',
|
||||||
`:contents-begin' and `:contents-end', `:level', `:priority',
|
`:contents-begin' and `:contents-end', `:level', `:priority',
|
||||||
`:raw-value', `:tags', `:todo-keyword', `:todo-type',
|
`:tags', `:todo-keyword', `:todo-type', `:scheduled',
|
||||||
`:scheduled', `:deadline', `:timestamp', `:clock' and
|
`:deadline', `:timestamp', `:clock' and `:post-blank' keywords.
|
||||||
`:post-blank' keywords.
|
|
||||||
|
|
||||||
The plist also contains any property set in the property drawer,
|
The plist also contains any property set in the property drawer,
|
||||||
with its name in lowercase, the underscores replaced with hyphens
|
with its name in lowercase, the underscores replaced with hyphens
|
||||||
|
|
@ -478,7 +478,9 @@ Assume point is at beginning of the inline task."
|
||||||
(todo (nth 2 components))
|
(todo (nth 2 components))
|
||||||
(todo-type (and todo
|
(todo-type (and todo
|
||||||
(if (member todo org-done-keywords) 'done 'todo)))
|
(if (member todo org-done-keywords) 'done 'todo)))
|
||||||
(raw-value (nth 4 components))
|
(title (org-element-parse-secondary-string
|
||||||
|
(nth 4 components)
|
||||||
|
(cdr (assq 'inlinetask org-element-string-restrictions))))
|
||||||
(standard-props (let (plist)
|
(standard-props (let (plist)
|
||||||
(mapc
|
(mapc
|
||||||
(lambda (p)
|
(lambda (p)
|
||||||
|
|
@ -496,9 +498,6 @@ Assume point is at beginning of the inline task."
|
||||||
(deadline (cdr (assoc "DEADLINE" time-props)))
|
(deadline (cdr (assoc "DEADLINE" time-props)))
|
||||||
(clock (cdr (assoc "CLOCK" time-props)))
|
(clock (cdr (assoc "CLOCK" time-props)))
|
||||||
(timestamp (cdr (assoc "TIMESTAMP" time-props)))
|
(timestamp (cdr (assoc "TIMESTAMP" time-props)))
|
||||||
(title (org-element-parse-secondary-string
|
|
||||||
raw-value
|
|
||||||
(cdr (assq 'inlinetask org-element-string-restrictions))))
|
|
||||||
(contents-begin (save-excursion (forward-line) (point)))
|
(contents-begin (save-excursion (forward-line) (point)))
|
||||||
(hidden (org-truely-invisible-p))
|
(hidden (org-truely-invisible-p))
|
||||||
(pos-before-blank (org-inlinetask-goto-end))
|
(pos-before-blank (org-inlinetask-goto-end))
|
||||||
|
|
@ -509,25 +508,24 @@ Assume point is at beginning of the inline task."
|
||||||
(end (progn (org-skip-whitespace)
|
(end (progn (org-skip-whitespace)
|
||||||
(if (eobp) (point) (point-at-bol)))))
|
(if (eobp) (point) (point-at-bol)))))
|
||||||
`(inlinetask
|
`(inlinetask
|
||||||
(:raw-value ,raw-value
|
(:title ,title
|
||||||
:title ,title
|
:begin ,begin
|
||||||
:begin ,begin
|
:end ,end
|
||||||
:end ,end
|
:hiddenp ,(and (> contents-end contents-begin) hidden)
|
||||||
:hiddenp ,(and (> contents-end contents-begin) hidden)
|
:contents-begin ,contents-begin
|
||||||
:contents-begin ,contents-begin
|
:contents-end ,contents-end
|
||||||
:contents-end ,contents-end
|
:level ,(nth 1 components)
|
||||||
:level ,(nth 1 components)
|
:priority ,(nth 3 components)
|
||||||
:priority ,(nth 3 components)
|
:tags ,(nth 5 components)
|
||||||
:tags ,(nth 5 components)
|
:todo-keyword ,todo
|
||||||
:todo-keyword ,todo
|
:todo-type ,todo-type
|
||||||
:todo-type ,todo-type
|
:scheduled ,scheduled
|
||||||
:scheduled ,scheduled
|
:deadline ,deadline
|
||||||
:deadline ,deadline
|
:timestamp ,timestamp
|
||||||
:timestamp ,timestamp
|
:clock ,clock
|
||||||
:clock ,clock
|
:post-blank ,(count-lines pos-before-blank end)
|
||||||
:post-blank ,(count-lines pos-before-blank end)
|
,@standard-props
|
||||||
,@standard-props
|
,@(cadr keywords))))))
|
||||||
,@(cadr keywords))))))
|
|
||||||
|
|
||||||
(defun org-element-inlinetask-interpreter (inlinetask contents)
|
(defun org-element-inlinetask-interpreter (inlinetask contents)
|
||||||
"Interpret INLINETASK element as Org syntax.
|
"Interpret INLINETASK element as Org syntax.
|
||||||
|
|
@ -535,7 +533,8 @@ CONTENTS is the contents of inlinetask."
|
||||||
(let* ((level (org-element-property :level inlinetask))
|
(let* ((level (org-element-property :level inlinetask))
|
||||||
(todo (org-element-property :todo-keyword inlinetask))
|
(todo (org-element-property :todo-keyword inlinetask))
|
||||||
(priority (org-element-property :priority inlinetask))
|
(priority (org-element-property :priority inlinetask))
|
||||||
(title (org-element-property :raw-value inlinetask))
|
(title (org-element-interpret-secondary
|
||||||
|
(org-element-property :title inlinetask)))
|
||||||
(tags (org-element-property :tags inlinetask))
|
(tags (org-element-property :tags inlinetask))
|
||||||
(task (concat (make-string level ?*)
|
(task (concat (make-string level ?*)
|
||||||
(and todo (concat " " todo))
|
(and todo (concat " " todo))
|
||||||
|
|
@ -565,8 +564,8 @@ STRUCT is the structure of the plain list.
|
||||||
|
|
||||||
Return a list whose car is `item' and cdr is a plist containing
|
Return a list whose car is `item' and cdr is a plist containing
|
||||||
`:bullet', `:begin', `:end', `:contents-begin', `:contents-end',
|
`:bullet', `:begin', `:end', `:contents-begin', `:contents-end',
|
||||||
`:checkbox', `:counter', `:tag', `:raw-tag', `:structure',
|
`:checkbox', `:counter', `:tag', `:structure', `:hiddenp' and
|
||||||
`:hiddenp' and `:post-blank' keywords.
|
`:post-blank' keywords.
|
||||||
|
|
||||||
Assume point is at the beginning of the item."
|
Assume point is at the beginning of the item."
|
||||||
(save-excursion
|
(save-excursion
|
||||||
|
|
@ -585,11 +584,11 @@ Assume point is at the beginning of the item."
|
||||||
64))
|
64))
|
||||||
((string-match "[0-9]+" c)
|
((string-match "[0-9]+" c)
|
||||||
(string-to-number (match-string 0 c))))))
|
(string-to-number (match-string 0 c))))))
|
||||||
(raw-tag (org-list-get-tag begin struct))
|
(tag (let ((raw-tag (org-list-get-tag begin struct)))
|
||||||
(tag (and raw-tag
|
(and raw-tag
|
||||||
(org-element-parse-secondary-string
|
(org-element-parse-secondary-string
|
||||||
raw-tag
|
raw-tag
|
||||||
(cdr (assq 'item org-element-string-restrictions)))))
|
(cdr (assq 'item org-element-string-restrictions))))))
|
||||||
(end (org-list-get-item-end begin struct))
|
(end (org-list-get-item-end begin struct))
|
||||||
(contents-begin (progn (looking-at org-list-full-item-re)
|
(contents-begin (progn (looking-at org-list-full-item-re)
|
||||||
(goto-char (match-end 0))
|
(goto-char (match-end 0))
|
||||||
|
|
@ -618,7 +617,6 @@ Assume point is at the beginning of the item."
|
||||||
:contents-end ,(max contents-begin contents-end)
|
:contents-end ,(max contents-begin contents-end)
|
||||||
:checkbox ,checkbox
|
:checkbox ,checkbox
|
||||||
:counter ,counter
|
:counter ,counter
|
||||||
:raw-tag ,raw-tag
|
|
||||||
:tag ,tag
|
:tag ,tag
|
||||||
:hiddenp ,hidden
|
:hiddenp ,hidden
|
||||||
:structure ,struct
|
:structure ,struct
|
||||||
|
|
@ -645,7 +643,8 @@ CONTENTS is the contents of the element."
|
||||||
".")))))))
|
".")))))))
|
||||||
(checkbox (org-element-property :checkbox item))
|
(checkbox (org-element-property :checkbox item))
|
||||||
(counter (org-element-property :counter item))
|
(counter (org-element-property :counter item))
|
||||||
(tag (org-element-property :raw-tag item))
|
(tag (let ((tag (org-element-property :tag item)))
|
||||||
|
(and tag (org-element-interpret-secondary tag))))
|
||||||
;; Compute indentation.
|
;; Compute indentation.
|
||||||
(ind (make-string (length bullet) 32)))
|
(ind (make-string (length bullet) 32)))
|
||||||
;; Indent contents.
|
;; Indent contents.
|
||||||
|
|
@ -734,13 +733,13 @@ Assume point is at beginning or end of the block."
|
||||||
(keywords (progn
|
(keywords (progn
|
||||||
(end-of-line)
|
(end-of-line)
|
||||||
(re-search-backward
|
(re-search-backward
|
||||||
(concat "^[ \t]*#\\+begin_quote") nil t)
|
(concat "^[ \t]*#\\+BEGIN_QUOTE") nil t)
|
||||||
(org-element-collect-affiliated-keywords)))
|
(org-element-collect-affiliated-keywords)))
|
||||||
(begin (car keywords))
|
(begin (car keywords))
|
||||||
(contents-begin (progn (forward-line) (point)))
|
(contents-begin (progn (forward-line) (point)))
|
||||||
(hidden (org-truely-invisible-p))
|
(hidden (org-truely-invisible-p))
|
||||||
(contents-end (progn (re-search-forward
|
(contents-end (progn (re-search-forward
|
||||||
(concat "^[ \t]*#\\+end_quote") nil t)
|
(concat "^[ \t]*#\\+END_QUOTE") nil t)
|
||||||
(point-at-bol)))
|
(point-at-bol)))
|
||||||
(pos-before-blank (progn (forward-line) (point)))
|
(pos-before-blank (progn (forward-line) (point)))
|
||||||
(end (progn (org-skip-whitespace)
|
(end (progn (org-skip-whitespace)
|
||||||
|
|
@ -757,7 +756,7 @@ Assume point is at beginning or end of the block."
|
||||||
(defun org-element-quote-block-interpreter (quote-block contents)
|
(defun org-element-quote-block-interpreter (quote-block contents)
|
||||||
"Interpret QUOTE-BLOCK element as Org syntax.
|
"Interpret QUOTE-BLOCK element as Org syntax.
|
||||||
CONTENTS is the contents of the element."
|
CONTENTS is the contents of the element."
|
||||||
(format "#+begin_quote\n%s#+end_quote" contents))
|
(format "#+BEGIN_QUOTE\n%s#+END_QUOTE" contents))
|
||||||
|
|
||||||
|
|
||||||
;;;; Section
|
;;;; Section
|
||||||
|
|
@ -807,18 +806,18 @@ Assume point is at beginning or end of the block."
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(let* ((case-fold-search t)
|
(let* ((case-fold-search t)
|
||||||
(type (progn (looking-at
|
(type (progn (looking-at
|
||||||
"[ \t]*#\\+\\(?:begin\\|end\\)_\\([-A-Za-z0-9]+\\)")
|
"[ \t]*#\\+\\(?:BEGIN\\|END\\)_\\([-A-Za-z0-9]+\\)")
|
||||||
(org-match-string-no-properties 1)))
|
(org-match-string-no-properties 1)))
|
||||||
(keywords (progn
|
(keywords (progn
|
||||||
(end-of-line)
|
(end-of-line)
|
||||||
(re-search-backward
|
(re-search-backward
|
||||||
(concat "^[ \t]*#\\+begin_" type) nil t)
|
(concat "^[ \t]*#\\+BEGIN_" type) nil t)
|
||||||
(org-element-collect-affiliated-keywords)))
|
(org-element-collect-affiliated-keywords)))
|
||||||
(begin (car keywords))
|
(begin (car keywords))
|
||||||
(contents-begin (progn (forward-line) (point)))
|
(contents-begin (progn (forward-line) (point)))
|
||||||
(hidden (org-truely-invisible-p))
|
(hidden (org-truely-invisible-p))
|
||||||
(contents-end (progn (re-search-forward
|
(contents-end (progn (re-search-forward
|
||||||
(concat "^[ \t]*#\\+end_" type) nil t)
|
(concat "^[ \t]*#\\+END_" type) nil t)
|
||||||
(point-at-bol)))
|
(point-at-bol)))
|
||||||
(pos-before-blank (progn (forward-line) (point)))
|
(pos-before-blank (progn (forward-line) (point)))
|
||||||
(end (progn (org-skip-whitespace)
|
(end (progn (org-skip-whitespace)
|
||||||
|
|
@ -837,7 +836,7 @@ Assume point is at beginning or end of the block."
|
||||||
"Interpret SPECIAL-BLOCK element as Org syntax.
|
"Interpret SPECIAL-BLOCK element as Org syntax.
|
||||||
CONTENTS is the contents of the element."
|
CONTENTS is the contents of the element."
|
||||||
(let ((block-type (org-element-property :type special-block)))
|
(let ((block-type (org-element-property :type special-block)))
|
||||||
(format "#+begin_%s\n%s#+end_%s" block-type contents block-type)))
|
(format "#+BEGIN_%s\n%s#+END_%s" block-type contents block-type)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -883,7 +882,7 @@ CONTENTS is nil."
|
||||||
(let* ((babel-info (org-element-property :info inline-babel-call))
|
(let* ((babel-info (org-element-property :info inline-babel-call))
|
||||||
(main-source (car babel-info))
|
(main-source (car babel-info))
|
||||||
(post-options (nth 1 babel-info)))
|
(post-options (nth 1 babel-info)))
|
||||||
(concat "#+call: "
|
(concat "#+CALL: "
|
||||||
(if (string-match "\\[\\(\\[.*?\\]\\)\\]" main-source)
|
(if (string-match "\\[\\(\\[.*?\\]\\)\\]" main-source)
|
||||||
;; Remove redundant square brackets.
|
;; Remove redundant square brackets.
|
||||||
(replace-match
|
(replace-match
|
||||||
|
|
@ -957,13 +956,13 @@ containing `:begin', `:end', `:hiddenp', `:value' and
|
||||||
(end-of-line)
|
(end-of-line)
|
||||||
(let* ((case-fold-search t)
|
(let* ((case-fold-search t)
|
||||||
(keywords (progn
|
(keywords (progn
|
||||||
(re-search-backward "^[ \t]*#\\+begin_comment" nil t)
|
(re-search-backward "^[ \t]*#\\+BEGIN_COMMENT" nil t)
|
||||||
(org-element-collect-affiliated-keywords)))
|
(org-element-collect-affiliated-keywords)))
|
||||||
(begin (car keywords))
|
(begin (car keywords))
|
||||||
(contents-begin (progn (forward-line) (point)))
|
(contents-begin (progn (forward-line) (point)))
|
||||||
(hidden (org-truely-invisible-p))
|
(hidden (org-truely-invisible-p))
|
||||||
(contents-end (progn (re-search-forward
|
(contents-end (progn (re-search-forward
|
||||||
"^[ \t]*#\\+end_comment" nil t)
|
"^[ \t]*#\\+END_COMMENT" nil t)
|
||||||
(point-at-bol)))
|
(point-at-bol)))
|
||||||
(pos-before-blank (progn (forward-line) (point)))
|
(pos-before-blank (progn (forward-line) (point)))
|
||||||
(end (progn (org-skip-whitespace)
|
(end (progn (org-skip-whitespace)
|
||||||
|
|
@ -1051,10 +1050,10 @@ containing `:begin', `:end', `:number-lines', `:preserve-indent',
|
||||||
"Interpret EXAMPLE-BLOCK element as Org syntax.
|
"Interpret EXAMPLE-BLOCK element as Org syntax.
|
||||||
CONTENTS is nil."
|
CONTENTS is nil."
|
||||||
(let ((options (org-element-property :options example-block)))
|
(let ((options (org-element-property :options example-block)))
|
||||||
(concat "#+begin_example" (and options (concat " " options)) "\n"
|
(concat "#+BEGIN_EXAMPLE" (and options (concat " " options)) "\n"
|
||||||
(org-remove-indentation
|
(org-remove-indentation
|
||||||
(org-element-property :value example-block))
|
(org-element-property :value example-block))
|
||||||
"#+end_example")))
|
"#+END_EXAMPLE")))
|
||||||
|
|
||||||
|
|
||||||
;;;; Export Block
|
;;;; Export Block
|
||||||
|
|
@ -1097,9 +1096,9 @@ containing `:begin', `:end', `:type', `:hiddenp', `:value' and
|
||||||
"Interpret EXPORT-BLOCK element as Org syntax.
|
"Interpret EXPORT-BLOCK element as Org syntax.
|
||||||
CONTENTS is nil."
|
CONTENTS is nil."
|
||||||
(let ((type (org-element-property :type export-block)))
|
(let ((type (org-element-property :type export-block)))
|
||||||
(concat (format "#+begin_%s\n" type)
|
(concat (format "#+BEGIN_%s\n" type)
|
||||||
(org-element-property :value export-block)
|
(org-element-property :value export-block)
|
||||||
(format "#+end_%s" type))))
|
(format "#+END_%s" type))))
|
||||||
|
|
||||||
|
|
||||||
;;;; Fixed-width
|
;;;; Fixed-width
|
||||||
|
|
@ -1461,12 +1460,12 @@ CONTENTS is nil."
|
||||||
(replace-regexp-in-string
|
(replace-regexp-in-string
|
||||||
"\\(^\\)[ \t]*\\S-" ind
|
"\\(^\\)[ \t]*\\S-" ind
|
||||||
(org-remove-indentation val) nil nil 1)))))))
|
(org-remove-indentation val) nil nil 1)))))))
|
||||||
(concat (format "#+begin_src%s\n"
|
(concat (format "#+BEGIN_SRC%s\n"
|
||||||
(concat (and lang (concat " " lang))
|
(concat (and lang (concat " " lang))
|
||||||
(and switches (concat " " switches))
|
(and switches (concat " " switches))
|
||||||
(and params (concat " " params))))
|
(and params (concat " " params))))
|
||||||
value
|
value
|
||||||
"#+end_src")))
|
"#+END_SRC")))
|
||||||
|
|
||||||
|
|
||||||
;;;; Table
|
;;;; Table
|
||||||
|
|
@ -1512,8 +1511,8 @@ CONTENTS is nil."
|
||||||
"Parse a verse block.
|
"Parse a verse block.
|
||||||
|
|
||||||
Return a list whose car is `verse-block' and cdr is a plist
|
Return a list whose car is `verse-block' and cdr is a plist
|
||||||
containing `:begin', `:end', `:hiddenp', `:raw-value', `:value'
|
containing `:begin', `:end', `:hiddenp', `:value' and
|
||||||
and `:post-blank' keywords.
|
`:post-blank' keywords.
|
||||||
|
|
||||||
Assume point is at beginning or end of the block."
|
Assume point is at beginning or end of the block."
|
||||||
(save-excursion
|
(save-excursion
|
||||||
|
|
@ -1521,26 +1520,24 @@ Assume point is at beginning or end of the block."
|
||||||
(keywords (progn
|
(keywords (progn
|
||||||
(end-of-line)
|
(end-of-line)
|
||||||
(re-search-backward
|
(re-search-backward
|
||||||
(concat "^[ \t]*#\\+begin_verse") nil t)
|
(concat "^[ \t]*#\\+BEGIN_VERSE") nil t)
|
||||||
(org-element-collect-affiliated-keywords)))
|
(org-element-collect-affiliated-keywords)))
|
||||||
(begin (car keywords))
|
(begin (car keywords))
|
||||||
(hidden (progn (forward-line) (org-truely-invisible-p)))
|
(hidden (progn (forward-line) (org-truely-invisible-p)))
|
||||||
(raw-val (buffer-substring-no-properties
|
|
||||||
(point)
|
|
||||||
(progn
|
|
||||||
(re-search-forward (concat "^[ \t]*#\\+end_verse") nil t)
|
|
||||||
(point-at-bol))))
|
|
||||||
(pos-before-blank (progn (forward-line) (point)))
|
(pos-before-blank (progn (forward-line) (point)))
|
||||||
(end (progn (org-skip-whitespace)
|
|
||||||
(if (eobp) (point) (point-at-bol))))
|
|
||||||
(value (org-element-parse-secondary-string
|
(value (org-element-parse-secondary-string
|
||||||
(org-remove-indentation raw-val)
|
(buffer-substring-no-properties
|
||||||
(cdr (assq 'verse-block org-element-string-restrictions)))))
|
(point)
|
||||||
|
(progn
|
||||||
|
(re-search-forward (concat "^[ \t]*#\\+END_VERSE") nil t)
|
||||||
|
(point-at-bol)))
|
||||||
|
(cdr (assq 'verse-block org-element-string-restrictions))))
|
||||||
|
(end (progn (org-skip-whitespace)
|
||||||
|
(if (eobp) (point) (point-at-bol)))))
|
||||||
`(verse-block
|
`(verse-block
|
||||||
(:begin ,begin
|
(:begin ,begin
|
||||||
:end ,end
|
:end ,end
|
||||||
:hiddenp ,hidden
|
:hiddenp ,hidden
|
||||||
:raw-value ,raw-val
|
|
||||||
:value ,value
|
:value ,value
|
||||||
:post-blank ,(count-lines pos-before-blank end)
|
:post-blank ,(count-lines pos-before-blank end)
|
||||||
,@(cadr keywords))))))
|
,@(cadr keywords))))))
|
||||||
|
|
@ -1548,9 +1545,10 @@ Assume point is at beginning or end of the block."
|
||||||
(defun org-element-verse-block-interpreter (verse-block contents)
|
(defun org-element-verse-block-interpreter (verse-block contents)
|
||||||
"Interpret VERSE-BLOCK element as Org syntax.
|
"Interpret VERSE-BLOCK element as Org syntax.
|
||||||
CONTENTS is nil."
|
CONTENTS is nil."
|
||||||
(format "#+begin_verse\n%s#+end_verse"
|
(format "#+BEGIN_VERSE\n%s#+END_VERSE"
|
||||||
(org-remove-indentation
|
(org-remove-indentation
|
||||||
(org-element-property :raw-value verse-block))))
|
(org-element-interpret-secondary
|
||||||
|
(org-element-property :value verse-block)))))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1757,18 +1755,18 @@ its beginning position."
|
||||||
"Parse footnote reference at point.
|
"Parse footnote reference at point.
|
||||||
|
|
||||||
Return a list whose car is `footnote-reference' and cdr a plist
|
Return a list whose car is `footnote-reference' and cdr a plist
|
||||||
with `:label', `:type', `:definition', `:begin', `:end' and
|
with `:label', `:type', `:inline-definition', `:begin', `:end'
|
||||||
`:post-blank' as keywords."
|
and `:post-blank' as keywords."
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(let* ((ref (org-footnote-at-reference-p))
|
(let* ((ref (org-footnote-at-reference-p))
|
||||||
(label (car ref))
|
(label (car ref))
|
||||||
(raw-def (nth 3 ref))
|
|
||||||
(inline-def
|
(inline-def
|
||||||
(and raw-def
|
(let ((raw-def (nth 3 ref)))
|
||||||
(org-element-parse-secondary-string
|
(and raw-def
|
||||||
raw-def
|
(org-element-parse-secondary-string
|
||||||
(cdr (assq 'footnote-reference
|
raw-def
|
||||||
org-element-string-restrictions)))))
|
(cdr (assq 'footnote-reference
|
||||||
|
org-element-string-restrictions))))))
|
||||||
(type (if (nth 3 ref) 'inline 'standard))
|
(type (if (nth 3 ref) 'inline 'standard))
|
||||||
(begin (nth 1 ref))
|
(begin (nth 1 ref))
|
||||||
(post-blank (progn (goto-char (nth 2 ref))
|
(post-blank (progn (goto-char (nth 2 ref))
|
||||||
|
|
@ -1780,16 +1778,17 @@ with `:label', `:type', `:definition', `:begin', `:end' and
|
||||||
:inline-definition ,inline-def
|
:inline-definition ,inline-def
|
||||||
:begin ,begin
|
:begin ,begin
|
||||||
:end ,end
|
:end ,end
|
||||||
:post-blank ,post-blank
|
:post-blank ,post-blank)))))
|
||||||
:raw-definition ,raw-def)))))
|
|
||||||
|
|
||||||
(defun org-element-footnote-reference-interpreter (footnote-reference contents)
|
(defun org-element-footnote-reference-interpreter (footnote-reference contents)
|
||||||
"Interpret FOOTNOTE-REFERENCE object as Org syntax.
|
"Interpret FOOTNOTE-REFERENCE object as Org syntax.
|
||||||
CONTENTS is nil."
|
CONTENTS is nil."
|
||||||
(let ((label (or (org-element-property :label footnote-reference) "fn:"))
|
(let ((label (or (org-element-property :label footnote-reference) "fn:"))
|
||||||
(def
|
(def
|
||||||
(let ((raw (org-element-property :raw-definition footnote-reference)))
|
(let ((inline-def
|
||||||
(if raw (concat ":" raw) ""))))
|
(org-element-property :inline-definition footnote-reference)))
|
||||||
|
(if (not inline-def) ""
|
||||||
|
(concat ":" (org-element-interpret-secondary inline-def))))))
|
||||||
(format "[%s]" (concat label def))))
|
(format "[%s]" (concat label def))))
|
||||||
|
|
||||||
(defun org-element-footnote-reference-successor (limit)
|
(defun org-element-footnote-reference-successor (limit)
|
||||||
|
|
@ -2146,7 +2145,7 @@ beginning position."
|
||||||
"Parse radio target at point.
|
"Parse radio target at point.
|
||||||
|
|
||||||
Return a list whose car is `radio-target' and cdr a plist with
|
Return a list whose car is `radio-target' and cdr a plist with
|
||||||
`:begin', `:end', `:contents-begin', `:contents-end', `raw-value'
|
`:begin', `:end', `:contents-begin', `:contents-end', `:value'
|
||||||
and `:post-blank' as keywords.
|
and `:post-blank' as keywords.
|
||||||
|
|
||||||
Assume point is at the radio target."
|
Assume point is at the radio target."
|
||||||
|
|
@ -2155,7 +2154,7 @@ Assume point is at the radio target."
|
||||||
(let ((begin (point))
|
(let ((begin (point))
|
||||||
(contents-begin (match-beginning 1))
|
(contents-begin (match-beginning 1))
|
||||||
(contents-end (match-end 1))
|
(contents-end (match-end 1))
|
||||||
(raw-value (org-match-string-no-properties 1))
|
(value (org-match-string-no-properties 1))
|
||||||
(post-blank (progn (goto-char (match-end 0))
|
(post-blank (progn (goto-char (match-end 0))
|
||||||
(skip-chars-forward " \t")))
|
(skip-chars-forward " \t")))
|
||||||
(end (point)))
|
(end (point)))
|
||||||
|
|
@ -2164,8 +2163,8 @@ Assume point is at the radio target."
|
||||||
:end ,end
|
:end ,end
|
||||||
:contents-begin ,contents-begin
|
:contents-begin ,contents-begin
|
||||||
:contents-end ,contents-end
|
:contents-end ,contents-end
|
||||||
:raw-value ,raw-value
|
:post-blank ,post-blank
|
||||||
:post-blank ,post-blank)))))
|
:value ,value)))))
|
||||||
|
|
||||||
(defun org-element-radio-target-interpreter (target contents)
|
(defun org-element-radio-target-interpreter (target contents)
|
||||||
"Interpret TARGET object as Org syntax.
|
"Interpret TARGET object as Org syntax.
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue