2 files changed, 129 insertions(+), 23 deletions(-)

R jmp-pay.scm => guix.scm
A manifest.scm

@@ 1,15 1,20 @@
-(define-module (jmp-pay)
-  #:use-module ((guix licenses) #:prefix license:)
-  #:use-module (guix packages)
-  #:use-module (guix download)
-  #:use-module (guix git-download)
-  #:use-module (guix build-system ruby)
-  #:use-module (guix build-system copy)
-  #:use-module (gnu packages ruby)
-  #:use-module (gnu packages databases)
-  #:use-module (ice-9 rdelim)
-  #:use-module (ice-9 popen)
-)
+(use-modules
+  ((guix licenses) #:prefix license:)
+  (guix packages)
+  (guix download)
+  (guix git-download)
+  (guix build-system ruby)
+  (guix build-system copy)
+  (gnu packages ruby)
+  (gnu packages tls)
+  (gnu packages databases)
+  (ice-9 rdelim)
+  (ice-9 popen))
+
+(define-public ruby-eventmachine-openssl
+  (package
+    (inherit ruby-eventmachine)
+    (inputs `(("openssl" ,openssl)))))
 
 (define-public ruby-sucker-punch
   (package


@@ 871,16 876,25 @@
     (home-page "http://github.com/igrigorik/em-synchrony")
     (license license:expat)))
 
+;;;;
+
 (define %source-dir (dirname (current-filename)))
 (define %git-dir (string-append %source-dir "/.git"))
 
-;;;;
+; Bake a template by eval'ing the leaves
+(define-public (bake tmpl)
+ (list
+  (car tmpl)
+  (cons (caadr tmpl) (map
+   (lambda (x) (list (car x) (eval (cadr x) (current-module))))
+   (cdadr tmpl)))))
 
 ; double-escaped template of the jmp-pay sexp
 ; This allows us to bake the expression without doing a full eval to a record,
 ; so it can be written
 (define-public jmp-pay-template
-  '(package
+  '((package-input-rewriting `((,ruby-eventmachine . ,ruby-eventmachine-openssl)))
+  (package
     (name "jmp-pay")
     (version (read-line (open-pipe* OPEN_READ "git" "--git-dir" %git-dir "describe" "--always" "--dirty")))
     (source


@@ 949,18 963,14 @@
       "Web service and cronjobs for payment handling")
     (home-page
       "https://git.singpolyma.net/jmp-pay")
-    (license 'license:agpl3)))
+    (license 'license:agpl3))))
 
 ; Baked version of jmp-pay-template with leaves eval'd
 (define-public jmp-pay-baked
- (cons
-  (car jmp-pay-template)
-  (map
-   (lambda (x) (list (car x) (eval (cadr x) (current-module))))
-   (cdr jmp-pay-template))))
+	(bake jmp-pay-template))
 
 ; Build clean from git the version from a local clone
 ; To build whatever is sitting in local use:
-; guix build --with-source="jmp-pay@$(git describe --always --dirty)=$(pwd)" -L . jmp-pay
-(define-public jmp-pay
-  (eval jmp-pay-baked (current-module)))
+; guix build --with-source=$PWD -f guix.scm
+
+(eval jmp-pay-baked (current-module))

@@ 0,0 1,96 @@
+(use-modules
+  ((guix licenses) #:prefix license:)
+  (guix packages)
+  (guix download)
+  (guix git-download)
+  (guix build-system ruby)
+  (guix build-system copy)
+  (guix utils)
+  (gnu packages dhall)
+  (gnu packages ruby)
+  (gnu packages rails)
+  (gnu packages databases)
+  (gnu packages tls)
+  (gnu packages web)
+  (ice-9 rdelim)
+  (ice-9 popen))
+
+(define jmp-pay (load "./guix.scm"))
+
+(define-public ruby-interception
+  (package
+    (name "ruby-interception")
+    (version "0.5")
+    (source
+      (origin
+        (method url-fetch)
+        (uri (rubygems-uri "interception" version))
+        (sha256
+          (base32 "01vrkn28psdx1ysh5js3hn17nfp1nvvv46wc1pwqsakm6vb1hf55"))))
+    (build-system ruby-build-system)
+    (native-inputs (list ruby-rspec))
+    (synopsis
+      "Provides a cross-platform ability to intercept all exceptions as they are raised.")
+    (description
+      "This package provides a cross-platform ability to intercept all exceptions as
+they are raised.")
+    (home-page "http://github.com/ConradIrwin/interception")
+    (license #f)))
+
+(define-public ruby-pry-rescue
+  (package
+    (name "ruby-pry-rescue")
+    (version "1.5.2")
+    (source
+      (origin
+        (method url-fetch)
+        (uri (rubygems-uri "pry-rescue" version))
+        (sha256
+          (base32 "1wn72y8y3d3g0ng350ld92nyjln012432q2z2iy9lhwzjc4dwi65"))))
+    (build-system ruby-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'skip-bogus-test
+           (lambda _
+             (substitute* "spec/source_location_spec.rb"
+               (("time = Time.now") "skip")))))))
+    (propagated-inputs (list ruby-interception ruby-pry))
+    (native-inputs (list ruby-rspec ruby-pry-stack-explorer))
+    (synopsis
+      "Allows you to wrap code in Pry::rescue{ } to open a pry session at any unhandled exceptions")
+    (description
+      "Allows you to wrap code in Pry::rescue{ } to open a pry session at any unhandled
+exceptions")
+    (home-page "https://github.com/ConradIrwin/pry-rescue")
+    (license license:expat)))
+
+(define-public ruby-pry-reload
+  (package
+    (name "ruby-pry-reload")
+    (version "0.3")
+    (source
+      (origin
+        (method url-fetch)
+        (uri (rubygems-uri "pry-reload" version))
+        (sha256
+          (base32 "1gld1454sd5xp2v4vihrhcjh4sgkx7m1kc29qx1nr96r4z2gm471"))))
+    (build-system ruby-build-system)
+    (arguments
+     ;; No tests
+     `(#:tests? #f))
+    (propagated-inputs (list ruby-listen))
+    (synopsis "Tracks and reloads changed files")
+    (description "Tracks and reloads changed files")
+    (home-page "https://github.com/runa/pry-reload")
+    (license #f)))
+
+(concatenate-manifests
+  (list
+    (packages->manifest
+      (list
+        ruby-rubocop
+        ruby-pry-reload
+        ruby-pry-stack-explorer
+        ruby-pry-rescue))
+    (package->development-manifest jmp-pay)))