···

       
11
       
 
       
    else if isBool v      then boolToString v

     

       
12
       
 
       
    else if isString v    then ''"${escape [''"''] v}"''

     

       
13
       
 
       
    else if isList v      then "[ " + concatMapStringsSep ", " toConf v + " ]"

     

       
0
       
 
       

     

       
14
       
 
       
    else abort "clight.toConf: unexpected type (v = ${v})";

     

       
15
       
 
       


     

       
16
       
-
       
  clightConf = pkgs.writeText "clight.conf"

     

       
17
       
-
       
    (concatStringsSep "\n" (mapAttrsToList

     

       
18
       
-
       
      (name: value: "${toString name} = ${toConf value};")

     

       
19
       
-
       
      (filterAttrs

     

       
20
       
-
       
        (_: value: value != null)

     

       
21
       
-
       
        cfg.settings)));

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
22
       
 
       
in {

     

       
23
       
 
       
  options.services.clight = {

     

       
24
       
 
       
    enable = mkOption {

     
···

       
49
       
 
       
    };

     

       
50
       
 
       


     

       
51
       
 
       
    settings = let

     

       
52
       
-
       
      validConfigTypes = with types; either int (either str (either bool float));

     

       
0
       
 
       

     

       
53
       
 
       
    in mkOption {

     

       
54
       
-
       
      type = with types; attrsOf (nullOr (either validConfigTypes (listOf validConfigTypes)));

     

       
55
       
 
       
      default = {};

     

       
56
       
 
       
      example = { captures = 20; gamma_long_transition = true; ac_capture_timeouts = [ 120 300 60 ]; };

     

       
57
       
 
       
      description = ''

     
···

       
69
       
 
       
    services.upower.enable = true;

     

       
70
       
 
       


     

       
71
       
 
       
    services.clight.settings = {

     

       
72
       
-
       
      gamma_temp = with cfg.temperature; mkDefault [ day night ];

     

       
73
       
 
       
    } // (optionalAttrs (config.location.provider == "manual") {

     

       
74
       
-
       
      latitude = mkDefault config.location.latitude;

     

       
75
       
-
       
      longitude = mkDefault config.location.longitude;

     

       
76
       
 
       
    });

     

       
77
       
 
       


     

       
78
       
 
       
    services.geoclue2.appConfig.clightc = {

     

···

       
11
       
 
       
    else if isBool v      then boolToString v

     

       
12
       
 
       
    else if isString v    then ''"${escape [''"''] v}"''

     

       
13
       
 
       
    else if isList v      then "[ " + concatMapStringsSep ", " toConf v + " ]"

     

       
14
       
+
       
    else if isAttrs v     then "\n{\n" + convertAttrs v + "\n}"

     

       
15
       
 
       
    else abort "clight.toConf: unexpected type (v = ${v})";

     

       
16
       
 
       


     

       
17
       
+
       
  getSep = v:

     

       
18
       
+
       
    if isAttrs v then ":"

     

       
19
       
+
       
    else "=";

     

       
20
       
+
       


     

       
21
       
+
       
  convertAttrs = attrs: concatStringsSep "\n" (mapAttrsToList

     

       
22
       
+
       
    (name: value: "${toString name} ${getSep value} ${toConf value};")

     

       
23
       
+
       
    attrs);

     

       
24
       
+
       


     

       
25
       
+
       
  clightConf = pkgs.writeText "clight.conf" (convertAttrs

     

       
26
       
+
       
    (filterAttrs

     

       
27
       
+
       
      (_: value: value != null)

     

       
28
       
+
       
      cfg.settings));

     

       
29
       
 
       
in {

     

       
30
       
 
       
  options.services.clight = {

     

       
31
       
 
       
    enable = mkOption {

     
···

       
56
       
 
       
    };

     

       
57
       
 
       


     

       
58
       
 
       
    settings = let

     

       
59
       
+
       
      validConfigTypes = with types; oneOf [ int str bool float ];

     

       
60
       
+
       
      collectionTypes = with types; oneOf [ validConfigTypes (listOf validConfigTypes) ];

     

       
61
       
 
       
    in mkOption {

     

       
62
       
+
       
      type = with types; attrsOf (nullOr (either collectionTypes (attrsOf collectionTypes)));

     

       
63
       
 
       
      default = {};

     

       
64
       
 
       
      example = { captures = 20; gamma_long_transition = true; ac_capture_timeouts = [ 120 300 60 ]; };

     

       
65
       
 
       
      description = ''

     
···

       
77
       
 
       
    services.upower.enable = true;

     

       
78
       
 
       


     

       
79
       
 
       
    services.clight.settings = {

     

       
80
       
+
       
      gamma.temp = with cfg.temperature; mkDefault [ day night ];

     

       
81
       
 
       
    } // (optionalAttrs (config.location.provider == "manual") {

     

       
82
       
+
       
      daytime.latitude = mkDefault config.location.latitude;

     

       
83
       
+
       
      daytime.longitude = mkDefault config.location.longitude;

     

       
84
       
 
       
    });

     

       
85
       
 
       


     

       
86
       
 
       
    services.geoclue2.appConfig.clightc = {