home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume26 / ee-1.23 / part01 / easyedit.el < prev    next >
Encoding:
Text File  |  1993-06-20  |  44.2 KB  |  1,299 lines
  1. (setq ee-VERSION "1.23")
  2.  
  3. ;                    Easy-Edit  1.23       GNU Emacs configuration
  4. ;            7/2/92
  5. ;
  6. ;
  7. ; Easy-edit novice screen editor for Unix systems with GNU emacs
  8. ;
  9. ; Copyright (C) 1992     Larry Broda
  10. ;                      
  11. ;
  12. ;    This program is distributed in the hope that it will be useful,
  13. ;    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  This program 
  15. ;    is an extension of GNU emacs; See the GNU General Public License 
  16. ;    for more details.
  17. ;
  18. ;    This program is free software; you can redistribute it and/or modify
  19. ;    it under the same terms as the GNU General Public License as 
  20. ;    published by the Free Software Foundation; either version 1, or 
  21. ;    (at your option) any later version.
  22. ;
  23. ;
  24. ;
  25. ;    Easy-edit 1.23
  26. ;       By Larry Broda  
  27. ;    Department of Psychology
  28. ;    University of Illinois at Urbana-Champaign
  29. ;       Email: lbroda@s.psych.uiuc.edu
  30. ;    4/13/92 
  31. ;
  32. ;    GNU emacs information:
  33. ;    contact:
  34. ;    Free Software Foundation
  35. ;    675 Massachusetts Avenu
  36. ;    Cambridge, MA 02139
  37. ;    USA
  38.  
  39. (defconst ee-com-map nil
  40.   "Keymap for easyedit")
  41. ;
  42. ; Function to give an error message for using an key out of context
  43. ;
  44. (defun ee-not-here ()
  45.   "That key unbound at moment"
  46.   (interactive)
  47.   (ding))
  48.  
  49. ;
  50. ; 
  51. ;
  52.  
  53. (defun ee-nofun ()
  54.   "function to give an error for an unbound key"
  55.   (interactive)
  56.   (message "Not currently an easy-edit command" (ding))
  57.   (sleep-for 2)
  58.   (ee-message HELP_HELP))
  59.  
  60.  
  61. (defun ee-quit ()
  62.   "Exit without saving"
  63.   (interactive)    
  64.   (progn
  65.     (if (buffer-modified-p (get-buffer "EDIT"))
  66.     (progn
  67.       (cond 
  68.        ((yes-or-no-p "Really quit and cancel changes? " ) 
  69.         (message "Cancelling changes!")
  70.         (sleep-for 1)
  71.         (discard-input)
  72.         (kill-emacs))
  73.        ((ee-message HELP_HELP))))
  74.       (message "No changes to cancel...")
  75.       (sleep-for 1)
  76.       (discard-input)
  77.       (kill-emacs))))
  78.  
  79. (defun ee-kill-to-eof ()
  80.   "Delete from point to End of buffer"
  81.   (interactive)
  82.   (end-of-buffer)
  83.   (delete-region (point) (mark)))
  84.  
  85. (defun ee-move-block ()
  86.   "Demark a block of text and copy or move it"
  87.   (interactive)
  88.   (if (> ee-BLOCK-MARK 0)
  89.      (progn 
  90.  
  91.        (let ((imsg "
  92.          Type  m  to move the block (delete original)
  93.          Type  c  to copy the block (leave original)
  94.  
  95.                  Type ESC +  when ready to insert the block at cursor
  96.  
  97.                  ... you may continue to insert the block repeatedly
  98.                      until you mark another block.")
  99.          (iprmpt "Choose m or c, please: "))
  100.  
  101.          (setq DELFLG (eq (ee-choosefrom-list imsg iprmpt '(?c ?m)) ?m)))
  102.  
  103.        (copy-to-register ?b ee-BLOCK-MARK (point) DELFLG)
  104.        (setq ee-BLOCK-MARK 0)
  105.        (message "type ESC + to insert block at cursor location")
  106.        (setq ee-BLOCK-SAVED 'true)
  107.        (ding))
  108.  
  109.     (setq ee-BLOCK-MARK (point))
  110.     (setq ee-BLOCK-SAVED 'nil)
  111.     (message "Move cursor to other end of text block and press ESC / again")
  112.     (ding)
  113.     (sleep-for 2)))
  114.  
  115. ;
  116. ; Code from GNU Emacs: ee-query-replace and ee-perform-replace are modifications by
  117. ; Larry Broda, Dept. of Psychology/University of Illinois at C-U, of the
  118. ; functions query-replace and perform-replace from the GNU Emacs distribution, and are subject
  119. ; to all terms of the GNU Emacs Public License.
  120. ;
  121.  
  122. (defun ee-query-replace (from-string to-string &optional arg)
  123.   "\
  124. Replace some occurrences of FROM-STRING with TO-STRING.
  125. As each match is found, the user must type a character saying
  126. what to do with it.  
  127. Preserves case in each replacement if  case-replace  and  case-fold-search
  128. are non-nil and FROM-STRING has no uppercase letters.
  129. Third arg DELIMITED (prefix arg if interactive) non-nil means replace
  130. only matches surrounded by word boundaries."
  131.   (interactive "sQuery replace: \nsQuery replace %s with: \nP")
  132.   (ee-perform-replace from-string to-string t nil arg)
  133.   (message "Done"))
  134.  
  135. (defun ee-perform-replace (from-string to-string
  136.                 query-flag regexp-flag delimited-flag)
  137.   (let ((nocasify (not (and case-fold-search case-replace
  138.                 (string-equal from-string
  139.                       (downcase from-string)))))
  140.     (literal (not regexp-flag))
  141.     (search-function (if regexp-flag 're-search-forward 'search-forward))
  142.     (search-string from-string)
  143.     (keep-going t)
  144.     (lastrepl nil))            ;Position after last match considered.
  145.     (if delimited-flag
  146.     (setq search-function 're-search-forward
  147.           search-string (concat "\\b"
  148.                     (if regexp-flag from-string
  149.                       (regexp-quote from-string))
  150.                     "\\b")))
  151.     (push-mark)
  152.     (push-mark)
  153.     (while (and keep-going
  154.         (not (eobp))
  155.         (progn
  156.          (set-mark (point))
  157.          (funcall search-function search-string nil t)))
  158.       ;; Don't replace the null string 
  159.       ;; right after end of previous replacement.
  160.       (if (eq lastrepl (point))
  161.       (forward-char 1)
  162.     (undo-boundary)
  163.     (if (not query-flag)
  164.         (replace-match to-string nocasify literal)
  165.       (let (done replaced)
  166.         (while (not done)
  167.           ;; Preserve the match data.  Process filters and sentinels
  168.           ;; could run inside read-char..
  169. ;          (let ((data (match-data))
  170. ;            (help-form
  171. ;             '(concat "Query replacing "
  172. ;                  (if regexp-flag "regexp " "")
  173. ;                  from-string " with " to-string ".\n\n"
  174. ;                  (substitute-command-keys query-replace-help))))
  175. ;        (setq char help-char)
  176. ;        (while (= char help-char)
  177. ;          (message "Query replacing %s with %s: " from-string to-string)
  178. ;          (setq char (read-char))
  179. ;          (if (= char ??)
  180. ;              (setq unread-command-char help-char char help-char)))
  181. ;        (store-match-data data))
  182.  
  183.          
  184.         (message "Query replacing %s with %s: " from-string to-string)
  185.         (setq char (read-char))
  186.  
  187.           (cond ((or (= char ?\e)
  188.              (= char ?q))
  189.              (setq keep-going nil)
  190.              (setq done t))
  191.             ((= char ?y)
  192.              (or replaced
  193.              (replace-match to-string nocasify literal))
  194.              (setq done t))
  195.             ((= char ?\.)
  196.              (or replaced
  197.              (replace-match to-string nocasify literal))
  198.              (setq keep-going nil)
  199.              (setq done t))
  200.             ((= char ?!)
  201.              (or replaced
  202.              (replace-match to-string nocasify literal))
  203.              (setq done t query-flag nil))
  204.             ((= char ?n)
  205.              (setq done t))
  206.             ((= char ?\C-l)
  207.              (recenter nil))
  208.             (t
  209.              (message "Not a choice")
  210.              (ding)
  211.              (sleep-for 2))))))
  212.     (setq lastrepl (point))))
  213.     (pop-mark)
  214.     keep-going))
  215.  
  216. (defun ee-search-replace ()
  217.   "Do a text search/replace"
  218.   (interactive)
  219.   (setq sprompt (concat "Replace-> [" search-last-string "]: "))
  220.   (setq sstring (read-string sprompt))
  221.   (if (> (length sstring) 0)
  222.       (setq search-last-string sstring)
  223.     (setq sstring search-last-string))
  224.   
  225.     (if (> (length sstring) 0)
  226.     (progn
  227.       (setq rstring (read-string "Replace with-> "))
  228.       (save-window-excursion
  229.         (with-output-to-temp-buffer "*INFORMATION*"
  230.           (save-excursion
  231.         (set-buffer "*INFORMATION*")
  232.         (erase-buffer))
  233.           (princ "             Search/Replace\n\n")
  234.           (princ (concat "Replace all occurrences of " sstring " with " rstring "\n"))
  235.           (princ "from the current position to the end of file.\n")
  236.           (princ "(use confirm if you don't want to replace every occurrence)\n\n")
  237.           (princ "Type y for confirm (will ask before doing each replacement)\n")
  238.           (princ "Type n to do all replacements without confirming\n"))
  239.         (setq SRFLG ?x)
  240.         (while (not (ee-member SRFLG '(?y ?n)))
  241.           (progn
  242.         (let ((cursor-in-echo-area t))
  243.           (message "Confirm replacements (y or n)? ")
  244.           (ding)
  245.           (setq SRFLG (downcase (read-char))))
  246.         (let ((cursor-in-echo-area nil))
  247.           (cond
  248.          ((eq SRFLG ?y)
  249.           (with-output-to-temp-buffer "*INFORMATION*"
  250.             (save-excursion
  251.               (set-buffer "*INFORMATION*")
  252.               (erase-buffer))
  253.             (princ "Choices for answering replace query: \n\n")
  254.             (princ "(press ESC or q to stop the search/replace at any time)\n\n")
  255.             (princ "  y     - do the replacement and continue searching\n")
  256.             (princ "  n     - don't replace, but continue searching\n")
  257.             (princ "  .     - Replace this occurrence and stop\n")
  258.             (princ "  q     - Don't replace, and stop\n")
  259.             (princ "  !     - replace all occurrences from here on without confirming\n"))
  260.           (ee-query-replace sstring rstring nil))
  261.          ((eq SRFLG ?n)  (replace-string sstring rstring))
  262.          (t  (message "Type y for confirm, n for no confirm, please")
  263.              (sleep-for 2))))))))))
  264.  
  265. (defun ee-insert-block ()
  266.   "Insert block"
  267.   (interactive)
  268.  
  269.   (if (null ee-BLOCK-SAVED )
  270.       (progn
  271.         (message "No block has been marked and saved with ESC /")
  272.         (ding))
  273.     (insert-register ?b)))
  274.     
  275.  
  276. (defun ee-recover ()
  277.   "recover from an Emacs auto-save file"
  278.   (interactive)
  279.   (ee-recover-file EE_FILE_NAME)
  280.   (auto-save-mode 1)
  281.   (easyedit-mode))
  282.  
  283. ;
  284. ; following function derived from GNU Emacs recover-file function, by
  285. ; Richard Stallman
  286. ;
  287. (defun ee-recover-file (file)
  288.   "Visit file FILE, but get contents from its last auto-save file."
  289.   (interactive "FRecover file: ")
  290.   (setq file (expand-file-name file))
  291.   (if (auto-save-file-name-p file) (error "%s is an auto-save file" file))
  292.   (let ((file-name (let ((buffer-file-name file))
  293.              (make-auto-save-file-name))))
  294.     (cond ((not (file-newer-than-file-p file-name file))
  295.        (error "Auto-save file %s not current" file-name))
  296.        ((yes-or-no-p "Recover previous unsaved edits? " ) 
  297.         (switch-to-buffer (find-file-noselect file t))
  298.         (let ((buffer-read-only nil))
  299.          (erase-buffer)
  300.          (insert-file-contents file-name nil))
  301.         (after-find-file nil))
  302.         (t (error "Recovery cancelled.")))
  303.   (setq buffer-auto-save-file-name nil)))
  304.   
  305.  
  306. (defun ee-check-recovery-file (file)
  307.   "Print a nicer message if the save file is current"
  308.   (interactive)
  309.   (setq file (expand-file-name file))
  310.   (if (auto-save-file-name-p file) (error "%s is an auto-save file" file))
  311.   (let ((file-name (let ((buffer-file-name file))
  312.              (make-auto-save-file-name))))
  313.     (cond ((file-newer-than-file-p file-name file)
  314.            (message "Found recovery file from unsaved edit; consider ESC R to recover.")
  315.             (ding)
  316.             (sleep-for 4)))))
  317.  
  318. (defun ee-suspend-edit ()
  319.   "suspend"
  320.   (interactive)
  321.   (progn
  322.     (suspend-emacs EE_RESUME_MSG)
  323.     (ee-message HELP_HELP)))
  324.  
  325. (defun ee-create-help ()
  326.   "Create the help window"
  327.   (progn
  328.     (setq EEHELPF
  329.       (cond
  330.        ((setq temp (getenv "EASYEDIT_HELP")) temp)
  331.        (t "/usr/local/lib/easyedit/HELP-WINDOW")))
  332.     (setq ALTERNATE_HELP (concat EEHELPF "-ADVANCED"))
  333.     (setq EASYEDIT_MANUAL
  334.       (cond
  335.        ((setq temp (getenv "EASYEDIT_MANUAL")) temp)
  336.        (t "/usr/local/lib/easyedit/HELP-MANUAL")))
  337.     (if (string-equal (getenv "HELP_LEVEL") "advanced")
  338.     (progn
  339.       (setq temp ALTERNATE_HELP)
  340.       (setq ALTERNATE_HELP EEHELPF)
  341.       (setq EEHELPF temp)))
  342.     (if (file-exists-p EEHELPF)
  343.     (progn
  344.       (setq ee-HWIN (split-window nil nil nil))
  345.       (select-window ee-HWIN)
  346.       (switch-to-buffer "HELP")
  347.       (insert-file-contents EEHELPF)
  348.       (setq buffer-read-only t)
  349.       (select-window ee-EWIN))
  350.       (message "HELP FILE NOT FOUND!")
  351.       (ding)
  352.       (sleep-for 3)
  353.       (discard-input)
  354.       (kill-emacs))))
  355.  
  356. (defun ee-switch-help ()
  357.   "toggle between the advanced and basic help files"
  358.   (interactive)
  359.   (if (not (file-exists-p ALTERNATE_HELP))
  360.       (progn
  361.     (message "Alternate help file not found!")
  362.     (ding))
  363.     (define-key ee-com-map "\e>" 'ee-not-manual)
  364.     (define-key ee-com-map "\e<" 'ee-not-manual)
  365.     (set-buffer "HELP")
  366.     (setq buffer-read-only nil)
  367.     (erase-buffer)
  368.     (insert-file-contents ALTERNATE_HELP)
  369.     (setq buffer-read-only t)
  370.     (set-buffer "EDIT")
  371.     (setq temp ALTERNATE_HELP)
  372.     (setq ALTERNATE_HELP EEHELPF)
  373.     (setq EEHELPF temp)))
  374.  
  375. (defun ee-manual ()
  376.   "replace HELP with MANUAL display"
  377.   (interactive)
  378.   (if (not (file-exists-p EASYEDIT_MANUAL))
  379.       (progn
  380.     (message "Easy-edit manual file not found!")
  381.     (ding))
  382.     (set-buffer "HELP")
  383.     (let ((buffer-read-only nil))
  384.       (erase-buffer)
  385.       (insert-file-contents EASYEDIT_MANUAL))
  386.     (set-buffer "EDIT")
  387.     (define-key ee-com-map "\e>" 'ee-next-subject)
  388.     (define-key ee-com-map "\e<" 'ee-previous-subject)
  389.     (setq HELP_HELP "ESC F/B scroll fwd/bkwd;  ESC H - restore HELP")
  390.     (ee-message HELP_HELP)))
  391.  
  392. (defun ee-insert-file ()
  393.   "Insert file"
  394.   (interactive)
  395.   (setq ifile (read-string "File to insert: "))
  396.   (if (> (length ifile) 0) 
  397. (let ((default-directory "./"))
  398. (insert-file-contents ifile)))
  399.   (ee-message HELP_HELP))
  400.  
  401. (defun ee-search-forward ()
  402.   "search forward"
  403.   (interactive)
  404.   (setq sprompt (concat "Find-> [" search-last-string "]: "))
  405.   (setq sstring (read-string sprompt))
  406.   (if (> (length sstring) 0) (setq search-last-string sstring)) 
  407.   (search-forward search-last-string))
  408.  
  409. (defun ee-search-backward ()
  410.   "search forward"
  411.   (interactive)
  412.   (setq sprompt (concat "<-Find [" search-last-string "]: "))
  413.   (setq sstring (read-string sprompt))
  414.   (if (> (length sstring) 0) (setq search-last-string sstring)) 
  415.   (search-backward search-last-string))
  416.  
  417. (defun ee-message (ee_txt)
  418.   "write an easy-edit message at bottom of screen"
  419.   (interactive)
  420.   (message (concat EE_FILE_NAME (concat EE_MODE  (concat " ---- " ee_txt)))))
  421.  
  422. (defun ee-upp-help ()
  423.   "Scroll help window upwards"
  424.   (interactive)
  425.   (if (window-point ee-HWIN)
  426.       (progn
  427.     (select-window ee-HWIN)
  428.     (setq HWSIZE (- (window-height) 1))
  429.     (select-window ee-EWIN)
  430.     (scroll-other-window (* -1 HWSIZE)))
  431.     (message "No HELP window to scroll")
  432.     (ding)
  433.     (sleep-for 2))
  434.   (ee-message HELP_HELP))
  435.  
  436. (defun ee-downp-help ()
  437.   "Scroll help window upwards"
  438.   (interactive)
  439.   (if (window-point ee-HWIN)
  440.       (progn
  441.     (select-window ee-HWIN)
  442.     (setq HWSIZE (- (window-height) 1))
  443.     (select-window ee-EWIN)
  444.     (scroll-other-window HWSIZE))
  445.     (message "No HELP window to scroll")
  446.     (ding)
  447.     (sleep-for 2))
  448.   (ee-message HELP_HELP))
  449.  
  450.  
  451. (defun ee-upl-help ()
  452.   "Scroll help window upwards"
  453.   (interactive)
  454.   (if (window-point ee-HWIN)
  455.       (scroll-other-window -1)
  456.     (message "No HELP window to scroll")
  457.     (ding)
  458.     (sleep-for 2))
  459.   (ee-message HELP_HELP))
  460.  
  461. (defun ee-downl-help ()
  462.   "Scroll help window upwards"
  463.   (interactive)
  464.   (if (window-point ee-HWIN)
  465.       (scroll-other-window 1)
  466.     (message "No HELP window to scroll")
  467.     (ding)
  468.     (sleep-for 2))
  469.   (ee-message HELP_HELP))
  470.  
  471.  
  472. (defun ee-kill-line (cnt)
  473.   "Delete a line"
  474.   (interactive "P")
  475.   (progn 
  476.     (beginning-of-line)
  477.     (kill-line (if (eq cnt nil) 1 cnt))))
  478.  
  479. (defun ee-restore-help ()
  480.   "restore a lost help window"
  481.   (interactive)
  482.   (progn
  483.     (define-key ee-com-map "\e>" 'ee-not-manual)
  484.     (define-key ee-com-map "\e<" 'ee-not-manual)
  485.     (switch-to-buffer "EDIT")
  486.     (delete-other-windows)
  487.     (setq ee-HWIN (split-window nil nil nil))
  488.     (select-window ee-HWIN)
  489.     (switch-to-buffer "HELP")
  490.     (let ((buffer-read-only nil))
  491.       (erase-buffer)
  492.       (insert-file-contents EEHELPF))
  493.     (select-window ee-EWIN)
  494.     (setq HELP_HELP "ESC F / ESC B -> HELP forward / backward")
  495.     (ee-message HELP_HELP)))
  496.  
  497. (defun ee-zap-help ()
  498.   "Remove the HELP window"
  499.   (interactive)
  500.   (progn
  501.     (delete-other-windows)
  502.     (switch-to-buffer "EDIT")
  503.     (setq HELP_HELP "To display HELP window: ESC H")
  504.     (ee-message HELP_HELP)))
  505.  
  506.   ;
  507.   ;
  508.   ; display the *INFORMATION* window with the mesg "mesg", for 
  509.   ; duration seconds.  If duration =0, display it until a character is typed
  510.   ; if cmd is non-nil, execute the function
  511.   ;
  512. (defun ee-INFO (mesg)
  513.   (save-window-excursion
  514.     (with-output-to-temp-buffer "*INFORMATION*"
  515.       (save-excursion
  516.     (set-buffer "*INFORMATION*")
  517.     (erase-buffer)
  518.     )
  519.       (princ "\n\n")
  520.       (princ mesg))
  521.     (let ((cursor-in-echo-area t))
  522.       (message "Type any character to continue: ")(read-char))
  523.     ))
  524.  
  525.  
  526. ;
  527. ; this command displays "mesg" in a tien INFORMATION window,
  528. ; and prompts for a character which must be a member of choices, using
  529. ; the prompt string "prompt" to prompt for it
  530. ;
  531. (defun ee-choosefrom-list (mesg prompt choices)
  532.   (progn
  533.       (save-window-excursion
  534.     (with-output-to-temp-buffer "*INFORMATION*"
  535.       (save-excursion
  536.         (set-buffer "*INFORMATION*")
  537.         (erase-buffer)
  538.         )
  539.       (princ "\n\n")
  540.       (princ mesg))
  541.     (let ((cursor-in-echo-area t))
  542.       (setq achar '(x))
  543.       (while (not (ee-member achar choices))
  544.         (message prompt)
  545.         (ding)
  546.         (setq achar (downcase (read-char)))))
  547.     )
  548.       achar))
  549.  
  550. (defun ee-member (item list)
  551.   "is item in list?"
  552.   (cond
  553.    ((null list)  nil)
  554.    ((eq item (car list))   list)
  555.    (t        (ee-member item (cdr list)))))
  556.  
  557. (defun ee-status ()
  558.   "status "
  559.   (interactive)
  560.   (progn
  561.     (setq IMSG
  562.       (concat (current-time-string) "
  563.  
  564. You are editing "  buffer-file-name "
  565.  
  566. File editing status: " (cond ((buffer-modified-p (get-buffer "EDIT")) "Modified")
  567.              (t "Not modified")) "
  568.  
  569. (type ESC @ for easy-edit license information)"))
  570.     (ee-INFO IMSG)))
  571.  
  572. (defun ee-get-arg (mesg prompt)
  573.   (let (char)
  574.       (save-window-excursion
  575. (with-output-to-temp-buffer "*INFORMATION*"
  576.   (save-excursion
  577.     (set-buffer "*INFORMATION*")
  578.     (erase-buffer)
  579.     )
  580.   (princ mesg))
  581. (let ((cursor-in-echo-area t))
  582.   (read-string prompt))
  583. )))
  584.  
  585. (defun ee-save-exit ()
  586.   "save file and exit"
  587.   (interactive)
  588.   (progn
  589.     (if (buffer-modified-p (get-buffer "EDIT"))
  590.     (message (concat "Saving " EE_FILE_NAME))
  591.       (message (concat EE_FILE_NAME " not modified")))
  592.     (sleep-for 1)      
  593.     (save-buffer)
  594.     (discard-input)
  595.     (kill-emacs)))
  596.  
  597. (defun ee-save-noexit ()
  598.   "save file but do not exit"
  599.   (interactive)
  600.   (progn
  601.     (if (buffer-modified-p (get-buffer "EDIT"))
  602.     (message (concat "Saving " EE_FILE_NAME))
  603.       (message (concat EE_FILE_NAME " not modified")))
  604.     (sleep-for 1)      
  605.     (save-buffer)))
  606.  
  607. (defun ee-saveto-file ()
  608.   "save file and exit"
  609.   (interactive)
  610.   (let ((default-directory "./"))
  611.     (progn
  612.       (set-buffer "EDIT")
  613.       
  614.       (setq sprompt "Save to what filename: ")
  615.       (setq savename (read-string sprompt))
  616.       (if (> (length savename) 0) 
  617.       (progn
  618.         (if (file-writable-p savename)
  619.         (progn
  620.           (setq SAVEFL
  621.             (if (file-exists-p savename)
  622.                 (yes-or-no-p 
  623.                  (concat savename " exists!  Overwrite it? "))
  624.               t))
  625.           (if SAVEFL
  626.               (progn
  627.             (write-file savename)
  628.             (message 
  629.              (concat savename " saved;  " 
  630.                  EE_FILE_NAME " unchanged"))
  631.             (sleep-for 2)
  632.             (discard-input)
  633.             (kill-emacs))))
  634.           (message (concat "Cannot create/write to " savename))))))))
  635.  
  636.  
  637. (defun ee-grow-EDIT ()
  638.   "Enlarge EDIT window"
  639.   (interactive)
  640.   (cond 
  641.    ((window-point ee-HWIN) 
  642.     (progn
  643.       (enlarge-window 1)
  644.       (if (not (window-point ee-HWIN))
  645.       (setq HELP_HELP "To restore HELP window: ESC H"))
  646.     (ee-message HELP_HELP)))))
  647.  
  648. (defun ee-next-subject ()
  649.   "Move to the next subject in the manual"
  650.   (interactive)
  651.   (if (window-point ee-HWIN)
  652.       (progn
  653.     (select-window ee-HWIN)
  654.     (forward-line)
  655.     (if (not (re-search-forward "^=" nil t))
  656.         (progn
  657.           (beginning-of-buffer)
  658.           (re-search-forward "^=" nil t)))
  659.     (recenter 1)
  660.     (ee-message HELP_HELP)
  661.     (select-window ee-EWIN))))
  662.  
  663. (defun ee-previous-subject ()
  664.   "Move to the next subject in the manual"
  665.   (interactive)
  666.   (if (window-point ee-HWIN)
  667.       (progn
  668.     (select-window ee-HWIN)
  669.     (forward-line -1)
  670.     (if (not (re-search-backward "^=" nil t))
  671.         (progn
  672.           (end-of-buffer)
  673.           (re-search-backward "^=" nil t)))
  674.     (recenter 1)
  675.     (ee-message HELP_HELP)
  676.     (select-window ee-EWIN))))
  677.  
  678. (defun ee-toggle-insert ()
  679.   "toggle insert/overwrite modes"
  680.   (interactive)
  681.   (cond 
  682.    ((= EASYEDIT-INSERT 1) 
  683.     (overwrite-mode 1)
  684.     (setq EASYEDIT-INSERT 0)
  685.     (setq EE_MODE "  *Overwrite*")
  686.     (ee-message HELP_HELP))
  687.    (t   (overwrite-mode 0)
  688. (setq EASYEDIT-INSERT 1)
  689. (setq EE_MODE "  *Insert*")
  690. (ee-message HELP_HELP))))
  691.  
  692. ;
  693. ; elm easy editor setup
  694.  
  695. (defun easyedit-mode ()
  696.   "set easyedit mode"
  697.   (if (eq major-mode 'easyedit-mode)
  698.       (message "already in easyedit-mode" (ding))
  699.     (setq mode-name "easy-edit")
  700.     (setq major-mode "easyedit-mode")
  701.     (use-local-map ee-com-map)
  702.     (put 'switch-to-buffer 'disabled t)
  703.     (put 'switch-to-buffer-other-window 'disabled t)
  704.     (put 'other-window 'disabled t)
  705.     (put 'kill-region 'disabled t)
  706.     (put 'execute-extended-command 'disabled t)
  707.     (setq HELP_HELP "ESC F / ESC B -> HELP forward / backward")
  708.     (setq window-min-height 1)
  709.     (setq fill-column 72)
  710.     (setq EASYEDIT-INSERT 1)
  711.     (setq EE_MODE "  *Insert*")
  712.     (setq search-last-string "")
  713.     (setq make-backup-files nil)
  714.     (setq require-final-newline t)
  715.     (auto-fill-mode 1)
  716.  
  717.     (if (setq EE_RES_CMD (getenv "EE_RESUME_CMD"))
  718.     (setq EE_RESUME_MSG (concat "echo Suspending easy-edit.... to resume type " EE_RES_CMD))
  719.       (setq EE_RESUME_MSG (concat "echo Suspending easy-edit")))
  720.  
  721.     (ee-message HELP_HELP)))
  722.     
  723. (if ee-com-map nil
  724.   (setq ee-com-map (make-keymap))
  725.  
  726.   (define-key ee-com-map "\C-a" 'beginning-of-line)
  727.   (define-key ee-com-map "\C-b" 'backward-char)
  728.   (define-key ee-com-map "\C-c" 'abort-recursive-edit)
  729.   (define-key ee-com-map "\C-d" 'scroll-up)
  730.   (define-key ee-com-map "\C-e" 'end-of-line)
  731.   (define-key ee-com-map "\C-f" 'forward-char)
  732.   (define-key ee-com-map "\C-g" 'forward-word)
  733.   (define-key ee-com-map "\C-h" 'backward-delete-char-untabify)
  734. ; i is the tab
  735.   (define-key ee-com-map "\C-j" 'next-line)
  736.   (define-key ee-com-map "\C-k" 'previous-line)
  737.   (define-key ee-com-map "\C-l" 'ee-not-here)
  738. ; m is carriage return
  739.   (define-key ee-com-map "\C-n" 'next-line)
  740.   (define-key ee-com-map "\C-o" 'backward-word)
  741.   (define-key ee-com-map "\C-p" 'previous-line)
  742.   (define-key ee-com-map "\C-q" 'ee-search-backward)
  743.   (define-key ee-com-map "\C-r" 'redraw-display)
  744.   (define-key ee-com-map "\C-s" 'ee-search-forward)
  745.   (define-key ee-com-map "\C-t" 'ee-status)
  746.   (define-key ee-com-map "\C-u" 'scroll-down)
  747.   (define-key ee-com-map "\C-v" 'next-line)
  748.   (define-key ee-com-map "\C-w" 'kill-word)
  749.   (define-key ee-com-map "\C-x" 'delete-char)
  750.   (define-key ee-com-map "\C-y" 'yank)
  751.   (define-key ee-com-map "\C-z" 'ee-suspend-edit)
  752.  
  753. ; Make Sun and RT arrow keys work (at expense of back-paragraph (esc-[))
  754.   (defconst ee-esc-map (make-sparse-keymap)
  755.     " yea yea")
  756.   (define-key ee-com-map "\e" ee-esc-map)
  757.   (defconst esc-bracket-map (make-sparse-keymap)
  758.          "*Keymap for ESC-[ encoded keyboard")
  759.  
  760.   (defconst esc-O-map (make-sparse-keymap)
  761.          "*Keymap for ESC-O encoded keyboard")
  762.   (define-key ee-esc-map "O" esc-O-map)
  763.  
  764.   (define-key ee-esc-map "[" esc-bracket-map)   ; Install esc-bracket-map
  765.   (define-key ee-esc-map "[A" 'previous-line)   ; R8
  766.   (define-key ee-esc-map "[B" 'next-line)   ; R14
  767.   (define-key ee-esc-map "[C" 'forward-char)   ; R12
  768.   (define-key ee-esc-map "[D" 'backward-char)   ; R10
  769.   (define-key ee-esc-map "OA" 'previous-line)   ; R8
  770.  (define-key ee-esc-map "OB" 'next-line)   ; R14
  771.  (define-key ee-esc-map "OC" 'forward-char)   ; R12
  772.  (define-key ee-esc-map "OD" 'backward-char)
  773.  (define-key ee-esc-map "\e" 'abort-recursive-edit)
  774.  
  775.   (define-key ee-com-map "\eA" 'beginning-of-buffer)
  776.   (define-key ee-com-map "\eb" 'ee-upp-help)
  777.   (define-key ee-com-map "\eB" 'ee-upl-help)
  778.   (define-key ee-com-map "\eC" 'ee-repeat-count)
  779.   (define-key ee-com-map "\eD" 'ee-nofun)
  780.   (define-key ee-com-map "\eE" 'end-of-buffer)
  781.   (define-key ee-com-map "\ef" 'ee-downp-help)
  782.   (define-key ee-com-map "\eF" 'ee-downl-help)
  783.   (define-key ee-com-map "\eG" 'goto-line)
  784.   (define-key ee-com-map "\eH" 'ee-restore-help)  
  785.   (define-key ee-com-map "\eI" 'ee-insert-file)  
  786.   (define-key ee-com-map "\eJ" 'ee-grow-EDIT)
  787.   (define-key ee-com-map "\eK" 'ee-kill-to-eof)
  788.   (define-key ee-com-map "\eL" 'ee-kill-line)  
  789.   (define-key ee-com-map "\eM" 'ee-manual)
  790.   (define-key ee-com-map "\eN" 'ee-toggle-insert)
  791. ; ESC O used for cursor motion map
  792.   (define-key ee-com-map "\eP" 'fill-paragraph)  
  793.   (define-key ee-com-map "\eQ" 'ee-quit)
  794.   (define-key ee-com-map "\eR" 'ee-recover)
  795.   (define-key ee-com-map "\eS" 'ee-save-exit)
  796.   (define-key ee-com-map "\eT" 'ee-saveto-file)
  797.   (define-key ee-com-map "\eU" 'undo)
  798.   (define-key ee-com-map "\eV" 'ee-switch-help)
  799.   (define-key ee-com-map "\eW" 'ee-save-noexit)
  800.   (define-key ee-com-map "\eX" 'kill-line)
  801.   (define-key ee-com-map "\eY" 'ee-search-replace)
  802.   (define-key ee-com-map "\eZ" 'ee-zap-help)
  803.   (define-key ee-com-map "\ea" 'beginning-of-buffer)
  804.   (define-key ee-com-map "\ec" 'ee-repeat-count)
  805.   (define-key ee-com-map "\ed" 'ee-list-dir)
  806.   (define-key ee-com-map "\ee" 'end-of-buffer)
  807.   (define-key ee-com-map "\eg" 'goto-line)
  808.   (define-key ee-com-map "\eh" 'ee-restore-help)  
  809.   (define-key ee-com-map "\ei" 'ee-insert-file)  
  810.   (define-key ee-com-map "\ej" 'ee-grow-EDIT)
  811.   (define-key ee-com-map "\ek" 'ee-kill-to-eof)
  812.   (define-key ee-com-map "\el" 'ee-kill-line)  
  813.   (define-key ee-com-map "\em" 'ee-manual)
  814.   (define-key ee-com-map "\en" 'ee-toggle-insert)
  815. ; ESC O used for cursor motion map
  816.   (define-key ee-com-map "\eo" 'ee-nofun)
  817.   (define-key ee-com-map "\ep" 'fill-paragraph)  
  818.   (define-key ee-com-map "\eq" 'ee-quit)
  819.   (define-key ee-com-map "\er" 'ee-recover)
  820.   (define-key ee-com-map "\es" 'ee-save-exit)
  821.   (define-key ee-com-map "\et" 'ee-saveto-file)
  822.   (define-key ee-com-map "\eu" 'undo)
  823.   (define-key ee-com-map "\ev" 'ee-switch-help)
  824.   (define-key ee-com-map "\ew" 'ee-save-noexit)
  825.   (define-key ee-com-map "\ex" 'kill-line)
  826.   (define-key ee-com-map "\ey" 'ee-search-replace)
  827.   (define-key ee-com-map "\ez" 'ee-zap-help)
  828.  
  829.   (define-key ee-com-map "\e!" 'ee-unix-command)
  830.   (define-key ee-com-map "\e>" 'ee-not-manual)
  831.   (define-key ee-com-map "\e<" 'ee-not-manual)
  832.   (define-key ee-com-map "\e@" 'ee-license)
  833.   (define-key ee-com-map "\e#" 'ee-nofun)
  834.   (define-key ee-com-map "\e$" 'ee-nofun)
  835.   (define-key ee-com-map "\e%" 'ee-nofun)
  836.   (define-key ee-com-map "\e^" 'ee-nofun)
  837.   (define-key ee-com-map "\e&" 'ee-nofun)
  838.   (define-key ee-com-map "\e*" 'ee-nofun)
  839.   (define-key ee-com-map "\e(" 'ee-nofun)
  840.   (define-key ee-com-map "\e)" 'ee-nofun)
  841.   (define-key ee-com-map "\e_" 'ee-nofun)
  842.   (define-key ee-com-map "\e+" 'ee-insert-block)
  843.   (define-key ee-com-map "\e-" 'ee-nofun)
  844.   (define-key ee-com-map "\e=" 'ee-nofun)
  845.   (define-key ee-com-map "\e{" 'ee-nofun)
  846.   (define-key ee-com-map "\e}" 'ee-nofun)
  847.   (define-key ee-com-map "\e]" 'ee-nofun)
  848.   (define-key ee-com-map "\e:" 'ee-nofun)
  849.   (define-key ee-com-map "\e;" 'ee-nofun)
  850.   (define-key ee-com-map "\e\"" 'ee-nofun)
  851.   (define-key ee-com-map "\e~" 'ee-nofun)
  852.   (define-key ee-com-map "\e'" 'ee-nofun)
  853.   (define-key ee-com-map "\e`" 'ee-nofun)
  854.   (define-key ee-com-map "\e\." 'ee-nofun)
  855.   (define-key ee-com-map "\e\," 'ee-nofun)
  856.   (define-key ee-com-map "\e?" 'ee-nofun)
  857.   (define-key ee-com-map "\e/" 'ee-move-block)
  858.   (define-key ee-com-map "\e|" 'ee-nofun)
  859.   (define-key ee-com-map "\e\\" 'ee-nofun)
  860.  
  861. ;
  862. ;  DISABLE (or set) all esc/control sequecnes for minibuffer and regular editing
  863. ;
  864.  
  865.   (define-key ee-com-map "\e\C-a" 'ee-nofun)
  866.   (define-key ee-com-map "\e\C-b" 'ee-nofun)
  867.   (define-key ee-com-map "\e\C-c" 'ee-nofun)
  868.   (define-key ee-com-map "\e\C-d" 'ee-nofun)
  869.   (define-key ee-com-map "\e\C-e" 'ee-nofun)
  870.   (define-key ee-com-map "\e\C-f" 'ee-nofun)
  871.   (define-key ee-com-map "\e\C-g" 'ee-nofun)
  872.   (define-key ee-com-map "\e\C-h" 'ee-nofun)
  873.   (define-key ee-com-map "\e\C-i" 'ee-nofun)
  874.   (define-key ee-com-map "\e\C-j" 'ee-nofun)
  875.   (define-key ee-com-map "\e\C-k" 'ee-nofun)
  876.   (define-key ee-com-map "\e\C-l" 'ee-nofun)
  877.   (define-key ee-com-map "\e\C-m" 'ee-nofun)
  878.   (define-key ee-com-map "\e\C-n" 'ee-nofun)
  879.   (define-key ee-com-map "\e\C-o" 'ee-nofun)
  880.   (define-key ee-com-map "\e\C-p" 'ee-nofun)
  881.   (define-key ee-com-map "\e\C-q" 'ee-nofun)
  882.   (define-key ee-com-map "\e\C-r" 'ee-nofun)
  883.   (define-key ee-com-map "\e\C-s" 'ee-nofun)
  884.   (define-key ee-com-map "\e\C-t" 'ee-nofun)
  885.   (define-key ee-com-map "\e\C-u" 'ee-nofun)
  886.   (define-key ee-com-map "\e\C-v" 'ee-nofun)
  887.   (define-key ee-com-map "\e\C-w" 'ee-nofun)
  888.   (define-key ee-com-map "\e\C-x" 'ee-nofun)
  889.   (define-key ee-com-map "\e\C-y" 'ee-nofun)
  890.   (define-key ee-com-map "\e\C-z" 'ee-nofun)
  891.   (define-key ee-com-map "\e\C-!" 'ee-nofun)
  892.   (define-key ee-com-map "\e\C->" 'ee-nofun)
  893.   (define-key ee-com-map "\e\C-<" 'ee-nofun)
  894.   (define-key ee-com-map "\e\C-@" 'ee-nofun)
  895.   (define-key ee-com-map "\e\C-#" 'ee-nofun)
  896.   (define-key ee-com-map "\e\C-$" 'ee-nofun)
  897.   (define-key ee-com-map "\e\C-%" 'ee-nofun)
  898.   (define-key ee-com-map "\e\C-^" 'ee-nofun)
  899.   (define-key ee-com-map "\e\C-&" 'ee-nofun)
  900.   (define-key ee-com-map "\e\C-*" 'ee-nofun)
  901.   (define-key ee-com-map "\e\C-(" 'ee-nofun)
  902.   (define-key ee-com-map "\e\C-)" 'ee-nofun)
  903.   (define-key ee-com-map "\e\C-_" 'ee-nofun)
  904.   (define-key ee-com-map "\e\C-+" 'ee-nofun)
  905.   (define-key ee-com-map "\e\C--" 'ee-nofun)
  906.   (define-key ee-com-map "\e\C-=" 'ee-nofun)
  907.   (define-key ee-com-map "\e\C-{" 'ee-nofun)
  908.   (define-key ee-com-map "\e\C-}" 'ee-nofun)
  909.   (define-key ee-com-map "\e\C-]" 'ee-nofun)
  910.   (define-key ee-com-map "\e\C-:" 'ee-nofun)
  911.   (define-key ee-com-map "\e\C-;" 'ee-nofun)
  912.   (define-key ee-com-map "\e\C-\"" 'ee-nofun)
  913.   (define-key ee-com-map "\e\C-~" 'ee-nofun)
  914.   (define-key ee-com-map "\e\C-'" 'ee-nofun)
  915.   (define-key ee-com-map "\e\C-`" 'ee-nofun)
  916.   (define-key ee-com-map "\e\C-\." 'ee-nofun)
  917.   (define-key ee-com-map "\e\C-\," 'ee-nofun)
  918.   (define-key ee-com-map "\e\C-?" 'ee-nofun)
  919.   (define-key ee-com-map "\e\C-/" 'ee-nofun)
  920.   (define-key ee-com-map "\e\C-|" 'ee-nofun)
  921.   (define-key ee-com-map "\e\C-\\" 'ee-nofun)
  922.  
  923.   (define-key minibuffer-local-map "\e\C-a" 'ee-nofun)
  924.   (define-key minibuffer-local-map "\e\C-b" 'ee-nofun)
  925.   (define-key minibuffer-local-map "\e\C-c" 'ee-nofun)
  926.   (define-key minibuffer-local-map "\e\C-d" 'ee-nofun)
  927.   (define-key minibuffer-local-map "\e\C-e" 'ee-nofun)
  928.   (define-key minibuffer-local-map "\e\C-f" 'ee-nofun)
  929.   (define-key minibuffer-local-map "\e\C-g" 'ee-nofun)
  930.   (define-key minibuffer-local-map "\e\C-h" 'ee-nofun)
  931.   (define-key minibuffer-local-map "\e\C-i" 'ee-nofun)
  932.   (define-key minibuffer-local-map "\e\C-j" 'ee-nofun)
  933.   (define-key minibuffer-local-map "\e\C-k" 'ee-nofun)
  934.   (define-key minibuffer-local-map "\e\C-l" 'ee-nofun)
  935.   (define-key minibuffer-local-map "\e\C-m" 'ee-nofun)
  936.   (define-key minibuffer-local-map "\e\C-n" 'ee-nofun)
  937.   (define-key minibuffer-local-map "\e\C-o" 'ee-nofun)
  938.   (define-key minibuffer-local-map "\e\C-p" 'ee-nofun)
  939.   (define-key minibuffer-local-map "\e\C-q" 'ee-nofun)
  940.   (define-key minibuffer-local-map "\e\C-r" 'ee-nofun)
  941.   (define-key minibuffer-local-map "\e\C-s" 'ee-nofun)
  942.   (define-key minibuffer-local-map "\e\C-t" 'ee-nofun)
  943.   (define-key minibuffer-local-map "\e\C-u" 'ee-nofun)
  944.   (define-key minibuffer-local-map "\e\C-v" 'ee-nofun)
  945.   (define-key minibuffer-local-map "\e\C-w" 'ee-nofun)
  946.   (define-key minibuffer-local-map "\e\C-x" 'ee-nofun)
  947.   (define-key minibuffer-local-map "\e\C-y" 'ee-nofun)
  948.   (define-key minibuffer-local-map "\e\C-z" 'ee-nofun)
  949.   (define-key minibuffer-local-map "\e\C-!" 'ee-nofun)
  950.   (define-key minibuffer-local-map "\e\C->" 'ee-nofun)
  951.   (define-key minibuffer-local-map "\e\C-<" 'ee-nofun)
  952.   (define-key minibuffer-local-map "\e\C-@" 'ee-nofun)
  953.   (define-key minibuffer-local-map "\e\C-#" 'ee-nofun)
  954.   (define-key minibuffer-local-map "\e\C-$" 'ee-nofun)
  955.   (define-key minibuffer-local-map "\e\C-%" 'ee-nofun)
  956.   (define-key minibuffer-local-map "\e\C-^" 'ee-nofun)
  957.   (define-key minibuffer-local-map "\e\C-&" 'ee-nofun)
  958.   (define-key minibuffer-local-map "\e\C-*" 'ee-nofun)
  959.   (define-key minibuffer-local-map "\e\C-(" 'ee-nofun)
  960.   (define-key minibuffer-local-map "\e\C-)" 'ee-nofun)
  961.   (define-key minibuffer-local-map "\e\C-_" 'ee-nofun)
  962.   (define-key minibuffer-local-map "\e\C-+" 'ee-nofun)
  963.   (define-key minibuffer-local-map "\e\C--" 'ee-nofun)
  964.   (define-key minibuffer-local-map "\e\C-=" 'ee-nofun)
  965.   (define-key minibuffer-local-map "\e\C-{" 'ee-nofun)
  966.   (define-key minibuffer-local-map "\e\C-}" 'ee-nofun)
  967.   (define-key minibuffer-local-map "\e\C-]" 'ee-nofun)
  968.   (define-key minibuffer-local-map "\e\C-:" 'ee-nofun)
  969.   (define-key minibuffer-local-map "\e\C-;" 'ee-nofun)
  970.   (define-key minibuffer-local-map "\e\C-\"" 'ee-nofun)
  971.   (define-key minibuffer-local-map "\e\C-~" 'ee-nofun)
  972.   (define-key minibuffer-local-map "\e\C-'" 'ee-nofun)
  973.   (define-key minibuffer-local-map "\e\C-`" 'ee-nofun)
  974.   (define-key minibuffer-local-map "\e\C-\." 'ee-nofun)
  975.   (define-key minibuffer-local-map "\e\C-\," 'ee-nofun)
  976.   (define-key minibuffer-local-map "\e\C-?" 'ee-nofun)
  977.   (define-key minibuffer-local-map "\e\C-/" 'ee-nofun)
  978.   (define-key minibuffer-local-map "\e\C-|" 'ee-nofun)
  979.   (define-key minibuffer-local-map "\e\C-\\" 'ee-nofun)
  980.  
  981.  
  982. ; various escape sequecnes for arrow keys in minibuffer
  983. ; Make Sun and RT arrow keys work 
  984.   (defconst esc-bracket-map (make-sparse-keymap)
  985.     "*Keymap for ESC-[ encoded keyboard")
  986.   (progn
  987.     (define-key esc-map "[" esc-bracket-map)   ; Install esc-bracket-map
  988.     (define-key esc-map "[A" 'previous-line)   ; R8
  989.     (define-key esc-map "[B" 'next-line)   ; R14
  990.     (define-key esc-map "[C" 'forward-char)   ; R12
  991.     (define-key esc-map "[D" 'backward-char)   ; R10
  992.     (define-key esc-map "[[" 'backward-paragraph))   ; the original esc-[
  993.   
  994.   (defconst esc-O-map (make-sparse-keymap)
  995.     "*Keymap for ESC-[ encoded keyboard")
  996.   (progn
  997.     (define-key esc-map "O" esc-O-map)   ; Install esc-O-map
  998.     (define-key esc-map "OA" 'previous-line)   ; R8
  999.     (define-key esc-map "OB" 'next-line)   ; R14
  1000.     (define-key esc-map "OC" 'forward-char)   ; R12
  1001.     (define-key esc-map "OD" 'backward-char))   ; R10
  1002.  
  1003.   (define-key minibuffer-local-map "\C-a" 'beginning-of-line)
  1004.   (define-key minibuffer-local-map "\C-b" 'backward-char)
  1005.   (define-key minibuffer-local-map "\C-c" 'abort-recursive-edit)
  1006.   (define-key minibuffer-local-map "\C-d" 'ee-not-here)
  1007.   (define-key minibuffer-local-map "\C-e" 'end-of-line)
  1008.   (define-key minibuffer-local-map "\C-f" 'forward-char)
  1009.   (define-key minibuffer-local-map "\C-g" 'forward-word)
  1010.   (define-key minibuffer-local-map "\C-h" 'backward-delete-char-untabify)
  1011. ; i is the tab
  1012.   (define-key minibuffer-local-map "\C-j" 'ee-not-here)
  1013.   (define-key minibuffer-local-map "\C-k" 'ee-not-here)
  1014.   (define-key minibuffer-local-map "\C-l" 'ee-not-here)
  1015. ; m is carriage return
  1016.   (define-key minibuffer-local-map "\C-n" 'ee-not-here)
  1017.   (define-key minibuffer-local-map "\C-o" 'backward-word)
  1018.   (define-key minibuffer-local-map "\C-p" 'ee-not-here)
  1019.   (define-key minibuffer-local-map "\C-q" 'ee-not-here)
  1020.   (define-key minibuffer-local-map "\C-r" 'redraw-display)
  1021.   (define-key minibuffer-local-map "\C-s" 'ee-not-here)
  1022.   (define-key minibuffer-local-map "\C-t" 'ee-not-here)
  1023.   (define-key minibuffer-local-map "\C-u" 'ee-not-here)
  1024.   (define-key minibuffer-local-map "\C-v" 'ee-not-here)
  1025.   (define-key minibuffer-local-map "\C-w" 'kill-word)
  1026.   (define-key minibuffer-local-map "\C-x" 'delete-char)
  1027.   (define-key minibuffer-local-map "\C-y" 'yank)
  1028.   (define-key minibuffer-local-map "\C-z" 'ee-suspend-edit)
  1029.   (define-key minibuffer-local-map "\eA" 'ee-not-here)
  1030.   (define-key minibuffer-local-map "\eB" 'ee-not-here)
  1031.   (define-key minibuffer-local-map "\eC" 'ee-not-here)
  1032.   (define-key minibuffer-local-map "\eD" 'ee-list-dir)
  1033.   (define-key minibuffer-local-map "\eE" 'ee-not-here)
  1034.   (define-key minibuffer-local-map "\eF" 'ee-not-here)
  1035.   (define-key minibuffer-local-map "\eG" 'ee-not-here)
  1036.   (define-key minibuffer-local-map "\eH" 'ee-not-here)
  1037.   (define-key minibuffer-local-map "\eI" 'ee-not-here)
  1038.   (define-key minibuffer-local-map "\eJ" 'ee-not-here)
  1039.   (define-key minibuffer-local-map "\eK" 'ee-not-here)
  1040.   (define-key minibuffer-local-map "\eL" 'ee-kill-line)  
  1041.   (define-key minibuffer-local-map "\eM" 'ee-not-here)
  1042.   (define-key minibuffer-local-map "\eN" 'ee-toggle-insert)
  1043.   (define-key minibuffer-local-map "\eP" 'ee-not-here)
  1044.   (define-key minibuffer-local-map "\eQ" 'ee-not-here)
  1045.   (define-key minibuffer-local-map "\eR" 'ee-not-here)
  1046.   (define-key minibuffer-local-map "\eS" 'ee-not-here)
  1047.   (define-key minibuffer-local-map "\eT" 'ee-not-here)
  1048.   (define-key minibuffer-local-map "\eU" 'undo)
  1049.   (define-key minibuffer-local-map "\eV" 'ee-not-here)
  1050.   (define-key minibuffer-local-map "\eW" 'ee-not-here)
  1051.   (define-key minibuffer-local-map "\eX" 'kill-line)
  1052.   (define-key minibuffer-local-map "\eY" 'ee-not-here)
  1053.   (define-key minibuffer-local-map "\eZ" 'ee-not-here)
  1054.   (define-key minibuffer-local-map "\ea" 'ee-not-here)
  1055.   (define-key minibuffer-local-map "\eb" 'ee-not-here)
  1056.   (define-key minibuffer-local-map "\ec" 'ee-not-here)
  1057.   (define-key minibuffer-local-map "\ed" 'ee-not-here)
  1058.   (define-key minibuffer-local-map "\ee" 'ee-not-here)
  1059.   (define-key minibuffer-local-map "\ef" 'ee-not-here)
  1060.   (define-key minibuffer-local-map "\eg" 'ee-not-here)
  1061.   (define-key minibuffer-local-map "\eh" 'ee-not-here)
  1062.   (define-key minibuffer-local-map "\ei" 'ee-not-here)
  1063.   (define-key minibuffer-local-map "\ej" 'ee-not-here)
  1064.   (define-key minibuffer-local-map "\ek" 'ee-not-here)
  1065.   (define-key minibuffer-local-map "\el" 'ee-kill-line)  
  1066.   (define-key minibuffer-local-map "\em" 'ee-not-here)
  1067.   (define-key minibuffer-local-map "\en" 'ee-toggle-insert)
  1068.   (define-key minibuffer-local-map "\ep" 'ee-not-here)
  1069.   (define-key minibuffer-local-map "\eq" 'ee-not-here)
  1070.   (define-key minibuffer-local-map "\er" 'ee-not-here)
  1071.   (define-key minibuffer-local-map "\es" 'ee-not-here)
  1072.   (define-key minibuffer-local-map "\et" 'ee-not-here)
  1073.   (define-key minibuffer-local-map "\eu" 'undo)
  1074.   (define-key minibuffer-local-map "\ev" 'ee-not-here)
  1075.   (define-key minibuffer-local-map "\ew" 'ee-not-here)
  1076.   (define-key minibuffer-local-map "\ex" 'kill-line)
  1077.   (define-key minibuffer-local-map "\ey" 'ee-not-here)
  1078.   (define-key minibuffer-local-map "\ez" 'ee-not-here)
  1079.   
  1080.   (define-key minibuffer-local-map "\e!" 'ee-nofun)
  1081.   (define-key minibuffer-local-map "\e@" 'ee-nofun)
  1082.   (define-key minibuffer-local-map "\e#" 'ee-nofun)
  1083.   (define-key minibuffer-local-map "\e$" 'ee-nofun)
  1084.   (define-key minibuffer-local-map "\e%" 'ee-nofun)
  1085.   (define-key minibuffer-local-map "\e^" 'ee-nofun)
  1086.   (define-key minibuffer-local-map "\e&" 'ee-nofun)
  1087.   (define-key minibuffer-local-map "\e*" 'ee-nofun)
  1088.   (define-key minibuffer-local-map "\e(" 'ee-nofun)
  1089.   (define-key minibuffer-local-map "\e)" 'ee-nofun)
  1090.   (define-key minibuffer-local-map "\e_" 'ee-nofun)
  1091.   (define-key minibuffer-local-map "\e+" 'ee-nofun)
  1092.   (define-key minibuffer-local-map "\e-" 'ee-nofun)
  1093.   (define-key minibuffer-local-map "\e=" 'ee-nofun)
  1094.   (define-key minibuffer-local-map "\e{" 'ee-nofun)
  1095.   (define-key minibuffer-local-map "\e}" 'ee-nofun)
  1096.   (define-key minibuffer-local-map "\e]" 'ee-nofun)
  1097.   (define-key minibuffer-local-map "\e:" 'ee-nofun)
  1098.   (define-key minibuffer-local-map "\e;" 'ee-nofun)
  1099.   (define-key minibuffer-local-map "\e\"" 'ee-nofun)
  1100.   (define-key minibuffer-local-map "\e~" 'ee-nofun)
  1101.   (define-key minibuffer-local-map "\e'" 'ee-nofun)
  1102.   (define-key minibuffer-local-map "\e`" 'ee-nofun)
  1103.   (define-key minibuffer-local-map "\e\." 'ee-nofun)
  1104.   (define-key minibuffer-local-map "\e\," 'ee-nofun)
  1105.   (define-key minibuffer-local-map "\e?" 'ee-nofun)
  1106.   (define-key minibuffer-local-map "\e/" 'ee-nofun)
  1107.   (define-key minibuffer-local-map "\e|" 'ee-nofun)
  1108.   (define-key minibuffer-local-map "\e\\" 'ee-nofun)
  1109. )
  1110.  
  1111.  
  1112.  
  1113. (defun ee-list-dir ()
  1114.   "List a directory in another window"
  1115.   (interactive)
  1116.   (let ((default-directory "./"))
  1117.     (setq gamsg "\n\n\nType a filename, a directory name, or a wildcard 
  1118. (e.g. t*   lists all files starting with t)
  1119. to list particular files or an entire directory.\n
  1120. Type a carriage return alone to list the current working directory")
  1121. (setq ldir (ee-get-arg gamsg "Dir or file(s) to list: ")) 
  1122. (save-window-excursion
  1123.   (if (eq 0 (length ldir))
  1124.       (setq ldir "."))
  1125.   
  1126.   (setq lcomm (concat "ls -l " ldir))
  1127.   (setq command (concat "(set noglob; /bin/echo command executed: " lcomm ");" lcomm))
  1128.   (with-output-to-temp-buffer "*Directory*"
  1129.     (buffer-flush-undo standard-output)
  1130.     (message "Working...")
  1131.     (call-process "csh" nil standard-output nil "-c" command))
  1132.   (let ((cursor-in-echo-area t))
  1133.     (setq char ?b)
  1134.     (while (not (eq char ?r))
  1135.       (progn 
  1136.     (message "(f)orward  (b)ackwards  (r)esume editing: ")
  1137.     (setq char (downcase (read-char)))
  1138.     (other-window 1)
  1139.     (cond ((eq char ?f) 
  1140.            (if (not (pos-visible-in-window-p (point-max))) 
  1141.            (scroll-up)(ding)(message "At bottom")(sleep-for 2)))
  1142.           ((eq char ?b) 
  1143.            (if (not (pos-visible-in-window-p (point-min))) 
  1144.            (scroll-down)(ding)(message "At top")(sleep-for 2)))
  1145.           ((eq char ?r) nil)
  1146.           (t   (message "Type f, b, or r please: ")
  1147.            (sleep-for 2)
  1148.            t))
  1149.     (other-window 1))) )))
  1150. )
  1151.  
  1152. (defun ee-license ()
  1153.   "License info"
  1154.   (interactive)
  1155. (save-window-excursion
  1156.  
  1157.   (with-output-to-temp-buffer "*LICENSE*"
  1158.  
  1159.     (buffer-flush-undo standard-output)
  1160.     (princ " Easy-edit novice screen editor for Unix systems with GNU emacs\n")
  1161.     (princ "
  1162.      Easy-edit " ) (princ ee-VERSION)
  1163.     (princ "
  1164.  
  1165.      Copyright (C) 1992     Larry Broda
  1166.                             Department of Psychology
  1167.                             University of Illinois at Urbana-Champaign
  1168.  
  1169.     This program is distributed in the hope that it will be useful, 
  1170.     but WITHOUT ANY WARRANTY; without even the implied warranty of 
  1171.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  This program  
  1172.     is an extension of GNU emacs; See the GNU General Public License  
  1173.     for more details. 
  1174.  
  1175.     This program is free software; you can redistribute it and/or modify
  1176.     it under the same terms as the GNU General Public License as published by
  1177.     the Free Software Foundation; either version 1, or (at your option)
  1178.     any later version.
  1179.  
  1180.  
  1181.        By Larry Broda  
  1182.        Department of Psychology
  1183.        University of Illinois at Urbana-Champaign
  1184.        Email: lbroda@s.psych.uiuc.edu
  1185.        4/13/92 
  1186.  
  1187.     for GNU emacs information contact:
  1188.     Free Software Foundation
  1189.     675 Massachusetts Avenu
  1190.     Cambridge, MA 02139
  1191.     USA
  1192. "))
  1193.   (let ((cursor-in-echo-area t))
  1194.     (setq char ?b)
  1195.     (while (not (eq char ?r))
  1196.       (progn 
  1197.     (message "(f)orward  (b)ackwards  (r)esume editing: ")
  1198.     (setq char (downcase (read-char)))
  1199.     (other-window 1)
  1200.     (cond ((eq char ?f) 
  1201.            (if (not (pos-visible-in-window-p (point-max))) 
  1202.            (scroll-up)(ding)(message "At bottom")(sleep-for 2)))
  1203.           ((eq char ?b) 
  1204.            (if (not (pos-visible-in-window-p (point-min))) 
  1205.            (scroll-down)(ding)(message "At top")(sleep-for 2)))
  1206.           ((eq char ?r) nil)
  1207.           (t   (message "Type f, b, or r please: ")
  1208.            (sleep-for 2)
  1209.            t))
  1210.     (other-window 1)))))
  1211. )
  1212.  
  1213. (defun ee-repeat-count ()
  1214.   "Begin a numeric argument for the following command.
  1215. Digits or minus sign following this command make up the numeric argument.
  1216. If no digits or minus sign follow, this command by itself provides 4 as argument.
  1217. Used more than once, this command multiplies the argument by 4 each time."
  1218.   (interactive nil)
  1219.   (message "Enter count followed by key or command to repeat: ")
  1220.   (let ((c-u 4) (argstartchar last-command-char)
  1221.     char)
  1222.     (setq char (read-char))
  1223.     (while (= char argstartchar)
  1224.       (setq c-u (* 4 c-u))
  1225.       (setq char (read-char)))
  1226.     (prefix-arg-internal char c-u nil)))
  1227.  
  1228. (defun ee-not-manual ()
  1229.   "Error for using manual commands outside manual"
  1230.   (interactive)
  1231.   (message "This command only valid if manual is displayed")
  1232.   (ding)
  1233.   (sleep-for 3)
  1234.   (ee-message HELP_HELP))
  1235.  
  1236. (defun ee-unix-command ()
  1237.   "execute a Unix command"
  1238.   (interactive)
  1239.   (setq gamsg "Type a unix command.  The output will be displayed in
  1240. a special window, where you may:
  1241. 1: Scroll the output listing forward and backward (f/b).
  1242. 2: Insert the command output listing into your edit file at the current 
  1243.    cursor location (i).
  1244. NOTE:  The command can *NOT* be a command that requires further input by you;
  1245. Use ^Z to escape to a Unix prompt to perform interactive commands.
  1246. EXAMPLES of valid commands: date; cat <filename>; who, etc.
  1247. EXAMPLES of *INVALID* commands: Elm; easyedit; Mail, etc.
  1248. ...or anything that requires additional input from you..")
  1249.   (let ((default-directory "./"))
  1250.     (setq command (ee-get-arg gamsg "Unix Command: ")) 
  1251.     (save-window-excursion
  1252.       (with-output-to-temp-buffer "*Unix*"
  1253.     (buffer-flush-undo standard-output)
  1254.     (message (concat "executing " (concat command "...")))
  1255.     (call-process "csh" nil standard-output nil "-c" command))
  1256.       (let ((cursor-in-echo-area t))
  1257.     (setq char ?b)
  1258.     (while (not (eq char ?r))
  1259.       (progn 
  1260.         (message "(f)orward  (b)ackwards  (i)nsert output into file  (r)esume editing: ")
  1261.         (setq char (downcase (read-char)))
  1262.         (other-window 1)
  1263.         (cond ((eq char ?f) 
  1264.            (if (not (pos-visible-in-window-p (point-max))) 
  1265.                (scroll-up)(ding)(message "At bottom")(sleep-for 2)))
  1266.           ((eq char ?b) 
  1267.            (if (not (pos-visible-in-window-p (point-min))) 
  1268.                (scroll-down)(ding)(message "At top")(sleep-for 2)))
  1269.           ((eq char ?r) nil)
  1270.           ((eq char ?i) (progn (copy-to-register ?v (point-min)(point-max) nil)
  1271.                        (other-window 1)
  1272.                        (insert-register ?v)
  1273.                        (other-window 1)))
  1274.           
  1275.           (t   (message "Type f, b, i, or r please: ")
  1276.                (sleep-for 2)
  1277.                t))
  1278.         (other-window 1))))))
  1279.   )
  1280.  
  1281.  
  1282. ;
  1283. ;
  1284. ;  create the separate windows
  1285. ;
  1286.  
  1287. (progn
  1288.   (setq EE_FILE_NAME (file-name-nondirectory buffer-file-name))
  1289.   (ee-check-recovery-file EE_FILE_NAME)
  1290.   (rename-buffer "EDIT")
  1291.   (setq ee-EWIN (selected-window))
  1292.   (setq ee-BLOCK-MARK 0)
  1293.   (setq ee-BLOCK-SAVED nil)
  1294.   (ee-create-help)
  1295.   (easyedit-mode)
  1296.   (if (getenv "EE_HELP_OFF")
  1297.         (progn (ee-zap-help) ))
  1298. )
  1299.