cgit.sxemacs.org Git - packages/blob - xemacs-packages/w3/lisp/w3-keymap.el

   1 ;;; w3-keymap.el --- Keybindings for Emacs/W3
   2 ;; Author: $Author: fx $
   3 ;; Created: $Date: 2001/05/29 15:46:28 $
   4 ;; Version: $Revision: 1.2 $
   5 ;; Keywords: comm, help, hypermedia
   6
   7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   8 ;;; Copyright (c) 1993 - 1996 by William M. Perry <wmperry@cs.indiana.edu>
   9 ;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc.
  10 ;;;
  11 ;;; This file is part of GNU Emacs.
  12 ;;;
  13 ;;; GNU Emacs is free software; you can redistribute it and/or modify
  14 ;;; it under the terms of the GNU General Public License as published by
  15 ;;; the Free Software Foundation; either version 2, or (at your option)
  16 ;;; any later version.
  17 ;;;
  18 ;;; GNU Emacs is distributed in the hope that it will be useful,
  19 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;;; GNU General Public License for more details.
  22 ;;;
  23 ;;; You should have received a copy of the GNU General Public License
  24 ;;; along with GNU Emacs; see the file COPYING.  If not, write to the
  25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  26 ;;; Boston, MA 02111-1307, USA.
  27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  28
  29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  30 ;;;  Keymap definitions
  31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  32 (defvar w3-mode-map (make-sparse-keymap) "Keymap to use in w3-mode.")
  33 (suppress-keymap w3-mode-map)
  34 (set-keymap-parent w3-mode-map widget-keymap)
  35
  36 (define-key w3-mode-map "h" (make-sparse-keymap))
  37 (define-key w3-mode-map "H" (make-sparse-keymap))
  38 (define-key w3-mode-map "a" (make-sparse-keymap))
  39
  40 (define-key w3-mode-map "ha"       'w3-hotlist-apropos)
  41 (define-key w3-mode-map "hd"       'w3-hotlist-delete)
  42 (define-key w3-mode-map "hi"       'w3-hotlist-add-document)
  43 (define-key w3-mode-map "hv"       'w3-hotlist-view)
  44 (define-key w3-mode-map "hr"       'w3-hotlist-rename-entry)
  45 (define-key w3-mode-map "hu"       'w3-use-hotlist)
  46 (define-key w3-mode-map "hA"       'w3-hotlist-append)
  47 (define-key w3-mode-map "hI"       'w3-hotlist-add-document-at-point)
  48 (define-key w3-mode-map "hR"       'w3-hotlist-refresh)
  49
  50 (define-key w3-mode-map "x" (make-sparse-keymap))
  51 (define-key w3-mode-map "xa" 'w3-hotindex-add-key)
  52 (define-key w3-mode-map "xd" 'w3-hotindex-rm-key)
  53 (define-key w3-mode-map "xq" 'w3-hotindex-query)
  54
  55 (define-key w3-mode-map "HF"       'w3-history-forward)
  56 (define-key w3-mode-map "HB"       'w3-history-backward)
  57 (define-key w3-mode-map "Hv"       'w3-show-history-list)
  58
  59 (define-key w3-mode-map " "        'w3-scroll-up)
  60 (define-key w3-mode-map "<"        'beginning-of-buffer)
  61 (define-key w3-mode-map ">"        'end-of-buffer)
  62 (define-key w3-mode-map "?"        'w3-help)
  63 (define-key w3-mode-map "B"        'w3-history-backward)
  64 (define-key w3-mode-map "D"        'w3-download-url-at-point)
  65 (define-key w3-mode-map "F"        'w3-history-forward)
  66 (define-key w3-mode-map "G"        'w3-show-graphics)
  67 (define-key w3-mode-map "I"        'w3-popup-info)
  68 (define-key w3-mode-map "K"        'w3-save-this-url)
  69 ;; FIXME!
  70 ;;(define-key w3-mode-map "P"        'w3-print-url-under-point)
  71 (define-key w3-mode-map "Q"        'w3-leave-buffer)
  72 (define-key w3-mode-map "R"        'w3-refresh-buffer)
  73 (define-key w3-mode-map "S"        'w3-source-document-at-point)
  74 (define-key w3-mode-map "U"        'w3-use-links)
  75 (define-key w3-mode-map "V"        'w3-view-this-url)
  76 (define-key w3-mode-map "\C-?"     'scroll-down)
  77 (define-key w3-mode-map [backspace] 'scroll-down)
  78 (define-key w3-mode-map "\C-c\C-b" 'w3-show-history-list)
  79 (define-key w3-mode-map "\C-c\C-v" 'w3-version)
  80 (define-key w3-mode-map "\C-o"     'w3-fetch)
  81 (define-key w3-mode-map "\M-M"     'w3-mail-document-under-point)
  82 (define-key w3-mode-map "\M-m"     'w3-mail-current-document)
  83 (define-key w3-mode-map "\M-s"     'w3-save-as)
  84 (define-key w3-mode-map "\M-\r"    'w3-follow-inlined-image)
  85 (define-key w3-mode-map "b"        'w3-widget-backward)
  86 (define-key w3-mode-map "c"        'w3-mail-document-author)
  87 (define-key w3-mode-map "d"        'w3-download-this-url)
  88 (define-key w3-mode-map "f"        'w3-widget-forward)
  89 (define-key w3-mode-map "g"        'w3-reload-document)
  90 (define-key w3-mode-map "i"        'w3-document-information)
  91 (define-key w3-mode-map "k"        'w3-save-url)
  92 (define-key w3-mode-map "l"        'w3-goto-last-buffer)
  93 (define-key w3-mode-map "m"        'w3-complete-link)
  94 (define-key w3-mode-map "n"        'w3-widget-forward)
  95 (define-key w3-mode-map "o"        'w3-open-local)
  96 (define-key w3-mode-map "p"        'w3-print-this-url)
  97 (define-key w3-mode-map "q"        'w3-quit)
  98 (define-key w3-mode-map "r"        'w3-reload-document)
  99 (define-key w3-mode-map "s"        'w3-source-document)
 100 (define-key w3-mode-map "u"        'w3-leave-buffer)
 101 (define-key w3-mode-map "v"        'url-view-url)
 102 (define-key w3-mode-map "w"        'w3-submit-bug)
 103
 104 ;; These are duplicated here instead of just inherited from widget-keymap
 105 ;; due to some issues with Emacspeak.  FIXME.
 106 (define-key w3-mode-map [tab] 'w3-widget-forward)
 107 (define-key w3-mode-map [(shift tab)] 'w3-widget-backward)
 108 (define-key w3-mode-map [(meta tab)] 'w3-widget-backward)
 109 (define-key w3-mode-map [backtab] 'w3-widget-backward)
 110
 111 ;; Emulate some netscape stuff by default
 112 (define-key w3-mode-map [(control alt t)] 'url-list-processes)
 113 (define-key w3-mode-map [(control meta t)] 'url-list-processes)
 114
 115 ;; Have fun with document ordering
 116 (define-key w3-mode-map [(meta space)] 'w3-next-document)
 117 (define-key w3-mode-map [(meta delete)] 'w3-prev-document)
 118
 119 (provide 'w3-keymap)