"*

 * $Header$

 *

 * MIMEType: application/x-smalltalk-source

 *

 * ST/X startup configuration file:

 *

 * sample keyboard.rc - file

 *

 * this file defines some keyboard macros and adds mappings for

 * common function keys. These definitions used to be in 'private.rc',

 * but have been extracted into this separate file to allow easier

 * sharing of rc files (users having different private files, but want

 * to use the same keyboard mappings / keyboard macros)

 *

 * a copy of this file can reside in $home/.smalltalk/keyboard.rc or

 * in the current directory.

 *

 * these are my personal preferrences which may not be

 * correct for your environment.

 *

 *   please keep the expressions below free from manipulating

 *   global state - all that should be done here is to set up the current

 *   screens keyboard map.

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

 *   new display screen.

 *"

|macros|

"/

"/ define some keyboard macros as virtual function-keys:

"/  ReplaceSelectionByUnixCommandsOutput: paste the output of a selected unix command ..

"/  ToggleTabs:                           toggle between 4 and 8 col tab setting

"/  IndentBy4:                            indents selection-line by 4

"/  UndentBy4:                            undents selection-line by 4

"/  IndentBy1:                            indents selection-line by 1

"/  UndentBy1:                            undents selection-line by 1

"/  ConvertSelectionToLowercase: to-lowercase

"/  ConvertSelectionToUppercase: to-uppercase

"/

"/ these virtual keys are mapped below to some real keys:

"/  F9:  undent by 4

"/  F10: indent by 4

"/  F11: undent by 1

"/  F12: indent by 1

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:'

	 and 8-col tabs"

	(tabPositions == self class tab4Positions)

	     ifTrue:[self setTab8]

	     ifFalse:[self setTab4]'.

"/

"/ macro to indent by 4

"/

macros at:#IndentBy4 put:'

	 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

	    ]

	].

	    self withExecuteCursorDo:[

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

		    |line|

		    line := self listAt:lineNr.

		    line notNil ifTrue:[

			line notEmpty ifTrue:[

			    line := ''    '' , line.

			    self list at:lineNr put:line.

			    "/ self withoutRedrawAt:lineNr put:line.

			    "/ self invalidateLine:lineNr.

			]

		    ]

		].

		self textChanged.

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

		    self invalidateLine:lineNr.

		].

	    ].

	]

	'.

"/

"/ macro to undent by 4

"/

macros at:#UndentBy4 put:'

	 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

	    ]

	].

	    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 list at:lineNr put:line.

				"/ self withoutRedrawAt:lineNr put:line.

				"/ self invalidateLine:lineNr.

			    ]

			]

		    ]

		].

		self textChanged.

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

		    self invalidateLine:lineNr.

		].

	    ].

	]

	'.

"/

"/ macro to indent by 1

"/

macros at:#IndentBy1 put:'

	 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 to:line2-1 do:[:lineNr |

		|line|

		line := self listAt:lineNr.

		line notNil ifTrue:[

		    line notEmpty ifTrue:[

			line := '' '' , line.

			self withoutRedrawAt:lineNr put:line.

			self invalidateLine:lineNr.

		    ]

		]

	    ].

	]

	'.

"/

"/ macro to undent by 1

"/

macros at:#UndentBy1 put:'

	 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 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 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 to:line2 do:[:lineNr |

		|line col1 col2|

		line := self listAt:lineNr.

		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-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 to:line2 do:[:lineNr |

		|line col1 col2 state|

		line := self listAt:lineNr.

		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-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 to:line2 do:[:lineNr |

		|line col1 col2|

		line := self listAt:lineNr.

		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.

		].

	    ].

	]

	'.

!

"*

 * key bindings common to all display types

 * use event monitor, to see what the Xserver sends us;

 * put display-specific stuff into a d_hostName.rc file.

 *"

|map screen|

screen := Screen current.

map := screen keyboardMap.

