|
@@ -4149,9 +4149,18 @@ alphanumeric characters only."
|
|
|
h))))
|
|
h))))
|
|
|
(or (gethash datum cache)
|
|
(or (gethash datum cache)
|
|
|
(puthash datum
|
|
(puthash datum
|
|
|
- (format "org%s%d"
|
|
|
|
|
|
|
+ (format "%s:%d"
|
|
|
(if type
|
|
(if type
|
|
|
- (replace-regexp-in-string "-" "" (symbol-name type))
|
|
|
|
|
|
|
+ (case type
|
|
|
|
|
+ (headline "sec")
|
|
|
|
|
+ (paragraph
|
|
|
|
|
+ (if (org-element-property :caption datum)
|
|
|
|
|
+ "fig" "paragraph"))
|
|
|
|
|
+ (latex-environment "eq")
|
|
|
|
|
+ (table "tbl")
|
|
|
|
|
+ (otherwise
|
|
|
|
|
+ (replace-regexp-in-string "-" ""
|
|
|
|
|
+ (symbol-name type))))
|
|
|
"secondarystring")
|
|
"secondarystring")
|
|
|
(incf (gethash type cache 0)))
|
|
(incf (gethash type cache 0)))
|
|
|
cache))))
|
|
cache))))
|