Add MPD configuration

This also includes an attempt at installing a custom SCSH that defines some
search paths. But unfortunately it didn't work, so the SCSH ends up being the
usual one and the ‘mpd-random-albums’ package doesn't actually work.

The main MPD configuration does work, though.

This also includes the instruction to install tmsu which I want to try out
again.

1 files changed, 44 insertions, 0 deletions

diff --git a/oni/packages/mpd-random-albums.scm b/oni/packages/mpd-random-albums.scm
new file mode 100644
index 0000000..d8e7f03
--- /dev/null
+++ b/oni/packages/mpd-random-albums.scm
@@ -0,0 +1,44 @@
+(define-module (oni packages mpd-random-albums)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages bash)
+  #:use-module (gnu packages mpd)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (oni packages scsh))
+
+(define-public mpd-random-albums
+  (let ((commit "c12a766e1920e726129dfd1161a2ef15471f89e8")
+        (revision "0"))
+    (package
+     (name "mpd-random-albums")
+     (version (git-version "0.0.0" revision commit))
+     (source
+      (origin
+       (uri (git-reference
+             (url "git://ryuslash.org/util/tom/mpd-random-albums")
+             (commit commit)))
+       (method git-fetch)
+       (sha256
+        (base32 "0mgs9377hw3x1nfcah3wwr3zijvzrkqicvgrbcjl3g1p4fmlb8mr"))
+       (file-name (git-file-name name version))))
+     (propagated-inputs
+      (list mpd bash scsh))
+     (build-system gnu-build-system)
+     (arguments
+      `(#:tests? #f
+        #:phases
+        (modify-phases %standard-phases
+                       (delete 'configure)
+                       (delete 'build)
+                       (replace 'install
+                                (lambda* (#:key outputs #:allow-other-keys)
+                                  (let ((bin (string-append (assoc-ref outputs "out") "/bin"))
+                                        (site (string-append (assoc-ref outputs "out") "/share/scsh-0.7")))
+                                    (install-file "mpd-random-albums" bin)
+                                    (install-file "mpd.scm" site)))))))
+     (home-page "https://ryuslash.org/")
+     (synopsis "A simple script that populates the MPD playlist with all of my albums in random order.")
+     (description "Creates a new playlist in MPD with all of the albums in my database and shuffles them by album.")
+     (license license:gpl3+))))