(screen serverVendor startsWith:'DECWINDOWS') ifTrue:[

    "/ DEC has messed up the ESC key completely.

    "/ map ALT-` onto ESC for our convenience.

    "/

    "/ also, the right compose key (comes in as 'AltMulti_key' or

    "/ 'CtrlMulti_key' depending on the keyboard) is mapped

    "/ to 'Compose'.

    map bindValue:#Escape  to:#'Cmd`'.

    map bindValue:#Compose to:#'AltMulti_key'.    "/ the right compose key

    map bindValue:#Return  to:#'KP_Enter'.        "/ the keypads return key

map bindValue:#UserInterrupt  to:#Ctrlc.    "interrupt window process"

map bindValue:#UserAbort      to:#Ctrly.    "abort window process, but no debugger"

map bindValue:#FlushInput     to:#CtrlX.    "flush typeahead input"

map bindValue:#DestroyView    to:#CmdCtrlX. "to destroy dead views"

map bindValue:#DestroyTopView to:#CmdCtrlx. "to destroy dead views"

map bindValue:#DoIt       to:#Cmdd.         "i.e. Cmd-d / Alt-d (sometimes Meta-d)"

map bindValue:#InspectIt  to:#Cmdi.         "evaluate & inspect result"

map bindValue:#PrintIt    to:#Cmdp.         "evaluate and paste result"

map bindValue:#BrowseIt   to:#CmdB.

map bindValue:#ImplementorsOfIt   to:#CmdI.

map bindValue:#Copy       to:#Cmdc.         "copy selection to buffer"

map bindValue:#Cut        to:#Cmdx.         "cut selection into buffer"

map bindValue:#Paste      to:#Cmdv.         "paste buffer or external selection"

"/map bindValue:#Cut        to:#CtrlDelete.   "paste buffer or external selection"

"/map bindValue:#Paste      to:#CtrlInsert.   "paste buffer or external selection"

map bindValue:#Replace    to:#Cmdr.         "same as paste"

map bindValue:#Find       to:#Cmds.         "open searchbox"

map bindValue:#FindNext   to:#Cmdf.         "search fwd for last searchpattern or selection"

map bindValue:#FindPrev   to:#Cmdb.         "search bwd for last searchpattern or selection"

map bindValue:#SelectAll  to:#CmdA.         "that is Alt-shift-a"

map bindValue:#GotoLine   to:#Cmdg.

map bindValue:#SelectWord to:#Cmdw.         "select word under cursor"

map bindValue:#Accept     to:#Cmda.

map bindValue:#Explain    to:#Cmde.

map bindValue:#Explain    to:#Cmdh.

map bindValue:#Format     to:#CmdF.         "that is Alt-shift-F"

"/ map bindValue:#Format     to:#CtrlF.        "that is Ctrl-shift-F"

map bindValue:#DeleteLine to:#Ctrlx.

map bindValue:#NextPage     to:#Next.    "typically labelled PageDown on keyboard"

map bindValue:#PreviousPage to:#Prior.   "typically labelled PageUp on keyboard"

map bindValue:#PreviousPage to:#Ctrlb.   "vi behavior"

map bindValue:#NextPage     to:#Ctrlf.   "vi behavior"

map bindValue:#HalfPageUp   to:#Ctrlu.

map bindValue:#HalfPageDown to:#Ctrld.

"/ old setting:

"/ map bindValue:#BeginOfText  to:#Home.    "some prefer to bind #BeginOfLine to #Home"

"/ map bindValue:#EndOfText    to:#End.     "some prefer to bind #EndOfLine to #End"

"/

"/ new setting:

map bindValue:#BeginOfLine  to:#Ctrla.

map bindValue:#EndOfLine    to:#Ctrle.

map bindValue:#NextWord     to:#Ctrlw.

map bindValue:#SearchMatchingParent  to:#Ctrlm.

map bindValue:#SelectMatchingParents to:#Cmdm.

map bindValue:#SelectToEnd           to:#CtrlE.   "that is ctrl-shift-e"

map bindValue:#SelectFromBeginning   to:#CtrlA.   "that is ctrl-shift-a"

map bindValue:#ExpandSelectionByLine to:#Ctrll.   "try multiple Ctrl-l's ..."

"Notice:

  Cmd-CursorLeft/Right and Alt-CursorLeft/Right

  are also used by some winmdowmanagers (fvwm)

  if this is the case on your system, either

  change the following to use different keys,

  or change the windowmanagers configuration file