siguix: Add mympd.

* siguix/packages/mympd.scm (mympd): New variable.

1 files changed, 105 insertions, 0 deletions

diff --git a/siguix/packages/mympd.scm b/siguix/packages/mympd.scm
new file mode 100644
index 0000000..09390ab
--- /dev/null
+++ b/siguix/packages/mympd.scm
@@ -0,0 +1,105 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2021 Simon Streit <simon@netpanic.org>
+;;;
+;;; This file is NOT part of GNU Guix.
+;;;
+;;; GNU Guix 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.
+;;;
+;;; GNU Guix 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 GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (siguix packages mympd)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix packages)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages web)
+  #:use-module (gnu packages cmake)
+  #:use-module (gnu packages pcre)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages mp3)
+  #:use-module (gnu packages xiph)
+  #:use-module (gnu packages pcre)
+  #:use-module (gnu packages lua)
+  #:use-module (gnu packages pkg-config)
+  #:export (mympd))
+
+(define-public mympd
+  (package
+    (name "mympd")
+    (version "9.0.1")
+    (source
+      (origin
+        (method git-fetch)
+        (uri (git-reference
+               (url "https://github.com/jcorporation/myMPD")
+               (commit (string-append "v" version))))
+        (file-name (git-file-name name version))
+        (sha256
+         (base32 "1ls0q0xihaac2qyijyfzsmna27wvwdwrw686fzn3bv18x8vjlxj3"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         ;; mympd has it's own build scripts.
+         (delete 'configure)
+         (replace 'build
+           (lambda* (#:key outputs #:allow-other-keys)
+             (setenv "MYMPD_INSTALL_PREFIX"
+                     (string-append (assoc-ref outputs "out") "/usr"))
+             (invoke "sh" "build.sh" "release")))
+         (replace 'check
+           (lambda* (#:key outputs #:allow-other-keys)
+             (setenv "MYMPD_INSTALL_PREFIX"
+                     (string-append (assoc-ref outputs "out") "/usr"))
+             (invoke "sh" "build.sh" "test")))
+         (add-before 'install 'no-users
+           ;; The installer would like to add user and group too.
+           (lambda* _
+             (substitute*
+                 "build.sh"
+               (("^  addmympduser")
+                "#  addmympduser"))
+             #t))
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (setenv "MYMPD_INSTALL_PREFIX"
+                     (string-append (assoc-ref outputs "out") "/usr"))
+             (invoke "sh" "build.sh" "install")))
+         ;; (add-after 'unpack 'fix-path
+         ;;   (lambda* _
+         ;;     (substitute*
+         ;;         "src/lib/mympd_configuration.h"
+         ;;       (("\\.\\./dist/sds/sds\\.h")
+         ;;        "../../dist/sds/sds.h"))
+         ;;     ;; (add-after 'unpack 'automake
+         ;;     ;;   (lambda _
+         ;;     ;;     (setenv "SHELL" (which "sh"))
+         ;;     ;;     (setenv "CONFIG_SHELL" (which "sh"))
+         ;;     ;;     (invoke "sh" "autogen.sh")))
+         ;;     #t))
+         )))
+    (inputs (list cmake
+                  pkg-config
+                  perl
+                  jq
+                  pcre2
+                  openssl
+                  libid3tag
+                  flac
+                  lua))
+    (home-page "http://parcellite.sourceforge.net/")
+    (synopsis "A standalone and lightweight web-based MPD client")
+    (description "")
+    (license license:gpl3)))