github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-02 14:31:05 +00:00
Code Issues Projects Releases Wiki Activity

forgot this one

Browse Source
This commit is contained in:
rmkaplan
2025-02-15 17:53:46 -08:00
parent c0e0aea80a
commit c7f08aade9
2 changed files with 26 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
library/lafite/LAFITE-INDENT
View File

@@ -1,13 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "15-Feb-2025 09:21:58" {WMEDLEY}<library>lafite>LAFITE-INDENT.;3 26659 (FILECREATED "15-Feb-2025 14:11:54" {WMEDLEY}<library>lafite>LAFITE-INDENT.;4 26926
:EDIT-BY rmk :EDIT-BY rmk
:CHANGES-TO (FNS TEDIT-MAKE-LINES-EXPLICIT TEDIT-INDENT-SET-INDENT :CHANGES-TO (FNS TEDIT-INDENT-BREAK-LONG-LINES TEDIT-INDENT-SELECTION TEDIT-OPEN-LINE
TEDIT-INDENT-BREAK-LONG-LINES TEDIT-INDENT-SELECTION TEDIT-OPEN-LINE) TEDIT-MAKE-LINES-EXPLICIT TEDIT-INDENT-SET-INDENT)
:PREVIOUS-DATE "15-Feb-2025 09:18:22" {WMEDLEY}<library>lafite>LAFITE-INDENT.;2) :PREVIOUS-DATE "15-Feb-2025 09:21:58" {WMEDLEY}<library>lafite>LAFITE-INDENT.;3)
(PRETTYCOMPRINT LAFITE-INDENTCOMS) (PRETTYCOMPRINT LAFITE-INDENTCOMS)
@@ -133,7 +133,7 @@
max-length max-length]) max-length max-length])
(TEDIT-INDENT-BREAK-LONG-LINES (TEDIT-INDENT-BREAK-LONG-LINES
[LAMBDA (text-stream explicit-paragraph-breaks?) (* ; "Edited 15-Feb-2025 09:15 by rmk") [LAMBDA (text-stream explicit-paragraph-breaks?) (* ; "Edited 15-Feb-2025 14:07 by rmk")
(* smL "21-Jan-87 16:03") (* smL "21-Jan-87 16:03")
(* ;;; "Break the current selection into explicit lines, each having no more than *TEDIT-INDENT-LINE-LENGTH* characters. --- If the flag *TEDIT-INDENT-KEEP-LINE-BREAKS* is false, existing line breaks in the current selection are removed. --- This is intended to be used in Lafite, where one wants to indent a piece of a forwarded document, but can be used in any TEdit document") (* ;;; "Break the current selection into explicit lines, each having no more than *TEDIT-INDENT-LINE-LENGTH* characters. --- If the flag *TEDIT-INDENT-KEEP-LINE-BREAKS* is false, existing line breaks in the current selection are removed. --- This is intended to be used in Lafite, where one wants to indent a piece of a forwarded document, but can be used in any TEdit document")
@@ -144,10 +144,11 @@
(CONCATLIST (for string on (TEDIT-INDENT-SEPERATE-PARAGRAPHS (TEDIT.SEL.AS.STRING (CONCATLIST (for string on (TEDIT-INDENT-SEPERATE-PARAGRAPHS (TEDIT.SEL.AS.STRING
text-stream selection) text-stream selection)
explicit-paragraph-breaks?) explicit-paragraph-breaks?)
bind [hanging-indent _ (AND (NOT (EQP (GETLD (CAR (GETSEL selection L1)) bind [hanging-indent _ (AND [NOT (EQP (GETLD (CAR (GETSEL selection L1))
LCHAR1) LCHAR1)
(GETSEL selection CH#))) (TEDIT.SELPROP selection 'CH#]
(DIFFERENCE (GETSEL selection CH#) (DIFFERENCE (TEDIT.SELPROP selection
'CH#)
(GETLD (CAR (GETSEL selection L1)) (GETLD (CAR (GETSEL selection L1))
LCHAR1] LCHAR1]
join (PROG1 (LIST (TEDIT-INDENT-ADD-INDENTATION (CAR string) join (PROG1 (LIST (TEDIT-INDENT-ADD-INDENTATION (CAR string)
@@ -184,7 +185,7 @@
'RIGHT]) 'RIGHT])
(TEDIT-INDENT-SELECTION (TEDIT-INDENT-SELECTION
[LAMBDA (text-stream explicit-paragraph-breaks?) (* ; "Edited 15-Feb-2025 09:17 by rmk") [LAMBDA (text-stream explicit-paragraph-breaks?) (* ; "Edited 15-Feb-2025 14:07 by rmk")
(* smL "21-Jan-87 16:00") (* smL "21-Jan-87 16:00")
(* ;;; "Indent the current selection by prefacing each line with the value of *TEDIT-INDENT-STRING*, and inserting line breaks after each *TEDIT-INDENT-LINE-LENGTH* characters. --- If the flag *TEDIT-INDENT-KEEP-LINE-BREAKS* is false, existing line breaks in the current selection are removed. --- This is intended to be used in Lafite, where one wants to indent a piece of a forwarded document, but can be used in any TEdit document") (* ;;; "Indent the current selection by prefacing each line with the value of *TEDIT-INDENT-STRING*, and inserting line breaks after each *TEDIT-INDENT-LINE-LENGTH* characters. --- If the flag *TEDIT-INDENT-KEEP-LINE-BREAKS* is false, existing line breaks in the current selection are removed. --- This is intended to be used in Lafite, where one wants to indent a piece of a forwarded document, but can be used in any TEdit document")
@@ -195,10 +196,11 @@
(CONCATLIST (for string on (TEDIT-INDENT-SEPERATE-PARAGRAPHS (TEDIT.SEL.AS.STRING (CONCATLIST (for string on (TEDIT-INDENT-SEPERATE-PARAGRAPHS (TEDIT.SEL.AS.STRING
text-stream selection) text-stream selection)
explicit-paragraph-breaks?) explicit-paragraph-breaks?)
bind [hanging-indent _ (AND (NOT (EQP (GETLD (CAR (GETSEL selection L1)) bind [hanging-indent _ (AND [NOT (EQP (GETLD (CAR (GETSEL selection L1))
LCHAR1) LCHAR1)
(GETSEL selection CH#))) (TEDIT.SELPROP selection 'CH#]
(DIFFERENCE (GETSEL selection CH#) (DIFFERENCE (TEDIT.SELPROP selection
'CH#)
(GETLD (CAR (GETSEL selection L1)) (GETLD (CAR (GETSEL selection L1))
LCHAR1] LCHAR1]
join (PROG1 (LIST (TEDIT-INDENT-ADD-INDENTATION (CAR string) join (PROG1 (LIST (TEDIT-INDENT-ADD-INDENTATION (CAR string)
@@ -282,18 +284,19 @@
(TEDIT.SETSEL text-stream selection NIL 'RIGHT]) (TEDIT.SETSEL text-stream selection NIL 'RIGHT])
(TEDIT-OPEN-LINE (TEDIT-OPEN-LINE
[LAMBDA (text-stream) (* ; "Edited 15-Feb-2025 09:16 by rmk") [LAMBDA (text-stream) (* ; "Edited 15-Feb-2025 14:09 by rmk")
(* smL "17-Sep-86 11:13") (* smL "17-Sep-86 11:13")
(* ;;; "Open a new line at the current position.") (* ;;; "Open a new line at the current position.")
(LET ((selection (TEDIT.GETSEL text-stream))) (LET ((selection (TEDIT.GETSEL text-stream)))
(TEDIT.INSERT text-stream (CONCAT *eol-string* (ALLOCSTRING (TEDIT.INSERT text-stream (CONCAT *eol-string* (ALLOCSTRING
(DIFFERENCE (GETSEL selection CH#) (DIFFERENCE (TEDIT.SELPROP selection
'CH#)
(GETLD (CAR (GETSEL selection L1)) (GETLD (CAR (GETSEL selection L1))
LCHAR1)) LCHAR1))
" "))) " ")))
(if (ZEROP (GETSEL selection DCH)) (if (ZEROP (TEDIT.SELPROP selection 'LENGTH))
then (TEDIT.SETSEL text-stream selection]) then (TEDIT.SETSEL text-stream selection])
(TEDIT-REMOVE-INDENT (TEDIT-REMOVE-INDENT
@@ -430,12 +433,12 @@
"Break long lines by inserting explicit <RETURN>'s" "Break long lines by inserting explicit <RETURN>'s"
] ]
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (4363 24047 (TEDIT-INDENT-ADD-INDENTATION 4373 . 6941) (TEDIT-INDENT-BREAK-LINE 6943 . (FILEMAP (NIL (4363 24314 (TEDIT-INDENT-ADD-INDENTATION 4373 . 6941) (TEDIT-INDENT-BREAK-LINE 6943 .
8876) (TEDIT-INDENT-BREAK-LONG-LINES 8878 . 10742) (TEDIT-INDENT-FIND-BREAKPOINT 10744 . 11567) ( 8876) (TEDIT-INDENT-BREAK-LONG-LINES 8878 . 10828) (TEDIT-INDENT-FIND-BREAKPOINT 10830 . 11653) (
TEDIT-INDENT-REPLACE-SELECTION 11569 . 12126) (TEDIT-INDENT-SELECTION 12128 . 14111) ( TEDIT-INDENT-REPLACE-SELECTION 11655 . 12212) (TEDIT-INDENT-SELECTION 12214 . 14283) (
TEDIT-INDENT-SELECTION-KEEPING-LINEBREAKS 14113 . 14392) (TEDIT-INDENT-SEPERATE-PARAGRAPHS 14394 . TEDIT-INDENT-SELECTION-KEEPING-LINEBREAKS 14285 . 14564) (TEDIT-INDENT-SEPERATE-PARAGRAPHS 14566 .
15123) (TEDIT-INDENT-SET-INDENT 15125 . 15971) (TEDIT-INDENT-STRIP-INDENTATION 15973 . 17193) ( 15295) (TEDIT-INDENT-SET-INDENT 15297 . 16143) (TEDIT-INDENT-STRIP-INDENTATION 16145 . 17365) (
TEDIT-MAKE-LINES-EXPLICIT 17195 . 18345) (TEDIT-OPEN-LINE 18347 . 19186) (TEDIT-REMOVE-INDENT 19188 . TEDIT-MAKE-LINES-EXPLICIT 17367 . 18517) (TEDIT-OPEN-LINE 18519 . 19453) (TEDIT-REMOVE-INDENT 19455 .
19958) (\TEDIT-INDENT-COUNT-SPACES 19960 . 20561) (\TEDIT-INDENT-FIND-PARAGRAPH-END 20563 . 21534) ( 20225) (\TEDIT-INDENT-COUNT-SPACES 20227 . 20828) (\TEDIT-INDENT-FIND-PARAGRAPH-END 20830 . 21801) (
\TEDIT-INDENT-SEPERATE-LINES 21536 . 22334) (\TEDIT-INDENT-SEPERATE-PARAGRAPHS 22336 . 24045))))) \TEDIT-INDENT-SEPERATE-LINES 21803 . 22601) (\TEDIT-INDENT-SEPERATE-PARAGRAPHS 22603 . 24312)))))
STOP STOP

BIN
library/lafite/LAFITE-INDENT.LCOM
View File

Binary file not shown.