|
|
@ -11,9 +11,9 @@ Identical to scribble/private/indentation except it uses #\◊ rather than #\@ a
|
|
|
|
In the unit tests, `scribble/base` became `pollen/markup`
|
|
|
|
In the unit tests, `scribble/base` became `pollen/markup`
|
|
|
|
and `scribble/manual` became `pollen/markdown`
|
|
|
|
and `scribble/manual` became `pollen/markdown`
|
|
|
|
to keep the number of characters consistent, and therefore the char positions within each sample.
|
|
|
|
to keep the number of characters consistent, and therefore the char positions within each sample.
|
|
|
|
|
|
|
|
|
|
|
|
|#
|
|
|
|
|#
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(provide determine-spaces paragraph-indentation keystrokes)
|
|
|
|
(provide determine-spaces paragraph-indentation keystrokes)
|
|
|
|
|
|
|
|
|
|
|
|
(define paragraph-width-pref-name 'scribble-reindent-paragraph-width)
|
|
|
|
(define paragraph-width-pref-name 'scribble-reindent-paragraph-width)
|
|
|
@ -569,7 +569,7 @@ to keep the number of characters consistent, and therefore the char positions wi
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define/contract (insert-them t . strs)
|
|
|
|
(define/contract (insert-them t . strs)
|
|
|
|
(->* ((is-a?/c text%)) #:rest (*list/c (and/c string? #rx"\n$") string?) void?)
|
|
|
|
(->* ((is-a?/c text%)) #:rest (cons/c (and/c string? #rx"\n$") (listof string?)) void?)
|
|
|
|
(for ([str (in-list strs)])
|
|
|
|
(for ([str (in-list strs)])
|
|
|
|
(define lp (send t last-position))
|
|
|
|
(define lp (send t last-position))
|
|
|
|
(send t insert str lp lp))
|
|
|
|
(send t insert str lp lp))
|
|
|
|