In the beginning there was darkness

.gitignore

@@ -0,0 +1 @@
+*~

config.scm

@@ -0,0 +1,119 @@
+;; -*- mode: guix-scheme -*-
+
+(use-modules (gnu)
+             (gnu services avahi)
+             (gnu services base)
+             (gnu services desktop)
+             (gnu services networking)
+             (gnu services pm)
+             (gnu system nss))
+
+(use-service-modules desktop)
+
+(use-package-modules bootloaders
+                     certs
+                     emacs
+                     wm
+                     xorg
+                     swayfx)
+
+(operating-system
+ (host-name "ziltis-machine")
+ (timezone "Europe/Berlin")
+ (locale "de_DE.utf8")
+ (bootloader (bootloader-configuration
+              (bootloader grub-efi-bootloader)
+              (targets '("/boot/efi"))
+              (keyboard-layout
+               (keyboard-layout "de"))))
+ (file-systems (append
+                (list
+                 (file-system
+                  (device (partition-label "EFI System Partition"))
+                  (mount-point "/boot/efi")
+                  (type "vfat"))
+                 (file-system
+                  (device (file-system-label "guix-root")
+                          (mount-point "/")
+                          (type "xfs")))
+                 (file-system
+                  (device (label "swap"))
+                  (type "swap")))
+                %base-file-systems))
+ (swap-devices (list
+                (swap-space
+                 (target (label "swap"))
+                 (discard? #t))))
+ (keyboard-layout (keyboard-layout "de"))
+ (users (cons (user-account
+               (name "zilti")
+               (group "users")
+               (supplementary-groups '("wheel"
+                                       "seat"
+                                       "audio"
+                                       "video"
+                                       "libvirt")))
+              %base-user-accounts))
+ (packages (append
+            (list
+             nss-certs
+             emacs
+             emacs-desktop-environment
+             kitty
+             swayfx)
+            %base-packages))
+
+ (services (append
+            (modify-services
+             %desktop-services
+             (delete login-service-type)
+             (delete mingetty-service-type))
+            (list (service avahi-service-type)
+
+                  (service elogind-service-type)
+                  (service seatd-service-type)
+                  (service polkit-service-type)
+                  (service polkit-wheel-service)
+                  (service upower-service-type)
+                  (service tlp-service-type)
+                  (service thermald-service-type
+                           (thermald-configuration
+                            (adaptive? #t)))
+                  (service udisks-service-type)
+                  (service bluetooth-service-type)
+                  (service inputattach-service-type)
+
+                  (service fstrim-service-type)
+
+                  (service earlyoom-service-type
+                           (earlyoom-configuration
+                            (minimum-available-memory 5)
+                            (minimum-free-swap 5)))
+
+                  (service greetd-service-type
+                           (greetd-configuration
+                            (greeter-supplementary-groups
+                             (list "video" "input" "seat"))
+                            (terminals
+                             (list (greetd-terminal-configuration
+                                    (terminal-vt "1")
+                                    (terminal-switch #t)
+                                    (default-session-command
+                                      (greetd-wlgreet-sway-session
+                                       (sway 'swayfx)
+                                       ;; (sway-configuration #f)
+                                       )))))))
+
+                  (service fprintd-service-type)
+
+                  (service screen-locker-service-type
+                           (screen-locker-configuration
+                            (name "swaylock")
+                            (program (file-append swaylock-effects "/bin/swaylock"))
+                            (using-setuid? #f)))
+
+                  (service libvirt-service-type
+                           (libvirt-configuration
+                            (unix-sock-group "libvirt"))))))
+
+ (name-service-switch %mdns-host-lookup-nss))

home/.bash_profile

@@ -0,0 +1,5 @@
+# include .profile if it exists
+[[ -f ~/.profile ]] && . ~/.profile
+
+# include .bashrc if it exists
+[[ -f ~/.bashrc ]] && . ~/.bashrc

home/.bashrc

@@ -0,0 +1,35 @@
+eval "$(/nix/store/idmgjy1irgzlsi89rdjw6a1baj83yiys-starship-1.16.0/bin/starship init bash)"
+
+
+# Commands that should be applied only for interactive shells.
+[[ $- == *i* ]] || return
+
+HISTFILESIZE=100000
+HISTSIZE=10000
+
+shopt -s histappend
+shopt -s checkwinsize
+shopt -s extglob
+shopt -s globstar
+shopt -s checkjobs
+
+
+
+if [[ ! -v BASH_COMPLETION_VERSINFO ]]; then
+  . "/nix/store/fnbf9g79mngi1sxdncizsvdr6xa8dmqc-bash-completion-2.11/etc/profile.d/bash_completion.sh"
+fi
+
+if [[ $TERM != "dumb" ]]; then
+  eval "$(/etc/profiles/per-user/zilti/bin/starship init bash --print-full-init)"
+fi
+
+if test -n "$KITTY_INSTALLATION_DIR"; then
+  source "$KITTY_INSTALLATION_DIR/shell-integration/bash/kitty.bash"
+fi
+
+eval "$(SHELL=bash /nix/store/vrcxmwrgsdgwm51rxdpyzp6ppslavn3n-keychain-2.8.5/bin/keychain --eval --quiet --agents ssh,gpg id_rsa personal_ed 37F655BAF43BC0FF300A91A1B38976E82C9DAE42)"
+
+eval "$(/nix/store/h9m0s8n535y69jg4vpj41i8alhilld8c-hstr-3.1/bin/hstr --show-configuration)"
+
+eval "$(/nix/store/j39wscasn8f5qjdranl3ba0vh6crxf2m-direnv-2.32.3/bin/direnv hook bash)"
+

home/home-configuration.scm

@@ -0,0 +1,93 @@
+;; -*- mode: guix-scheme -*-
+;; This "home-environment" file can be passed to 'guix home reconfigure'
+;; to reproduce the content of your profile.  This is "symbolic": it only
+;; specifies package names.  To reproduce the exact same profile, you also
+;; need to capture the channels being used, as returned by "guix describe".
+;; See the "Replicating Guix" section in the manual.
+
+(use-modules (gnu home)
+             (gnu packages)
+             (gnu services)
+             (guix gexp)
+             (gnu home services gnupg)
+             (gnu home services mcron)
+             (gnu home services pm)
+             (gnu home services shells)
+             (gnu home services shepherd)
+             (gnu home services ssh))
+
+(home-environment
+  ;; Below is the list of packages that will show up in your
+  ;; Home profile, under ~/.guix-home/profile.
+ (packages
+  (specifications->packages
+   (list pinentry-qt)))
+
+  ;; Below is the list of Home services.  To search for available
+  ;; services, run 'guix home search KEYWORD' in a terminal.
+  (services
+   (list
+    (service home-msmtp-service-type
+             (home-msmtp-configuration
+              (accounts
+               (list
+                (msmtp-account
+                 (name "LMail")
+                 (configuration
+                  (msmtp-configuration
+                   (host "lyrion.ch")
+                   (port 587)
+                   (user "dziltener")
+                   (password-eval "pass Privat/Mailaccount | head -n 1"))))
+                (msmtp-account
+                 (name "Red Sky")
+                 (configuration
+                  (msmtp-configuration
+                   (host "gmail.com")
+                   (port 587)
+                   (user "dz@redsky.io")
+                   (password-eval "pass Privat/RedSkyGMail"))))))))
+    (simple-service 'ziltis-environment-variable-service
+                    home-enviornment-variables-service-type
+                    `(("PASSWORD_STORE_DIR" . "$XDG_DATA_HOME/password-store")
+                      ("SSH_ASKPASS" . "ksshaskpass")))
+    (service home-bash-service-type
+                  (home-bash-configuration
+                   (aliases '(("hh" . "hstr") ("l" . "ls -alh")
+                              ("ll" . "ls -l")
+                              ("ls" . "ls --color=tty")))
+                   (bashrc (list (local-file
+                                  "/home/zilti/projects/guixconfig//.bashrc"
+                                  "bashrc")))
+                   (bash-profile (list (local-file
+                                        "/home/zilti/projects/guixconfig//.bash_profile"
+                                        "bash_profile")))))
+    (service home-dicod-service-type)
+    (service home-batsignal-service-type)
+    (service home-shepherd-service-type)
+    (service home-mcron-service-type
+             (home-mcron-configuration
+              (jobs '())))
+    (simple-service 'ziltis-channels
+                    home-channels-service-type
+                    (list
+                     (channel
+                      (name 'ziltis-channel)
+                      (url "https://gitea.lyrion.ch/zilti/guixchannel.git"))))
+    (service home-openssh-service-type
+             (home-openssh-configuration
+              (hosts
+               (list (openssh-host (name "gitea.lyrion.ch")
+                                   (host-name "gitea.lyrion.ch")
+                                   (user "git")
+                                   (port 7920))))))
+    (service home-gpg-agent-service-type
+             (home-gpg-agent-configuration
+              (pinentry-program
+               (file-append pinentry-qt "/bin/pinentry-qt"))
+              (ssh-support? #t)
+              (default-cache-ttl 7200)
+              (default-cache-ttl-ssh 7200)
+              (extra-content "allow-emacs-pinentry\nallow-loopback-pinentry")))
+    (service home-dbus-service-type)
+    )))