futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: Add hackneyed-x11-cursors.

Browse Source 
* gnu/packages/xorg.scm (hackneyed-x11-cursors): New variable.
This commit is contained in:
Maxim Cournoyer 2020-04-26 03:36:57 -04:00
parent 886125d791
commit b58a22e5b7
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 62 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
gnu/packages/xorg.scm
View File

@ -22,6 +22,7 @@
;;; Copyright © 2019 Yoshinori Arai <kumagusu08@gmail.com>
;;; Copyright © 2020 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2020 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -63,7 +64,9 @@
#:use-module (gnu packages gnupg)
#:use-module (gnu packages gperf)
#:use-module (gnu packages gtk)
#:use-module (gnu packages inkscape)
#:use-module (gnu packages image)
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages libbsd)
#:use-module (gnu packages libedit)
#:use-module (gnu packages linux)
@ -2218,6 +2221,65 @@ X server: @code{handhelds}, @code{redglass} and @code{whiteglass}.")
(license license:x11)))
(define-public hackneyed-x11-cursors
;; The current release 0.8 suffers from non-deterministic build problems.
(let ((revision "1")
(commit "9423cef2e2e5ff6b1d65d61f7108c97bc7f5fdfb"))
(package
(name "hackneyed-x11-cursors")
(version (git-version "0.8.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/Enthymeme/hackneyed-x11-cursors.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0f637i76sdwz3nm1g1iynamq6j0i6k3c70fpl0fmd0dlynm8ga96"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;no test suite
#:make-flags (list (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'set-inkscape-environment-variable
(lambda* (#:key inputs #:allow-other-keys)
(let ((inkscape (string-append (assoc-ref inputs "inkscape")
"/bin/inkscape")))
(setenv "INKSCAPE" inkscape)
#t)))
(add-before 'build 'placate-inkscape-warnings
(lambda _
(setenv "HOME" (getcwd))
#t))
(add-after 'build 'generate-black-cursors
(lambda* (#:key make-flags parallel-build #:allow-other-keys)
(let ((build (assoc-ref %standard-phases 'build))
(make-flags/extended
`(,@make-flags
"THEME_NAME=Hackneyed-Dark"
"COMMON_SOURCE=theme/common-dark.svg"
"RSVG_SOURCE=theme/right-handed-dark.svg"
"LSVG_SOURCE=theme/left-handed-dark.svg")))
(build #:make-flags make-flags/extended
#:parallel-build parallel-build))))
(add-after 'install 'install-black-cursors
(lambda* (#:key make-flags #:allow-other-keys)
(apply invoke `("make" "install" ,@make-flags
"THEME_NAME=Hackneyed-Dark")))))))
(native-inputs `(("imagemagick" ,imagemagick)
("inkscape" ,inkscape)
("xcursorgen" ,xcursorgen)))
(home-page "https://gitlab.com/Enthymeme/hackneyed-x11-cursors")
(synopsis "Classic cursor theme for X11")
(description "Hackneyed is a scalable cursor theme mildly resembling old
Windows 3.x cursors. The cursors are available in white and black colors. A
left-handed version of the cursors is also included.")
(license license:x11))))
(define-public xcursorgen
(package
(name "xcursorgen")