core: subseq-index? -> subseq-of?

[factor.git] / extra / codebase-analyzer / codebase-analyzer.factor

diff --git a/extra/codebase-analyzer/codebase-analyzer.factor b/extra/codebase-analyzer/codebase-analyzer.factor
index 86560e5e51a4fae42e813070091b745f1ada8d41..25f13152792078a85a53374dae23566acde3f6d0 100644 (file)
--- a/extra/codebase-analyzer/codebase-analyzer.factor
+++ b/extra/codebase-analyzer/codebase-analyzer.factor
@@ -23,10 +23,10 @@ IN: codebase-analyzer
     [ has-file-extension? ] filter ;
 
 : without-git-paths ( paths -- paths' )
-    [ "/.git/" swap subseq? ] reject ;
+    [ "/.git/" subseq-of? ] reject ;
 
 : without-node-modules-paths ( paths -- paths' )
-    [ "/node_modules/" swap subseq? ] reject ;
+    [ "/node_modules/" subseq-of? ] reject ;
 
 : regular-directory-files ( path -- seq )
     recursive-directory-files
@@ -151,7 +151,7 @@ IN: codebase-analyzer
 
 : analyze-codebase-path ( path -- )
     {
-        [ normalize-path "project at path `%s`" sprintf print ]
+        [ normalize-path "project at path `%s`" sprintf print nl ]
         [ uses-git? [ "uses git" print ] when ]
         [ has-package-json? [ "has a package.json file" print ] when ]
     } cleave ;
@@ -166,11 +166,11 @@ IN: codebase-analyzer
         [ uses-cmake? [ "uses cmake" print ] when ]
         [ uses-make? [ "uses make" print ] when ]
         [ rc-files [ length "has %d rc files" sprintf print ] unless-empty ]
-        [ ignore-files [ length "has %d ignore files" sprintf print ] unless-empty ]
-        [ "Top 20 largest files" print file-sizes sort-values 20 sequences:short tail* [ normalize-path ] map-keys assoc. nl ]
-        [ "Top 10 file extention sizes" print sum-sizes-by-extension 10 sequences:short tail* assoc. nl ]
-        [ "Top 10 text file line counts" print sum-line-counts-by-extension 10 sequences:short tail* assoc. nl ]
-        [ "Top 10 file extention counts" print count-by-file-extension 10 sequences:short tail* assoc. nl ]
+        [ ignore-files [ length "has %d ignore files" sprintf print ] unless-empty nl ]
+        [ "Top 20 largest files" print file-sizes sort-values 20 index-or-length tail* [ normalize-path ] map-keys reverse assoc. nl ]
+        [ "Top 10 file extension sizes" print sum-sizes-by-extension 10 index-or-length tail* reverse assoc. nl ]
+        [ "Top 10 text file line counts" print sum-line-counts-by-extension 10 index-or-length tail* reverse assoc. nl ]
+        [ "Top 10 file extension counts" print count-by-file-extension 10 index-or-length tail* reverse assoc. nl ]
     } cleave ;
 
 : analyze-codebase ( path -- )
@@ -179,4 +179,4 @@ IN: codebase-analyzer
 
 : analyze-codebases ( path -- )
     [ directory-files ] keep [ prepend-path ] curry map
-    [ analyze-codebase ] each ;
\ No newline at end of file
+    [ analyze-codebase ] each ;