freya/sakura
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove blueberry

Browse source
This commit is contained in:
Murphy 2024-11-04 10:55:06 -05:00
parent 8128254d9d
commit 08bf123a16
Signed by: freya
GPG key ID: 9FBC6FFD6D2DBF17
1 changed files with 0 additions and 75 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

75
sakura/packages/networking.scm
View file

@ -132,78 +132,3 @@
(synopsis "A simple yet powerful bluetooth client.")
(description "todo")
(license license:gpl3+)))
(define-public blueberry
(package
(name "blueberry")
(version "1.4.8")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/linuxmint/blueberry"
"/archive/refs/tags/" version ".tar.gz"))
(file-name (git-file-name name version))
(sha256
(base32
"0cksdbxl55jm30inbiz5ryb675p2lab936r04pkcxg3w7jyb199p"))))
(build-system python-build-system)
(native-inputs
(modify-inputs (package-native-inputs gnome-bluetooth)
(append gnu-make)
(append gettext-minimal)
(append sed)))
(inputs
(modify-inputs (package-inputs gnome-bluetooth)
(append bash)
(append gnome-bluetooth)
(append python-pygobject)
(append python-setproctitle)))
(propagated-inputs
(package-propagated-inputs gnome-bluetooth))
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'unpack
(lambda* (#:key source #:allow-other-keys)
(invoke "tar" "xf" source "--strip-components=1")))
(add-after 'unpack 'patch
(lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* (append
(find-files "usr/bin" ".*")
(find-files "usr/lib" ".*"))
; fix python schbang
(("/usr/bin/python3")
(string-append
(assoc-ref inputs "python") "/bin/python3"))
; fix sh schbang
(("/bin/sh")
(string-append
(assoc-ref inputs "bash") "/bin/sh"))
; fix blueberry file locations
(("/usr/(bin|lib|share)" cmd path)
(string-append
(assoc-ref outputs "out") "/" path)))))
(delete 'build)
(delete 'check)
(replace 'install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")))
(mkdir-p out)
(copy-recursively
(assoc-ref inputs "gnome-bluetooth")
out)
(for-each (lambda (file)
(let* ((src (string-append "usr/" file))
(dst (string-append out "/" file)))
(mkdir-p dst)
(copy-recursively src dst)))
'("lib"
"share"
"bin"))
(invoke "make" "all"))))
)))
(home-page "")
(synopsis "")
(description "")
(license license:gpl3+)))