Commit
+17 -11 +/-6 browse
| 1 | diff --git a/.ocamlformat b/.ocamlformat |
| 2 | new file mode 100644 |
| 3 | index 0000000..f949767 |
| 4 | --- /dev/null |
| 5 | +++ b/.ocamlformat |
| 6 | @@ -0,0 +1 @@ |
| 7 | + profile = conventional |
| 8 | diff --git a/bin/dune b/bin/dune |
| 9 | index a0adef5..d94a71d 100644 |
| 10 | --- a/bin/dune |
| 11 | +++ b/bin/dune |
| 12 | @@ -2,8 +2,13 @@ |
| 13 | (public_name note) |
| 14 | (name note) |
| 15 | (libraries note_lib core) |
| 16 | - (preprocess (pps ppx_jane)) |
| 17 | + (preprocess |
| 18 | + (pps ppx_jane)) |
| 19 | (modes byte exe) |
| 20 | - (ocamlopt_flags -ccopt -static) |
| 21 | - ) |
| 22 | - (env (dev (flags (:standard -w -32)(:standard -w -27)))) |
| 23 | + (ocamlopt_flags -ccopt -static)) |
| 24 | + |
| 25 | + (env |
| 26 | + (dev |
| 27 | + (flags |
| 28 | + (:standard -w -32) |
| 29 | + (:standard -w -27)))) |
| 30 | diff --git a/lib/config.ml b/lib/config.ml |
| 31 | index 878026f..9ae5831 100644 |
| 32 | --- a/lib/config.ml |
| 33 | +++ b/lib/config.ml |
| 34 | @@ -21,7 +21,9 @@ let default_config = |
| 35 | |
| 36 | let to_string config = |
| 37 | let editor = match config.editor with Some value -> value | None -> "" in |
| 38 | - let on_mod = match config.on_modification with Some value -> value | None -> "" in |
| 39 | + let on_mod = |
| 40 | + match config.on_modification with Some value -> value | None -> "" |
| 41 | + in |
| 42 | let dict = |
| 43 | Ezjsonm.dict |
| 44 | [ |
| 45 | diff --git a/lib/config.mli b/lib/config.mli |
| 46 | index 0be6661..97ec2e7 100644 |
| 47 | --- a/lib/config.mli |
| 48 | +++ b/lib/config.mli |
| 49 | @@ -18,7 +18,7 @@ val read_config : string -> t |
| 50 | val initialize : string -> t -> unit |
| 51 | (** initialize the host system with the configuration *) |
| 52 | |
| 53 | - val get : t -> string -> string option |
| 54 | + val get : t -> string -> string option |
| 55 | (** returns a key-value string pair from the configuration *) |
| 56 | |
| 57 | val get_exn : t -> string -> string |
| 58 | diff --git a/lib/io.ml b/lib/io.ml |
| 59 | index a957421..71199a8 100644 |
| 60 | --- a/lib/io.ml |
| 61 | +++ b/lib/io.ml |
| 62 | @@ -2,9 +2,7 @@ open Core |
| 63 | |
| 64 | let create ~callback ~content dest = |
| 65 | Out_channel.write_all ~data:content dest; |
| 66 | - match callback with |
| 67 | - | Some cmd -> Sys.command_exn cmd; |
| 68 | - | None -> () |
| 69 | + match callback with Some cmd -> Sys.command_exn cmd | None -> () |
| 70 | |
| 71 | let create_on_change ~callback ~editor content dest = |
| 72 | let tmp_file = Filename.temp_file "note" ".md" in |
| 73 | diff --git a/lib/note.mli b/lib/note.mli |
| 74 | index fe79e2e..5c549b7 100644 |
| 75 | --- a/lib/note.mli |
| 76 | +++ b/lib/note.mli |
| 77 | @@ -1,6 +1,6 @@ |
| 78 | type t |
| 79 | |
| 80 | - val build : title:string -> tags:string list -> content: string -> t |
| 81 | + val build : title:string -> tags:string list -> content:string -> t |
| 82 | (** build a new note *) |
| 83 | |
| 84 | val get_title : t -> string |
| 85 | @@ -29,7 +29,7 @@ val read_note_exn : path:string -> t |
| 86 | val read_notes : paths:string list -> t list |
| 87 | (** read all of the note paths raising an exception of any failure *) |
| 88 | |
| 89 | - val read_notes_with_paths : paths: string list -> (t * string) list |
| 90 | + val read_notes_with_paths : paths:string list -> (t * string) list |
| 91 | (** read all of the note paths returning a tuple of note and it's associated path rasiing an exception on any failure *) |
| 92 | |
| 93 | val filter : t list -> string list -> t list |