From 462b1d45d1e7d784a673deec42e03394e5c6cfcb Mon Sep 17 00:00:00 2001
From: Shohei YOSHIDA <syohex@gmail.com>
Date: Fri, 13 Aug 2021 17:02:21 +0900
Subject: [PATCH] Copy dom-print from Emacs 28.1 for older Emacs

dom-print was introduced at Emacs 28.1 which is still
developing version.
---
 lyrics-fetcher-genius.el | 40 +++++++++++++++++++++++++++++++++++++++-
 1 file changed, 39 insertions(+), 1 deletion(-)

diff --git a/lyrics-fetcher-genius.el b/lyrics-fetcher-genius.el
index a0dc16e..b5891bd 100644
--- a/lyrics-fetcher-genius.el
+++ b/lyrics-fetcher-genius.el
@@ -32,6 +32,7 @@
 (require 'seq)
 (require 'shr)
 (require 'f)
+(require 'dom)
 
 (defcustom lyrics-fetcher-genius-access-token nil
   "Genius access token.  Get one at https://genius.com."
@@ -176,6 +177,43 @@ first song."
              results-songs-for-select)))
        (assoc key (assoc 'result (car results-songs)))))))
 
+(defun lyrics-fetcher-genius--dom-print (dom &optional pretty xml)
+  (let ((column (current-column)))
+    (insert (format "<%s" (dom-tag dom)))
+    (let ((attr (dom-attributes dom)))
+      (dolist (elem attr)
+        (if (and (memq (car elem)
+                       '(async autofocus autoplay checked
+                               contenteditable controls default
+                               defer disabled formNoValidate frameborder
+                               hidden ismap itemscope loop
+                               multiple muted nomodule novalidate open
+                               readonly required reversed
+                               scoped selected typemustmatch))
+                 (cdr elem)
+                 (not xml))
+            (insert (format " %s" (car elem)))
+          (insert (format " %s=%S" (car elem) (cdr elem))))))
+    (let* ((children (dom-children dom))
+           (non-text nil))
+      (if (null children)
+          (insert " />")
+        (insert ">")
+        (dolist (child children)
+          (if (stringp child)
+              (insert child)
+            (setq non-text t)
+            (when pretty
+              (insert "\n" (make-string (+ column 2) ? )))
+            (dom-print child pretty xml)))
+        (when (and pretty
+                   (or (bolp)
+                       non-text))
+          (unless (bolp)
+            (insert "\n"))
+          (insert (make-string column ? )))
+        (insert (format "</%s>" (dom-tag dom)))))))
+
 (defun lyrics-fetcher-genius--fetch-lyrics (url callback &optional sync)
   "Fetch lyrics from genius.com page at URL and call CALLBACK with the result.
 
@@ -191,7 +229,7 @@ If SYNC is non-nil, the request will be performed synchronously."
                                (libxml-parse-html-region (point-min) (point-max))))
                        (lyrics-div (dom-by-class html (rx bos "lyrics" eos))))
                   (with-temp-buffer
-                    (dom-print lyrics-div)
+                    (lyrics-fetcher-genius--dom-print lyrics-div)
                     (shr-render-region (point-min) (point-max))
                     (funcall callback
                              (buffer-substring-no-properties