# .aedrc fr AmokEd V1.28 - 03 May 1992

# tabs and margin settings

set tabs 2
margin            70
tabstop        $tabs
pageset           90

set BlockLeft  (goto block while cb (tabunindent down first)) # Bl. 1 ausrcken
set BlockRight (goto block while cb (tabindent down first))   # Bl. 1 einrcken

### Menu definieren

menuoff
menuadd Project (    Clear) (noscrupdate unblock top block bottom block bdelete chfilename unnamed)
menuaddsep Project
menuadd Project (A-O Insert file...) sA-o
menuadd Project (A-o Load...) A-o
menuadd Project (A-N Load new...) As-n
menuadd Project (    Retrive) (newfile \$filename)
menuadd Project (A-n New Window) A-n
menuadd Project (A-w Save) A-w
menuadd Project (A-W Save as...) As-w
menuadd Project (    Save block...) (arpbsave)
menuaddsep Project
menuadd Project (    Print) (saveas prt:)
menuadd Project (    Print block) (bsave prt:)
menuaddsep Project
menuadd Project (A-q Quit) A-q
menuadd Project (A-Q Save & Quit) As-q
menuaddsep Project
menuadd Project (A-BS *Iconify*) A-BS
menuaddsep Project
menuadd Project (    About) version

map sA-o arpinsfile
map  A-o arpload
map  A-n newwindow
map  sA-n (newwindow arpload)
map  A-w saveold
map sA-w arpsave
map  A-q quit
map sA-q (if m saveold quit)
map  A-BS (map R-rmb (~iconify unmap R-rmb~) iconify)

menuadd Edit (A-S Find...) sA-s
menuadd Edit (A-s Next) A-s
menuadd Edit (A-a Prev) A-a
menuaddsep Edit
menuadd Edit (A-R Multireplace...) sA-r
menuadd Edit (A-r Next-Replace) A-r
menuadd Edit (A-A Prev-Replace) A-A

map sA-s (escimm (find ))
map  A-s next
map  A-a prev
map sA-r (escimm (multireplace ))
map  A-r nextr
map sA-a prevr

menuaddsep Edit
menuadd Edit ( c-del Del Line) c-del
menuadd Edit (ac-del Undel Line) ac-del
menuadd Edit ( s-del Del Word) s-del
menuadd Edit (as-del Undel Word) as-del
menuadd Edit ( a-del Rem EOL) a-del
menuadd Edit ( a-bs  Rem BOL) a-bs

