sqrtminusone/lyrics-fetcher.el
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/lyrics-fetcher.el.git synced 2025-12-10 17:03:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

chore: add doc and FSF copyright for the copied function

Browse source
This commit is contained in:
Pavel Korytov 2021-08-13 12:11:01 +03:00
parent eb3e9e94a7
commit b7e381a704
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lyrics-fetcher-genius.el
View file

@ -1,6 +1,8 @@
;;; lyrics-fetcher-genius.el --- Fetch lyrics from genius.com -*- lexical-binding: t -*- ;;; lyrics-fetcher-genius.el --- Fetch lyrics from genius.com -*- lexical-binding: t -*-
;; Copyright (C) 2021 Korytov Pavel ;; Copyright (C) 2021 Korytov Pavel
;; Copyright (C) 2021 Syohei YOSHIDA
;; Copyright (C) 2014-2021 Free Software Foundation, Inc.
;; Author: Korytov Pavel <thexcloud@gmail.com> ;; Author: Korytov Pavel <thexcloud@gmail.com>
;; Maintainer: Korytov Pavel <thexcloud@gmail.com> ;; Maintainer: Korytov Pavel <thexcloud@gmail.com>
@ -178,6 +180,13 @@ first song."
(assoc key (assoc 'result (car results-songs))))))) (assoc key (assoc 'result (car results-songs)))))))
(defun lyrics-fetcher-genius--dom-print (dom &optional pretty xml) (defun lyrics-fetcher-genius--dom-print (dom &optional pretty xml)
"Print DOM at point as HTML/XML.
If PRETTY, indent the HTML/XML logically. If XML, generate XML
instead of HTML.
This function was copied from Emacs 28.1 to ensure the backward
compatibilty with Emacs 27."
(let ((column (current-column))) (let ((column (current-column)))
(insert (format "<%s" (dom-tag dom))) (insert (format "<%s" (dom-tag dom)))
(let ((attr (dom-attributes dom))) (let ((attr (dom-attributes dom)))