88 lines
2.8 KiB
Scheme
88 lines
2.8 KiB
Scheme
(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?
|
|
package-name))
|
|
#: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)
|
|
`((;; ,(string-append ".mozilla/" (package-name (home-icecat-configuration-package config)) "/profiles.ini")
|
|
".librewolf/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"))
|
|
(;; ,(string-append ".mozilla/" (package-name (home-icecat-configuration-package config)) "/default/user.js")
|
|
".librewolf/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.")))
|