From patchwork Thu May 27 21:27:14 2021 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Sharlatan Hellseher X-Patchwork-Id: 29634 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id A0EC827BC81; Thu, 27 May 2021 22:42:42 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-1.1 required=5.0 tests=BAYES_00,DKIM_ADSP_CUSTOM_MED, DKIM_SIGNED,FREEMAIL_FROM,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H4, RCVD_IN_MSPIKE_WL,SPF_HELO_PASS,T_DKIM_INVALID,URIBL_BLOCKED,URIBL_SBL, URIBL_SBL_A autolearn=unavailable autolearn_force=no version=3.4.2 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 0080827BC78 for ; Thu, 27 May 2021 22:42:42 +0100 (BST) Received: from localhost ([::1]:35902 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lmNm5-0006YW-8W for patchwork@mira.cbaines.net; Thu, 27 May 2021 17:42:41 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:49640) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lmNXv-0000Eg-1j for guix-patches@gnu.org; Thu, 27 May 2021 17:28:03 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:41396) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lmNXu-0005hl-Nd for guix-patches@gnu.org; Thu, 27 May 2021 17:28:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1lmNXu-0003ZY-Kv for guix-patches@gnu.org; Thu, 27 May 2021 17:28:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#48708] [PATCH 2/3]: gnu: Add cl-gamepad References: In-Reply-To: Resent-From: Sharlatan Hellseher Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Thu, 27 May 2021 21:28:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 48708 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 48708@debbugs.gnu.org Received: via spool by 48708-submit@debbugs.gnu.org id=B48708.162215085213667 (code B ref 48708); Thu, 27 May 2021 21:28:02 +0000 Received: (at 48708) by debbugs.gnu.org; 27 May 2021 21:27:32 +0000 Received: from localhost ([127.0.0.1]:52937 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lmNXQ-0003YN-6d for submit@debbugs.gnu.org; Thu, 27 May 2021 17:27:32 -0400 Received: from mail-wm1-f45.google.com ([209.85.128.45]:34386) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lmNXO-0003YA-Hm for 48708@debbugs.gnu.org; Thu, 27 May 2021 17:27:31 -0400 Received: by mail-wm1-f45.google.com with SMTP id u5-20020a7bc0450000b02901480e40338bso5793591wmc.1 for <48708@debbugs.gnu.org>; Thu, 27 May 2021 14:27:30 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:from:date:message-id:subject:to; bh=a8+jJH0UMy6UbjyF3cQQ7aiENwRrbwRJmeenfCLAI6E=; b=juQWV3ONM5dUIpe6UjqnuYL+6a9w4VDC5y1i4X3eFTI+wFsB4kWLzOqrcBlQf1zVwz q4mrwoLOSZaak9AaFQSx++vv8D8B+uc58HmVGVTuG/BGkzh7e1w1pwwrD1+LIosDlcJ4 CJY4u6/+bW7wHcuyyzqMA70vwh2ftXG1UUDoZgR+EhLwsfT6YDb7n81wv+TYOsiNA/0w LO6BvzGlvulD7gQMGZqr4rB+lgeYGBosYEr3AIJ3/gbS/mPowhMlDQi/Su5Eta84v2WW kRY69IpnFrCvbOKXhDsj3ehXKaSvDWbdlZtI8kL3osIZZnh8OqR+G31reVRBYTrzi87k 9QxQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=a8+jJH0UMy6UbjyF3cQQ7aiENwRrbwRJmeenfCLAI6E=; b=i+6K+PbQvxqMov8XZ9X/9Pp9PhFPrNmUb2IoG7h+iZjYT1fQiUdgSJXQOU0ip2dMrB GvUxqkKcIjqZT6m1kZiM8yNyio1HjBDD9n8PVVirRrWKk4MP/2wn0xuxq6XRpCCtxwOX HM+IKqs0F4bIC4/yJCjj2+n02eUihy2qRGjmhl/7dOfGs95xmMvUUDFafvs1iLeZg2cA Lfk+gehQjlWK07C/q1W9GnJloB6ZAwCw5DsxseAlI6oF8Q5zDm89+IV1INcicqVLphhO myUXBJ8CuSwYw5nkaeS4r5W3q7DJmaPFnZBb38zbMUhkn1ybvOeVbfe4QVmbZV4wZXuC Y5cg== X-Gm-Message-State: AOAM5330iMumogxJtbJakBecTlycPgBVuiRfvCNARe0EPmTVlDLLkugN lKb3V0VzlXmYOGbEUtTC+g69f2TyZhTJctRWGPVv3xQF X-Google-Smtp-Source: ABdhPJwqTtnqXAGOvcXwpspR1S+aZ1Z9zlXoaTP+7oa1Ahk1RBwsuqv0rJSKnKoe9aOg7LDB+aPBfleqw0tEFFCDBwM= X-Received: by 2002:a1c:65c2:: with SMTP id z185mr10586589wmb.2.1622150844941; Thu, 27 May 2021 14:27:24 -0700 (PDT) MIME-Version: 1.0 From: Sharlatan Hellseher Date: Thu, 27 May 2021 21:27:14 +0000 Message-ID: X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches -- … наш разум - превосходная объяснительная машина которая способна найти смысл почти в чем угодно, истолковать любой феномен, но совершенно не в состоянии принять мысль о непредсказуемости. From 3a00de74ea423a1ecc2fe2a8d3b281bd391436dd Mon Sep 17 00:00:00 2001 From: Sharlatan Hellseher Date: Thu, 27 May 2021 22:05:17 +0100 Subject: [PATCH 2/3] gnu: Add cl-gamepad * gnu/packages/lisp-xyz.scm: (sbcl-cl-gamepad, ecl-cl-gamepad, cl-gamepad): New variables --- gnu/packages/lisp-xyz.scm | 55 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 55 insertions(+) diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index dcdf7b3f50..33d4bf99d0 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -90,6 +90,7 @@ #:use-module (gnu packages web) #:use-module (gnu packages webkit) #:use-module (gnu packages xdisorg) + #:use-module (gnu packages xorg) #:use-module (ice-9 match) #:use-module (srfi srfi-1) #:use-module (srfi srfi-19)) @@ -17221,3 +17222,57 @@ the generic visualisation of graphs in this format.") (define-public cl-flow (sbcl-package->cl-source-package sbcl-flow)) + +(define-public sbcl-cl-gamepad + (let ((commit "2bb8f9eef29f8968fd12d0b4060314bf925169ef") + (revision "1")) + (package + (name "sbcl-cl-gamepad") + (version (git-version "3.0.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Shirakumo/cl-gamepad") + (commit commit))) + (file-name (git-file-name "cl-gamepad" version)) + (sha256 + (base32 "18b9fainnswm0fb7lhkrkx3dxipyw0s7lzdjyqw7mchxpvicz9rv")))) + (build-system asdf-build-system/sbcl) + (arguments + `(#:phases + (modify-phases %standard-phases + ;; FIXME: (Sharlatan-20210527T212052+0100): + ;; default-device-mappings.lisp contains auto-generated code if it + ;; kept unsubstituted build fails with: + ;; + ;; The function ORG.SHIRAKUMO.FRAF.GAMEPAD:LIST-DEVICES is undefined. + ;; + (add-after 'unpack 'skip-load-default-device-mappings + (lambda _ + (substitute* "cl-gamepad.asd" + ((".*default-device-mappings.*") "")))) + (add-after 'unpack 'patch-evdev-lib-path + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "evdev-cffi.lisp" + (("libevdev.so" all) + (string-append + (assoc-ref inputs "libevdev") + "/lib/" all)))))))) + (inputs + `(("cffi" ,sbcl-cffi) + ("documentation-utils" ,sbcl-documentation-utils) + ("libevdev" ,libevdev) + ("trivial-features" ,sbcl-trivial-features))) + (home-page "https://shirakumo.github.io/cl-gamepad/") + (synopsis "Library for access to gamepads and joystick input devices") + (description + "This is a library to provide cross-platform access to gamepads, +joysticks, and other such HID devices.") + (license license:zlib)))) + +(define-public ecl-cl-gamepad + (sbcl-package->ecl-package sbcl-cl-gamepad)) + +(define-public cl-gamepad + (sbcl-package->cl-source-package sbcl-cl-gamepad)) -- 2.31.1