urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-03 05:43:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

[talk] rebreak newlines after newly inserted break

Browse Source
This commit is contained in:
Anton Dyudin 2016-07-12 16:51:06 -07:00
parent 11f5ec83e4
commit 9c3a6fd304
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
app/talk.hoon
View File

@ -808,19 +808,22 @@
|= buf/(list @c)
^- (list sole-edit)
?~ buf ~
=+ [inx=0 sap=0 con=0]
=+ [inx=0 sap=0 con=0 new=|]
|^ ^- (list sole-edit)
?: =(i.buf (turf '•'))
?. =(0 con) newline
[[%del inx] ?~(t.buf ~ $(buf t.buf))]
?: =(0 con)
[[%del inx] ?~(t.buf ~ $(buf t.buf))]
?: new
[(fix ' ') $(i.buf `@c`' ')]
newline
?: =(i.buf `@`' ')
?. =(64 con) advance(sap inx)
[(fix (turf '•')) newline]
[(fix (turf '•')) newline(new &)]
?: =(64 con)
=+ dif=(sub inx sap)
?: (lth dif 64)
[(fix(inx sap) (turf '•')) $(con dif)]
[[%ins inx (turf '•')] $(con 0, inx +(inx))]
[(fix(inx sap) (turf '•')) $(con dif, new &)]
[[%ins inx (turf '•')] $(con 0, inx +(inx), new &)]
?: |((lth i.buf 32) (gth i.buf 126))
[(fix '?') advance]
?: &((gte i.buf 'A') (lte i.buf 'Z'))