Skip to content

Commit 8983da1

Browse files
Regenerate README.md
1 parent a1cb6ba commit 8983da1

File tree

1 file changed

+12
-12
lines changed

1 file changed

+12
-12
lines changed

README.md

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -50,12 +50,12 @@ nil."
5050
(org-element-property :CUSTOM_ID datum)
5151
(let ((value (org-element-property :raw-value datum)))
5252
(when value
53-
(org-html-stable-ids--to-kebab-case value)))))
53+
(org-html-stable-ids--to-kebab-case value)))))
5454
```
5555

5656
If the headline has a `:CUSTOM_ID` property, that's immediately returned. If not, the ID is created by taking the headline's contents and converting them to "kebab case".
5757

58-
<div class="aside" id="orgd11d970">
58+
<div class="aside" id="orgb17faff">
5959
<p>
6060

6161
</p>
@@ -70,7 +70,7 @@ An implementation in Emacs Lisp uses a regular expression to replace everything
7070
</p>
7171

7272
<div class="org-src-container">
73-
<pre class="src src-emacs-lisp" id="orgfc110c5">(defun org-html-stable-ids--to-kebab-case (string)
73+
<pre class="src src-emacs-lisp" id="orgd3c8aed">(defun org-html-stable-ids--to-kebab-case (string)
7474
"Convert STRING to kebab-case."
7575
(string-trim
7676
(replace-regexp-in-string
@@ -90,15 +90,15 @@ The `org-export-get-reference` is overridden by a function named `org-html-stabl
9090
9191
Raise an error if the ID was used in the document before."
9292
(if org-html-stable-ids
93-
(let ((cache (plist-get info :internal-references))
94-
(id (org-html-stable-ids--extract-id datum)))
95-
(or (car (rassq datum cache))
96-
(if (assoc id cache)
97-
(user-error "Duplicate ID: %s" id)
98-
(when id
99-
(push (cons id datum) cache)
100-
(plist-put info :internal-references cache)
101-
id))))
93+
(let ((cache (plist-get info :internal-references))
94+
(id (org-html-stable-ids--extract-id datum)))
95+
(or (car (rassq datum cache))
96+
(if (assoc id cache)
97+
(user-error "Duplicate ID: %s" id)
98+
(when id
99+
(push (cons id datum) cache)
100+
(plist-put info :internal-references cache)
101+
id))))
102102
(funcall orig-fun datum info)))
103103
```
104104

0 commit comments

Comments
 (0)