From 6d23202d77cc1b036dee42dda016a405932a883e Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Sun, 16 Aug 2026 08:56:17 +0300
Subject: [PATCH] =?UTF-8?q?N=C3=A4yt=C3=A4=20Gnome-opastus=20kirjautuessa?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 modules/oms/home.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/modules/oms/home.scm b/modules/oms/home.scm
index 178bf6f..99395d4 100644
--- a/modules/oms/home.scm
+++ b/modules/oms/home.scm
@@ -6,6 +6,7 @@
   #:use-module (gnu services)
   #:use-module (gnu packages games)
   #:use-module (gnu packages gimp)
+  #:use-module (gnu packages gnome)
   #:use-module (gnu packages graphics)
   #:use-module (gnu packages haskell-xyz)
   #:use-module (gnu packages inkscape)
@@ -16,7 +17,8 @@
   #:use-module (gnu packages pdf)
   #:use-module (gnu packages tex)
   #:use-module (gnu packages version-control)
-  #:use-module (gnu packages video))
+  #:use-module (gnu packages video)
+  #:use-module (guix gexp))
 
 (define-public oms-home-environment
   (home-environment
@@ -27,6 +29,7 @@
            git
            gnome-2048
            gnome-chess
+           gnome-tour
            inkscape
            krita
            libreoffice
@@ -54,5 +57,10 @@
                        (projects "$HOME/Projektit")
                        (publicshare "$HOME")
                        (templates "$HOME/Mallit")
-                       (videos "$HOME/Videot"))))
+                       (videos "$HOME/Videot")))
+            (simple-service
+             'autostart-tour home-xdg-configuration-files-service-type
+             `(("autostart/gnome-tour.desktop"
+                ,(file-append gnome-tour
+                  "/share/applications/org.gnome.Tour.desktop")))))
       %base-home-services))))