clojure-reader 0.6.0

A Clojure reader
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

use serde_derive::{Deserialize, Serialize};

use clojure_reader::{de::from_str, ser::to_string};

#[derive(Serialize, Deserialize, PartialEq, Debug)]
#[serde(rename_all = "kebab-case")] // Clojure mostly uses kebab-case
struct Test {
  int: u32,
  v: Vec<u32>,
  #[serde(alias = "foo_bar")] // This will allow :foo_bar to also work
  foo_bar: u8,
  b: bool,
  猫: &'static str,
}

#[derive(Debug, Clone, PartialEq, Serialize, Deserialize)]
#[serde(tag = "cafe", rename_all = "kebab-case", rename_all_fields = "kebab-case")]
enum CatCafe {
  BeforeOpening,
  HerdingKittens { count: u8 },
  ServingTreats { bowls: u8, favorite_flavor: String },
  NapTime { sunny_spots: u8 },
}

fn main() {
  let test = Test { int: 1, v: vec![1, 2, 3, 42], foo_bar: 32, b: false, 猫: "silly" };
  let expected = r#"{:int 1, :v [1 2 3 42], :foo-bar 32, :b false, :猫 "silly"}"#;

  let ser = to_string(&test).unwrap();
  assert_eq!(ser, expected);

  let deser = from_str::<Test>(expected).unwrap();
  assert_eq!(deser, test);

  let shift = CatCafe::ServingTreats { bowls: 3, favorite_flavor: "tuna".to_string() };
  let expected_shift = r#"{:cafe "serving-treats", :bowls 3, :favorite-flavor "tuna"}"#;

  let ser = to_string(&shift).unwrap();
  assert_eq!(ser, expected_shift);

  let deser = from_str::<CatCafe>(expected_shift).unwrap();
  assert_eq!(deser, shift);
}

#[test]
fn run() {
  main();
}