Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-keys.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 6a22abad6937
children 0d2f883870bc
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;;; $Id: hm--html-keys.el,v 1.5 1997/03/26 22:42:37 steve Exp $ 1 ;;; $Id: hm--html-keys.el,v 1.1.1.1 1996/12/18 22:43:20 steve Exp $
2 ;;; 2 ;;;
3 ;;; Copyright (C) 1995, 1996, 1997 Heiko Muenkel 3 ;;; Copyright (C) 1995, 1996 Heiko Muenkel
4 ;;; email: muenkel@tnt.uni-hannover.de 4 ;;; email: muenkel@tnt.uni-hannover.de
5 ;;; 5 ;;;
6 ;;; This program is free software; you can redistribute it and/or modify 6 ;;; This program is free software; you can redistribute it and/or modify
7 ;;; it under the terms of the GNU General Public License as published by 7 ;;; it under the terms of the GNU General Public License as published by
8 ;;; the Free Software Foundation; either version 2, or (at your option) 8 ;;; the Free Software Foundation; either version 1, or (at your option)
9 ;;; any later version. 9 ;;; any later version.
10 ;;; 10 ;;;
11 ;;; This program is distributed in the hope that it will be useful, 11 ;;; This program is distributed in the hope that it will be useful,
12 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 12 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25 ;;; Installation: 25 ;;; Installation:
26 ;;; 26 ;;;
27 ;;; Put this file in one of your load path directories. 27 ;;; Put this file in one of your load path directories.
28 ;;; 28 ;;;
29 29
30 ;; This is necessary to get the definition of hm--html-mode-prefix-key.
31 (require 'hm--html-configuration)
32
30 (if (adapt-emacs19p) 33 (if (adapt-emacs19p)
31 (progn 34 (progn
32 35
33 (defvar hm--html-emacs19-popup-noregion-menu-button [C-down-mouse-3] 36 (defvar hm--html-emacs19-popup-noregion-menu-button [C-down-mouse-3]
34 "This is the mouse button , which pops up the noregion menus. 37 "This is the mouse button , which pops up the noregion menus.
54 (define-key hm--html-noregion-anchor-map "i" 'hm--html-add-info-link) 57 (define-key hm--html-noregion-anchor-map "i" 'hm--html-add-info-link)
55 (define-key hm--html-noregion-anchor-map "g" 'hm--html-add-gopher-link) 58 (define-key hm--html-noregion-anchor-map "g" 'hm--html-add-gopher-link)
56 (define-key hm--html-noregion-anchor-map "f" 'hm--html-add-file-link) 59 (define-key hm--html-noregion-anchor-map "f" 'hm--html-add-file-link)
57 (define-key hm--html-noregion-anchor-map "\C-f" 'hm--html-add-ftp-link) 60 (define-key hm--html-noregion-anchor-map "\C-f" 'hm--html-add-ftp-link)
58 (define-key hm--html-noregion-anchor-map "n" 'hm--html-add-news-link) 61 (define-key hm--html-noregion-anchor-map "n" 'hm--html-add-news-link)
59 (define-key hm--html-noregion-anchor-map "m" 'hm--html-add-mail-box-link) 62 (define-key hm--html-noregion-anchor-map "m" 'hm--html-add-mail-link)
63 ; (define-key hm--html-noregion-anchor-map "\C-m" 'hm--html-add-mailto-link)
60 (define-key hm--html-noregion-anchor-map 64 (define-key hm--html-noregion-anchor-map
61 [(control m)] 'hm--html-add-mailto-link) 65 [(control m)] 'hm--html-add-mailto-link)
62 (define-key hm--html-noregion-anchor-map "w" 'hm--html-add-direct-wais-link) 66 (define-key hm--html-noregion-anchor-map "w" 'hm--html-add-direct-wais-link)
63 (define-key hm--html-noregion-anchor-map "\C-w" 'hm--html-add-wais-link) 67 (define-key hm--html-noregion-anchor-map "\C-w" 'hm--html-add-wais-link)
64 (define-key hm--html-noregion-anchor-map "p" 'hm--html-add-proggate-link) 68 (define-key hm--html-noregion-anchor-map "p" 'hm--html-add-proggate-link)
82 "g" 'hm--html-add-gopher-link-to-region) 86 "g" 'hm--html-add-gopher-link-to-region)
83 (define-key hm--html-region-anchor-map "f" 'hm--html-add-file-link-to-region) 87 (define-key hm--html-region-anchor-map "f" 'hm--html-add-file-link-to-region)
84 (define-key hm--html-region-anchor-map 88 (define-key hm--html-region-anchor-map
85 "\C-f" 'hm--html-add-ftp-link-to-region) 89 "\C-f" 'hm--html-add-ftp-link-to-region)
86 (define-key hm--html-region-anchor-map "n" 'hm--html-add-news-link-to-region) 90 (define-key hm--html-region-anchor-map "n" 'hm--html-add-news-link-to-region)
87 (define-key hm--html-region-anchor-map "m" 'hm--html-add-mail-box-link-to-region) 91 (define-key hm--html-region-anchor-map "m" 'hm--html-add-mail-link-to-region)
92 ; (define-key hm--html-region-anchor-map
93 ; "\C-m" 'hm--html-add-mailto-link-to-region)
88 (define-key hm--html-region-anchor-map 94 (define-key hm--html-region-anchor-map
89 [(control m)] 'hm--html-add-mailto-link-to-region) 95 [(control m)] 'hm--html-add-mailto-link-to-region)
90 (define-key hm--html-region-anchor-map 96 (define-key hm--html-region-anchor-map
91 "w" 'hm--html-add-direct-wais-link-to-region) 97 "w" 'hm--html-add-direct-wais-link-to-region)
92 (define-key hm--html-region-anchor-map 98 (define-key hm--html-region-anchor-map
106 112
107 (if hm--html-noregion-frame-map 113 (if hm--html-noregion-frame-map
108 () 114 ()
109 (setq hm--html-noregion-frame-map (make-sparse-keymap)) 115 (setq hm--html-noregion-frame-map (make-sparse-keymap))
110 (define-key hm--html-noregion-frame-map "f" 'hm--html-add-full-html-frame) 116 (define-key hm--html-noregion-frame-map "f" 'hm--html-add-full-html-frame)
111 (define-key hm--html-noregion-frame-map [(control d)] 'hm--html-add-doctype)
112 (define-key hm--html-noregion-frame-map [(control h)] 'hm--html-add-html) 117 (define-key hm--html-noregion-frame-map [(control h)] 'hm--html-add-html)
113 (define-key hm--html-noregion-frame-map [(meta h)] 'hm--html-add-head) 118 (define-key hm--html-noregion-frame-map [(meta h)] 'hm--html-add-head)
114 (define-key hm--html-noregion-frame-map "b" 'hm--html-add-body) 119 (define-key hm--html-noregion-frame-map "b" 'hm--html-add-body)
115 (define-key hm--html-noregion-frame-map 120 (define-key hm--html-noregion-frame-map
116 [(control t)] 'hm--html-add-title-and-header) 121 [(control t)] 'hm--html-add-title-and-header)
117 (define-key hm--html-noregion-frame-map "t" 'hm--html-add-title) 122 (define-key hm--html-noregion-frame-map "t" 'hm--html-add-title)
118 (define-key hm--html-noregion-frame-map "h" 'hm--html-add-header) 123 (define-key hm--html-noregion-frame-map "h" 'hm--html-add-header)
119 (define-key hm--html-noregion-frame-map "m" 'hm--html-add-meta)
120 (define-key hm--html-noregion-frame-map "n" 'hm--html-add-normal-node-link) 124 (define-key hm--html-noregion-frame-map "n" 'hm--html-add-normal-node-link)
121 (define-key hm--html-noregion-frame-map "i" 'hm--html-add-isindex)
122 (define-key hm--html-noregion-frame-map [(meta d)] 'hm--html-add-base)
123 (define-key hm--html-noregion-frame-map "a" 'hm--html-add-address) 125 (define-key hm--html-noregion-frame-map "a" 'hm--html-add-address)
124 (define-key hm--html-noregion-frame-map "s" 'hm--html-add-signature) 126 (define-key hm--html-noregion-frame-map "s" 'hm--html-add-signature)
125 (define-key hm--html-noregion-frame-map 127 (define-key hm--html-noregion-frame-map
126 [(control c)] 'hm--html-insert-created-comment) 128 [(control c)] 'hm--html-insert-created-comment)
127 (define-key hm--html-noregion-frame-map "c" 'hm--html-insert-changed-comment) 129 (define-key hm--html-noregion-frame-map "c" 'hm--html-insert-changed-comment)
177 (define-key hm--html-noregion-structure-map 179 (define-key hm--html-noregion-structure-map
178 "\C-t\C-r" 'hm--html-add-additional-table-row) 180 "\C-t\C-r" 'hm--html-add-additional-table-row)
179 (define-key hm--html-noregion-structure-map "p" 'hm--html-add-paragraph) 181 (define-key hm--html-noregion-structure-map "p" 'hm--html-add-paragraph)
180 (define-key hm--html-noregion-structure-map 182 (define-key hm--html-noregion-structure-map
181 "\C-p" 'hm--html-add-paragraph-separator) 183 "\C-p" 'hm--html-add-paragraph-separator)
182 (define-key hm--html-noregion-structure-map
183 [(meta d)] 'hm--html-add-document-division)
184 (define-key hm--html-noregion-structure-map "\C-m" 'hm--html-add-line-break) 184 (define-key hm--html-noregion-structure-map "\C-m" 'hm--html-add-line-break)
185 (define-key hm--html-noregion-structure-map 185 (define-key hm--html-noregion-structure-map
186 "h" 'hm--html-add-horizontal-rule) 186 "h" 'hm--html-add-horizontal-rule)
187 ) 187 )
188 188
190 "Region sub keymap for inserting entities.") 190 "Region sub keymap for inserting entities.")
191 191
192 (if hm--html-region-structure-map 192 (if hm--html-region-structure-map
193 () 193 ()
194 (setq hm--html-region-structure-map (make-sparse-keymap)) 194 (setq hm--html-region-structure-map (make-sparse-keymap))
195 (define-key hm--html-region-structure-map 195 (define-key hm--html-noregion-structure-map
196 "i" 'hm--html-add-list-or-menu-item-to-region) 196 "i" 'hm--html-add-list-or-menu-item-to-region)
197 (define-key hm--html-region-structure-map "m" 'hm--html-add-menu-to-region) 197 (define-key hm--html-region-structure-map "m" 'hm--html-add-menu-to-region)
198 (define-key hm--html-region-structure-map "u" 'hm--html-add-list-to-region) 198 (define-key hm--html-region-structure-map "u" 'hm--html-add-list-to-region)
199 (define-key hm--html-region-structure-map 199 (define-key hm--html-region-structure-map
200 "o" 'hm--html-add-numberlist-to-region) 200 "o" 'hm--html-add-numberlist-to-region)
201 (define-key hm--html-region-structure-map 201 (define-key hm--html-region-structure-map
202 "d" 'hm--html-add-directorylist-to-region) 202 "d" 'hm--html-add-directory-list-to-region)
203 (define-key hm--html-region-structure-map 203 (define-key hm--html-region-structure-map
204 "\C-dl" 'hm--html-add-description-list-to-region) 204 "\C-dl" 'hm--html-add-description-list-to-region)
205 (define-key hm--html-region-structure-map 205 (define-key hm--html-region-structure-map
206 "\C-dt" 'hm--html-add-description-title-to-region) 206 "\C-dt" 'hm--html-add-description-title-to-region)
207 (define-key hm--html-region-structure-map 207 (define-key hm--html-region-structure-map
208 "\C-de" 'hm--html-add-description-entry-to-region) 208 "\C-de" 'hm--html-add-description-entry-to-region)
209 ; (define-key hm--html-region-structure-map
210 ; "\C-d\C-t" 'html-add-description-title-and-entry-to-region))
209 (define-key hm--html-region-structure-map 211 (define-key hm--html-region-structure-map
210 "\C-tt" 'hm--html-add-table-to-region) 212 "\C-tt" 'hm--html-add-table-to-region)
211 (define-key hm--html-region-structure-map 213 (define-key hm--html-region-structure-map
212 "\C-t\C-t" 'hm--html-add-table-title-to-region) 214 "\C-t\C-t" 'hm--html-add-table-title-to-region)
213 (define-key hm--html-region-structure-map 215 (define-key hm--html-region-structure-map
214 "p" 'hm--html-add-paragraph-to-region) 216 "p" 'hm--html-add-paragraph-to-region)
215 (define-key hm--html-region-structure-map
216 [(meta d)] 'hm--html-add-document-division-to-region)
217 ) 217 )
218 218
219 (defvar hm--html-noregion-formating-paragraph-map nil 219 (defvar hm--html-noregion-formating-paragraph-map nil
220 "Noregion sub keymap for inserting paragraph formating elements.") 220 "Noregion sub keymap for inserting paragraph formating elements.")
221 221
222 (if hm--html-noregion-formating-paragraph-map 222 (if hm--html-noregion-formating-paragraph-map
223 () 223 ()
224 (setq hm--html-noregion-formating-paragraph-map (make-sparse-keymap)) 224 (setq hm--html-noregion-formating-paragraph-map (make-sparse-keymap))
225 ; (define-key hm--html-noregion-formating-paragraph-map
226 ; "o" 'hm--html-add-plaintext)
227 (define-key hm--html-noregion-formating-paragraph-map 225 (define-key hm--html-noregion-formating-paragraph-map
228 "p" 'hm--html-add-preformated) 226 "o" 'hm--html-add-plaintext)
227 (define-key hm--html-noregion-formating-paragraph-map
228 "w" 'hm--html-add-preformated)
229 (define-key hm--html-noregion-formating-paragraph-map 229 (define-key hm--html-noregion-formating-paragraph-map
230 "b" 'hm--html-add-blockquote) 230 "b" 'hm--html-add-blockquote)
231 (define-key hm--html-noregion-formating-paragraph-map 231 (define-key hm--html-noregion-formating-paragraph-map
232 "\C-b" 'hm--html-add-basefont) 232 "l" 'hm--html-add-listing)
233 (define-key hm--html-noregion-formating-paragraph-map 233 (define-key hm--html-noregion-formating-paragraph-map
234 "f" 'hm--html-add-font) 234 "a" 'hm--html-add-abstract)
235 (define-key hm--html-noregion-formating-paragraph-map
236 "c" 'hm--html-add-center)
237 (define-key hm--html-noregion-formating-paragraph-map
238 "\C-c" 'hm--html-add-comment)
239 ; (define-key hm--html-noregion-formating-paragraph-map
240 ; "l" 'hm--html-add-listing)
241 ; (define-key hm--html-noregion-formating-paragraph-map
242 ; "a" 'hm--html-add-abstract)
243 ) 235 )
244 236
245 (defvar hm--html-region-formating-paragraph-map nil 237 (defvar hm--html-region-formating-paragraph-map nil
246 "Region sub keymap for inserting paragraph formating elements.") 238 "Region sub keymap for inserting paragraph formating elements.")
247 239
248 (if hm--html-region-formating-paragraph-map 240 (if hm--html-region-formating-paragraph-map
249 () 241 ()
250 (setq hm--html-region-formating-paragraph-map (make-sparse-keymap)) 242 (setq hm--html-region-formating-paragraph-map (make-sparse-keymap))
251 ; (define-key hm--html-region-formating-paragraph-map
252 ; "o" 'hm--html-add-plaintext-to-region)
253 (define-key hm--html-region-formating-paragraph-map 243 (define-key hm--html-region-formating-paragraph-map
254 "p" 'hm--html-add-preformated-to-region) 244 "o" 'hm--html-add-plaintext-to-region)
245 (define-key hm--html-region-formating-paragraph-map
246 "w" 'hm--html-add-preformated-to-region)
255 (define-key hm--html-region-formating-paragraph-map 247 (define-key hm--html-region-formating-paragraph-map
256 "b" 'hm--html-add-blockquote-to-region) 248 "b" 'hm--html-add-blockquote-to-region)
257 (define-key hm--html-region-formating-paragraph-map 249 (define-key hm--html-region-formating-paragraph-map
258 "\C-b" 'hm--html-add-basefont-to-region) 250 "l" 'hm--html-add-listing-to-region)
259 (define-key hm--html-region-formating-paragraph-map 251 (define-key hm--html-region-formating-paragraph-map
260 "f" 'hm--html-add-font-to-region) 252 "a" 'hm--html-add-abstract-to-region)
261 (define-key hm--html-region-formating-paragraph-map
262 "c" 'hm--html-add-center-to-region)
263 (define-key hm--html-region-formating-paragraph-map
264 "\C-c" 'hm--html-add-comment-to-region)
265 ; (define-key hm--html-region-formating-paragraph-map
266 ; "l" 'hm--html-add-listing-to-region)
267 ; (define-key hm--html-region-formating-paragraph-map
268 ; "a" 'hm--html-add-abstract-to-region)
269 ) 253 )
270 254
271 (defvar hm--html-noregion-formating-word-map nil 255 (defvar hm--html-noregion-formating-word-map nil
272 "Norgion sub keymap for inserting physical text formating elements.") 256 "Norgion sub keymap for inserting physical text formating elements.")
273 257
332 "Noregion sub keymap for include images and other stuff.") 316 "Noregion sub keymap for include images and other stuff.")
333 317
334 (if hm--html-noregion-include-map 318 (if hm--html-noregion-include-map
335 () 319 ()
336 (setq hm--html-noregion-include-map (make-sparse-keymap)) 320 (setq hm--html-noregion-include-map (make-sparse-keymap))
337 (define-key hm--html-noregion-include-map 321 (define-key hm--html-noregion-include-map "t" 'hm--html-add-image-top)
338 [(control i) (t)] 'hm--html-add-image-top) 322 (define-key hm--html-noregion-include-map "m" 'hm--html-add-image-middle)
339 (define-key hm--html-noregion-include-map 323 (define-key hm--html-noregion-include-map "b" 'hm--html-add-image-bottom)
340 [(control i) (m)] 'hm--html-add-image-middle)
341 (define-key hm--html-noregion-include-map
342 [(control i) (b)] 'hm--html-add-image-bottom)
343 (define-key hm--html-noregion-include-map "i" 'hm--html-add-image)
344 (define-key hm--html-noregion-include-map [(meta i)] 'hm--html-add-image-map)
345 (define-key hm--html-noregion-include-map "m" 'hm--html-add-map)
346 (define-key hm--html-noregion-include-map [(control a)] 'hm--html-add-area)
347 (define-key hm--html-noregion-include-map "a" 'hm--html-add-applet) 324 (define-key hm--html-noregion-include-map "a" 'hm--html-add-applet)
348 (define-key hm--html-noregion-include-map "p" 'hm--html-add-applet-parameter) 325 (define-key hm--html-noregion-include-map "p" 'hm--html-add-applet)
349 ) 326 )
350 327
351 (defvar hm--html-region-include-map nil 328 (defvar hm--html-region-include-map nil
352 "Region sub keymap for include images and other stuff.") 329 "Region sub keymap for include images and other stuff.")
353 330
354 (if hm--html-region-include-map 331 (if hm--html-region-include-map
355 () 332 ()
356 (setq hm--html-region-include-map (make-sparse-keymap)) 333 (setq hm--html-region-include-map (make-sparse-keymap))
357 (define-key hm--html-region-include-map "m" 'hm--html-add-map-to-region)
358 (define-key hm--html-region-include-map "a" 'hm--html-add-applet-to-region)
359 ) 334 )
360 335
361 ;(defvar hm--html-noregion-text-elements-map nil 336 ;(defvar hm--html-noregion-text-elements-map nil
362 ; "Noregion sub keymap for inserting text elements.") 337 ; "Noregion sub keymap for inserting text elements.")
363 338