set delword (while \$cond (ifelse !r del abort)
map    bs (ifelse !l bs (if !t up last join right))
map    del (ifelse !r del (if !b (down up join))
map  c-del deline
map ac-del undeline
map  s-del (if !r (scanf %s ifelse !ca (ifelse c=32 (set cond c=32) (set cond (!ca ifelse c=32 abort))) (set cond ca) \$delword))
map as-del (`\$scanf')
map  a-del remeol
map  a-bs  rembol

menuadd Block (A-b Begin) A-b
menuadd Block (A-B End) sA-b
menuadd Block (A-c Copy Block) A-c
menuadd Block (A-m Move Block) A-m
menuadd Block (A-x Delete Block) A-x

map  A-b (unblock block)
map sA-b block
map  A-c bcopy
map  A-m bmove
map  A-x bdelete

menuaddsep Block
menuadd Block (c-u Unmark) c-u
menuadd Block (A-I Pushmark) pushmark
menuadd Block (A-i Popmark) popmark

#c-u ist Default-Belegung
map  A-i popmark
map sA-i pushmark

menuaddsep Block
menuadd Block (a-left  TAB left) $BlockLeft
menuadd Block (a-right TAB right) $BlockRight

map a-left  $BlockLeft
map a-right $BlockRight

menuadd Special (c-help Undo) undo
menuaddsep Special
menuadd Special (A-d Date) A-d
menuadd Special (A-d Time) A-t
menuadd Special (A-- Enter ASCII) A--

map c-help undo
map A-d (rx "'('||date()')')
map A-t (rx "'('||time()')')
map A-- (escimm (tlate ))

menuaddsep Special
menuadd Special ( A-u Uppercase Word) A-u
menuadd Special ( A-U Lowercase Word) sA-u
menuadd Special ( A-g Change case Char) A-g
menuadd Special ( A-G Change case Word) sA-g
menuadd Special (cA-u Uppercase Block) cA-u
menuadd Special (cA-U Lowercase Block) csA-u
menuadd Special (c-nk5 Swapcharakters) c-nk5
menuaddsep Special
menuadd Special (help  Reformat) reformat

map   A-u (while cl (tlate -32 right))
map  sA-u (while cu (tlate +32 right))
map   A-g (ifelse cu (tlate +32) (tlate -32))
map  sA-g (while ca (IF !cn A-g right))
map  cA-u (goto block while cb (first while !r (if cl (tlate -32) rigth) down)) # Uppercase Block
map csA-U (goto block while cb (first while !r (if cu (tlate +32) rigth) down)) # Lowercase Block
map   c-nk5 swapchar
map -help reformat

menuaddt Settings (s-nk0 Toggle InsertMode) s-nk0
menuaddt Settings (a-[   Toggle NumLock) a-[
menuaddt Settings (a-]   Toggle Worpwrap) a-]
menuaddt Settings (      Toggle Case sensity) (toggle ignorecase)
menuaddt Settings (      Toggle SaveTabs) (toggle savetabs)
menuaddsep Settings
menuadd  Settings (      Save Config) saveconfig
menuadd  Settings (      Save Config As...) saveconfigas

map s-nk0 (checktoggle (Settings-s-nk0 Toggle InsertMode) toggle insertmode)
map a-] (checktoggle (Settings-a-]   Toggle Worpwrap) toggle wordwrap)
map a-[ (checktoggle (Settings-a-[   Toggle NumLock) toggle NumLock)

menuadd Move (A-j Jump to Line) A-j
menuadd Move (A-J Jump to Block) A-J
menuaddsep Move
menuadd Move (A-! Mark Location 1) sA-1
menuadd Move (A-" Mark Location 2) sA-2
menuadd Move (A- Mark Location 3) sA-3
menuadd Move (A-1 Jump mark 1) A-1
menuadd Move (A-2 Jump mark 2) A-2
menuadd Move (A-3 Jump mark 3) A-3

map  A-j (escimm (goto ))
map sA-j (goto block)

map A-1 (pong 1)
map As-1 (ping 1)
map A-2 (pong 2)
map As-2 (ping 2)
map A-3 (pong 3)
map As-3 (ping 3)

menuaddsep Move
menuadd Move (Alt Cursor Key) null
menuadd Move (  move Block left) $BlockLeft
menuadd Move (  move Block right) $BlockRight
menuadd Move (Shift Cursor Key) null
menuadd Move (  Pageup) Pageup
menuadd Move (  Pagedown) Pagedown
menuadd Move (  Word left) wleft
menuadd Move (  Word rigth) wright
menuadd Move (Ctl Cursor Key) null
menuadd Move (  Top) top
menuadd Move (  Bottom) bottom
menuadd Move (  Beg Line) first
menuadd Move (  End Line) last
menuon

map s-up top
map s-down bottom
map s-left first
map s-right last

map c-up pageup
map c-down pagedown
map c-right wright
map c-left wleft

## Menu Ende

map  -left (ifelse l (up last) left)
map  -right right

map return (split first down indent)
map s-return (down firstnb)
map enter -return
map s-enter s-return
map -tab tab
map s-tab backtab

map a-. (())

unmap R-rmb

resettoggle wordwrap
resettoggle savetabs
resettoggle numlock
settoggle insertmode checkset (Settings-s-nk0 Toggle InsertMode)

#map  a-esc     (())             #CSI
#map  a-f1      (a-esc (30m))     #grey
#map  a-f2      (a-esc (31m))     #black
#map  a-f3      (a-esc (32m))     #white
#map  a-f4      (a-esc (33m))     #blue
#map  a-f5      (a-esc (41;30m))  #reverse
#map  a-f6      (a-esc (0m))      #normal
#map  a-f7      (a-esc (0;0;H) a-esc (J))       #cls
#map a-f8       (find () while c<>109 del del) #del CSI

map a-nk7 (`7')
map a-nk8 (`8')
map a-nk9 (`9')
map a-nk4 (`4')
map a-nk5 (`5')
map a-nk6 (`6')
map a-nk1 (`1')
map a-nk2 (`2')
map a-nk3 (`3')
map a-nk0 (`0')
map a-nk. (`.')

map  -nk8 up
map  -nk2 down
map  -nk4 left
map  -nk6 right
map  -nk9 pageup
map  -nk3 pagedown
map  -nk5 null
map  -nk7 (screentop first)
map  -nk1 (screenbottom first)
map s-nk7 (top first)
map s-nk1 (bottom first)
map  -nk0 (insert ( ))
map  -nk. -del

if b (if t (if r arpload))

