remove blueberry

1 files changed, 0 insertions, 75 deletions

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+)))