humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

amend problem with TextWindow.getStartLineBefore, where we were not following rule mentioned in previous commits to not count (graphical-chr -> \n) as line break

Browse Source
This commit is contained in:
Humza Shahid
2024-11-06 12:46:53 +00:00
parent 50d10c1a89
commit 6b9cf8dbc2
3 changed files with 24 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
fcore/app-update.sml
View File

@@ -262,34 +262,34 @@ struct
let
(* delete char at cursor and then decrement cursorIdx by 1
* if cursorIdx is not 0 *)
val newBuffer = LineGap.delete (cursorIdx, 1, buffer)
val buffer = LineGap.delete (cursorIdx, 1, buffer)
val cursorIdx =
if Cursor.isPrevChrStartOfLine (newBuffer, cursorIdx)
if Cursor.isPrevChrStartOfLine (buffer, cursorIdx)
orelse cursorIdx = 0 then
cursorIdx
else cursorIdx - 1
val newBuffer = LineGap.goToLine (startLine, newBuffer)
val buffer = LineGap.goToLine (startLine, buffer)
val newApp = AppWith.bufferAndCursorIdx
(app, newBuffer, cursorIdx, NORMAL_MODE "", startLine)
(app, buffer, cursorIdx, NORMAL_MODE "", startLine)
val drawMsg =
TextBuilder.build
(startLine, cursorIdx, newBuffer, windowWidth, windowHeight)
(startLine, cursorIdx, buffer, windowWidth, windowHeight)
in
(newApp, drawMsg)
end
else
let
val newBuffer = LineGap.delete (cursorIdx, 1, buffer)
val buffer = LineGap.delete (cursorIdx, 1, buffer)
val newBuffer = LineGap.goToLine (startLine, newBuffer)
val buffer = LineGap.goToLine (startLine, buffer)
val newApp = AppWith.bufferAndCursorIdx
(app, newBuffer, cursorIdx, NORMAL_MODE "", startLine)
(app, buffer, cursorIdx, NORMAL_MODE "", startLine)
val drawMsg =
TextBuilder.build
(startLine, cursorIdx, newBuffer, windowWidth, windowHeight)
(startLine, cursorIdx, buffer, windowWidth, windowHeight)
in
(newApp, drawMsg)
end