(define-module (freya packages gnome-xyz)
               #:use-module ((guix licenses) #:prefix license:)
               #:use-module (guix gexp)
               #:use-module (gnu packages)
               #:use-module (gnu packages base)
               #:use-module (gnu packages version-control)
               #:use-module (gnu packages web)
               #:use-module (gnu packages bash)
               #:use-module (gnu packages compression)
               #:use-module (gnu packages gnome-xyz)
               #:use-module (guix packages)
               #:use-module (guix git-download)
               #:use-module (guix download)
               #:use-module (guix build-system trivial)
               #:use-module (guix utils))


(define-public lavanda-gtk-theme
  (let ((commit "44c74ad34d272e07b91f779e62e63b6ef8645655"))
  (package
   (name "lavanda-gtk-theme")
   (version (git-version "" "0" commit))
   (source
     (origin
      (method git-fetch)
      (uri (git-reference
             (url "https://github.com/vinceliuice/Lavanda-gtk-theme.git")
             (commit commit)))
     (sha256
       (base32
         "1q253kl5lw9dpbmwaf715brdjka7b3s3kpl4i6s262dji84pp3dc"))
     (file-name (git-file-name name version))))
   (build-system trivial-build-system)
   (inputs
     `(("sassc" ,sassc)
       ("coreutils" ,coreutils)
       ("sed" ,sed)
       ("bash" ,bash)))
   (arguments
     '(#:modules ((guix build utils))
       #:builder
       (begin
         (use-modules (guix build utils))
         (let* ((out    (assoc-ref %outputs "out"))
                (bin    (string-append out "/share/themes"))
                (bash   (string-append
                          (assoc-ref %build-inputs "bash")
                          "/bin/sh"))
                (coreutils (string-append
                          (assoc-ref %build-inputs "coreutils")
                          "/bin"))
                (sed    (string-append
                          (assoc-ref %build-inputs "sed")
                          "/bin"))
                (sassc  (string-append
                          (assoc-ref %build-inputs "sassc")
                          "/bin"))
                (source (assoc-ref %build-inputs "source")))
           (copy-recursively source (getcwd))
           (setenv "PATH" (string-append (getenv "PATH") ":" coreutils ":" sed ":" sassc))
           (mkdir-p bin)
           (invoke bash "build.sh")
           (invoke bash "install.sh" "-d" bin)))))
   (home-page "https://github.com/vinceliuice/Lavanda-gtk-theme")
   (synopsis "Lavanda gtk theme for linux desktops")
   (description "Lavanda gtk theme for linux desktops")
   (license license:gpl3))))


(define-public mint-themes
  (package
   (name "mint-themes")
   (version "2.1.8")
   (source
     (origin
      (method url-fetch)
      (uri (string-append "http://packages.linuxmint.com/pool/main/m/mint-themes/mint-themes_"
                          version "_all.deb"))
      (sha256
       (base32
        "0a1j566a0p0nxmzil5z6qidzqd9dal1r5lv90x2v5s2slm162f3a"))
      (file-name "source.deb")))
   (build-system trivial-build-system)
   (native-inputs
     (list binutils
           tar
           xz))
   (arguments
     '(#:modules ((guix build utils))
       #:builder
       (begin
         (use-modules (guix build utils))
           (let* ((source (assoc-ref %build-inputs "source"))
                  (bin (string-append
                         (assoc-ref %outputs "out")
                         "/share/themes"))
                  (cwd (getcwd))
                  (deb (string-append cwd
                                      "/source.deb"))
                  (data (string-append cwd
                                       "/data.tar.xz"))
                  (themes (string-append cwd
                                         "/usr/share/themes"))
                  (ar (string-append
                        (assoc-ref %build-inputs "binutils")
                        "/bin/ar"))
                  (tar (string-append
                         (assoc-ref %build-inputs "tar")
                         "/bin/tar"))
                  (xz-bin (string-append
                            (assoc-ref %build-inputs "xz")
                            "/bin")))
             (setenv "PATH" (string-append (getenv "PATH") ":" xz-bin))
             (copy-file source deb)
             (invoke ar "x" deb "--output" cwd)
             (invoke tar "xf" data "-C" cwd)
             (mkdir-p bin)
             (copy-recursively themes bin)))))
   (home-page "https://github.com/linuxmint/mint-themes")
   (synopsis "A collection of Mint themes.")
   (description "A collection of Mint themes.")
   (license license:gpl3+)))


(define-public orchis-theme-2024
  (package
    (inherit orchis-theme)
    (name "orchis-theme")
    (version "2024-05-30")
    (source
      (origin
        (method git-fetch)
        (uri
          (git-reference
            (url "https://github.com/vinceliuice/Orchis-theme")
            (commit version)))
        (file-name (git-file-name name version))
        (sha256
          (base32
            "1qjw54wfi8f39cc6l53h2rx9sy3048r4jf21w18xp88ilznnv5qf"))))
    (arguments
     (substitute-keyword-arguments (package-arguments orchis-theme)
       ((#:configure-flags flags ''())
        #~(list "--dest" (string-append
                           (assoc-ref %outputs "out")
                           "/share/themes")
                "--theme" "all"))))))