From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <guix-patches-bounces+larch=yhetil.org@gnu.org>
Received: from mp10.migadu.com ([2001:41d0:2:bcc0::])
	(using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits))
	by ms5.migadu.com with LMTPS
	id 2G5YEEY5+WO0YgAAbAwnHQ
	(envelope-from <guix-patches-bounces+larch=yhetil.org@gnu.org>)
	for <larch@yhetil.org>; Fri, 24 Feb 2023 23:25:10 +0100
Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::])
	(using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits))
	by mp10.migadu.com with LMTPS
	id yHxqD0Y5+WP1BgEAG6o9tA
	(envelope-from <guix-patches-bounces+larch=yhetil.org@gnu.org>)
	for <larch@yhetil.org>; Fri, 24 Feb 2023 23:25:10 +0100
Received: from lists.gnu.org (lists.gnu.org [209.51.188.17])
	(using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits))
	(No client certificate requested)
	by aspmx1.migadu.com (Postfix) with ESMTPS id 0B0A010881
	for <larch@yhetil.org>; Fri, 24 Feb 2023 23:25:10 +0100 (CET)
Received: from localhost ([::1] helo=lists1p.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.90_1)
	(envelope-from <guix-patches-bounces@gnu.org>)
	id 1pVgV2-0005Ft-VV; Fri, 24 Feb 2023 17:25:08 -0500
Received: from eggs.gnu.org ([2001:470:142:3::10])
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
 id 1pVgV2-0005FS-0E
 for guix-patches@gnu.org; Fri, 24 Feb 2023 17:25:08 -0500
Received: from debbugs.gnu.org ([209.51.188.43])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128)
 (Exim 4.90_1) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
 id 1pVgUw-0004hW-VD
 for guix-patches@gnu.org; Fri, 24 Feb 2023 17:25:07 -0500
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1pVgUw-0003z4-Pu
 for guix-patches@gnu.org; Fri, 24 Feb 2023 17:25:02 -0500
X-Loop: help-debbugs@gnu.org
Subject: [bug#61772] [PATCH 4/5] gnu: Add sbcl-cl-cairo2.
Resent-From: Sharlatan Hellseher <sharlatanus@gmail.com>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-CC: guix-patches@gnu.org
Resent-Date: Fri, 24 Feb 2023 22:25:02 +0000
Resent-Message-ID: <handler.61772.B61772.167727744615225@debbugs.gnu.org>
Resent-Sender: help-debbugs@gnu.org
X-GNU-PR-Message: followup 61772
X-GNU-PR-Package: guix-patches
X-GNU-PR-Keywords: patch
To: 61772@debbugs.gnu.org
Cc: Sharlatan Hellseher <sharlatanus@gmail.com>
Received: via spool by 61772-submit@debbugs.gnu.org id=B61772.167727744615225
 (code B ref 61772); Fri, 24 Feb 2023 22:25:02 +0000
Received: (at 61772) by debbugs.gnu.org; 24 Feb 2023 22:24:06 +0000
Received: from localhost ([127.0.0.1]:38435 helo=debbugs.gnu.org)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
 id 1pVgU1-0003xP-Fv
 for submit@debbugs.gnu.org; Fri, 24 Feb 2023 17:24:05 -0500
Received: from mail-wr1-f53.google.com ([209.85.221.53]:34575)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <sharlatanus@gmail.com>) id 1pVgTv-0003w8-TY
 for 61772@debbugs.gnu.org; Fri, 24 Feb 2023 17:24:00 -0500
