[bug#34344] [PATCH] gnu: Add guile-squee.

[bug#34344] [PATCH] gnu: Add guile-squee.

[Christopher Baines]

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

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 117d309c92..f249761ebc 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -560,6 +560,45 @@ HTML (via SXML) or any other format for rendering.")
 It has a nice, simple s-expression based syntax.")
     (license license:lgpl3+)))
 
+(define-public guile-squee
+  (let ((commit "a85902a92bf6f58a1d35fd974a01ade163deda8d")
+        (revision "0"))
+    (package
+      (name "guile-squee")
+      (version (string-append "0-" revision "." (string-take commit 7)))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://notabug.org/cwebber/guile-squee.git")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "0p1lpsp4kx57j3ai1dkxilm4ziavzzx8wbbc42m3hpziq0a7qz5z"))))
+      (build-system guile-build-system)
+      (arguments
+       '(#:phases
+         (modify-phases %standard-phases
+           (add-after 'unpack 'patch
+             (lambda* (#:key inputs #:allow-other-keys)
+               (substitute* "squee.scm"
+                 (("dynamic-link \"libpq\"")
+                  (string-append
+                   "dynamic-link \""
+                   (assoc-ref inputs "postgresql") "/lib/libpq.so"
+                   "\"")))
+               #t)))))
+      (inputs
+       `(("postgresql" ,postgresql)))
+      (native-inputs
+       `(("guile" ,guile-2.2)))
+      (home-page "https://notabug.org/cwebber/guile-squee")
+      (synopsis "Connect to PostgreSQL using Guile")
+      (description
+       "@code{squee} is a Guile library for connecting to PostgreSQL databases
+using Guile's foreign function interface.")
+      (license license:gpl3+))))
+
 (define-public guile-colorized
   (package
     (name "guile-colorized")
-- 
2.20.1

[bug#34344] [PATCH] gnu: Add guile-squee.

[Ricardo Wurmus]

Christopher Baines <mail@cbaines.net> writes:

> * gnu/packages/guile-xyz.scm (guile-squee): New variable.

LGTM!

-- 
Ricardo

[bug#34344] [PATCH] gnu: Add guile-squee.

[Ricardo Wurmus]

Ricardo Wurmus <rekado@elephly.net> writes:

> Christopher Baines <mail@cbaines.net> writes:
>
>> * gnu/packages/guile-xyz.scm (guile-squee): New variable.
>
> LGTM!

Actually, no!  The license is wrong.  It should be LGPLv3+, not GPLv3+.

--
Ricardo

[bug#34344] [PATCH] gnu: Add guile-squee.

[Christopher Baines]

[-- Attachment #1: Type: text/plain, Size: 418 bytes --]


Ricardo Wurmus <rekado@elephly.net> writes:

> Ricardo Wurmus <rekado@elephly.net> writes:
>
>> Christopher Baines <mail@cbaines.net> writes:
>>
>>> * gnu/packages/guile-xyz.scm (guile-squee): New variable.
>>
>> LGTM!
>
> Actually, no!  The license is wrong.  It should be LGPLv3+, not GPLv3+.

Ah yes, I should have paid more attention. I've pushed a correction as
[1].

1: 6fd72f7094885dc3dbb10431996c445251094915

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 962 bytes --]

bug#34344: [PATCH] gnu: Add guile-squee.

[Christopher Baines]

[-- Attachment #1: Type: text/plain, Size: 207 bytes --]


Ricardo Wurmus <rekado@elephly.net> writes:

> Christopher Baines <mail@cbaines.net> writes:
>
>> * gnu/packages/guile-xyz.scm (guile-squee): New variable.
>
> LGTM!

Great, I've pushed this to master now.

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 962 bytes --]