"*

 * Encoding: iso8859-1

 *

 * $Header$

 *

 * MIMEType: application/x-smalltalk-source

 *

 * sample keyboardMacros.rc - file

 *

 * this file defines some keyboard macros

 * Feel free to add your own.

 * Here, only the macro-codes are defined;

 * the actual binding of macro to a particular key is done in keyboard.rc.

 *

 * these are my personal preferrences which may not be

 * correct for your environment.

 *

 * WARNING:

 *   please keep the expressions below free from manipulating

 *   global state.

 *   Reason: in multihead applications, this will be consulted for each

 *   new display screen.

 *"

|macros|

macros := UserPreferences current functionKeySequences.

"/

"/ macro to replace a text selection by unix commands output

"/

macros at:#ReplaceSelectionByUnixCommandsOutput put:'

	"replace selection by corresponding

	 unix commands output"

	|sel|

	sel := self selection.

	sel notNil ifTrue:[

	    self replace:

		(PipeStream readingFrom:(sel asString))

		    contents asString

	]

'.

"/

"/ macro to paste the text generated by a block

"/

"/macros at:#PasteBlockEvaluationsOutput put:'

"/        "replace selection by blocks output"

"/

"/        |sel s block|

"/

"/        sel := self selectionAsString.

"/        sel notNil ifTrue:[

"/            block := Compiler evaluate:sel asString string.

"/            s := '''' writeStream.

"/            block value:s.

"/            self paste:s contents asString

"/        ]

"/'.

"/

"/ macro to toggle tabs

"/

macros at:#ToggleTabs put:'

	"toggle between 4-col

	 and 8-col tabs"

	(tabPositions == self class tab4Positions)

	     ifTrue:[self setTab8]

	     ifFalse:[self setTab4]

'.

"/

"/ macro to indent by 4

"/

macros at:#IndentBy4 put:'

	"indent selected line-range

	 by 4 spaces (i.e. to the right)"

	|line1 line2|

	line1 := self selectionStartLine.

	line2 := self selectionEndLine.

	line1 isNil ifTrue:[

	    line1 := self perform:#cursorLine ifNotUnderstood:nil.

	    line1 notNil ifTrue:[

		line2 := line1+1

	    ]

	].

	line1 notNil ifTrue:[

	    self withExecuteCursorDo:[

		line1 to:line2-1 do:[:lineNr |

		    |line|

		    line := self listAt:lineNr.

		    line notNil ifTrue:[

			line notEmpty ifTrue:[

			    line := ''    '' , line.

			    self withoutRedrawAt:lineNr put:line.

			]

		    ]

		].

		self textChanged.

		line1 to:line2-1 do:[:lineNr |

		    self invalidateLine:lineNr.

		].

	    ].

	]

'.

"/

"/ macro to undent by 4

"/

macros at:#UndentBy4 put:'

	"undent selected line-range

	 by 4 spaces (i.e. to the left)"

	|line1 line2|

	line1 := self selectionStartLine.

	line2 := self selectionEndLine.

	line1 isNil ifTrue:[

	    line1 := self perform:#cursorLine ifNotUnderstood:nil.

	    line1 notNil ifTrue:[

		line2 := line1+1

	    ]

	].

	line1 notNil ifTrue:[

	    self withExecuteCursorDo:[

		line1 to:line2-1 do:[:lineNr |

		    |line|

		    line := self listAt:lineNr.

		    line notNil ifTrue:[

			line notEmpty ifTrue:[

			    (line startsWith:''    '') ifTrue:[

				line := line copyFrom:5.

				self withoutRedrawAt:lineNr put:line.

			    ]

			]

		    ]

		].

		self textChanged.

		line1 to:line2-1 do:[:lineNr |

		    self invalidateLine:lineNr.

		].

	    ].

	]

'.

"/

"/ macro to indent by 1

"/

macros at:#IndentBy1 put:'

	"indent selected line-range

	 by 1 space (i.e. to the right)"

	|line1 line2|

	line1 := self selectionStartLine.

	line2 := self selectionEndLine.

	line1 isNil ifTrue:[

	    line1 := self perform:#cursorLine ifNotUnderstood:nil.

	    line1 notNil ifTrue:[

		line2 := line1+1

	    ]

	].

	line1 notNil ifTrue:[

	    self withExecuteCursorDo:[

		line1 to:line2-1 do:[:lineNr |

		    |line|

		    line := self listAt:lineNr.

		    line notNil ifTrue:[

			line notEmpty ifTrue:[

			    line := '' '' , line.

			    self withoutRedrawAt:lineNr put:line.

			]

		    ]

		].

		self textChanged.

		line1 to:line2-1 do:[:lineNr |

		    self invalidateLine:lineNr.

		].

	    ]

	]

