(add-to-load-path "./services")

(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)
  #:use-module (ssh-server))

(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))

(define system-update-
  (string-append pull-guix-
                 and
                 reconfigure-system-
                 and
                 reconfigure-home-))

(home-environment
 (packages (map (compose ; &rest
 list
 specification->package+output)
                '("adwaita-icon-theme"
                  "alacritty"
                  "clamav"
                  "cpupower"
                  "dconf-editor"
                  "dmenu"                  
                  "emacs"
                  "emacs-aggressive-indent"
                  "emacs-eldoc"
                  "emacs-geiser"
                  "emacs-geiser-guile"
                  "emacs-nov-el"
                  "emacs-org-auto-tangle"
                  "emacs-org-contacts"
                  "emacs-org-contrib"
                  "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"
                  "trezor-agent"
                  "unzip"
                  "zip")))
 (services
  `(,(service
 (service-type
  (name 'flashrom-package)
  (extensions
   `(,(service-extension home-profile-service-type
                         (lambda (_)
                           (map specification->package
                                '("flashrom"))))))
  (description "Flashrom installation.")
  (default-value #f)))
    ,ssh-configuration
    ,(service home-bash-service-type
              (home-bash-configuration
               (environment-variables '(("EDITOR" . "emacs -nw")
                                        ("LIBGL_ALWAYS_SOFTWARE" . "1")
                                        ("NVM_DIR" . "$HOME/src/nvm")
                                        ("GUILE_AUTO_COMPILE" . "0")))
               (aliases `(("grep" . "grep --color=auto ")
                          ("ll" . "ls -l ")
                          ("ls" . "ls -p --color=auto ")
                          ("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-)))
               (bash-profile `(,(local-file "bash_profile")))
               (bashrc `(,(local-file "bashrc")))))
    ,(simple-service 'configuration-files
                     home-files-service-type
                     `((".config/git/config" ,(local-file "git.config"))
                       (".config/guix/shell-authorized-directories"
                        ,(local-file "guix-shell-authorized-directories"))
                       (".emacs" ,(local-file "emacs.el")))))))