Add "main folnum" function

filla.nu

@@ -2,7 +2,7 @@
 
 def main [] {}
 
-def "main test" [search replace ...paths] {
+def "main rename_test" [search: string replace: string ...paths] {
 
   print $"search: ($search) replace: ($replace)"
 
@@ -20,7 +20,7 @@ def "main test" [search replace ...paths] {
   )
 }
 
-def "main rename" [search replace ...paths] {
+def "main rename" [search: string replace: string ...paths] {
 
   ($paths |
 
@@ -78,3 +78,22 @@ def "main folnum_test" [...paths] {
     }
   )
 }
+
+def "main folnum" [...paths] {
+
+  ($paths |
+
+    each {|f|
+
+      let folder = $f | path dirname
+
+      let foldernum = $folder | path basename | str replace -r '^\D*(\d+)\D*$' '$1'
+
+      let name = $f | path basename
+
+      let newname = $foldernum + '-' + $name
+
+      mv ($folder | path join $name) ($folder | path join $newname)
+    }
+  )
+}