Replace tabs with spaces in source document and generated .el file

Author: jeffkreeftmeijer

ox-html-stable-ids.el

@@ -59,14 +59,14 @@ nil."
     Raise an error if the ID was used in the document before."
   (if org-html-stable-ids
       (let ((cache (plist-get info :internal-references))
-	    (id (org-html-stable-ids--extract-id datum)))
-	(or (car (rassq datum cache))
-	    (if (assoc id cache)
-		(user-error "Duplicate ID: %s" id)
-	      (when id
-		(push (cons id datum) cache)
-		(plist-put info :internal-references cache)
-		id))))
+            (id (org-html-stable-ids--extract-id datum)))
+        (or (car (rassq datum cache))
+            (if (assoc id cache)
+                (user-error "Duplicate ID: %s" id)
+              (when id
+                (push (cons id datum) cache)
+                (plist-put info :internal-references cache)
+                id))))
     (funcall orig-fun datum info)))
 
 (defun org-html-stable-ids--reference (datum info &optional named-only)

ox-html-stable-ids.org

@@ -86,7 +86,7 @@ First, the ~org-html-stable-ids--extract-id~ helper function takes a headline an
      (org-element-property :CUSTOM_ID datum)
      (let ((value (org-element-property :raw-value datum)))
        (when value
-	 (org-html-stable-ids--to-kebab-case value)))))
+         (org-html-stable-ids--to-kebab-case value)))))
 #+end_src
 
 If the headline has a ~:CUSTOM_ID~ property, that's immediately returned.
@@ -123,15 +123,15 @@ If a generated ID matches one that's already in the cache, an error is returned,
 
       Raise an error if the ID was used in the document before."
     (if org-html-stable-ids
-	(let ((cache (plist-get info :internal-references))
-	      (id (org-html-stable-ids--extract-id datum)))
-	  (or (car (rassq datum cache))
-	      (if (assoc id cache)
-		  (user-error "Duplicate ID: %s" id)
-		(when id
-		  (push (cons id datum) cache)
-		  (plist-put info :internal-references cache)
-		  id))))
+        (let ((cache (plist-get info :internal-references))
+              (id (org-html-stable-ids--extract-id datum)))
+          (or (car (rassq datum cache))
+              (if (assoc id cache)
+                  (user-error "Duplicate ID: %s" id)
+                (when id
+                  (push (cons id datum) cache)
+                  (plist-put info :internal-references cache)
+                  id))))
       (funcall orig-fun datum info)))
 #+end_src