diff --git a/sakura/packages/networking.scm b/sakura/packages/networking.scm index 049c30c..211dde6 100644 --- a/sakura/packages/networking.scm +++ b/sakura/packages/networking.scm @@ -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+)))