From db933cad9c787b5e8321093d592fe99f4bb3e273 Mon Sep 17 00:00:00 2001
From: Alexandros Theodotou <address@hidden>
Date: Tue, 21 Jan 2020 04:58:38 +0000
Subject: [PATCH] gnu: Add vl1-emulator.

* gnu/packages/music.scm (vl1-emulator): New variable.
---
 gnu/packages/music.scm | 45 +++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 44 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 9f0e9c9fc8..5e6509e6ca 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -24,7 +24,7 @@
 ;;; Copyright © 2019 Jakob L. Kreuze <address@hidden>
 ;;; Copyright © 2019 raingloom <address@hidden>
 ;;; Copyright © 2019 David Wilson <address@hidden>
-;;; Copyright © 2019 Alexandros Theodotou <address@hidden>
+;;; Copyright © 2019, 2020 Alexandros Theodotou <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -5120,3 +5120,46 @@ MIDI drums and comes as two separate drumkits: Black Pearl and Red Zeppelin.")
     (description "Helm is a cross-platform polyphonic synthesizer available standalone
 and as an LV2 plugin.")
     (license license:gpl3+)))
+
+(define-public vl1-emulator
+  (package
+    (name "vl1-emulator")
+    (version "1.1.0.0")
+    (source
+      (origin
+        (method git-fetch)
+        (uri (git-reference
+               (url "https://github.com/linuxmao-org/VL1-emulator.git")
+               (commit (string-append "v" version))
+               ;; bundles a specific commit of the DISTRHO plugin framework
+               (recursive? #t)))
+        (file-name (git-file-name name version))
+        (sha256
+         (base32
+          "1npc86vqma8gk1hawa0lii0r2xmnv846plyl1ci3bdswyrdk5chm"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ; no check target
+       #:make-flags
+       (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
+             (string-append "CC=gcc"))
+       #:phases
+       (modify-phases %standard-phases
+         ;; no configure script
+         (delete 'configure))))
+    (inputs
+     `(("cairo" ,cairo)
+       ("jack" ,jack-1)
+       ("libx11" ,libx11)
+       ("mesa" ,mesa)))
+    (native-inputs
+     `(("lv2" ,lv2)
+       ("pkg-config" ,pkg-config)))
+    (home-page "https://github.com/linuxmao-org/VL1-emulator")
+    (synopsis "Emulator of Casio VL-Tone VL1")
+    (description
+     "The VL1-Emulator is an emulator of Casio VL-Tone VL1, based on source
+code by PolyValens, offered as a VST plugin, an LV2 plugin and a standalone
+JACK application.")
+    ;; Expat or CC0
+    (license (list license:expat license:cc0))))
-- 
2.24.1