fixes #59 (list of json)

nix-community · Jan 19, 2022 · 0c8282f · 0c8282f
1 parent 664b1d2
commit 0c8282f
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 1 deletion.
diff --git a/data/json.settings b/data/json.settings
@@ -1,3 +1,7 @@
 [org/gnome/shell/extensions/sound-output-device-chooser]
 hide-on-single-device=true
 ports-settings='{"version":2,"ports":[]}'
+
+[org/gnome/shell/extensions/list-of-json]
+foo=['{"_model":{}}']
+devices=['{"_model":{},"name":"FakeName","isConnected":false,"isPaired":true,"mac":"00:16:00:29:00:83","isDefault":false,"active":true,"icon":"audio-headphones-symbolic"}']
diff --git a/output/json.nix b/output/json.nix
@@ -12,5 +12,14 @@ with lib.hm.gvariant;
       '';
     };
 
+    "org/gnome/shell/extensions/list-of-json" = {
+      devices = [ ''
+        {"_model":{},"name":"FakeName","isConnected":false,"isPaired":true,"mac":"00:16:00:29:00:83","isDefault":false,"active":true,"icon":"audio-headphones-symbolic"}
+      '' ];
+      foo = [ ''
+        {"_model":{}}
+      '' ];
+    };
+
   };
 }
diff --git a/src/DConf.hs b/src/DConf.hs
@@ -98,7 +98,7 @@ vList :: Parsec Text () Value
 vList = try $ do
   char '['
   L . concat <$> manyTill
-    ((vTupleInList <|> dconf manyTill) `sepBy` (string "," >> spaces))
+    ((vTupleInList <|> vJson <|> dconf manyTill) `sepBy` (string "," >> spaces))
     (char ']')
 
 vJson :: Parsec Text () Value