Received: by mail-wr1-f53.google.com with SMTP id r18so673779wrx.1
 for <61772@debbugs.gnu.org>; Fri, 24 Feb 2023 14:23:59 -0800 (PST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; 
 h=content-transfer-encoding:mime-version:references:in-reply-to
 :message-id:date:subject:cc:to:from:from:to:cc:subject:date
 :message-id:reply-to;
 bh=H8f4vUPkFrqb322PHvj/2DUXg+qY1rVbUK06SDQqbIU=;
 b=nk5SgUd8xoWF3rDS7MFnmoKkbNyYW2yGkq/jlJp3/sw5R5R1h5YefStcCu3z7DTo1V
 RPfN4Y1Iy/s5tf3o4ICUiRsYjDJzHWz31eJ4+r+b2TEP68mbKL8jmD/J54QD/ukuNAhZ
 GakOFD+aaDFJ4ZiIPTucDmKR4TZeIsMjXw+Ze/hJYpOSazatYTCavvEgcKuklNOqIhni
 tIr5Vd3tbK+4eZGFcEixwmGGicbvvnwHrCxHw53ZoFBWCuU4e9UiDuwYRER2WyiMRvkC
 QEtu3vYldEJgWEIMaVXR4Ah1Gqozr6QXct8WnZg7Qxud32FSfO/3mIZfHm0wKLHxQDVQ
 pwcA==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20210112;
 h=content-transfer-encoding:mime-version:references:in-reply-to
 :message-id:date:subject:cc:to:from:x-gm-message-state:from:to:cc
 :subject:date:message-id:reply-to;
 bh=H8f4vUPkFrqb322PHvj/2DUXg+qY1rVbUK06SDQqbIU=;
 b=s+Dktmxrh7YBx2El1OImAGFCwbipKON+e049GzTKorvvZP/pvF43WQ6m57HMpcBQ8Z
 faSlDSrzhwPyw8mOe2h0l2O7f5wlgLSoTKpFqolC/FMkoG3wREI4oJR6shHy2BF1gmmz
 2DpYM93s+gPpczcnCfKUsRDQv9PJmd4p/pnYkwZk6Rg4vdJ3UIr+ppQPETHhsTdTIiEP
 0V8NEj2cZ1cWi7irucwHTZsq+AI64XlWj8olaIJR2qqJeW2ZM9E2qQ2pHq+tSaRRvgpD
 48iYoxGKibmMIsz65r3stJ21nPuLuCMrS8DoBK7vDtk/bYUWCMXy7aUzSGTT3COWstUZ
 HLkQ==
X-Gm-Message-State: AO0yUKX5lose6A/Ad785GIE9N5Wdn4v9Q07cxKi/Itzcuo2npFyIW79L
 2CBWLyBR0GGfrA/EkWBDcPLruANebt4=
X-Google-Smtp-Source: AK7set/AM8WKSYQbKxRlH6BYkRMwCQHk4BqGwWQ/ckL5Y4w5ld5MwrHrOH9jwsZgKu7yoESgaWyB4Q==
X-Received: by 2002:adf:ce86:0:b0:2c7:4865:f07e with SMTP id
 r6-20020adfce86000000b002c74865f07emr2525967wrn.35.1677277434069; 
 Fri, 24 Feb 2023 14:23:54 -0800 (PST)
Received: from guxtil.incerto.xyz
 (cpc100856-bagu15-2-0-cust368.1-3.cable.virginm.net. [82.25.93.113])
 by smtp.gmail.com with ESMTPSA id
 fj10-20020a05600c0c8a00b003e7c89b3514sm4369422wmb.23.2023.02.24.14.23.53
 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256);
 Fri, 24 Feb 2023 14:23:53 -0800 (PST)
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Fri, 24 Feb 2023 22:23:48 +0000
Message-Id: <20230224222349.26750-4-sharlatanus@gmail.com>
X-Mailer: git-send-email 2.39.1
In-Reply-To: <20230224222349.26750-1-sharlatanus@gmail.com>
References: <20230224222349.26750-1-sharlatanus@gmail.com>
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
X-BeenThere: guix-patches@gnu.org
List-Id: <guix-patches.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-patches>,
 <mailto:guix-patches-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/guix-patches>
List-Post: <mailto:guix-patches@gnu.org>
List-Help: <mailto:guix-patches-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-patches>,
 <mailto:guix-patches-request@gnu.org?subject=subscribe>
Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org
Sender: guix-patches-bounces+larch=yhetil.org@gnu.org
X-Migadu-Country: US
X-Migadu-Flow: FLOW_IN
ARC-Authentication-Results: i=1;
	aspmx1.migadu.com;
	dkim=fail ("headers rsa verify failed") header.d=gmail.com header.s=20210112 header.b=nk5SgUd8;
	spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org";
	dmarc=fail reason="SPF not aligned (relaxed)" header.from=gmail.com (policy=none)
