"*

 * $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.

 *

 * WARNING: 

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

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

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

	"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:[    

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

	"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:[    

	    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 notNil ifTrue:[    

	    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 notNil ifTrue:[    

	    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 notNil ifTrue:[    

	    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:#'Hardcopy'  to:#'Super_R'.  

map bindValue:#'Alt'  to:#'Super_L'.  

map bindValue:#'Alt'  to:#'Hyper_R'.  

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:#Home.    

map bindValue:#EndOfLine    to:#End.     

map bindValue:#BeginOfText  to:#CtrlHome.    

map bindValue:#EndOfText    to:#CtrlEnd.     

map bindValue:#BeginOfLine  to:#Ctrla.

map bindValue:#EndOfLine    to:#Ctrle.

map bindValue:#NextWord     to:#Ctrlw.

map bindValue:#NextWord     to:#CtrlCursorRight.  

map bindValue:#PreviousWord to:#CtrlCursorLeft.  

map bindValue:#ScrollUp     to:#CtrlCursorUp.    

map bindValue:#ScrollDown   to:#CtrlCursorDown.    

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

  (usr/lib/X11/xxxwm/*rc).

  The above is the reason that the following defines Ctrl-xxx

  as an alternative (mwm in the INDY also uses the alt-sequences)

"