'.

"/

"/ macro to undent by 1

"/

macros at:#UndentBy1 put:'

	"undent selected line-range

	 by 1 space (i.e. to the left)"

	|line1 line2|

	line1 := self selectionStartLine.

	line2 := self selectionEndLine.

	line1 isNil ifTrue:[

	    line1 := self perform:#cursorLine ifNotUnderstood:nil.

	    line1 notNil ifTrue:[

		line2 := line1+1

	    ]

	].

	line1 notNil ifTrue:[

	    self withExecuteCursorDo:[

		line1 to:line2-1 do:[:lineNr |

		    |line|

		    line := self listAt:lineNr.

		    line notNil ifTrue:[

			line notEmpty ifTrue:[

			    (line startsWith:'' '') ifTrue:[

				line := line copyFrom:2.

				self withoutRedrawAt:lineNr put:line.

			    ]

			]

		    ]

		].

		self textChanged.

		line1 to:line2-1 do:[:lineNr |

		    self invalidateLine:lineNr.

		].

	    ].

	]

'.

"/

"/ macro to convert selection to lowercase

"/

macros at:#ConvertSelectionToLowercase put:'

	"to-lower selected text"

	|line1 line2|

	line1 := self selectionStartLine.

	line2 := self selectionEndLine.

	line1 isNil ifTrue:[

	    line1 := self perform:#cursorLine ifNotUnderstood:nil.

	    line1 notNil ifTrue:[

		line2 := line1

	    ]

	].

	line1 notNil ifTrue:[

	    line1 to:line2 do:[:lineNr |

		|line col1 col2|

		line := (self listAt:lineNr) copy.

		line size > 0 ifTrue:[

		    lineNr == line1 ifTrue:[

			col1 := selectionStartCol.

		    ] ifFalse:[

			col1 := 1.

		    ].

		    lineNr == line2 ifTrue:[

			col2 := selectionEndCol.

		    ] ifFalse:[

			col2 := (self listAt:lineNr) size.

		    ].

		    col1 to:col2 do:[:col |

			|ch|

			ch := line at:col.

			line at:col put:ch asLowercase.

		    ].

		    self withoutRedrawAt:lineNr put:line.

		    self invalidateLine:lineNr.

		].

	    ].

	]

'.

"/

"/ macro to convert selection to uppercaseFirst words

"/

macros at:#ConvertSelectionToUppercaseFirst put:'

	"to-upperFirst selected text"

	|line1 line2|

	line1 := self selectionStartLine.

	line2 := self selectionEndLine.

	line1 isNil ifTrue:[

	    line1 := self perform:#cursorLine ifNotUnderstood:nil.

	    line1 notNil ifTrue:[

		line2 := line1

	    ]

	].

	line1 notNil ifTrue:[

	    line1 to:line2 do:[:lineNr |

		|line col1 col2 state|

		line := (self listAt:lineNr) copy.

		line size > 0 ifTrue:[

		    lineNr == line1 ifTrue:[

			col1 := selectionStartCol.

		    ] ifFalse:[

			col1 := 1.

		    ].

		    lineNr == line2 ifTrue:[

			col2 := selectionEndCol.

		    ] ifFalse:[

			col2 := (self listAt:lineNr) size.

		    ].

		    state := #first.

		    col1 to:col2 do:[:col |

			|ch|

			ch := line at:col.

			ch isSeparator ifFalse:[

			    state == #first ifTrue:[

				line at:col put:ch asUppercase.

				state := #skipRest

			    ]

			] ifTrue:[

			    state := #first

			]

		    ].

		    self withoutRedrawAt:lineNr put:line.

		    self invalidateLine:lineNr.

		].

	    ].

	]

'.

macros at:#ConvertSelectionToUppercase put:'

	"to-upper selected text"

	|line1 line2|

	line1 := self selectionStartLine.

	line2 := self selectionEndLine.

	line1 isNil ifTrue:[

	    line1 := self perform:#cursorLine ifNotUnderstood:nil.

	    line1 notNil ifTrue:[

		line2 := line1

	    ]

	].

	line1 notNil ifTrue:[

	    line1 to:line2 do:[:lineNr |

		|line col1 col2|

		line := (self listAt:lineNr) copy.

		line size > 0 ifTrue:[

		    lineNr == line1 ifTrue:[

			col1 := selectionStartCol.

		    ] ifFalse:[

			col1 := 1.

		    ].

		    lineNr == line2 ifTrue:[

			col2 := selectionEndCol.

		    ] ifFalse:[

			col2 := (self listAt:lineNr) size.

		    ].

		    col1 to:col2 do:[:col |

			|ch|

			ch := line at:col.

			line at:col put:ch asUppercase.

		    ].

		    self withoutRedrawAt:lineNr put:line.

		    self invalidateLine:lineNr.

		].

	    ].

	]

