sharlatan pushed a commit to branch master
in repository guix.
commit a10f9ae49e499e8ab707bd7126e4fb6065e56180
Author: Sharlatan Hellseher <[email protected]>
AuthorDate: Thu Feb 13 09:26:11 2025 +0000
gnu: oneko: Refresh package style.
* gnu/packages/toys.scm (oneko): Use G-expressions, simplify, adjust
fields order and fix indentation.
Change-Id: I1af493522add7a0a22f28c7df04dc7b763b99def
---
gnu/packages/toys.scm | 59 +++++++++++++++++++++++++++------------------------
1 file changed, 31 insertions(+), 28 deletions(-)
diff --git a/gnu/packages/toys.scm b/gnu/packages/toys.scm
index f1afc2fe5a..b304e3606b 100644
--- a/gnu/packages/toys.scm
+++ b/gnu/packages/toys.scm
@@ -373,43 +373,46 @@ of the Nyan Cat / Poptart Cat animation.")
"bitmasks/bsd" "bitmasks/sakura" "bitmasks/tomoyo"
(find-files "cursors"
"(bsd|card|petal).*\\.xbm")))))))
(build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no tests
+ #:phases
+ #~(modify-phases %standard-phases
+ (replace 'configure
+ (lambda _
+ (invoke "xmkmf")
+ ;; Fix incorrectly generated compiler flags.
+ (substitute* "Makefile"
+ (("(CDEBUGFLAGS = ).*" _ front)
+ (string-append front "-O2\n")))))
+ (replace 'install
+ (lambda _
+ (let* ((bin (format #f "~a/bin" #$output))
+ (doc (format #f "~a/share/doc/~a-~a"
+ #$output #$name #$version))
+ (man (format #f "~a/share/man" #$output))
+ (man6 (format #f "~a/man6" man))
+ (man6-ja (format #f "~a/ja/man6" man)))
+ (install-file "oneko" bin)
+ (mkdir-p man6)
+ (mkdir-p man6-ja)
+ (copy-file "oneko.man" (string-append man6 "/oneko.6"))
+ (copy-file "oneko.man.jp" (string-append man6-ja "/oneko.6"))
+ (for-each (lambda (file) (install-file file doc))
+ (find-files "." "README.*"))))))))
(native-inputs
(list imake))
(inputs
(list libx11 libxext))
- (arguments
- `(#:tests? #f ; no tests
- #:phases
- (modify-phases %standard-phases
- (replace 'configure
- (lambda _
- (invoke "xmkmf")
- ;; Fix incorrectly generated compiler flags.
- (substitute* "Makefile"
- (("(CDEBUGFLAGS = ).*" _ front) (string-append front
"-O2\n")))))
- (replace 'install
- (lambda* (#:key outputs make-flags #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (bin (string-append out "/bin"))
- (doc (string-append out "/share/doc/" ,name "-" ,version))
- (man (string-append out "/share/man"))
- (man6 (string-append man "/man6"))
- (man6-ja (string-append man "/ja/man6")))
- (install-file "oneko" bin)
- (mkdir-p man6)
- (mkdir-p man6-ja)
- (copy-file "oneko.man" (string-append man6 "/oneko.6"))
- (copy-file "oneko.man.jp" (string-append man6-ja "/oneko.6"))
- (for-each (lambda (file) (install-file file doc))
- (find-files "." "README.*"))))))))
(home-page "http://www.daidouji.com/oneko/";)
(synopsis "Cute cat chasing your mouse pointer")
(description
- "Oneko displays an animated cat or dog that chases the mouse pointer---now
-an actual mouse or a bone---around the screen while you work.
+ "Oneko displays an animated cat or dog that chases the mouse
+pointer---now an actual mouse or a bone---around the screen while you work.
It was written for the X Window system and does not work well on Wayland.")
- (license license:public-domain))) ; see
https://directory.fsf.org/wiki/Oneko
+ ;; See <https://directory.fsf.org/wiki/Oneko>.
+ (license license:public-domain)))
(define-public python-terminaltexteffects
(package
