26 lines
891 B
Plaintext
26 lines
891 B
Plaintext
(var THRESHOLD 0.4)
|
|
|
|
```
|
|
echo "\$(pwd)" > g.txt
|
|
echo "$(Sys.getCwd)" > g.txt
|
|
```
|
|
|
|
(assertLet [[folder realCwd] (Sys.args)
|
|
folder (joinPath realCwd folder)
|
|
files (reverse (FileSystem.readDirectory folder))
|
|
lastFrame (first files)]
|
|
```
|
|
cd $folder && tesseract $lastFrame $(lastFrame.withoutExtension)
|
|
```
|
|
(doFor [after before] (pairs files)
|
|
```
|
|
cd $folder && tesseract $before $(Path.withoutExtension before)
|
|
```
|
|
(let [afterText (File.getContent "${folder}/$(Path.withoutExtension after).txt")
|
|
beforeText (File.getContent "${folder}/$(Path.withoutExtension before).txt")]
|
|
(when (or !beforeText
|
|
(< THRESHOLD (kiss.FuzzyMap.fuzzyMatchScore afterText beforeText)))
|
|
```
|
|
cd $folder && rm $before
|
|
```))))
|