aboutsummaryrefslogtreecommitdiff
path: root/scripts/apply_vimgrep_updates.fnl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rwxr-xr-xscripts/apply_vimgrep_updates.fnl43
1 files changed, 0 insertions, 43 deletions
diff --git a/scripts/apply_vimgrep_updates.fnl b/scripts/apply_vimgrep_updates.fnl
deleted file mode 100755
index 5fada6c..0000000
--- a/scripts/apply_vimgrep_updates.fnl
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/env -S fennel --lua luajit
-
-;; TODO: Support -A -B outputs for context
-
-(local M {})
-
-(fn M.main []
- (local write-count (M.apply-vimgrep-changes))
- (print (.. "Applied " write-count " changes")))
-
-(fn M.apply-vimgrep-changes []
- (var count 0)
- (each [line (io.lines)]
- (local (filepath linenr _ text) (M.parse-vimgrep line))
- (when filepath
- (local applied? (M.update-line filepath linenr text))
- (when applied?
- (set count (+ count 1)))))
- count)
-
-(fn M.parse-vimgrep [line]
- (local (filepath linenr col text) (string.match line "(.*):(%d+):(%d+):(.*)"))
- (values filepath (tonumber linenr) col text))
-
-(fn M.update-line [filepath linenr text]
- (local lines (M.read-lines filepath))
- (var written? false)
- (when (and (> (length lines) linenr) (not= (. lines linenr) text))
- (set (. lines linenr) text)
- (local file (io.open filepath :w))
- (file:write (.. (table.concat lines "\n") "\n"))
- (file:close)
- (set written? true))
- written?)
-
-(fn M.read-lines [filepath]
- (local file (io.open filepath :r))
- (local lines [])
- (each [line (file:lines)] (table.insert lines line))
- (file:close)
- lines)
-
-(M.main)