1 files changed, 0 insertions, 154 deletions
diff --git a/guix/config-desktop.scm~ b/guix/config-desktop.scm~
deleted file mode 100644
index 1f5f038..0000000
--- a/guix/config-desktop.scm~
+++ /dev/null
@@ -1,154 +0,0 @@
-(use-modules (gnu)
-	     (guix transformations)
-	     (gnu home)
-             (guix gexp)
- 	     (nongnu packages linux)
-	     (nongnu system linux-initrd)
-             (gnu home services shells))
-
-(use-service-modules guix cups desktop networking ssh xorg docker nix admin vnc lightdm syncthing virtualization databases)
-(use-package-modules gnome xdisorg vnc databases)
-
-(load "/home/w96k/projects/dotfiles/guix/home/home-configuration.scm")
-
-(define wkz-transform
-  ;; The package transformation procedure.
-  (options->transformation
-   '((tune . "skylake"))))
-
-(operating-system
- (locale "en_US.utf8")
- (timezone "Asia/Tbilisi")
- (kernel linux)
- (initrd microcode-initrd)
- (firmware (list linux-firmware))
- (keyboard-layout (keyboard-layout "us,ru"
-                                   #:options '("grp:shifts_toggle" "ctrl:nocaps")))
- (host-name "wkz-guix")
-
- ;; The list of user accounts ('root' is implicit).
- (users (cons* (user-account
-                (name "w96k")
-                (comment "W96K")
-                (group "users")
-                (home-directory "/home/w96k")
-                (supplementary-groups '("wheel" "netdev" "audio" "video" "docker")))
-	       (user-account
-                (name "wkz")
-                (comment "wkz")
-                (group "users")
-                (home-directory "/home/wkz")
-                (supplementary-groups '("wheel" "netdev" "audio" "video" "docker")))
-               %base-user-accounts))
-
- ;; (packages %base-packages)
- (packages
-  (append
-   (map
-    specification->package
-    '(
-      "ratpoison"
-      "xterm"
-      ))
-   %base-packages))
-
- ;; Below is the list of system services.  To search for available
- ;; services, run 'guix system search KEYWORD' in a terminal.
- (services
-  (append (list
-	   (service guix-home-service-type `(("w96k" ,wkz-home) ("wkz" ,wkz-home)))
-	   (service block-facebook-hosts-service-type)
-
-	   (service tor-service-type)
-	   (service openssh-service-type)
-	   (service containerd-service-type)
-	   (service docker-service-type)
-	   ;; (service hurd-vm-service-type
-           ;;   (hurd-vm-configuration
-           ;;    (disk-size (* 5000 (expt 2 20))) ;5G
-           ;;    (memory-size 1024)))
-	   
-	   (service nix-service-type (nix-configuration
-				      (extra-options '("--extra-experimental-features nix-command"))))
-
-	   (service xvnc-service-type (xvnc-configuration
-                                       (display-number 10)
-                                       (localhost? #f)
-                                       (geometry "1280x800")))
-
-	   (service syncthing-service-type
-		    (syncthing-configuration
-		     (user "w96k")))
-
-	   (service postgresql-service-type
-		    (postgresql-configuration
-		     (postgresql postgresql-15)))
-
-	   (service connman-service-type)
-
-	   ;; (service screen-locker-service-type
-           ;;  (screen-locker-configuration
-           ;;   (name "xlock")
-           ;;   (program (file-append xlockmore "/bin/xlock"))))
-
-	   ;; (service slim-service-type
-	   ;;    (slim-configuration
-	   ;;     (default-user "w96k")
-	   ;;    (xorg-configuration
-	   ;;      (xorg-configuration	   
-	   ;;       (keyboard-layout keyboard-layout)))))
-	   )
-
-	  (modify-services %desktop-services
-			   (delete screen-locker-service-type)
-			   (delete modem-manager-service-type)
-			   (delete udisks-service-type)
-			   (delete upower-service-type)
-			   (delete network-manager-service-type)
-			   (delete usb-modeswitch-service-type)
-			   (delete geoclue-service-type)
-			   
-			   
-			   (guix-service-type config => (guix-configuration
-							 (inherit config)
-							 (extra-options '("--max-jobs=10"))
-							 (substitute-urls
-							  (append (list "https://substitutes.nonguix.org")
-								  %default-substitute-urls))
-							 (authorized-keys
-							  (append (list (plain-file "non-guix.pub"
-										    "
-(public-key 
- (ecc 
-  (curve Ed25519)
-  (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)
-  )
- )
-"))
-								  %default-authorized-guix-keys))))
-			   
-			   (delete gdm-service-type))))
-
- (bootloader (bootloader-configuration
-              (bootloader grub-efi-bootloader)
-              (targets (list "/boot/efi"))
-              (keyboard-layout keyboard-layout)))
- (mapped-devices (list (mapped-device
-                        (source (uuid
-                                 "6cfe9eed-8cdd-43da-9b9f-cec6f8ec538b"))
-                        (target "cryptroot")
-                        (type luks-device-mapping))))
-
- (file-systems (cons* (file-system
-                       (mount-point "/boot/efi")
-                       (device (uuid "17C5-3E35"
-                                     'fat32))
-                       (type "vfat"))
-                      (file-system
-                       (mount-point "/")
-                       (device "/dev/mapper/cryptroot")
-                       (type "ext4")
-		       (options "discard")
-		       (skip-check-if-clean? #f)
-		       (repair #t)
-                       (dependencies mapped-devices)) %base-file-systems)))