me
/
guix
Archived
1
0
Fork 0

gnu: sawfish: Update to 1.13.0.

* gnu/packages/sawfish.scm (sawfish): Update to 1.13.0.
[arguments]: Use gexps.
[inputs]: Add gdk-pixbuf-xlib and gmp.

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
master
Feng Shu 2023-01-26 09:31:24 +08:00 committed by 宋文武
parent 3a5937d240
commit 09ffaaa436
No known key found for this signature in database
GPG Key ID: D415BF253B515976
1 changed files with 37 additions and 36 deletions
gnu/packages

View File

@ -21,6 +21,7 @@
(define-module (gnu packages sawfish) (define-module (gnu packages sawfish)
#:use-module ((guix licenses) #:select (gpl2+)) #:use-module ((guix licenses) #:select (gpl2+))
#:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
@ -113,14 +114,14 @@ backend of Sawfish.")
(define-public sawfish (define-public sawfish
(package (package
(name "sawfish") (name "sawfish")
(version "1.12.0") (version "1.13.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://download.tuxfamily.org/sawfish/" (uri (string-append "https://download.tuxfamily.org/sawfish/"
name "_" version ".tar.xz")) name "_" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"1z7awzgw8d15aw17kpbj460pcxq8l2rhkaxk47w7yg9qrmg0xja4")) "0pdgf9w5vrn3kfqxwggikj4yqg82rpy8ji613zdhidacz9dkqsw1"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin
@ -131,21 +132,20 @@ backend of Sawfish.")
"REP_DL_LOAD_PATH=$(REP_DL_LOAD_PATH):")) "REP_DL_LOAD_PATH=$(REP_DL_LOAD_PATH):"))
(substitute* "src/Makefile.in" (substitute* "src/Makefile.in"
;; Install libraries for librep to $out/lib/rep. ;; Install libraries for librep to $out/lib/rep.
(("\\$\\(repexecdir\\)") "$(libdir)/rep")) (("\\$\\(repexecdir\\)") "$(libdir)/rep"))))))
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:tests? #f ; no tests (list
#:tests? #f ; no tests
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'configure 'patch-exec-rep (add-before 'configure 'patch-exec-rep
(lambda _ (lambda _
(substitute* '("lisp/sawfish/cfg/main.jl.in" (substitute* '("lisp/sawfish/cfg/main.jl.in"
"scripts/sawfish-about.jl.in" "scripts/sawfish-about.jl.in"
"scripts/sawfish-client.jl" "scripts/sawfish-client.jl"
"scripts/sawfish-menu.jl") "scripts/sawfish-menu.jl")
(("exec rep") (string-append "exec " (which "rep")))) (("exec rep") (string-append "exec " (which "rep"))))))
#t))
(add-after 'install 'wrap-scripts (add-after 'install 'wrap-scripts
;; Wrap scripts with REP_DL_LOAD_PATH for finding rep-gtk ;; Wrap scripts with REP_DL_LOAD_PATH for finding rep-gtk
;; and sawfish.client. ;; and sawfish.client.
@ -160,15 +160,16 @@ backend of Sawfish.")
(list "/bin/sawfish-about" (list "/bin/sawfish-about"
"/bin/sawfish-client" "/bin/sawfish-client"
"/bin/sawfish-config" "/bin/sawfish-config"
"/lib/sawfish/sawfish-menu")) "/lib/sawfish/sawfish-menu")))))))
#t)))))
(native-inputs (native-inputs
`(("gettext" ,gettext-minimal) (list gettext-minimal
("makeinfo" ,texinfo) texinfo
("pkg-config" ,pkg-config) pkg-config
("which" ,which))) which))
(inputs (inputs
(list libsm (list gdk-pixbuf-xlib
gmp
libsm
libxft libxft
libxinerama libxinerama
libxrandr libxrandr