(define-module (oni home services gnuzilla)
  #:use-module ((ice-9 match)
                #:select (match))
  #:use-module ((gnu services configuration)
                #:select (serialize-package
                          define-configuration))
  #:use-module ((gnu packages gnuzilla)
                #:select (icecat))
  #:use-module ((gnu home services)
                #:select (service-type
                          service-extension
                          home-profile-service-type
                          home-files-service-type))
  #:use-module ((guix packages)
                #:select (package?))
  #:use-module ((guix gexp)
                #:select (gexp
                          mixed-text-file))

  #:export (home-icecat-service-type
            home-icecat-configuration))

(define (serialize-setting pair)
  (match pair
    ((key (? boolean? value))
     (format #f "user_pref(~s, ~a);" key (if value "true" "false")))
    ((key (? number? value))
     (format #f "user_pref(~s, ~a);" key value))
    ((key (? string? value))
     (format #f "user_pref(~s, ~s);" key value))))

(define (serialize-alist field value)
  (string-join (map serialize-setting value) "\n"))

(define (alist? value)
  (or (null? value)
      (and (list? value)
           (list? (car value)))))

(define-configuration home-icecat-configuration
  (package
    (package icecat)
    "Package to use for setting up icecat.")
  (settings
   (alist '())
   "Settings to specify for the generated profile."))

(define (add-icecat-packages config)
  (list (home-icecat-configuration-package config)))

(define (home-icecat-configuration-files config)
  `((".mozilla/icecat/profiles.ini"
     ,(mixed-text-file
       "profiles.ini"
       "[Install4F96D1932A9F858E]\n"
       "Default=default\n"
       "Locked=1\n"
       "\n"
       "[Profile0]\n"
       "Name=default\n"
       "IsRelative=1\n"
       "Path=default\n"
       "Default=1\n"
       "\n"
       "[General]\n"
       "StartWithLastProfile=1\n"
       "Version=2\n"))
    (".mozilla/icecat/default/user.js"
     ,(mixed-text-file
       "user.js"
       (serialize-alist config (home-icecat-configuration-settings config))))))

(define home-icecat-service-type
  (service-type
   (name 'home-icecat)
   (extensions
    (list (service-extension
           home-profile-service-type
           add-icecat-packages)
          (service-extension
           home-files-service-type
           home-icecat-configuration-files)))
   (compose identity)
   (default-value (home-icecat-configuration))
   (description "Install and configure icecat.")))