ARC-Seal: i=1; s=key1; d=yhetil.org; t=1677277510; a=rsa-sha256; cv=none;
	b=GI/jPHzKT30px5ZeuCsthtLoL7/EPUJHBnPMk9mk2wjHFbGylZOn+9wq9k/cnWdWAwiWW4
	Kb6WvcQWvvmpy6ZbsnU/YvfXaVrJQSOBbcG14ZJaJfmshbDgFc2cIWVSXs2s9AZXTIOOti
	2Ptx3aCm3sXG9cbNHcE0uJW0lSflynFMtR5M1eb1LXYAtI5eo1Nlfx9soMsmQRy1RsAV+t
	HHJvK4c8KqBItJANQbFk9HeEkYlYSLVhwhqVsOjQnZUvQdtZBnW+KFQ9cnH8vOlE3jur3G
	h4ifsElOkkQDMK1A7oZB7EHxBdNvElXM26amwcMttD2HF1uOqbGfVYor1FX/ag==
ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org;
	s=key1; t=1677277510;
	h=from:from:sender:sender:reply-to:subject:subject:date:date:
	 message-id:message-id:to:to:cc:cc:mime-version:mime-version:
	 content-transfer-encoding:content-transfer-encoding:resent-cc:
	 resent-from:resent-sender:resent-message-id:in-reply-to:in-reply-to:
	 references:references:list-id:list-help:list-unsubscribe:
	 list-subscribe:list-post:dkim-signature;
	bh=H8f4vUPkFrqb322PHvj/2DUXg+qY1rVbUK06SDQqbIU=;
	b=JgmioNqrQzIHiBpy88EQPJz6KtJ0tgtZosx8LWOq5HKZYAbS8AzFidxR8MQ+X41qA1G+CW
	vFvCbCGAWYHY/jfS7z4nMvl2wDQNJQTR55cVqYzJ4cCL19xGx+U6l3cFnkUw54hLv5IDtf
	aDKDu4hk85HjjfqZ0STdRREBuN4xF0Uk/oFiROPYIRnbOkcz8/d1Ivgb8+Y+dqIkZHBrlL
	R9P3WqJjURCxB6izQYBrOhvyKkT5CiSTjoSOvBsbbaqoVnGGCZx8I9nPlQhZWT8hHHHlXq
	FaBwd0eWxP9RFBxUNFBpmGSwMuMEm+DHxuA2C8MVO9aS9Wbf6bfUSVPoc2VueA==
Authentication-Results: aspmx1.migadu.com;
	dkim=fail ("headers rsa verify failed") header.d=gmail.com header.s=20210112 header.b=nk5SgUd8;
	spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org";
	dmarc=fail reason="SPF not aligned (relaxed)" header.from=gmail.com (policy=none)
X-Migadu-Spam-Score: 8.82
X-Spam-Score: 8.82
X-Migadu-Queue-Id: 0B0A010881
X-Spam: Yes
X-Migadu-Spam: Yes
X-Migadu-Scanner: scn1.migadu.com
X-TUID: GIMhMDqi4V98

* gnu/packages/lisp-xyz.scm (cl-cairo2, ecl-cl-cairo2, sbcl-cl-cairo2):
  New variables.
---
 gnu/packages/lisp-xyz.scm | 50 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 808fdb9391..e37a386232 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -3567,6 +3567,56 @@ (define-public cl-let-plus
 (define-public ecl-let-plus
   (sbcl-package->ecl-package sbcl-let-plus))
 
+(define-public sbcl-cl-cairo2
+  (let ((commit "41ae45aac86553c46f4bb460f80e1fb620930f5b")
+        (revision "1"))
+    (package
+      (name "sbcl-cl-cairo2")
+      (version (git-version "1.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/rpav/cl-cairo2")
+               (commit commit)))
+         (file-name (git-file-name "cl-cairo2" version))
+         (sha256
+          (base32 "0cpfgyxw6pz7y033dlya8c4vjmkpw127zdq3a9xclp9q8jbdlb7q"))))
+      (build-system asdf-build-system/sbcl)
+      (arguments
+       `(#:asd-systems '(;; "cl-cairo2-gtk2" ; cl-gtk2 is not packed and quite old.
+                         ;; "cl-cairo2-quartz" ; Failing when enabled.
+                         ;; "cl-cairo2-xlib" ; cl-xcb-xlib is not packed yet and quite old.
+                         ;; "cl-cairo2-xcb"
+                         "cl-cairo2")
+         #:phases
+         (modify-phases %standard-phases
+           (add-after 'unpack 'fix-paths
+             (lambda* (#:key inputs #:allow-other-keys)
+               (substitute* "src/load-libraries.lisp"
+                 (("libcairo.so.2")
+                  (search-input-file inputs "/lib/libcairo.so.2"))))))))
+      (inputs
+       (list cairo
+             sbcl-cffi
+             sbcl-cl-colors
+             sbcl-cl-freetype2
+             sbcl-cl-utilities
+             sbcl-metabang-bind
+             sbcl-trivial-features
+             sbcl-trivial-garbage))
+      (home-page "https://github.com/rpav/cl-cairo2")
+      (synopsis "Cairo bindings for Common Lisp")
+      (description
+       "This packages provides a CFFI bindings for Common Lisp to cairo C library.")
+      (license license:boost1.0))))
+
+(define-public ecl-cl-cairo2
+  (sbcl-package->ecl-package sbcl-cl-cairo2))
+
+(define-public cl-cairo2
+  (sbcl-package->cl-source-package sbcl-cl-cairo2))
+
 (define-public sbcl-cl-colors
   (let ((commit "827410584553f5c717eec6182343b7605f707f75"))
     (package
-- 
2.39.1