fix: format code

Author: SuperFola

Cli.ark

@@ -6,8 +6,7 @@
   (let required (= kind "value"))
   (let value default)
 
-  (fun (
-    &kind
+  (fun (&kind
     &name
     &desc
     &default
@@ -17,42 +16,35 @@
 (let _group (fun (children all_of) {
   (let kind "group")
 
-  (fun (
-    &kind
+  (fun (&kind
     &children
     &all_of) ()) }))
 
 # @brief Defines a command line flag
 # @details All flags are optional and turned off
 # @param name how the flag is named, eg "--debug"
 # @param desc what the flag achieves
-(let flag (fun (name desc)
-  (_param name desc false "flag")))
+(let flag (fun (name desc) (_param name desc false "flag")))
 
 # @brief Defines a command line value
 # @details All values are required and equal to their default value
 # @param name how the value is named, eg "filename"
 # @param desc what the value is for
 # @param default default value for the value
-(let value (fun (name desc default)
-  (_param name desc default "value")))
+(let value (fun (name desc default) (_param name desc default "value")))
 
 # @brief Creates a group of flags/values/groups where only one of the subgroup has to match
 # @param params list of flags/values/groups
-(let oneOf (fun (params)
-  (_group params false)))
+(let oneOf (fun (params) (_group params false)))
 
 # @brief Creates a group of flags/values/groups where all of the subgroups have to match
 # @param params list of flags/values/groups
-(let group (fun (params)
-  (_group params true)))
+(let group (fun (params) (_group params true)))
 
 (let _synopsis_group (fun (cli)
   (if cli.all_of
     {
-      (let partially_fmt (map
-        cli.children
-        (fun (param) (_format_param param))))
+      (let partially_fmt (map cli.children (fun (param) (_format_param param))))
 
       (mut options [""])
       (mut i 0)
@@ -61,29 +53,25 @@
         (let e (@ partially_fmt i))
         (if (= (type e) "String")
           (set options (map
-            options
-            (fun (alt)
-              (if (empty? alt)
-                e
-                (format "{} {}" alt e)))))
+              options
+              (fun (alt)
+                (if (empty? alt)
+                  e
+                  (format "{} {}" alt e)))))
           # if we have a list, add (@ options 0) to each element of the list, then added to options
           (concat! options (map e (fun (alt) (format "{} {}" (@ options 0) alt)))))
         (set i (+ 1 i)) })
 
-      options
-    }
+      options }
     # any_of, return a list of each formatted param
-    (flatMap
-      cli.children
-      (fun (param) (_format_param param))))))
+    (flatMap cli.children (fun (param) (_format_param param))))))
 
 (let _synopsis_flag (fun (param)
   (if param.required
     (format "{}" cli.name)
     (format "[{}]" cli.name))))
 
-(let _synopsis_value (fun (param)
-  (format "<{}>" cli.name)))
+(let _synopsis_value (fun (param) (format "<{}>" cli.name)))
 
 (let _format_param (fun (cli)
   (if (= cli.kind "group")
@@ -95,9 +83,7 @@
 
 (let _get_options (fun (d param)
   (if (= param.kind "group")
-    (forEach
-      param.children
-      (fun (p) (_get_options d p)))
+    (forEach param.children (fun (p) (_get_options d p)))
     (dict:add d param.name param))))
 
 (let help (fun (program desc cli) {
@@ -109,11 +95,16 @@
   (let params (dict))
   (_get_options params cli)
   (let options (join
-    (map (dict:keys params) (fun (name) {
-      (let param (dict:get params name))
-      (let fmt_name (if (= param.kind "value") (format "<{}>" name) name))
-      (format "\t{:<28} {}" fmt_name param.desc) }))
-    "\n"))
+      (map
+        (dict:keys params)
+        (fun (name) {
+          (let param (dict:get params name))
+          (let fmt_name
+            (if (= param.kind "value")
+              (format "<{}>" name)
+              name))
+          (format "\t{:<28} {}" fmt_name param.desc) }))
+      "\n"))
 
   (+ headers synopsis "\n\nOPTIONS\n" options) }))
 
@@ -198,12 +189,12 @@
   (if (= cli.kind "flag")
     {
       (let maybe_flag (find args cli.name))
-      (if (!= maybe_flag -1)
-        (dict:add parsed cli.name true)) }
+      (if (!= maybe_flag -1) (dict:add parsed cli.name true)) }
     (if (= cli.kind "value")
       (dict:add parsed cli.name (head args))
       # group
-      (if cli.all_of (_match_group parsed args cli) (_match_one_of parsed args cli))))
+      (if cli.all_of
+        (_match_group parsed args cli)
+        (_match_one_of parsed args cli))))
 
   parsed }))
-

Dict.ark

@@ -133,7 +133,7 @@
   (while (< _i (len _keys)) {
     (let _key (@ _keys _i))
     (add _D _key (_f _key (get _D _key)))
-    (set _i (+ 1 _i)) })}))
+    (set _i (+ 1 _i)) }) }))
 
 # @brief Iterate over the pairs of a dictionary with a given function
 # @param _D dictionary
@@ -151,7 +151,7 @@
   (while (< _i (len _keys)) {
     (let _key (@ _keys _i))
     (_f _key (get _D _key))
-    (set _i (+ 1 _i)) })}))
+    (set _i (+ 1 _i)) }) }))
 
 # @brief Filter a dictionary with a predicate
 # @details The original dictionary is not modified
@@ -171,8 +171,7 @@
   (while (< _i (len _keys)) {
     (let _key (@ _keys _i))
     (let _val (get _D _key))
-    (if (_f _key _val)
-      (add _new _key _val))
+    (if (_f _key _val) (add _new _key _val))
     (set _i (+ 1 _i)) })
   _new }))
 
@@ -192,8 +191,7 @@
   (while (< _i (len _keys)) {
     (let _key (@ _keys _i))
     (let _val (get _D _key))
-    (if (not (_f _key _val))
-      (remove _D _key))
+    (if (not (_f _key _val)) (remove _D _key))
     (set _i (+ 1 _i)) }) }))
 
 # @brief Copy a dictionary
@@ -234,4 +232,4 @@
   (while (< _i (len _keys)) {
     (let _key (@ _keys _i))
     (add _D _key (get _D2 _key))
-    (set _i (+ 1 _i)) })}))
+    (set _i (+ 1 _i)) }) }))

List.ark

@@ -613,4 +613,4 @@
 
     (if (>= (+ _i _size) (len _L))
       (set _i (len _L)))
-    (set _i (+ 1 _i)) })}))
+    (set _i (+ 1 _i)) }) }))

Math.ark

@@ -409,4 +409,3 @@
     (set _i (+ 1 _i)) })
 
   _result }))
-

Random.ark

@@ -31,4 +31,3 @@
     (pop! _L _idx) })
 
   _output }))
-

String.ark

@@ -1,6 +1,7 @@
 # @brief Upper and lowercase ASCII letters
 # @author https://github.com/SuperFola
-(let asciiLetters "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
+(let asciiLetters
+  "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
 
 # @brief Lowercase ASCII letters
 # @author https://github.com/SuperFola
@@ -24,11 +25,13 @@
 
 # @brief All printable characters
 # @author https://github.com/SuperFola
-(let printable "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~ \t\n\r")
+(let printable
+  "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~ \t\n\r")
 
 # @brief Punctuation characters
 # @author https://github.com/SuperFola
-(let punctuation "!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~")
+(let punctuation
+  "!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~")
 
 # @brief Whitespace characters
 # @author https://github.com/SuperFola