amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: cl-cffi-gtk: Update to 3.8.8-3.1700fe6.

Browse source 
* gnu/packages/lisp-xyz.scm (sbcl-cl-cffi-gtk): Update to 3.8.8-3.1700fe6.
  [source,home-page]: Switch to active repository.
  [inputs]: Remove labels.
  [arguments]: Update 'fix-paths' phase.
This commit is contained in:
Guillaume Le Vaillant 2023-03-25 15:07:07 +01:00
parent 073e98a422
commit 9e0942f7a4
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 53 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

75
gnu/packages/lisp-xyz.scm
View file

@ -4638,68 +4638,73 @@ Lisp implementations.")
(sbcl-package->ecl-package sbcl-closer-mop)) (sbcl-package->ecl-package sbcl-closer-mop))
(define-public sbcl-cl-cffi-gtk (define-public sbcl-cl-cffi-gtk
(let ((commit "e9a46df65995d9a16e6c8dbdc1e09b775eb4a966")) (let ((commit "1700fe672c65455c1fc33061ec92a3df84287ec7")
(revision "3"))
(package (package
(name "sbcl-cl-cffi-gtk") (name "sbcl-cl-cffi-gtk")
(version (git-version "0.11.2" "2" commit)) (version (git-version "3.8.8" revision commit))
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/Ferada/cl-cffi-gtk/") (url "https://github.com/sharplispers/cl-cffi-gtk/")
(commit commit))) (commit commit)))
(file-name (git-file-name "cl-cffi-gtk" version)) (file-name (git-file-name "cl-cffi-gtk" version))
(sha256 (sha256
(base32 (base32 "1cn2f6b62axjzdzfv971218ably32dvqfdy499li25vjd8nb2qm3"))))
"04vix0gmqsj91lm975sx7jhlnz5gq1xf9jp873mp7c8frc5dk1jj"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(native-inputs (native-inputs
(list sbcl-fiveam)) (list sbcl-fiveam))
(inputs (inputs
`(("bordeaux-threads" ,sbcl-bordeaux-threads) (list cairo
("cairo" ,cairo) gdk-pixbuf
("cffi" ,sbcl-cffi) glib
("closer-mop" ,sbcl-closer-mop) gtk+
("gdk-pixbuf" ,gdk-pixbuf) pango
("glib" ,glib) sbcl-bordeaux-threads
("gtk" ,gtk+) sbcl-cffi
("iterate" ,sbcl-iterate) sbcl-closer-mop
("pango" ,pango) sbcl-iterate
("trivial-features" ,sbcl-trivial-features) sbcl-trivial-features
("trivial-garbage" ,sbcl-trivial-garbage))) sbcl-trivial-garbage))
(arguments (arguments
`(;; TODO: Tests fail with memory fault. (list
;; TODO: Tests fail with memory fault.
;; See https://github.com/Ferada/cl-cffi-gtk/issues/24. ;; See https://github.com/Ferada/cl-cffi-gtk/issues/24.
#:tests? #f #:tests? #f
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-paths (add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "glib/glib.init.lisp" (substitute* "glib/glib.init.lisp"
(("libglib|libgthread" all) (("libglib-[0-9.]*\\.so" all)
(string-append (assoc-ref inputs "glib") "/lib/" all))) (search-input-file inputs (string-append "/lib/" all)))
(("libgthread-[0-9.]*\\.so" all)
(search-input-file inputs (string-append "/lib/" all))))
(substitute* "gobject/gobject.init.lisp" (substitute* "gobject/gobject.init.lisp"
(("libgobject" all) (("libgobject-[0-9.]*\\.so" all)
(string-append (assoc-ref inputs "glib") "/lib/" all))) (search-input-file inputs (string-append "/lib/" all))))
(substitute* "gio/gio.init.lisp" (substitute* "gio/gio.init.lisp"
(("libgio" all) (("libgio-[0-9.]*\\.so" all)
(string-append (assoc-ref inputs "glib") "/lib/" all))) (search-input-file inputs (string-append "/lib/" all))))
(substitute* "cairo/cairo.init.lisp" (substitute* "cairo/cairo.init.lisp"
(("libcairo" all) (("libcairo\\.so" all)
(string-append (assoc-ref inputs "cairo") "/lib/" all))) (search-input-file inputs (string-append "/lib/" all))))
(substitute* "pango/pango.init.lisp" (substitute* "pango/pango.init.lisp"
(("libpango" all) (("libpango-[0-9.]*\\.so" all)
(string-append (assoc-ref inputs "pango") "/lib/" all))) (search-input-file inputs (string-append "/lib/" all)))
(("libpangocairo-[0-9.]*\\.so" all)
(search-input-file inputs (string-append "/lib/" all))))
(substitute* "gdk-pixbuf/gdk-pixbuf.init.lisp" (substitute* "gdk-pixbuf/gdk-pixbuf.init.lisp"
(("libgdk_pixbuf" all) (("libgdk_pixbuf-[0-9.]*\\.so" all)
(string-append (assoc-ref inputs "gdk-pixbuf") "/lib/" all))) (search-input-file inputs (string-append "/lib/" all))))
(substitute* "gdk/gdk.init.lisp" (substitute* "gdk/gdk.init.lisp"
(("libgdk" all) (("libgdk-[0-9]\\.so" all)
(string-append (assoc-ref inputs "gtk") "/lib/" all))) (search-input-file inputs (string-append "/lib/" all))))
(substitute* "gdk/gdk.package.lisp" (substitute* "gdk/gdk.package.lisp"
(("libgtk" all) (("libgtk-[0-9]\\.so" all)
(string-append (assoc-ref inputs "gtk") "/lib/" all)))))))) (search-input-file inputs (string-append "/lib/" all)))))))))
(home-page "https://github.com/Ferada/cl-cffi-gtk/") (home-page "https://github.com/sharplispers/cl-cffi-gtk/")
(synopsis "Common Lisp binding for GTK+3") (synopsis "Common Lisp binding for GTK+3")
(description (description
"@command{cl-cffi-gtk} is a Lisp binding to GTK+ 3 (GIMP Toolkit) which "@command{cl-cffi-gtk} is a Lisp binding to GTK+ 3 (GIMP Toolkit) which