Amiga Elysian Archive

home *** CD-ROM | disk | FTP | other *** search

/ Amiga Elysian Archive / AmigaElysianArchive.iso / wp_dtp / xdme1820.lha / XDME / Macros / BN / xdme.edrc < prev next >

Wrap

Text File | 1993-01-27 | 14KB | 350 lines

## ## XDME.edrc for XDME V1.60.04 ## "\$VER: xdme.edrc 1.0 (04.12.92)" ## (C)1992 by Bernd Noll ## ######################################################################## ## ## Bei diesem File handelt es sich lediglich um eine ## macro-sammlung, die es erlauben soll, ## mein .EDRC - file für den DME 1.51 auf dem XDME zu verwenden ## ######################################################################## ## settoggle 1 resettoggle 0 #if $DEBUG_XDME (debug 1) ## ## ######################################################################## ## ## "Constant" declarations ## ## Be careful there are some more special variables - look below ## ## ## take these vars as constants so you can play with return/c-tab more easily ## set tabs 4 set number 0123456789 set upper ABCDEFGHIJKLMNOPQRSTUVWXYZ set lower abcdefghijklmnopqrstuvwxyz set alphanum _$number$upper$lower set _hasedrc 255 rem (tabu) set _mouseblock 254 set _caser 253 set _block2 252 rem (blockbegin is set) set _movemark 251 rem (or 9 see below) ## ## ## perhaps tell caller-process that s:.edrc was sourced ## --- not neccessary , if u do not use -no[sedrc] ## settoggle $_hasedrc ## ## ## preferences ## set margin 80 set tabstop $tabs pageset 30 savetabs on ## ## ######################################################################## ######################################################################## ## ## own macro-definitions: ## macroload ed:XDME.macros ## ######################################################################## ## ## Keymapping ## keyload ed:XDME.keys ## ######################################################################## ######################################################################## ## ## word completition, is called on every [LMR]-tab in escimm-mode ## used Variables: ## _M_QUEST - Searchstring ## _M_COUNT - Number of last string in List ## _M_RES - Matching String ## used Macros: ## startmatching newsearch - define New Searchstring and do first searching ## endmatching - reset all used Variables ## matchnext - do the next searching ## set tabfile env:dme.commands endmatching ## the first endmatching initializes all Variables ## ######################################################################## ## ## That vars are used for my RETURN - Mappings ## ## ## there are several variables used: ## _crl _crc blockbeginner blockender ## ## these vars are used on every -return and so they should also not be used set _crl 0 set _crc 0 ## # setmacro fcr 0 (split down firstnb) ## ## ## Then the better(?) and bigger ones ## ## ## language dependent : fill this variable with the keywords that request an ## indent in the next line; only the first word of a line is checked ## Normal Typing set blockbeginner \$blockbeginner rem (with that silly trick we might come around that ugly new macroexpansion - simply undefine the variable during call) set blockender \$blockender ## Modula-2 Style # set blockbeginner (IF ELSE ELSIF REPEAT LOOP WHILE WITH CASE FOR) # set blockender (END ELSE ELSIF UNTIL) ## C Sytle # set blockbeginner (if else while for switch case FOREVER) # set blockender (else case) ## ## with getcolno/getlineno You need not worry about the recursiondepth and number of escapes before a variable ## ######################################################################## ## ## Blocks ## ## these vars are NO constants, they are used by mousemarker-macros ## are therefor should not be used otherwise, as their values may change anytime # set _markl 0 set _markc 0 ## i've put these two variable together to shorten search time set _markj null ## settoggle $_mouseblock resettoggle $_movemark ## ######################################################################## ## ## These Goodies are for 1-hand typing, ## if the other is at your girlfriend, the mouse or ... ## ## if You do not like space and enter, simply redefine ## QAdd and QBrk in the following lines and source again ## (as it is not possible to store variable keys) ## # set QAdd (f1) # set QBrk (enter) # set QBreak ( [abort with <\$QBrk>]) ## ## but * U cannot Use all Qualifiers ## * work with 10 Toggles ## * do not see what qualifier is pressed ## ( is there a suggestion for A) ## set QPre (`) set QQualList (q ( ) s a c x y l m r) set QTitle2 (Q-Quit Space-Continue sacxyzlmr - Qualifiers) ## ## setmacro qquit 0 (filter q () () () set 240 0 set 241 0 set 242 0 set 243 0 set 244 0 set 245 0 set 246 0 set 247 0 set 248 0) setmacro qcont 0 (qcheck 240 s qcheck 241 a qcheck 242 c qcheck 243 x qcheck 244 y qcheck 245 z qcheck 246 R qcheck 247 M qcheck 248 L qquit ) setmacro qcheck 2 (if \$arg1 (qualifier +\$arg2 )) # setmacro qset 1 (ifelse \$arg1<240 (ifelse \$arg1=239 (qcont) (ifelse \$arg1=238 (qquit) (titlevar QTitle2))) (toggle \$arg1 titlevar QTitle2)) setmacro qset 1 (ifelse \$arg1<240 (ifelse \$arg1=239 (qcont) (ifelse \$arg1=238 (qquit) (titlevar QTitle2))) (toggle \$arg1 titlevar QTitle2)) map (a-$QPre) (titlevar QTitle2 filter (am) (q ( ) s a c x y z l m r ) (QNum) (add QNum 238 titlevar QNum qset \$QNum) #(ifelse \$QNum<2 (ifelse \$QNum=0 qquit qcont) (add QNum 238 eval (toggle \$QNum) title (\$QTitle2)))) ## ## ######################################################################## ## ## Menu-Bar ## menuload ED:XDME.menu ## # menuoff ## ## auisg-menus: Project & Edit ## # menuadd Project (New) (newwindow) # menuadd Project (Open...) (newwindow arpload) # menuadd Project (Visit...) (arpvisitfile) # menuadd Project (-------) (null) # menuadd Project (Save) (saveold) # menuadd Project (Save As...) (arpsave) # menuadd Project (------- ) (null) # menuadd Project (Iconify) (iconify) # menuadd Project (Close) (quit) # menuadd Project (------- ) (null) # menuadd Project (About...) (NULL) # menuadd Project (------- ) (null) # menuadd Project (Quit DME) (repeat \$textnum closewindow) ## # menuadd Edit (Cut) (cut) # menuadd Edit (Copy) (copy) # menuadd Edit (Paste) (paste) # menuadd Edit (-----) (null) # menuadd Edit (Erase) (bdelete) # menuadd Edit (----- ) (null) ## ## ## ## additional menus ## # menuadd Search (<<< Find >>>) (null) # menuadd Search (Set FindStr ) (right wleft scanf %[\$alphanum] findstr \$scanf) # menuadd Search (Find c-f) (c-f) # menuadd Search (Find Next c-n) (next) # menuadd Search (Find Prev. c-p) (prev) # menuadd Search (Corresponding) (findmatch) # menuadd Search ( ) () # menuadd Search (Push to Stack) (pushvar findstr title pushed) # menuadd Search (Pop from Stack) (popvar findstr title popped) # menuadd Search (Swap with Stack) (swapvar findstr title swapped) # menuadd Search (Clear Stack) (purgevar findstr title cleared) ## # menuadd Search (------------ ) (null) # menuadd Search (<< Replace >>) (null) # menuadd Search (Set RepStr ) (right wleft scanf %[\$alphanum] repstr \$scanf) # menuadd Search (Replace c-r) (c-r) # menuadd Search (Repl.Next sc-n) (nextr) # menuadd Search (Repl.Prev sc-p) (prevr) # menuadd Search ( ) () # menuadd Search (Push to Stack ) (pushvar repstring title pushed) # menuadd Search (Pop from Stack ) (popvar repstring title popped) # menuadd Search (Swap with Stack ) (swapvar repstring title swapped) # menuadd Search (Clear Stack ) (purgevar repstring title cleared) # menuadd Search (------------ ) (null) # menuadd Search (Ignore case c-i) (c-i) # menuadd Search (------------) (null) ## # menuadd Block (Mark c-b) (c-b) # menuadd Block (Unmark c-u) (c-u) # menuadd Block (-----------) (null) # menuadd Block (Move c-m) (c-m) # menuadd Block (Erase c-e) (c-e) # menuadd Block (Duplicate c-d) (c-d) # menuadd Block (Indent tab) (tab) # menuadd Block (Backdent s-tab) (s-tab) # menuadd Block ( ) (null) # menuadd Block (Push To Stack) (pushmark title pushed) # menuadd Block (Pop From Stack) (popmark title popped) # menuadd Block (Swap With Stack) (swapmark title swapped) # menuadd Block (Clear Stack) (purgemark title cleared) # menuadd Block (----------- ) (null) # menuadd Block (Execute sc-b) (bsource) # menuadd Block (Load c-l) (arpinsfile) # menuadd Block (Write c-w) (c-w) # menuadd Block (Sort sc-s) (sc-s) ## # menuadd Line (Split c-s) (c-s) # menuadd Line (Join c-j) (c-j) # menuadd Line (Del c-y) (c-y) # menuadd Line (Undel sc-y) (sc-y) # menuadd Line (Ins c-x) (c-x) # menuadd Line (Undo sc-u) (sc-u) # menuadd Line (Exec sc-hp) (sc-help) # menuadd Line (Dos Ac-hp) (Ac-help) # menuadd Line (Rexx ac-hp) (ac-help) ## # menuadd Move (First Position) (first) # menuadd Move (First Char) (firstnb) # menuadd Move (Last Char) (last) # menuadd Move (--------------) (null) # menuadd Move (Goto Line c-g) (escimm (goto )) # menuadd Move (Top Line c-cu) (top) # menuadd Move (Last Line c-cd) (bottom) # menuadd Move (-------------- ) (null) # menuadd Move (Set mark 1 sc-nk1) (ping 1) # menuadd Move (Set mark 2 sc-nk2) (ping 2) # menuadd Move (Set mark 3 sc-nk3) (ping 3) # menuadd Move (Goto mark 1 c-nk1) (pong 1) # menuadd Move (Goto mark 2 c-nk2) (pong 2) # menuadd Move (Goto mark 3 c-nk3) (pong 3) # menuadd Move ( ) (null) # menuadd Move (Push To Stack) (pushdot title pushed) # menuadd Move (Pop From Stack) (popdot title popped) # menuadd Move (Swap With Stack) (swapdot title swapped) # menuadd Move (Clear Stack) (purgedot title cleared) # menuadd Move (-------------- ) (null) # menuadd Move (Previous-Char) (ifelse l (ifelse t (( ) left) (up last)) left) # menuadd Move (Next-Char) (ifelse r (ifelse b right (down first)) right) # menuadd Move (AnyChar Mode c-a) (c-a) ## # menuadd Misc (Scanf) (set scanf \$currentword title \$scanf) # menuadd Misc (ScanRes) ((\$scanf)) # menuadd Misc (Reference c-help) (c-help) # menuadd Misc (Show ASCII) (title \$ascii) # menuadd Misc (--------------) (null) # menuadd Misc (Cli command c-\\) (c-\\) # menuadd Misc (Show-Text) (escimm (execute `UTIS:MuchMore :)) # menuadd Misc (Manual) (escimm (execute `run execute script:man ) # menuadd Misc (-------------- ) (null) # menuadd Misc (Word_To_Upper) (upper_word ) # menuadd Misc (Word_To_Lower) (lower_word ) # menuadd Misc (--PREFS-------) (null) # menuadd Misc (Overwrite Mode c-o) (c-o) # menuadd Misc (Use mouse to block) (toggle \$_mouseblock ifelse \$_mouseblock (title (MOUSEBLOCK ON)) (title (MOUSEBLOCK OFF))) # menuadd Misc (View Mode ) (viewmode toggle) # menuadd Misc (--PREFS------- ) (null) # menuadd Misc (Wordwrap sc-w) (sc-w) # menuadd Misc (Reformat sc-r) (sc-r) # menuadd Misc (Margin sc-m) (sc-m) ## # menuadd User (Add Text) (right wleft scanf %s menuoff menuadd User (\$scanf) ((\$scanf)) () menuon execute (echo >> dme.rsc "menuadd User (\$scanf) ((\$scanf))")) # menuadd User (Add Comm) (right wleft escimm (set name `) escimm (set function `) menuoff menuadd User (\$name) (\$function) menuon execute (echo >> dme.rsc "menuadd User (\$name) (\$function)")) # menuadd User (Del Item) (escimm (menudel User `)) # menuadd User («««« USER: »»»») () ## # menuon ## ## ######################################################################## ## ## Debugging purposes ## menuoff menuadd User tg_debug (debug toggle) menuadd User end_filter (filter q (( )) () () null) menuadd User end_rexxview (rx ("closerexxview")) menuon ## ######################################################################## ## ## This allows U to use a small additional Project-rc ## it works together with the entries in the User-Menu ## menuoff force rf (source dme.rsc) menuon ## ## ######################################################################## ## ## if there is no text: display the filereq ## resettoggle 10 if t (if b (if r (rx ("if '\$fname'='unnamed' then 'toggle 10'")))) if 10 (arpload resettoggle 10) ## ######################################################################## ## # any editor addenda are here in my system addpath ed: # control support map c-\\ (escimm (execute `)) #map L-lmb (tomouse if $_mouseblock ( set _markj (col \$colno goto \$lineno) resettoggle $_movemark )) map L-lmb ( tomouse resettoggle $_movemark )) map L-mmove ( ifelse !$_mouseblock ( tomouse ) ( ifelse $_movemark ( unblock force s ( pushdot \$_markj block popdot ) tomouse block ) ( toggle $_movemark set _markj (col \$colno goto \$lineno)))) fgpen 1 hgpen 2 bbpen 0