[elpa] externals/emms e7298ee 05/11: * emms-info-exiftool.el: new info method

[Yoni Rabkin]

branch: externals/emms
commit e7298ee8e42aad33ba555028bb52f78ab31ad776
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * emms-info-exiftool.el: new info method
---
 emms-info-exiftool.el | 101 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 101 insertions(+)

diff --git a/emms-info-exiftool.el b/emms-info-exiftool.el
new file mode 100644
index 0000000..acd5520
--- /dev/null
+++ b/emms-info-exiftool.el
@@ -0,0 +1,101 @@
+;;; emms-info-exiftool.el --- info-method for EMMS using exiftool  -*- 
lexical-binding: t; -*-
+
+;; Copyright (C) 2020  Free Software Foundation, Inc.
+
+;; Author: Yoni Rabkin (yrk@gnu.org)
+;; Keywords: multimedia
+
+;; EMMS is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; EMMS is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+;; License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with EMMS; see the file COPYING..  If not, see
+;; <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; (setq emms-info-functions '(emms-info-exiftool))
+
+;; To use this you would need to have exiftool installed on your
+;; system.
+
+
+;;; Code:
+
+(require 'emms-info)
+(require 'json)
+
+
+(defgroup emms-info-exiftool nil
+  "Options for EMMS."
+  :group 'emms-info)
+
+(defvar emms-info-exiftool-field-map
+  '((info-album        . Album)
+    (info-artist       . Artist)
+    (info-title        . Title)
+    (info-tracknumber  . TrackNumber)
+    (info-composer     . Composer)
+    (info-year         . Year)
+    (info-discnumber   . Discnumber)
+    (info-genre        . Genre)
+    (info-note         . Comment)
+    (info-playing-time . Duration)
+    (info-albumartist  . Albumartist))
+  "Mapping for exiftool output.")
+
+
+;; should only be called inside a buffer containing the json output of
+;; exiftool
+(defun emms-info-exiftool-time ()
+  "Convert from exiftool-time to seconds."
+  (save-excursion
+    (goto-char (point-min))
+    (if (re-search-forward "duration.+\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)"
+                          (point-max) t)
+       (let ((hours   (string-to-number (match-string-no-properties 1)))
+             (minutes (string-to-number (match-string-no-properties 2)))
+             (seconds (string-to-number (match-string-no-properties 3))))
+         (+ (* hours 60 60)
+            (* minutes 60)
+            seconds))
+      0)))
+
+(defun emms-info-exiftool (track)
+  "Set TRACK info using exiftool."
+  (when (eq (emms-track-type track) 'file)
+    (with-temp-buffer
+      (when (zerop
+            (let ((coding-system-for-read 'utf-8))
+              (call-process "exiftool" nil '(t nil) nil
+                            "-json" (emms-track-name track))))
+       (goto-char (point-min))
+       (condition-case nil
+           (let ((json-fields (elt (json-read) 0)))
+             (mapc
+              (lambda (field-map)
+                (let ((emms-field (car field-map))
+                      (exiftool-field (cdr field-map)))
+                  (let ((track-field (assoc exiftool-field json-fields)))
+                    (when track-field
+                      (emms-track-set
+                       track
+                       emms-field
+                       (cond ((eq emms-field 'info-playing-time)
+                              (emms-info-exiftool-time))
+                             (t (cdr track-field))))))))
+              emms-info-exiftool-field-map))
+         (error (message "error while reading track info")))
+       track))))
+
+
+(provide 'emms-info-exiftool)
+
+;;; emms-info-exiftool.el ends here