From c12a766e1920e726129dfd1161a2ef15471f89e8 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 3 Mar 2022 01:08:16 -0800
Subject: Lispify the MPD query

Write a small DSL for converting a simple lisp expression to an MPD query
format. This turns, for example:

    (and (= artist "Katatonia") (= album "Last Fair Deal Gone Down"))

Into:

    ((artist == "Katatonia") AND (album == "Last Fair Deal Gone Down"))

The expressions inside ‘query’ are quasi-quoted, so that variable substitution
is possible.
---
 mpd-random-albums | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'mpd-random-albums')

diff --git a/mpd-random-albums b/mpd-random-albums
index 4bcd680..50e6f79 100755
--- a/mpd-random-albums
+++ b/mpd-random-albums
@@ -1,7 +1,7 @@
 #!/usr/bin/env sh
 # -*- mode: scheme; -*-
 IFS=" "
-exec scsh -s "$0" "$@"
+exec scsh -ll mpd.scm -o mpd -s "$0" "$@"
 !#
 
 (define (randomize-all-albums)
@@ -12,8 +12,9 @@ exec scsh -s "$0" "$@"
 
 (define (randomize-albums-by-artist artist)
   (for-each (lambda (album)
-              (display (run/string (mpc findadd ,(string-append "((artist == \"" artist "\") AND (album == \"" album "\"))")))))
-            (run/strings (pipe (mpc list album ,(string-append "((artist == \"" artist "\"))"))
+              (run (mpc findadd ,(query (and (= artist ,artist)
+                                             (= album ,album))))))
+            (run/strings (pipe (mpc list album ,(query (= artist ,artist)))
                                (shuf)))))
 
 (run (mpc clear)
-- 
cgit v1.2.3-54-g00ecf