From 820cbff8e27ca05125a31a5f9203966b59fb8763 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Sun, 10 Mar 2024 21:36:20 +0100
Subject: Generate PNG desktop background directly

This avoids having to copy the image to different machines.
---
 tw/packages/catppuccin.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'tw/packages/catppuccin.scm')

diff --git a/tw/packages/catppuccin.scm b/tw/packages/catppuccin.scm
index b2644147..e79c6be2 100644
--- a/tw/packages/catppuccin.scm
+++ b/tw/packages/catppuccin.scm
@@ -4,6 +4,8 @@
                 #:select (coreutils gnu-make findutils sed (which . which-package)))
   #:use-module (gnu packages bash)
   #:use-module (gnu packages gawk)
+  #:use-module ((gnu packages gnome)
+                #:select (gnome-backgrounds))
   #:use-module (gnu packages gnome-xyz)
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages inkscape)
@@ -19,6 +21,7 @@
   #:use-module (guix build-system qt)
   #:use-module (guix build-system trivial)
   #:use-module (guix download)
+  #:use-module (guix gexp)
   #:use-module (guix git-download)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages))
@@ -234,3 +237,25 @@ Catppuccin color palette."))
    #:commit "1bda9d8274dd327b7931886ef0c5c1eb33903814"
    #:repo-hash "104qmrmb249ly2zp797m652bgsvs09q22p65a73lz0fmv7k9qqqx"
    #:install-plan '(("src/" "share/catppuccin/zathura/"))))
+
+(define-public tw-background
+  (package
+    (name "tw-background")
+    (version "1")
+    (source #f)
+    (build-system trivial-build-system)
+    (arguments
+     `(#:builder
+       ,(with-imported-modules '((guix build utils))
+          #~(let* ((out-dir (string-append #$output "/share/backgrounds/tw"))
+                   (out-img (string-append out-dir "/blobs.png")))
+              (use-modules (guix build utils))
+              (mkdir-p out-dir)
+              (invoke #+(file-append inkscape "/bin/inkscape") "-C" "-o" out-img
+                      #+(file-append gnome-backgrounds "/share/backgrounds/gnome/blobs-d.svg"))))))
+    (native-inputs (list gnome-backgrounds inkscape))
+    (home-page #f)
+    (synopsis "My chosen desktop background image")
+    (description "This package definition generates a rasterised version of my
+chosen desktop background image from @code{gnome-backgrounds}.")
+    (license (package-license gnome-backgrounds))))
-- 
cgit v1.2.3