home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / util / edit / jade / lisp / loadmenus.jl < prev    next >
Text File  |  1994-07-12  |  4KB  |  93 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.      ("Toggle read-only (C-x q)" (set-buffer-read-only nil (not (buffer-read-only-p))))
  36.      ("Toggle modified (M-~)" (set-buffer-modified nil nil))
  37.      ("Close server file (Ctrl-x #)" server-close-file)
  38.      ()
  39.      ("Close window (C-x 0)" close-window)
  40.      ("Close other windows (C-x 1)" close-other-windows)
  41.      ()
  42.      ("Quit (C-x C-c)" save-and-quit))
  43.    '("Edit"
  44.      ("Mark block (C-SPC)" block-toggle)
  45.      ("Mark rectangles (C-M)" toggle-rect-blocks)
  46.      ("Mark whole buffer (C-x h)" mark-whole-buffer)
  47.      ()
  48.      ("Kill block (C-w)" kill-block)
  49.      ("Copy block (M-w)" copy-block-as-kill)
  50.      ("Delete block (C-z)" delete-block)
  51.      ("Upcase block (C-x C-u)" upcase-area)
  52.      ("Downcase block (C-x C-l)" downcase-area)
  53.      ()
  54.      ("Kill word (M-k)" kill-word)
  55.      ("Upcase word (M-u)" upcase-word)
  56.      ("Downcase word (M-l)" downcase-word)
  57.      ("Capitalise word (M-c)" capitalize-word)
  58.      ()
  59.      ("Yank (C-y)" yank)
  60.      ("Rectangular yank (C-Y)" rectangular-yank)
  61.      ("Insert block (C-i)" insert-block)
  62.      ("Kill line (C-k)" kill-line)
  63.      ()
  64.      ("Undo (C-x u)" undo))
  65.    '("Find"
  66.      ("I-search... (C-s)" isearch-forward)
  67.      ("I-search backwards... (C-r)" isearch-backward)
  68.      ()
  69.      ("Global replace..." replace-all)
  70.      ("Query replace... (M-%)" query-replace)
  71.      ()
  72.      ("Line number... (C-j)" goto-line)
  73.      ("Matching bracket (M-n)" (progn (set-auto-mark) (goto-matching-bracket)))
  74.      ("Next window (C-x o)" (set-current-window (next-window) t)))
  75.    '("Marks"
  76.      ("Set auto-mark (C-#)" set-auto-mark)
  77.      ("Goto auto-mark (C-x C-x)" swap-cursor-and-auto-mark)
  78.      ()
  79.      ("Set #1 (S-F1)" (set-mark mark-1 (cursor-pos) (current-buffer)))
  80.      ("Set #2 (S-F2)" (set-mark mark-2 (cursor-pos) (current-buffer)))
  81.      ("Set #3 (S-F3)" (set-mark mark-3 (cursor-pos) (current-buffer)))
  82.      ()
  83.      ("Goto #1 (F1)" (goto-mark mark-1))
  84.      ("Goto #2 (F2)" (goto-mark mark-2))
  85.      ("Goto #3 (F3)" (goto-mark mark-3)))
  86.    '("Help"
  87.      ("Describe key... (C-h k)" describe-key)
  88.      ("Print key bindings (C-h b)" print-keymap)
  89.      ("Describe editing mode (C-h m)" describe-mode)
  90.      ()
  91.      ("Describe variable... (C-h v)" describe-variable)
  92.      ("Describe function... (C-h f)" describe-function))))
  93.