[elpa] externals/taxy 96bd8d8 1/4: Example: (musicy) Update for taxy changes

[ELPA Syncer]

branch: externals/taxy
commit 96bd8d8ff33ef3a6b9e2bcef6c4d1447d88ae5fe
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Example: (musicy) Update for taxy changes
---
 examples/musicy.el | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/examples/musicy.el b/examples/musicy.el
index cd5bde0..6d496d2 100644
--- a/examples/musicy.el
+++ b/examples/musicy.el
@@ -21,9 +21,10 @@
 
 ;;; Commentary:
 
-;; This is a sample application using `taxi'.  It uses the "mediainfo"
-;; program to get info about audio files, but any function could be
-;; swapped into its place (e.g. one that retrieved data from MPD).
+;; This is a sample application using `taxy'.  It uses the "mediainfo"
+;; program to get metadata of about audio files, but any function
+;; could be swapped into its place (e.g. one that retrieved data from
+;; MPD).
 
 ;;; Code:
 
@@ -85,7 +86,7 @@
      :name "Musicy"
      :taxys (list (make-taxy
                    :name "Genres"
-                   :take (apply-partially #'taxy-take-keyed*
+                   :take (apply-partially #'taxy-take-keyed
                                           (list #'genre #'artist #'year 
#'album #'track-string)))))))
 
 ;;;; Customization
@@ -103,13 +104,8 @@
   (thread-last musicy-taxy
     taxy-emptied
     (taxy-fill files)
-    (taxy-mapc* (lambda (taxy)
-                  (setf (taxy-taxys taxy)
-                        (cl-sort (taxy-taxys taxy) #'string<
-                                 :key #'taxy-name))
-                  (setf (taxy-items taxy)
-                        (cl-sort (taxy-items taxy) #'string<))))
-    ;;  taxy-plain
+    (taxy-sort #'string< #'taxy-name)
+    (taxy-sort* #'string< #'taxy-name)    
     taxy-magit-section-pp))
 
 ;;;; Functions