(use-modules (home openbox))
(use-modules (home utils))
(use-modules (home))
(use-modules (gnu packages compton))
(use-modules (gnu packages dunst))
(use-modules (gnu packages games))
(use-modules (gnu packages ibus))
(use-modules (gnu packages image-viewers))
(use-modules (gnu packages pulseaudio))
(use-modules (gnu packages xfce))
(use-modules (guix gexp))
(use-modules (guix import utils)); for flatten

(define bashrc
  (computed-file "bashrc"
    #~(with-output-to-file #$output
        (lambda _
          (format #t "export SHELL

if [[ $- != *i* ]]; then
      # Non interative shell. For SSH session, load /etc/profile to get
      # PATH and other variables set up.
        [[ -n \"$SSH_CLIENT\" ]] && source /etc/profile
      return
fi

source /etc/bashrc

if [ -n \"$GUIX_ENVIRONMENT\" ]; then
        PS1='\\u@\\h \\w [env]\\$ '
else
        PS1='\\u@\\h \\w\\$ '
fi
alias ls='ls -p --color=auto'
alias ll='ls -l'
alias grep='grep --color=auto'
alias vim='nvim'")))))

(define bash_profile
  (plain-file "bash_profile" "if [ -f ~/.bashrc ]; then . ~/.bashrc; fi
"))

(define gtkrc-2
  (plain-file "gtkrc-2.0" "gtk-theme-name=\"Arc-Dark\"
gtk-icon-theme-name=\"Arc\"
"))

(define gtkrc-3
  (plain-file "settings.ini" "[Settings]
gtk-theme-name=Arc-Dark
gtk-icon-theme-name=Arc
"))

(define gitconfig (local-file "files/gitconfig"))
(define openbox-rc (local-file "files/openbox/rc.xml"))
(define openbox-autostart
  (computed-file "autostart"
     #~(with-output-to-file #$output
         (lambda _
           (format #t "HOME=/tmp/pa ~a --start~%" #$(file-append pulseaudio "/bin/pulseaudio"))
           (format #t "~a --bg-fill ~a~%" #$(file-append feh "/bin/feh")
                   #$(local-file "/data/tyreunom/background.png"))
           (format #t "~a -CGb~%" #$(file-append compton "/bin/compton"))
           (format #t "~a -conf ~a &~%" #$(file-append dunst "/bin/dunst")
                   #$(plain-file "dunstrc" ""))
           (format #t "export GTK_IM_MODULE=ibus
export XMODIFIERS=@im=ibus
export QT_IM_MODULE=ibus
export GUIX_GTK2_IM_MODULE_FILE=~~/.guix-profile/lib/gtk-2.0/2.10.0/immodules-gtk2.cache
export GUIX_GTK3_IM_MODULE_FILE=~~/.guix-profile/lib/gtk-3.0/3.0.0/immodules-gtk3.cache
~a -drx~%" #$(file-append ibus "/bin/ibus-daemon"))))))

(define xfce4-terminalrc
  (local-file "files/xfce4-terminal/terminalrc"))

(home
  (flatten
    (list
      (openbox-home (openbox-configuration
                      (autostart openbox-autostart)
                      (menus
			(list
			  (openbox-menu
			    (id "apps-game-menu")
			    (label "Jeux")
			    (elements
			      (list
				(openbox-element-execute
				  (label "MineTest")
				  (command (file-append minetest "/bin/minetest"))))))))
                      (root-elements
			(list
			  (openbox-element-menu (id "apps-game-menu"))
			  (openbox-element-execute
			    (label "Terminal")
			    (command (file-append xfce4-terminal "/bin/xfce4-terminal")))))
                      (rc openbox-rc)))
      (simple-file-home bashrc ".bashrc")
      (simple-file-home bash_profile ".bash_profile")
      (simple-file-home gitconfig ".gitconfig")
      (simple-file-home gtkrc-2 ".gtkrc-2.0")
      (simple-file-home gtkrc-3 ".config/gtk-3.0/settings.ini")
      (simple-file-home xfce4-terminalrc ".config/xfce4/terminal/terminalrc"))))