amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: phd2: Fix indentation.

Browse source 
* gnu/packages/astronomy.scm (phd2): Fix indentation.

Change-Id: I8e7a717213f28140c8dd6547fc2393fac610d339
This commit is contained in:
Sharlatan Hellseher 2025-07-20 20:07:18 +01:00
parent e45eee3861
commit 9545089fe0
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5
1 changed files with 65 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

128
gnu/packages/astronomy.scm
View file

@ -1537,69 +1537,71 @@ R. Seaman's protocol}
;; and compatability with indi@2, use the latest commit from master branch. ;; and compatability with indi@2, use the latest commit from master branch.
(let ((commit "cc00236e79810da48e691e6a4785eb7e10b794ac") (let ((commit "cc00236e79810da48e691e6a4785eb7e10b794ac")
(revision "0")) (revision "0"))
(package (package
(name "phd2") (name "phd2")
(version (git-version "2.6.13" revision commit)) (version (git-version "2.6.13" revision commit))
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/OpenPHDGuiding/phd2") (url "https://github.com/OpenPHDGuiding/phd2")
(commit commit))) (commit commit)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1b6fzniy5w9bx4627761nd4laargy728zvhw4k69dinwdwdi8jjw")) (base32 "1b6fzniy5w9bx4627761nd4laargy728zvhw4k69dinwdwdi8jjw"))
(modules '((guix build utils) (modules '((guix build utils)
(ice-9 ftw) (ice-9 ftw)
(srfi srfi-26))) (srfi srfi-26)))
(snippet (snippet
#~(begin #~(begin
;; XXX: 'delete-all-but' is copied from the turbovnc package. ;; XXX: 'delete-all-but' is copied from the turbovnc package.
(define (delete-all-but directory . preserve) (define (delete-all-but directory . preserve)
(define (directory? x) (define (directory? x)
(and=> (stat x #f) (and=> (stat x #f)
(compose (cut eq? 'directory <>) stat:type))) (compose (cut eq? 'directory <>) stat:type)))
(with-directory-excursion directory (with-directory-excursion directory
(let* ((pred (let* ((pred
(negate (cut member <> (append '("." "..") preserve)))) (negate (cut member <> (append '("." "..") preserve))))
(items (scandir "." pred))) (items (scandir "." pred)))
(for-each (lambda (item) (for-each (lambda (item)
(if (directory? item) (if (directory? item)
(delete-file-recursively item) (delete-file-recursively item)
(delete-file item))) (delete-file item)))
items)))) items))))
(delete-all-but "thirdparty" "thirdparty.cmake"))))) (delete-all-but "thirdparty" "thirdparty.cmake")))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
(list #:configure-flags #~(list "-DOPENSOURCE_ONLY=yes" (list
"-DUSE_SYSTEM_CFITSIO=yes" #:configure-flags
"-DUSE_SYSTEM_EIGEN3=yes" #~(list "-DOPENSOURCE_ONLY=yes"
"-DUSE_SYSTEM_GTEST=yes" "-DUSE_SYSTEM_CFITSIO=yes"
"-DUSE_SYSTEM_LIBINDI=yes" "-DUSE_SYSTEM_EIGEN3=yes"
"-DUSE_SYSTEM_LIBUSB=yes"))) "-DUSE_SYSTEM_GTEST=yes"
(native-inputs "-DUSE_SYSTEM_LIBINDI=yes"
(list gettext-minimal "-DUSE_SYSTEM_LIBUSB=yes")))
googletest (native-inputs
perl (list gettext-minimal
pkg-config googletest
python)) perl
(inputs pkg-config
(list cfitsio python))
curl (inputs
eigen (list cfitsio
gtk+ curl
indi eigen
libnova gtk+
libusb indi
opencv libnova
wxwidgets libusb
zlib)) opencv
(home-page "https://openphdguiding.org") wxwidgets
(synopsis "Teleskope guiding software") zlib))
(description (home-page "https://openphdguiding.org")
"PHD2 is the enhanced, second generation version of the PHD guiding software (synopsis "Teleskope guiding software")
from Stark Labs.") (description
(license license:bsd-3)))) "PHD2 is the enhanced,second generation version of the PHD guiding
software from Stark Labs.")
(license license:bsd-3))))
(define-public psfex (define-public psfex
(package (package