0.2.26

Changes

@@ -2,6 +2,13 @@ Revision history for App-Rak
 
 {{$NEXT}}
 
+0.2.26  2024-05-14T19:25:29+02:00
+     - Upped dependency on "rak" for fix on hyperizing 2MB+
+       text files
+     - Adapt "only first xx matches shown" message depending on
+       whether they were actually shown, or written to a file or
+       pipe
+
 0.2.25  2024-05-14T12:47:25+02:00
      - Ignore --progress if STDERR is not a tty.  This allows
        --progress to be used as a default

META6.json

@@ -14,7 +14,7 @@
     "IO::Path::AutoDecompress:ver<0.0.2>:auth<zef:lizmat>",
     "JSON::Fast::Hyper:ver<0.0.5>:auth<zef:lizmat>",
     "META::constants:ver<0.0.3>:auth<zef:lizmat>",
-    "rak:ver<0.0.55>:auth<zef:lizmat>",
+    "rak:ver<0.0.56>:auth<zef:lizmat>",
     "String::Utils:ver<0.0.23+>:auth<zef:lizmat>"
   ],
   "description": "21st century grep / find / ack / ag / rg on steroids",
@@ -59,5 +59,5 @@
   ],
   "test-depends": [
   ],
-  "version": "0.2.25"
+  "version": "0.2.26"
 }

TODO

@@ -17,8 +17,6 @@ Ideas / Todo's
   the rest of the pattern as a JSON::Path specification.
 - XPath en XML file support
 - add Log::Timeline support somehow
-- Allow for hypering withing a file if the file is larger than X bytes
-  (probably 1MB)
 - conflicts with variables set in default custom list, should not result
   in errors, e.g. making --smartcase a default, and then specifying some
   combination of options incompatible with --smartcase.

lib/App/Rak.rakumod

@@ -5,7 +5,7 @@ use highlighter:ver<0.0.18>:auth<zef:lizmat>; # columns highlighter matches Type
 use IO::Path::AutoDecompress:ver<0.0.2>:auth<zef:lizmat>; # IOAD
 use JSON::Fast::Hyper:ver<0.0.5>:auth<zef:lizmat>; # from-json to-json
 use META::constants:ver<0.0.3>:auth<zef:lizmat> $?DISTRIBUTION;
-use rak:ver<0.0.55>:auth<zef:lizmat>;              # rak Rak
+use rak:ver<0.0.56>:auth<zef:lizmat>;              # rak Rak
 
 use Backtrace::Files:ver<0.0.3>:auth<zef:lizmat> <
   backtrace-files
@@ -815,9 +815,6 @@ my sub run-rak(:$eagerly --> Nil) {
     meh "Searching for binary data NYI, did you forget a --find?"
       if %rak<is-text>:exists && !%rak<is-text> && !%rak<find>;
 
-    if $debug-rak {
-        note .key ~ ': ' ~ .value.raku for %rak.sort(*.key);
-    }
     if (
       %global.keys, %result.keys, %csv.keys, %modify.keys
     ).flat -> @unhandled {
@@ -829,6 +826,10 @@ TEXT
     }
 
     %rak<eager> := True if $eagerly;
+    if $debug-rak {
+        note .key ~ ': ' ~ .value.raku for %rak.sort(*.key);
+    }
+
     $rak := do if List.ACCEPTS($needle) {
         my sub gatherer($haystack) {
             for $needle -> &code {
@@ -1135,8 +1136,10 @@ my sub show-results(--> Nil) {
         }
     }
 
-    note "** Stopped showing results after $seen matches **"
-      if $seen > 1 && $seen == $stop-after;
+    if $seen > 1 && $seen == $stop-after {
+        my str $what = $writing-to-stdout ?? "showing" !! "producing";
+        note "** Stopped $what results after $seen matches **";
+    }
 }
 
 # Statistics to show