Role model commit

filla.nu

@@ -2,7 +2,7 @@
 
 def main [] {}
 
-def "main rename_test" [search: string replace: string ...paths] {
+def "main rename-test" [search: string replace: string ...paths] {
 
   print $"search: ($search) replace: ($replace)"
 
@@ -37,30 +37,7 @@ def "main rename" [search: string replace: string ...paths] {
   )
 }
 
-def "main number" [...paths] {
+def "main folnum-test" [...paths] {
-
-  let files = $paths | sort | enumerate
-
-  let digits = ($files | length | math log 10 | math floor) + 1
-
-  ($files |
-
-    each {|f|
-
-      let folder = $f.item | path dirname
-
-      let name = $f.item | path basename
-
-      let number = $f.index + 1 | fill -a right -c '0' -w $digits
-
-      let newname = $number + '-' + $name
-
-      mv ($folder | path join $name) ($folder | path join $newname)
-    }
-  )
-}
-
-def "main folnum_test" [...paths] {
 
   ($paths |
 
@@ -97,3 +74,26 @@ def "main folnum" [...paths] {
     }
   )
 }
+
+def "main number" [...paths] {
+
+  let files = $paths | sort | enumerate
+
+  let digits = ($files | length | math log 10 | math floor) + 1
+
+  ($files |
+
+    each {|f|
+
+      let folder = $f.item | path dirname
+
+      let name = $f.item | path basename
+
+      let number = $f.index + 1 | fill -a right -c '0' -w $digits
+
+      let newname = $number + '-' + $name
+
+      mv ($folder | path join $name) ($folder | path join $newname)
+    }
+  )
+}