|
@@ -1060,7 +1060,7 @@ publishing directory."
|
|
;; links, where "file.org" belongs to the current project.
|
|
;; links, where "file.org" belongs to the current project.
|
|
|
|
|
|
(defun org-publish--collect-references (output _backend info)
|
|
(defun org-publish--collect-references (output _backend info)
|
|
- "Store headlines references for current published file.
|
|
|
|
|
|
+ "Store references for current published file.
|
|
|
|
|
|
OUPUT is the produced output, as a string. BACKEND is the export
|
|
OUPUT is the produced output, as a string. BACKEND is the export
|
|
back-end used, as a symbol. INFO is the final export state, as
|
|
back-end used, as a symbol. INFO is the final export state, as
|
|
@@ -1086,7 +1086,7 @@ References are stored as an alist ((TYPE SEARCH) . VALUE) where
|
|
VALUE is an internal reference used in the document, as
|
|
VALUE is an internal reference used in the document, as
|
|
a string.
|
|
a string.
|
|
|
|
|
|
-This function is meant to be used as a final out filter. See
|
|
|
|
|
|
+This function is meant to be used as a final output filter. See
|
|
`org-publish-org-to'."
|
|
`org-publish-org-to'."
|
|
(org-publish-cache-set-file-property
|
|
(org-publish-cache-set-file-property
|
|
(plist-get info :input-file) :references
|
|
(plist-get info :input-file) :references
|
|
@@ -1095,6 +1095,7 @@ This function is meant to be used as a final out filter. See
|
|
(maphash
|
|
(maphash
|
|
(lambda (k v)
|
|
(lambda (k v)
|
|
(pcase (org-element-type k)
|
|
(pcase (org-element-type k)
|
|
|
|
+ (`nil nil)
|
|
((or `headline `inlinetask)
|
|
((or `headline `inlinetask)
|
|
(push (cons
|
|
(push (cons
|
|
(cons 'headline
|
|
(cons 'headline
|
|
@@ -1106,8 +1107,7 @@ This function is meant to be used as a final out filter. See
|
|
refs)
|
|
refs)
|
|
(let ((custom-id (org-element-property :CUSTOM_ID k)))
|
|
(let ((custom-id (org-element-property :CUSTOM_ID k)))
|
|
(when custom-id
|
|
(when custom-id
|
|
- (push (cons (cons 'custom-id custom-id) v)
|
|
|
|
- refs))))
|
|
|
|
|
|
+ (push (cons (cons 'custom-id custom-id) v) refs))))
|
|
((or `radio-target `target)
|
|
((or `radio-target `target)
|
|
(push
|
|
(push
|
|
(cons (cons 'target
|
|
(cons (cons 'target
|