[PATCH] gnu: add guile-pg. (Needs help)

[Christopher Allan Webber]

I'm working on some stuff that requires database support in my guile
applications, so I thought I'd package more guile database packages.  I
started working on guile-pg... however, it has a few issues:

 - .scm files are not installed, it doesn't look like these files are
   compiled .go files either.  The files installed look like they have
   all whitespace and niceties stripped, which makes it had to read.
   But that's the default from the way the package is set up to install
   things.  Maybe doing otherwise requires setting a flag, or getting a
   patch upstream?

 - I couldn't get tests to work because it was either looking to start a
   database connection or use one that existed, and neither of those
   worked, so I disabled tests.

 - It installs to the wrong place, and I don't know enough about
   autotools to fix it.  It installs to the profile's
   "share/guile/site/" rather than "share/guile/site/2.0/"
   so I found that it was not on my default guile path.  Not sure how to
   deal with this.

Anyone interested or knowledgable enough to help on this one?

Thanks!
 - Chris

>From ec7c5f24bb9ce3c6766ee9edbf8c5f944a1e30b7 Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <address@hidden>
Date: Thu, 23 Jul 2015 09:27:16 -0700
Subject: [PATCH] gnu: Add guile-pg.

* gnu/packages/guile.scm (guile-pg): New variable.
---
 gnu/packages/guile.scm | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index e85c84a..6e59e2c 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -39,6 +39,7 @@
   #:use-module (gnu packages texinfo)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages gdbm)
+  #:use-module (gnu packages databases)
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix git-download)
@@ -535,4 +536,34 @@ See http://minikanren.org/ for more on miniKanren 
generally.")
 Guile's foreign function interface.")
     (license gpl3+)))
 
+(define-public guile-pg
+  (package
+    (name "guile-pg")
+    (version "0.47")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://savannah/guile-pg/guile-pg-"
+                           version ".tar.xz"))
+       (sha256
+        (base32
+         "0h3p0zw5x233k7ax1lbfhzchwyrnw12bv7jn3qw3f2vr1ckscw0x"))))
+    (build-system gnu-build-system)
+    (inputs `(("guile" ,guile-2.0)
+              ("postgresql" ,postgresql)))
+    (arguments
+     `(;; XXX Tests seemingly don't run because they require a running
+       ;; postgres daemon, or starting one
+       #:tests? #f))
+    (home-page "http://www.nongnu.org/guile-pg/";)
+    (synopsis "Guile bindings to the PostgreSQL RDBMS")
+    (description
+     "Guile-PG is a collection of modules for Guile allowing access to
+the PostgreSQL RDBMS from Scheme programs.  Guile-PG provides almost
+one-to-one correspondence between the PostgreSQL \"libpq\" C library
+interface, as well as modules which provide abstractions and
+convenience features.")
+    (license gpl3+)))
+
+
 ;;; guile.scm ends here
-- 
2.1.4