Flatpak, ente photos, dns/net utils

guix-config/channels-lock.scm

@@ -3,7 +3,7 @@
         (url "https://git.guix.gnu.org/guix.git")
         (branch "master")
         (commit
-          "d644ca904bca9c67ee83594f607ed7ad79aa5961")
+          "7c7bad305a66da1e83299ce7fa2e96c803667d0a")
         (introduction
           (make-channel-introduction
             "9edb3f66fd807b096b48283debdcddccfea34bad"

guix-config/home/prompt.sh

@@ -1 +1 @@
-export PS1='\[\033[38;2;166;227;161m\]\u\[\033[0m\]@\[\033[38;2;137;180;250m\]\h\[\033[0m\]:\[\033[38;2;249;226;175m\]\w${GUIX_ENVIRONMENT:+ [env]}\[\033[0m\]\[\033[38;2;222;221;218m\] λ \[\033[0m\]'
+export PS1='\[\033[38;2;166;227;161m\]\u\[\033[0m\]@\[\033[38;2;137;180;250m\]\h\[\033[0m\]:\[\033[38;2;249;226;175m\]\w${GUIX_ENVIRONMENT:+ [env]}\[\033[0m\]\[\033[38;2;222;221;218m\]   \[\033[0m\]'

guix-config/home/services/flatpak.scm

@@ -1,6 +1,7 @@
 (define-module (guix-config home services flatpak)
   #:use-module (gnu home services)
   #:use-module (gnu home services utils)
+  #:use-module (gnu home services shells)
   #:use-module (gnu services)
   #:use-module (gnu packages package-management)
   #:use-module (guix gexp)
@@ -43,29 +44,13 @@
          (run (string-append "flatpak install -y --user " app)))
        '#$(home-flatpak-configuration-apps config))))
 
-(define (home-flatpak-service config)
-  (list
-   ;; 1. Ensure flatpak installed
-   (simple-service
-    'flatpak-packages
-    home-profile-service-type
-    (list (home-flatpak-configuration-flatpak-package config)))
+(define (home-flatpak-env config)
+   (home-bash-extension
+    (bashrc
+     (list
+      (file-append (home-flatpak-configuration-flatpak-package config)
+                                      "/etc/profile.d/flatpak.sh")))))
 
-   ;; 2. Add flatpak apps to XDG_DATA_DIRS
-   ;; https://forum.systemcrafters.net/t/gnome-software-center-flatpak-support/1702/3
-   (simple-service 
-    'flatpak-env
-    home-shell-profile-service-type
-    (list (local-file
-           (string-append (getenv "HOME") "/.guix-profile/etc/profile.d/flatpak.sh")
-           "flatpak.sh")))
-
-
-   ;; 3. Activation phase
-   (simple-service
-    'flatpak-activation
-    home-activation-service-type
-    (home-flatpak-activation config))))
 
 (define home-flatpak-service-type
   (service-type
@@ -73,6 +58,8 @@
    (extensions
     (list (service-extension home-profile-service-type
                              (compose list home-flatpak-configuration-flatpak-package))
+	  (service-extension home-bash-service-type
+			     home-flatpak-env)
           (service-extension home-activation-service-type
                              home-flatpak-activation)))
    (default-value (home-flatpak-configuration))

guix-config/home/workstation.scm

@@ -30,6 +30,7 @@
   #:use-module (gnu packages xdisorg)
   #:use-module (gnu packages monitoring)
   #:use-module (gnu packages video)
+  #:use-module (gnu packages texlive)
   #:use-module (gnu services)
   #:use-module (guix gexp)
   #:use-module (gnu home services shells)
@@ -47,6 +48,7 @@
   #:use-module (gnu packages gimp)
   #:use-module (gnu packages inkscape)
   #:use-module (gnu packages wm)
+  #:use-module (gnu packages dns)
 )
 
 (define tune 
@@ -56,6 +58,8 @@
  ;; Below is the list of packages that will show up in your
  ;; Home profile, under ~/.guix-home/profile.
  (packages (list git
+		 texlive
+		 libnotify
 		 kitty
 		 btop
 		 fastfetch
@@ -80,6 +84,8 @@
 		 nautilus
 		 dankmaterialshell
 		 secretsd
+		 `(,isc-bind "utils") ;; dig for dns
+		 inetutils
 		 xournalpp))
 
  ;; Below is the list of Home services.  To search for available
@@ -116,9 +122,9 @@
                          (home-dotfiles-configuration
                           (directories '("../../files"))))
 		;(service home-secretsd-service-type)
-		;(service home-flatpak-service-type
-		;	 (home-flatpak-configuration
-		;	  (apps '("in.cinny.Cinny"))))
+		(service home-flatpak-service-type
+			 (home-flatpak-configuration
+			  (apps '("io.ente.photos"))))
 		(service home-emacs-service-type
 			 (home-emacs-configuration
 			  (emacs (tune guixmacs))

guix-config/system/anaconda.scm

@@ -1,10 +1,19 @@
 (define-module (guix-config system anaconda)
   #:use-module (gnu)
+  #:use-module (guix transformations)
+  #:use-module (guix packages)
+  #:use-module (gnu packages linux)
   #:use-module (guix-config system base-system))
 
+(define tune 
+  (options->transformation '((tune . "alderlake"))))
+
 (operating-system 
  (inherit base-system)
   (host-name "anaconda")
+  (kernel (tune (package
+		 (inherit linux-libre)
+		 (properties '((tunable? . #t))))))
   (bootloader (bootloader-configuration
                 (bootloader grub-efi-bootloader)
                 (targets (list "/boot/efi"))