(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 config-prefix
  "/home/marek/src/guix-config/")

(define home-env-vars
  '(("EDITOR" . "emacs")
    ("NVM_DIR" . "$HOME/src/nvm")
    ("GUILE_AUTO_COMPILE" . "0")))

(define pull-guix
  "guix pull ")

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

(define home-aliases
  `(("grep" . "grep --color=auto")
    ("ll" . "ls -l")
    ("ls" . "ls -p --color=auto")
    ("pull-guix" . ,pull-guix)
    ("pull-guix-" . ,pull-guix-)
    ("reconfigure-home" . (string-append "guix home reconfigure "
					 ,config-prefix
					 "home-configuration.scm"))
    ("reconfigure-home-" . "reconfigure-home --allow-downgrades")
    ("reconfigure-system" . (string-append "sudo guix system reconfigure "
					   ,config-prefix
					   "system-configuration.scm"))
    ("reconfigure-system-" . "reconfigure-system --allow-downgrades")
    ("system-update" . "pull-guix && reconfigure-system && reconfigure-home")
    ("system-update-" . "pull-guix- && reconfigure-system- && reconfigure-home-")))

(define bash-profile-target
  (string-append config-prefix
		 ".bash_profile"))

(define bash-profile
  (local-file bash-profile-target
	      "bash_profile"))

(define home-bash-profile
  `(,bash-profile))

(define bashrc-target
  (string-append config-prefix
		 ".bashrc"))

(define bashrc
  (local-file bashrc-target
	      "bashrc"))

(define home-bashrc
  `(,bashrc))

(define bash-configuration
  (home-bash-configuration (environment-variables home-env-vars)
			   (aliases home-aliases)
			   (bash-profile home-bash-profile)
			   (bashrc home-bashrc)))

(define home-bash-service
  (service home-bash-service-type
	   bash-configuration))

(define emacs-init
  (local-file "emacs.el"))

(define gsad-source
  (local-file "guix-shell-authorized-directories"))

(define ssh-config
  (local-file "ssh.config"))

(define home-files
  `((".config/guix/shell-authorized-directories" ,gsad-source)
    (".emacs" ,emacs-init)
    (".ssh/config" ,ssh-config)))

(define dot-files-service
  (simple-service 'dot-files
		  home-files-service-type
		  home-files))

(define home-services
  `(,home-bash-service
    ,dot-files-service))

(home-environment (packages (map (compose list
					  specification->package+output)
				 '("cpupower"
				   "dconf-editor"
				   "emacs-no-x"
				   "emacs-ac-geiser"
				   "emacs-aggressive-indent"
				   "emacs-geiser"
				   "emacs-geiser-guile"
				   "emacs-iedit"
				   "emacs-multiple-cursors"
				   "emacs-paredit"
				   "font-google-noto"
				   "git"
				   "git-lfs"
				   "gnome-tweaks"
				   "gnupg"
				   "icecat"
				   "jami"
				   "libreoffice"
				   "pwgen"
				   "seahorse"
				   "sicp"
				   "trezor-agent"
				   "unzip"
				   "zip")))
		  (services home-services))