kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

command to increment number in varname on each line

Browse Source
This commit is contained in:
Nat Quayle Nelson
2025-06-05 17:38:40 -05:00
parent 07f33351a3
commit a74add4dc0
3 changed files with 48 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
package-lock.json generated
View File

@@ -1,12 +1,12 @@
{
"name": "kiss-vscode",
"version": "0.0.18",
"name": "kiss-lang-vscode",
"version": "0.1.1",
"lockfileVersion": 2,
"requires": true,
"packages": {
"": {
"name": "kiss-vscode",
"version": "0.0.18",
"name": "kiss-lang-vscode",
"version": "0.1.1",
"devDependencies": {
"vsce": "^2.15.0"
},

12
package.json
View File

@@ -108,6 +108,14 @@
{
"title": "kiss-lang-vscode: Sort the selected lines lexicographically from the end of each line",
"command": "kiss-lang-vscode.sortLinesSyncEOL"
},
{
"title": "kiss-lang-vscode: Find and replace a token, matching case",
"command": "kiss-lang-vscode.findReplaceTokenMatchCase"
},
{
"title": "kiss-lang-vscode: Find text suffixed by a non-negative integer, and replace it, incrementing the number by line",
"command": "kiss-lang-vscode.findReplaceIncrement"
}
],
"languages": [
@@ -130,7 +138,7 @@
"devDependencies": {
"vsce": "^2.15.0"
},
"version": "0.1.1",
"version": "0.1.2",
"activationEvents": [],
"displayName": "Kiss VSCode"
}
}

34
src/commands/Lines.kiss
View File

@@ -79,4 +79,38 @@
(let [editor activeTextEditor]
(e.delete editor.selection)
(e.insert editor.selection.active output))))
(return)))
(defCommand context findReplaceIncrement "Find text suffixed by a non-negative integer, and replace it, incrementing the number by line" "" []
(localVar &mut outputLines [])
(localVar &mut lineFound 0)
(awaitLet [findNumStr (inputBox)
&sync length findNumStr.length
&sync text (selectedText)]
(unless text (print "No text selected!") (return))
(unless findNumStr (print "Nothing to find!") (return))
// Find where the number suffix starts
(let [&mut numStartIdx 0]
(while (< numStartIdx length)
(when (.contains "0123456789" (findNumStr.charAt numStartIdx))
(break))
++numStartIdx)
(when (>= numStartIdx length) (print "text must be suffixed by a non-negative integer!") (return))
(let [prefix (findNumStr.substr 0 numStartIdx)
num (Std.parseInt (findNumStr.substr numStartIdx))
lines (text.split "\n")]
(doFor line lines
(if (line.contains findNumStr)
{
(let [newStr "${prefix}$(+ num lineFound)"]
(outputLines.push (line.replace findNumStr newStr)))
++lineFound
}
(outputLines.push line)))))
(.edit activeTextEditor
(lambda [e]
(let [editor activeTextEditor]
(e.delete editor.selection)
(e.insert editor.selection.active (outputLines.join "\n")))))
(return)))