home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / may94 / util / edit / jade.lha / Jade / lisp / loadmenus.jl < prev    next >
Text File  |  1994-04-16  |  3KB  |  72 lines
  1. ;;;; loadmenus.jl -- Set up standard menu definitions (Amiga only)
  2. ;;;  Copyright (C) 1993, 1994 John Harper <jsh@ukc.ac.uk>
  3.  
  4. ;;; This file is part of Jade.
  5.  
  6. ;;; Jade is free software; you can redistribute it and/or modify it
  7. ;;; under the terms of the GNU General Public License as published by
  8. ;;; the Free Software Foundation; either version 2, or (at your option)
  9. ;;; any later version.
  10.  
  11. ;;; Jade is distributed in the hope that it will be useful, but
  12. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. ;;; GNU General Public License for more details.
  15.  
  16. ;;; You should have received a copy of the GNU General Public License
  17. ;;; along with Jade; see the file COPYING.  If not, write to
  18. ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20. (if (not (amiga-p))
  21.     (error "Menus only work on an Amiga")
  22.   (set-menu
  23.     '("Project"
  24.       ("Open file... (C-x C-f)" (find-file))
  25.       ("Open window (C-x 2)" (open-window))
  26.       ("Insert file... (C-x i)" (insert-file))
  27.       ()
  28.       ("Save file (C-x C-s)" (save-file))
  29.       ("Save file as... (C-x C-w)" (save-file-as))
  30.       ("Save some... (C-x s)" (save-some-buffers))
  31.       ()
  32.       ("Clear buffer" (when (check-changes) (clear-buffer)))
  33.       ("Kill buffer... (C-x k)" (kill-buffer))
  34.       ("Switch buffer... (C-x b)" (switch-to-buffer))
  35.       ("Close window (C-x 0)" (close-window))
  36.       ("Close other windows (C-x 1)" (close-other-windows))
  37.       ()
  38.       ("Quit (C-x C-c)" (save-and-quit)))
  39.     '("Edit"
  40.       ("Mark block (C-m)" (block-toggle))
  41.       ("Mark rectangles (C-M)" (toggle-rect-blocks))
  42.       ()
  43.       ("Kill block (C-w)" (write-clip 0 (cut-block)))
  44.       ("Copy block (ESC w)" (write-clip 0 (copy-block)))
  45.       ("Delete block (C-z)" (delete-block))
  46.       ()
  47.       ("Yank (C-y)" (insert (read-clip 0)))
  48.       ("Rectangular yank (C-Y)" (insert-rect (read-clip)))
  49.       ("Insert block (C-i)" (insert-block)))
  50.     '("Find"
  51.       ("Search... (C-s)" (search-forward))
  52.       ("Repeat search (C-S)" (search-forward t))
  53.       ("Repeat search backwards (C-R)" (search-backward t))
  54.       ()
  55.       ("Replace with... (ESC p)" (simple-replace))
  56.       ("Repeat replace (ESC P)" (simple-replace t))
  57.       ()
  58.       ("Line number... (C-j)" (goto-line))
  59.       ("Matching bracket (ESC n)" (set-auto-mark) (goto-matching-bracket))
  60.       ("Next window (C-x o)" (set-current-window (next-window) t)))
  61.     '("Marks"
  62.       ("Set auto-mark (C-#)" (set-auto-mark))
  63.       ("Goto auto-mark (C-x C-x)" (swap-cursor-and-mark))
  64.       ()
  65.       ("Set #1 (S-F1)" (set-mark mark-1 (cursor-pos) (current-buffer)))
  66.       ("Set #2 (S-F2)" (set-mark mark-2 (cursor-pos) (current-buffer)))
  67.       ("Set #3 (S-F3)" (set-mark mark-3 (cursor-pos) (current-buffer)))
  68.       ()
  69.       ("Goto #1 (F1)" (goto-mark mark-1))
  70.       ("Goto #2 (F2)" (goto-mark mark-2))
  71.       ("Goto #3 (F3)" (goto-mark mark-3)))))
  72.