ox: Change label naming scheme

* ox.el (org-export-get-reference): Change labeling scheme.

160820bc94 and later changed the label naming scheme to follow types.
This commit maps to types to more standard names, e.g. 'headline' to
'sec'.
This commit is contained in:
Rasmus 2015-04-15 21:50:53 +02:00
parent f1548e11fe
commit cf7d64f1e4
1 changed files with 11 additions and 2 deletions

View File

@ -4149,9 +4149,18 @@ alphanumeric characters only."
h))))
(or (gethash datum cache)
(puthash datum
(format "org%s%d"
(format "%s:%d"
(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")
(incf (gethash type cache 0)))
cache))))