Refonte des aliases

aliases/random.elv

@@ -1,4 +1,4 @@
-edit:add-var genstr~ {|@argv|
+edit:add-var gen-str~ {|@argv|
   use re
   use str
 
@@ -65,3 +65,21 @@ edit:add-var genstr~ {|@argv|
     echo
   }
 }
+
+edit:add-var grawlix~ {|@argv|
+  use str
+
+  var @chars  = (str:split '' '#$%&*+=^~£§¶±÷≠Ω√∆◊')
+  var nbChars = (count $chars)
+  var length  = (shuf -i 4-7 -n 1)
+  var graw    = []
+
+  range $length | each {|_|
+    var ci    = (shuf -i 1-$nbChars -n 1)
+    set @graw = $@graw $chars[(- $ci 1)]
+  }
+
+  set @graw = $@graw '!'
+
+  echo (str:join '' $graw)
+}