(define-module (oni home data config)
  #:use-module (gnu home)
  #:use-module (gnu home services)
  #:use-module (gnu home services shells)
  #:use-module (gnu home services desktop)
  #:use-module (gnu services)
  #:use-module (gnu packages)
  #:use-module (gnu packages admin)
  #:use-module (guix gexp)
  #:use-module (oni home services xdisorg)
  #:use-module (oni home services xmodmap))

(home-environment
 (packages (list (specification->package+output "glibc-locales")))

 (services
  (list
   (simple-service 'some-useful-env-vars-service
                   home-environment-variables-service-type
                   `(("LESS" . "FXRSi")
                     ("MY_GUIX_CONFIGURED" . "1")
                     ("DOTNET_CLI_TELEMETRY_OPTOUT" . "1")
                     ("EDITOR" . "emacsclient")
                     ("CALIBRE_USE_DARK_PALETTE" . "1")
                     ("GUIX_LOCPATH" . "$HOME/.guix-home/profile/lib/locale")))

   (service home-redshift-service-type
            (home-redshift-configuration
             (location-provider 'manual)
             (latitude 49.2127205)
             (longitude 122.9267927)))

   (service home-zsh-service-type)

   (service home-rofi-service-type
            (home-rofi-configuration
             (config
              '((kb-cancel . "Escape,Control+g")
                (window-format . "{c}  {t}")))
             (theme
              '((* ((text-color . "#bfbfbf")
                    (background-color . "#3f4242")
                    (lightbg . "#5b6161")
                    (red . "#a85454")
                    (orange . "#faa41a")
                    (blue . "#1f2c3f")

                    (selected-normal-foreground . "@foreground")
                    (normal-foreground . "@foreground")
                    (alternate-normal-background . "@background")
                    (selected-urgent-foreground . "@foreground")
                    (urgent-foreground . "@foreground")
                    (alternate-urgent-background . "@background")
                    (active-foreground . "@text-color")
                    (selected-active-foreground . "@foreground")
                    (alternate-normal-foreground . "@foreground")
                    (alternate-active-background . "@blue")
                    (bordercolor . "@foreground")
                    (normal-background . "@background")
                    (selected-normal-background . "@blue")
                    (separatorcolor . "@orange")
                    (spacing . 2)
                    (urgent-background . "@red")
                    (alternate-urgent-foreground . "@foreground")
                    (selected-urgent-background . "@red")
                    (alternate-active-foreground . "@foreground")
                    (selected-active-background . "@blue")
                    (active-background . "@red")

                    (font . "Fantasque Sans Mono 14")))
                (window ((border . 0)
                         (text-color . "@foreground")
                         (background-color . "rgba(0, 0, 0, 0%)")
                         (padding . 5)
                         (text-color . "@bordercolor")
                         (background-color . "@background")))
                (mainbox ((border . 0)
                          (padding . 0)))
                (message ((border . "1px dash 0px 0px")
                          (text-color . "@separatorcolor")
                          (padding . "2px 0px 0px")))
                (textbox ((text-color . "@foreground")))
                (listview ((fixed-height . 0)
                           (border . "2px 0px 0px")
                           (padding . "2px 0px 0px")
                           (text-color . "@separatorcolor")))
                (element ((border . 0)
                          (children "element-icon" "element-text")
                          (spacing . "5px")))
                (element-text
                 element-icon ((background-color . "inherit")
                               (text-color . "inherit")))
                (element.normal.normal ((text-color . "@normal-foreground")
                                        (background-color . "@normal-background")))
                (element.normal.urgent ((text-color . "@urgent-foreground")
                                        (background-color . "@urgent-background")))
                (element.normal.active ((text-color . "@active-foreground")
                                        (background-color . "@active-background")))
                (element.selected.normal ((text-color . "@selected-normal-foreground")
                                          (background-color . "@selected-normal-background")))
                (element.selected.urgent ((text-color . "@selected-urgent-foreground")
                                          (background-color . "@selected-urgent-background")))
                (element.selected.active ((text-color . "@selected-active-foreground")
                                          (background-color . "@selected-active-foreground")))
                (element.alternate.normal ((text-color . "@alternate-normal-foreground")
                                           (background-color . "@alternate-normal-background")))
                (element.alternate.urgent ((text-color . "@alternate-urgent-foreground")
                                           (background-color . "@alternate-urgent-background")))
                (element.alternate.active ((text-color . "@alternate-active-foreground")
                                           (background-color . "@alternate-active-background")))
                (mode-switcher ((border . "1px dash 0px 0px")))
                (#{button selected}# ((text-color . "@selected-normal-foreground")
                                      (background-color . "@selected-normal-background")))
                (inputbar ((spacing . 0)
                           (border . "0px")
                           (children "prompt" "textbox-prompt-colon" "entry" "case-indicator")))
                (#{button normal}# ((text-color . "@foreground")))
                (text-prompt-color ((expand . #f)
                                    (str . ":")
                                    (margin . "0px 0.3em 0em 0em")
                                    (text-color . "@normal-foreground")))))))

   (service home-xmodmap-service-type
            (home-xmodmap-configuration
             (pointer '(3 2 1))
             (extra '("remove Mod5 = ISO_Level3_Shift"
                      "keycode 108 = Alt_L"
                      "add Mod1 = Alt_L")))))))