(define-module (home-config openbox)

  #:use-module (home)

  #:use-module (home openbox)

  #:use-module (gnu packages compton)

  #:use-module (gnu packages dunst)

  #:use-module (gnu packages game-development)

  #:use-module (gnu packages games)

  #:use-module (gnu packages geo)

  #:use-module (gnu packages gnuzilla)

  #:use-module (gnu packages ibus)

  #:use-module (gnu packages image-viewers)

  #:use-module (gnu packages inkscape)

  #:use-module (gnu packages lxde)

  #:use-module (gnu packages mail)

  #:use-module (gnu packages messaging)

  #:use-module (gnu packages password-utils)

  #:use-module (gnu packages pulseaudio)

  #:use-module (gnu packages sync)

  #:use-module (gnu packages xfce)

  #:use-module (games packages 7-billion-humans)

  #:use-module (games packages baba-is-you)

  #:use-module (games packages factorio)

  #:use-module (games packages mini-metro)

  #:use-module (games packages starsector)

  #:use-module (games packages sunless-skies)

  #:use-module (guix gexp)

  #:export (tyreunom-openbox-configuration

            openbox-home))

(define openbox-environment

  (plain-file "environment" "eval $(ssh-agent)

export GTK_IM_MODULE=ibus

export XMODIFIERS=@im=ibus

export QT_IM_MODULE=ibus

export GUIX_GTK2_IM_MODULE_FILE=/home/tyreunom/.guix-profile/lib/gtk-2.0/2.10.0/immodules-gtk2.cache

export GUIX_GTK3_IM_MODULE_FILE=/home/tyreunom/.guix-profile/lib/gtk-3.0/3.0.0/immodules-gtk3.cache"))

(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

IBUS_COMPONENT_PATH=~~/.guix-profile/share/ibus/component ~a -drx~%" #$(file-append ibus "/bin/ibus-daemon"))))))

(define openbox-rc (local-file "files/openbox/rc.xml"))

(define tyreunom-openbox-configuration

  (openbox-configuration

    (autostart openbox-autostart)

    (environ openbox-environment)

    (rc openbox-rc)

    (menus

      (list

        (openbox-menu

          (id "apps-game-menu")

          (label "Jeux")

          (elements

            (list

              (openbox-element-execute

                (label "MineTest")

                (command (file-append minetest "/bin/minetest")))

              (openbox-element-execute

                (label "Starsector")

                (command (file-append starsector "/bin/starsector")))

              (openbox-element-execute

                (label "Factorio")

                (command (file-append factorio "/bin/factorio")))

              (openbox-element-execute

                (label "7 Billion Humans")

                (command (file-append gog-7-billion-humans "/bin/7-billion-humans")))

              (openbox-element-execute

                (label "Sunless Skies")

                (command (file-append gog-sunless-skies "/bin/sunless-skies")))

              (openbox-element-execute

                (label "Baba is You")

                (command (file-append baba-is-you "/bin/baba-is-you")))

              (openbox-element-execute

                (label "Mini Metro")

                (command (file-append mini-metro "/bin/mini-metro")))

              (openbox-element-execute

                (label "0ad")

                (command (file-append 0ad "/bin/0ad")))

              (openbox-element-execute

                (label "godot")

                (command (file-append godot "/bin/godot"))))))

        (openbox-menu

          (id "apps-other-menu")

          (label "Autres")

          (elements

            (list

              (openbox-element-execute

                (label "Pavucontrol")

                (command (file-append pavucontrol "/bin/pavucontrol")))

              (openbox-element-execute

                (label "Owncloud")

                (command (file-append owncloud-client "/bin/owncloud")))

              (openbox-element-execute

                (label "Keepass")

                (command (file-append keepassxc "/bin/keepassxc")))

              (openbox-element-execute

                (label "Claws-mail")

                (command (file-append claws-mail "/bin/claws-mail --alternate-config-dir /data/tyreunom/.config/claws-mail")))

              (openbox-element-execute

                (label "Hexchat")

                (command (file-append hexchat "/bin/hexchat")))

              (openbox-element-execute

                (label "JOSM")

                (command (file-append josm "/bin/josm")))

              (openbox-element-execute

                (label "Inkscape")

                (command (file-append inkscape "/bin/inkscape"))))))))

    (root-elements

      (list

        (openbox-element-menu (id "apps-game-menu"))

        (openbox-element-menu (id "apps-other-menu"))

        (openbox-element-execute

          (label "Terminal")

          (command (file-append xfce4-terminal "/bin/xfce4-terminal")))

        (openbox-element-execute

          (label "Navigateur")

          (command (file-append icecat "/bin/icecat -P --no-remote")))

        (openbox-element-execute

          (label "Gestionnaire de fichiers")

          (command (file-append pcmanfm "/bin/pcmanfm")))))))

(define openbox-home

  (user-home openbox-home-type

             tyreunom-openbox-configuration))