fix: undefer org headline nodes for org 9.7

emacs-love · Dec 28, 2023 · 90222c1 · 90222c1
1 parent be9e3d0
commit 90222c1
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/weblorg.el b/weblorg.el
@@ -1046,7 +1046,9 @@ an INPUT-PATH to resolve relative links and INCLUDES from."
        ;; Don't override existing value, so users can still put
        ;; whatever they want
        (unless (org-element-property :CUSTOM_ID headline)
-         (let ((headline-slug (weblorg--slugify (org-element-property :raw-value headline))))
+         (let ((headline-slug (weblorg--slugify (if (string-prefix-p "9.7" org-version)
+                                                    (org-element-property :raw-value headline nil t)
+                                                  (org-element-property :raw-value headline)))))
            (org-element-put-property headline :CUSTOM_ID headline-slug)))
        ;; Replace these IDs that don't have much use within weblorg. That
        ;; will cause way less noise when re-generating a project without