fixes #58 (string containing =)

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

Hide file tree

Showing 3 changed files with 8 additions and 1 deletion.
diff --git a/data/dconf.settings b/data/dconf.settings
@@ -316,3 +316,6 @@ world-clocks=[{'location': <(uint32 2, <('Houston', 'KHOU', false, [(0.517271957
 [org/gnome/shell/extensions/arcmenu]
 hot-corners='Disabled'
 recently-installed-apps=['RollerCoaster Tycoon 3 Platinum!.desktop', 'RollerCoaster Tycoon Deluxe.desktop', 'RollerCoaster Tycoon 2 Triple Thrill Pack.desktop', 'American Truck Simulator.desktop', 'Halo The Master Chief Collection.desktop', 'Bejeweled 3.desktop']
+
+[org/gnome/evolution-data-server/calendar/list-of-equal]
+reminders-snoozed=['=']
diff --git a/output/dconf.nix b/output/dconf.nix
@@ -392,5 +392,9 @@ with lib.hm.gvariant;
       recently-installed-apps = [ "RollerCoaster Tycoon 3 Platinum!.desktop" "RollerCoaster Tycoon Deluxe.desktop" "RollerCoaster Tycoon 2 Triple Thrill Pack.desktop" "American Truck Simulator.desktop" "Halo The Master Chief Collection.desktop" "Bejeweled 3.desktop" ];
     };
 
+    "org/gnome/evolution-data-server/calendar/list-of-equal" = {
+      reminders-snoozed = [ "=" ];
+    };
+
   };
 }
diff --git a/src/DConf.hs b/src/DConf.hs
@@ -70,7 +70,7 @@ vString parser = try $ do
  where
   single = many1 (string "'") *> parser inputs (string "'")
   double = many1 (char '"') *> parser (inputs <|> string "'") (char '"')
-  tokens = many1 <$> [alphaNum, space] ++ (char <$> "$!&+-_()[]{},#@\\")
+  tokens = many1 <$> [alphaNum, space] ++ (char <$> "=$!&+-_()[]{},#@\\")
   files  = many1 . char <$> ":/."
   shorts = many1 . char <$> "<>"
   inputs = choice (tokens ++ files ++ shorts)