; EMACS.RC: Startup file for MicroEMACS 3.9cs ; ; This file is executed every time the ; editor is entered, but only if it can ; be found on '.' or '$(PATH)'. ; ; if you want the 40 lines mode, then uncomment this line: ; set $sres DENSE set $discmd FALSE write-message "[Setting up....]" ; Micro emacs now simulates tabs with blanks in some files (.c, .asm etc.) ; If you don't like this, then press "M-0 TAB" when inside the desired buffer. ; have fun with the Help and Keypad keys. They are all harmless functions. ; ***** Rebind the Function keys ; ; Since this are the standard settings on Atari, they need not be set ! ; They just give an impression on the syntax needed. ; ; The bind-fn-key command is new by CS. ; Non-cs versions must use bind-to-key. ; ;bind-fn-key kill-to-end-of-line f1 ; non-shift f1 ;bind-fn-key yank f2 ;bind-fn-key search-forward f3 ;bind-fn-key query-replace-string f4 ;bind-fn-key search-reverse f5 ;bind-fn-key execute-file f6 ;bind-fn-key next-buffer f7 ;bind-fn-key find-file f8 ;bind-fn-key save-file f9 ;bind-fn-key quick-exit f10 ;bind-fn-key help S-F1 ; Shift-F1 ; Cursor-Block: ;bind-fn-key help help ;bind-fn-key exit-emacs undo ; undo ;bind-fn-key previous-page pgup ; insert key on Atari ;bind-fn-key next-page pgdown ; clr/home key on Atari ; Mouse ;bind-fn-key set-mark leftmouse ;bind-fn-key copy-region rightmouse ; Keypad ;bind-fn-key move-window-up K( ;bind-fn-key move-window-down K) ;bind-fn-key split-current-window K/ ;bind-fn-key delete-other-windows K* ;bind-fn-key previous-window K- ;bind-fn-key next-window K+ ;bind-fn-key beginning-of-file K7 ;bind-fn-key end-of-file K9 ;bind-fn-key previous-word K4 ;bind-fn-key redraw-display K5 ;bind-fn-key next-word K6 ;bind-fn-key beginning-of-line K1 ;bind-fn-key end-of-line K3 ;bind-fn-key execute-macro K0 ;bind-fn-key goto-line K. ;; >>>> note: you get the name of a key by pressing help c ; These are not standard: bind-to-key apropos FNV ; S-F3 bind-to-key help FNW ; S-F4 bind-to-key fill-paragraph FNX ; S-F5 ; set screen colors add-global-mode "White" ; foreground add-global-mode "blue" ; background add-mode "White" ; foreground add-mode "blue" ; background ; toggle function key window off 1 store-macro save-window 1 next-window !if &sequal "Function Keys" $cbufname delete-window !endif bind-to-key execute-macro-14 FNT ; S-F1 !force restore-window write-message "[Function key window OFF]" !endm ; toggle function key window back on 14 store-macro 1 next-window !if &sequal $cbufname "emacs.hlp" execute-macro-11 !endif !if ¬ &sequal $cbufname "Function Keys" 1 split-current-window select-buffer "Function Keys" add-mode "red" !force 6 resize-window beginning-of-file !endif bind-to-key execute-macro-1 FNT 2 next-window write-message "[Function key window ON]" !endm ; Enter Help 2 store-macro 1 next-window ;Make sure the function key window isn't up! !if &sequal $cbufname "Function Keys" delete-window bind-to-key execute-macro-14 FNT !endif help 8 resize-window bind-to-key execute-macro-12 FNh bind-to-key execute-macro-13 FNn bind-to-key execute-macro-11 FNU bind-to-key execute-macro-15 ^XO bind-to-key execute-macro-15 ^XP bind-to-key execute-macro-15 FNu add-mode "red" beginning-of-file 2 forward-character clear-message-line !endm ; Exit Help 11 store-macro bind-to-key previous-page FNh bind-to-key next-page FNn bind-to-key execute-macro-2 FNU bind-to-key next-window ^XO bind-to-key previous-window ^XP bind-to-key next-window FNu delete-window clear-message-line !endm ; don't allow these commands from within the HELP screen 15 store-macro write-message "[Use S-F2 to exit HELP (with SHIFT)]!!" !endm ; last help page 12 store-macro beginning-of-line search-reverse "=>" 1 redraw-display !endm ; next help page 13 store-macro beginning-of-line 2 forward-character search-forward "=>" 1 redraw-display !endm ; reformat indented paragraph 6 store-macro write-message " [Fixing paragraph]" kill-region 2 split-current-window select-buffer "[temp]" yank beginning-of-file replace-string "~n " "~n" write-message " [Fixing paragraph]" 66 set-fill-column write-message " [Fixing paragraph]" fill-paragraph 77 set-fill-column beginning-of-file handle-tab replace-string ~n "~n " write-message " [Fixing paragraph]" end-of-file 2 delete-previous-character beginning-of-file set-mark write-message " [Fixing paragraph]" end-of-file kill-region unmark-buffer delete-window yank delete-buffer "[temp]" write-message " [Fixed paragraph]" !endm ; indent region 7 store-macro write-message " [Indenting region]" kill-region 2 split-current-window select-buffer "[temp]" yank beginning-of-file handle-tab replace-string "~n" "~n " end-of-file 4 delete-previous-character beginning-of-file set-mark write-message " [Indenting region]" end-of-file kill-region unmark-buffer delete-window yank delete-buffer "[temp]" write-message " [Region Indented]" !endm ; undent region 8 store-macro write-message " [Undenting region]" kill-region 2 split-current-window select-buffer "[temp]" yank beginning-of-file delete-next-character replace-string "~n " "~n" end-of-file 2 delete-previous-character beginning-of-file set-mark write-message " [Undenting region]" end-of-file kill-region unmark-buffer delete-window yank delete-buffer "[temp]" write-message " [Region undented]" !endm ; ; bring up the function key window 1 split-current-window select-buffer "Function Keys" add-mode "red" 6 resize-window insert-string "f1 kill line f6 exec file | F1 toggle function list F7 indent region~n" insert-string "f2 yank f7 select buf | F2 toggle help file F8 undent region~n" insert-string "f3 search f8 find file | F3 find command/apropos ^X= where am I~n" insert-string "f4 replace f9 save file | F4 general HELP ! M-G goto line (ESC-G)~n" insert-string "f5 search back f10 exit emacs | F5 reformat paragraph M-< start of file~n" insert-string "^G cancel command (Control+G) | F6 ref undented region M-O toggle OVER mode~n" beginning-of-file unmark-buffer add-mode "view" next-window set $discmd TRUE ; -eof-