(define-module (aisaka-home-configuration)
  #:use-module (gnu home)
  #:use-module (gnu home services)
  #:use-module (gnu home services shells)
  #:use-module (gnu packages)
  #:use-module (gnu services)
  #:use-module (guix gexp))

(define allow-downgrades
  "--allow-downgrades ")

(define config-prefix
  "/home/marek/src/guix-config/")

(define pull-guix
  "guix pull ")

(define pull-guix-
  (string-append pull-guix
                 allow-downgrades
                 "--disable-authentication "))

(define guix-home
  "guix home reconfigure ")

(define home-configuration
  "home-configuration.scm ")

(define reconfigure-home
  (string-append guix-home
                 config-prefix
                 home-configuration))

(define reconfigure-home-
  (string-append reconfigure-home
                 allow-downgrades))

(define guix-system
  "sudo guix system reconfigure ")

(define system-configuration
  "system-configuration.scm ")

(define reconfigure-system
  (string-append guix-system
                 config-prefix
                 system-configuration))

(define reconfigure-system-
  (string-append reconfigure-system
                 allow-downgrades))

(define and
  "&& ")

(define system-update
  (string-append pull-guix
                 and
                 reconfigure-system
                 and
                 reconfigure-home
                 and
                 "sudo guix gc -d 7d"))

(define system-update-
  (string-append pull-guix-
                 and
                 reconfigure-system-
                 and
                 reconfigure-home-
                 and
                 "sudo guix gc -d 7d"))

(home-environment
 (packages
  (map
   (compose list
            specification->package+output)
   '("adwaita-icon-theme"
     "alacritty"
     "clamav"
     "cpupower"
     "dconf-editor"
     "emacs-next"
     "emacs-aggressive-indent"
     "emacs-eldoc"
     "emacs-geiser"
     "emacs-geiser-guile"
     "emacs-nix-mode"
     "emacs-nov-el"
     "emacs-org-contacts"
     "emacs-org-contrib"
     "emacs-paredit"
     "font-google-noto"
     "git"
     "git-lfs"
     "gnome-tweaks"
     "gnupg"
     "guile"
     "guile-spec"
     "hicolor-icon-theme"
     "icecat"
     "jami"
     "libadwaita"
     "libreoffice"
     "nm-tray"
     "pwgen"
     "seahorse"
     "sicp"
     "strace"
     "unzip"
     "zip")))
 (services
  (list
   (service
    (service-type
     (name 'flashrom-package)
     (extensions
      `(,(service-extension home-profile-service-type
                            (lambda (_)
                              (map specification->package
                                   '("flashrom"))))))
     (description "Flashrom installation.")
     (default-value #f)))
   (service
    (service-type
     (name 'git-sendemail-packages)
     (extensions
      (list
       (service-extension home-profile-service-type
                          (lambda (_)
                            (map
                             (compose list
                                      specification->package+output)
                             (list
                              "git"
                              "git:send-email"))))))
     (description "Git Send Email")
     (default-value #f)))
   (service
    (service-type
     (name 'org-fc-tn-package)
     (extensions
      (list
       (service-extension home-profile-service-type
                          (lambda (_)
                            (map specification->package
                                 (list
                                  "emacs-org-fc-tn"))))))
     (description "Custom version of ORG-FC.")
     (default-value #f)))
   (simple-service 'ssh-configuration* home-files-service-type
                   `((".ssh/config" ,(plain-file "ssh-config" "\
   Host *.onion
   ProxyCommand nc -x localhost:9050 -X5 %h %p
   
   Host kynio.onion
   User kynio
   Hostname prnpi5oblk35gzcihbgu3227xvanisouxgbejri57bnzjawcksq4l7yd.onion
   Port 22\n"))))
   (service
    (service-type
     (name 'trezor-user-packages)
     (extensions
      (list
       (service-extension home-profile-service-type
                          (lambda (_)
                            (map specification->package
                                 (list
                                  "trezor-agent"))))))
     (description "Trezor packages for the user.")
     (default-value #f)))
   (service home-bash-service-type
            (home-bash-configuration
             (environment-variables '(("EDITOR" . "emacs -nw")
                                      ("GUILE_AUTO_COMPILE" . "0")
                                      ("PATH" . "$PATH:/home/marek/.nix-profile/bin")))
             (aliases `(("grep" . "grep --color=auto ")
                        ("ll" . "ls -l ")
                        ("ls" . "ls -p --color=auto ")
                        ("nix" . "nix --extra-experimental-features flakes --extra-experimental-features nix-command")
                        ("pull-guix" . ,pull-guix)
                        ("pull-guix-" . ,pull-guix-)
                        ("reconfigure-home" . ,reconfigure-home)
                        ("reconfigure-home-" . ,reconfigure-home-)
                        ("reconfigure-system" . ,reconfigure-system)
                        ("reconfigure-system-" . ,reconfigure-system-)
                        ("system-update" . ,system-update)
                        ("system-update-" . ,system-update-)))
             (bashrc (list
                      (local-file "data/bashrc")))))
   (simple-service 'configuration-files
                   home-files-service-type
                   `((".config/git/config" ,(local-file "data/git-config"))
                     (".emacs" ,(local-file "data/emacs-config")))))))