From 9e52e49acb7ae79c06ca8cbcae657af8e392c3cd Mon Sep 17 00:00:00 2001
From: Hilton Chain <hako@ultrarare.space>
Date: Sat, 14 Feb 2026 22:36:37 +0800
Subject: [PATCH] rosenthal: %rosenthal-skeletons: Compute
 .cache/noctalia/shell-state.json.

* modules/rosenthal/services/desktop.scm (%rosenthal-skeletons)
[.cache/noctalia/shell-state.json]: Replace to computed-file.
---
 .../examples/dot-cache/noctalia/shell-state.json |  8 --------
 modules/rosenthal/services/desktop.scm           | 16 +++++++++++++++-
 2 files changed, 15 insertions(+), 9 deletions(-)
 delete mode 100644 modules/rosenthal/examples/dot-cache/noctalia/shell-state.json

diff --git a/modules/rosenthal/examples/dot-cache/noctalia/shell-state.json b/modules/rosenthal/examples/dot-cache/noctalia/shell-state.json
deleted file mode 100644
index 2757a80..0000000
--- a/modules/rosenthal/examples/dot-cache/noctalia/shell-state.json
+++ /dev/null
@@ -1,8 +0,0 @@
-{
-    "changelogState": {
-        "lastSeenVersion": "v4.4.3"
-    },
-    "telemetry": {
-        "instanceId": ""
-    }
-}
diff --git a/modules/rosenthal/services/desktop.scm b/modules/rosenthal/services/desktop.scm
index df9648f..6d47d9e 100644
--- a/modules/rosenthal/services/desktop.scm
+++ b/modules/rosenthal/services/desktop.scm
@@ -35,6 +35,7 @@
   #:use-module (gnu packages fcitx5)
   #:use-module (gnu packages fonts)
   #:use-module (gnu packages gnome)
+  #:use-module (gnu packages guile)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages networking)
   #:use-module (gnu packages polkit)
@@ -587,7 +588,20 @@ gtk-key-theme-name = ~a~%"
      ,(local-file "../examples/dot-config/xfce4/helpers.rc"))
     ;; Prevent Noctalia shell initial screen.
     (".cache/noctalia/shell-state.json"
-     ,(local-file "../examples/dot-cache/noctalia/shell-state.json"))
+     ,(computed-file "noctalia-shell-state.json"
+        (with-extensions (list guile-json-4)
+          #~(begin
+              (use-modules (json))
+              (call-with-output-file #$output
+                (lambda (port)
+                  (scm->json
+                   `(("changelogState"
+                      ("lastSeenVersion"
+                       . ,(string-append "v" #$(package-version noctalia-shell))))
+                     ("telemetry"
+                      ("instanceId" . "")))
+                   port
+                   #:pretty #t)))))))
 
     ;; Selected from the default skeletons.
     (".config/gdb/gdbinit" ,%default-gdbinit)