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