me
/
guix
Archived
1
0
Fork 0
Code

gnu: looking-glass-client: Update package style. 

* gnu/packages/virtualization.scm (looking-glass-client): Restyle format.
[arguments]: Use G-expressions.  Drop trailing #t from phases.

Signed-off-by: Christopher Baines <mail@cbaines.net>
Ahmad Draidi 2023-08-16 13:32:23 +04:00 committed by Christopher Baines
parent 5703c6bcd2
commit 02e32197a8
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 69 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

142
gnu/packages/virtualization.scm
View File

@ -1918,84 +1918,80 @@ Machine Protocol.")
(package (package
(name "looking-glass-client") (name "looking-glass-client")
(version "B6") (version "B6")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append "https://looking-glass.io/artifact/" version
(uri (string-append "https://looking-glass.io/artifact/" "/source"))
version "/source")) (file-name (string-append name "-" version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz")) (sha256
(sha256 (base32
(base32 "15d7wwbzfw28yqbz451b6n33ixy50vv8acyzi8gig1mq5a8gzdib"))))
"15d7wwbzfw28yqbz451b6n33ixy50vv8acyzi8gig1mq5a8gzdib"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(inputs (inputs (list bash-minimal
(list bash-minimal font-dejavu
font-dejavu fontconfig
fontconfig freetype
freetype glu
glu gmp
gmp libglvnd
libglvnd libiberty
libiberty libsamplerate
libsamplerate libx11
libx11 libxcursor
libxcursor libxfixes
libxfixes libxi
libxi libxinerama
libxinerama libxkbcommon
libxkbcommon libxpresent
libxpresent libxrandr
libxrandr libxscrnsaver
libxscrnsaver mesa
mesa pipewire
pipewire pulseaudio
pulseaudio spice-protocol
spice-protocol wayland
wayland wayland-protocols
wayland-protocols `(,zlib "static")))
`(,zlib "static")))
(native-inputs (list nettle pkg-config)) (native-inputs (list nettle pkg-config))
(arguments (arguments
`(#:tests? #f ;; No tests are available. (list #:tests? #f ;No tests are available.
;; Package uses "-march=native" by default. We disable that to build with the ;; Package uses "-march=native" by default. We disable that to build with the
;; lowest supported architecture for reproducibility and CPU compatibility. ;; lowest supported architecture for reproducibility and CPU compatibility.
#:configure-flags '("-DOPTIMIZE_FOR_NATIVE=OFF") #:configure-flags #~'("-DOPTIMIZE_FOR_NATIVE=OFF")
#:make-flags '("CC=gcc") #:make-flags #~'("CC=gcc")
#:phases (modify-phases %standard-phases #:phases #~(modify-phases %standard-phases
(add-before 'configure 'chdir-to-client (add-before 'configure 'chdir-to-client
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(chdir "client") (chdir "client")))
#t)) (replace 'install
(replace 'install (lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key outputs #:allow-other-keys) (install-file "looking-glass-client"
(install-file "looking-glass-client" (string-append (assoc-ref outputs
(string-append (assoc-ref outputs "out") "out")
"/bin")) "/bin"))))
#t)) (add-after 'install 'wrapper
(add-after 'install 'wrapper (lambda* (#:key inputs outputs #:allow-other-keys)
(lambda* (#:key inputs outputs #:allow-other-keys) (wrap-program (string-append (assoc-ref outputs
(wrap-program "out")
(string-append (assoc-ref outputs "out") "/bin/looking-glass-client")
"/bin/looking-glass-client") `("LD_LIBRARY_PATH" ":" prefix
`("LD_LIBRARY_PATH" ":" prefix ,(map (lambda (name)
,(map (lambda (name) (let ((input (assoc-ref inputs name)))
(let ((input (assoc-ref inputs name))) (string-append input "/lib")))
(string-append input "/lib"))) '("gmp" "libxi"
'("gmp" "nettle"
"libxi" "mesa"
"nettle" "wayland"
"mesa" "fontconfig-minimal"
"wayland" "freetype"
"fontconfig-minimal" "libx11"
"freetype" "libxfixes"
"libx11" "libxscrnsaver"
"libxfixes" "libxinerama")))))))))
"libxscrnsaver"
"libxinerama"))))
#t)))))
(home-page "https://looking-glass.io/") (home-page "https://looking-glass.io/")
(synopsis "KVM Frame Relay (KVMFR) implementation") (synopsis "KVM Frame Relay (KVMFR) implementation")
(description "Looking Glass allows the use of a KVM (Kernel-based Virtual (description
"Looking Glass allows the use of a KVM (Kernel-based Virtual
Machine) configured for VGA PCI Pass-through without an attached physical Machine) configured for VGA PCI Pass-through without an attached physical
monitor, keyboard or mouse. It displays the VM's rendered contents on your monitor, keyboard or mouse. It displays the VM's rendered contents on your
main monitor/GPU.") main monitor/GPU.")