'.

macros at:#ConvertSelectionToLowercaseOrUppercaseOrUppercaseFirst put:'

	"toLower/toUppercaseFirst/toUpper selected text"

	|line1 line2|

	line1 := self selectionStartLine.

	line2 := self selectionEndLine.

	line1 isNil ifTrue:[

	    line1 := self perform:#cursorLine ifNotUnderstood:nil.

	    line1 notNil ifTrue:[

		line2 := line1

	    ]

	].

	line1 notNil ifTrue:[

	    line1 to:line2 do:[:lineNr |

		|line col1 col2 isAllLower isLowerFirst isAllUpper isUpperFirst

		 makeLowercase makeUppercase makeUppercaseFirst makeLowercaseFirst|

		line := (self listAt:lineNr) copy.

		line size > 0 ifTrue:[

		    lineNr == line1 ifTrue:[

			col1 := selectionStartCol.

		    ] ifFalse:[

			col1 := 1.

		    ].

		    lineNr == line2 ifTrue:[

			col2 := selectionEndCol.

		    ] ifFalse:[

			col2 := (self listAt:lineNr) size.

		    ].

		    isAllLower := isAllUpper := isUpperFirst := isLowerFirst := true.

		    col1 to:col2 do:[:col |

			|ch|

			ch := line at:col.

			ch isUppercase ifTrue:[

			    isAllLower := false.

			    col == col1 ifTrue:[

				isLowerFirst := false.

			    ].

			] ifFalse:[

			    ch isLowercase ifTrue:[

				isAllUpper := false.

				col == col1 ifTrue:[

				    isUpperFirst := false.

				].

			    ]

			].

		    ].

		    makeLowercase := makeUppercase := makeUppercaseFirst := makeLowercaseFirst := false.

		    isLowerFirst ifTrue:[

			makeUppercaseFirst := true.

		    ] ifFalse:[

			"/ must remember where we come from - otherwise, we end up

			"/ in upperFirst - lowerFirst cycle.

			"/ think about a good place to store this state

			false "(isUpperFirst and:[isAllUpper not])" ifTrue:[

			    makeLowercaseFirst := true.

			 ] ifFalse:[

			    isAllUpper ifTrue:[

				makeLowercase := true.

			    ] ifFalse:[

				makeUppercase := true.

			    ]

			]

		    ].

		    makeUppercaseFirst ifTrue:[

			line at:col1 put:(line at:col1) asUppercase.

		    ] ifFalse:[

			makeLowercaseFirst ifTrue:[

			    line at:col1 put:(line at:col1) asLowercase.

			] ifFalse:[

			    col1 to:col2 do:[:col |

				|ch|

				ch := line at:col.

				ch := makeLowercase

					ifTrue:[ ch asLowercase ]

					ifFalse:[

					    makeUppercase

						ifTrue:[ ch asUppercase ]

						ifFalse:[

						    col == col1

							ifTrue:[ ch asUppercase ]

							ifFalse:[ ch asLowercase ]

						]

					].

				line at:col put:ch.

			    ].

			].

		    ].

		    self withoutRedrawAt:lineNr put:line.

		    self invalidateLine:lineNr.

		].

	    ].

	]

'.

macros at:#ParenthizeSelection put:'

	"place parenthesis around the selected text"

	|line1 col1 line2 col2|

	line1 := self selectionStartLine.

	col1 := self selectionStartCol.

	line2 := self selectionEndLine.

	col2 := self selectionEndCol.

	(line1 notNil

	    and:[ col1 notNil

	    and:[ line2 notNil

	    and:[ col2 notNil ]]])

	ifTrue:[

	    self insertString:'')'' atLine:line2 col:col2+1.

	    self insertString:''('' atLine:line1 col:col1.

	    self selectFromLine:line1 col:col1 toLine:line2 col:col2+2.

	] ifFalse:[

	    self beep.

	]

'.

macros at:#UnparenthizeSelection put:'

	"remove parenthesis in the selected text"

	|line1 col1 line2 col2|

	line1 := self selectionStartLine.

	col1 := self selectionStartCol.

	line2 := self selectionEndLine.

	col2 := self selectionEndCol.

	(line1 notNil

	    and:[ col1 notNil

	    and:[ line2 notNil