me/guix
Archived
1
0
Fork 0
Code Activity

gnu: stackistry: Use G-Expressions.

Browse source 
* gnu/packages/astronomy.scm (stackistry): Update package style by using
G-Expressions. Apply indention.
[arguments]<#:tests?>: Use it instead of deleting check phase.
<#:phases>: Remove trailing #f from each lambda.

Change-Id: I30f3906719713f0d47dc2049564bc2691ba3cd5d
This commit is contained in:
Sharlatan Hellseher 2024-01-20 15:50:48 +00:00
parent 6431cf121d
commit f74a8e8ac0
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5
1 changed files with 39 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

79
gnu/packages/astronomy.scm
View file

@ -1227,52 +1227,51 @@ astronomical fields. SkyMaker is part of the
(base32 "0rz29v33n0x0k40hv3v79ym5ylch1v0pbph4i21809gz2al5p7dq")))) (base32 "0rz29v33n0x0k40hv3v79ym5ylch1v0pbph4i21809gz2al5p7dq"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags (list
(list #:tests? #f ; No test target
(string-append #:make-flags
"SKRY_INCLUDE_PATH=" (assoc-ref %build-inputs "libskry") "/include") #~(list
(string-append (string-append
"SKRY_LIB_PATH=-L" (assoc-ref %build-inputs "libskry") "/lib") "SKRY_INCLUDE_PATH=" #$(this-package-input "libskry") "/include")
(string-append (string-append
"LIBAV_INCLUDE_PATH=" (assoc-ref %build-inputs "ffmpeg") "/include")) "SKRY_LIB_PATH=-L" #$(this-package-input "libskry") "/lib")
#:phases (string-append
(modify-phases %standard-phases "LIBAV_INCLUDE_PATH=" #$(this-package-input "ffmpeg") "/include"))
;; no configure and tests are provided #:phases
(delete 'configure) #~(modify-phases %standard-phases
(delete 'check) ;; no configure and tests are provided
(add-after 'unpack 'fix-paths (delete 'configure)
(lambda* (#:key outputs #:allow-other-keys) (add-after 'unpack 'fix-paths
(substitute* "src/main.cpp" (lambda _
(("\"\\.\\.\", \"lang\"") (substitute* "src/main.cpp"
"\"../share/stackistry\", \"lang\"")) (("\"\\.\\.\", \"lang\"")
(substitute* "src/utils.cpp" "\"../share/stackistry\", \"lang\""))
(("\"\\.\\.\", \"icons\"") (substitute* "src/utils.cpp"
"\"../share/stackistry\", \"icons\"")) (("\"\\.\\.\", \"icons\"")
#t)) "\"../share/stackistry\", \"icons\""))))
(replace 'install (replace 'install
;; The Makefile lacks an ‘install’ target. ;; The Makefile lacks an ‘install’ target.
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let* ((out #$output)
(bin (string-append out "/bin")) (bin (string-append out "/bin"))
(icons (string-append out "/share/stackistry/icons")) (icons (string-append out "/share/stackistry/icons"))
(lang (string-append out "/share/stackistry/lang"))) (lang (string-append out "/share/stackistry/lang")))
(copy-recursively "bin" bin) (copy-recursively "bin" bin)
(copy-recursively "icons" icons) (copy-recursively "icons" icons)
(copy-recursively "lang" lang)) (copy-recursively "lang" lang)))))))
#t)))))
(native-inputs (native-inputs
(list pkg-config)) (list pkg-config))
(inputs (inputs
(list gtkmm-3 libskry ffmpeg-4)) (list gtkmm-3 libskry ffmpeg-4))
(home-page "https://github.com/GreatAttractor/stackistry") (home-page "https://github.com/GreatAttractor/stackistry")
(synopsis "Astronomical lucky imaging/image stacking tool") (synopsis "Astronomical lucky imaging/image stacking tool")
(description (description
"Stackistry implements the lucky imaging principle of astronomical "Stackistry implements the lucky imaging principle of astronomical
imaging: creating a high-quality still image out of a series of many (possibly imaging: creating a high-quality still image out of a series of many (possibly
thousands) low quality ones (blurred, deformed, noisy). The resulting image thousands) low quality ones (blurred, deformed, noisy). The resulting image
stack typically requires post-processing, including sharpening (e.g. via stack typically requires post-processing, including sharpening (e.g. via
deconvolution). Such post-processing is not performed by Stackistry.") deconvolution). Such post-processing is not performed by Stackistry.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public stellarium (define-public stellarium
(package (package