38436
|
1 ;;; double.el --- support for keyboard remapping with double clicking
|
6000
|
2
|
74439
|
3 ;; Copyright (C) 1994, 1997, 1998, 2001, 2002, 2003, 2004,
|
75347
|
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc.
|
6000
|
5
|
17982
|
6 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
|
6000
|
7 ;; Keywords: i18n
|
|
8
|
6001
|
9 ;; This file is part of GNU Emacs.
|
|
10
|
|
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
|
6000
|
12 ;; it under the terms of the GNU General Public License as published by
|
78236
|
13 ;; the Free Software Foundation; either version 3, or (at your option)
|
6000
|
14 ;; any later version.
|
6001
|
15
|
|
16 ;; GNU Emacs is distributed in the hope that it will be useful,
|
6000
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
19 ;; GNU General Public License for more details.
|
6001
|
20
|
6000
|
21 ;; You should have received a copy of the GNU General Public License
|
14169
|
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
|
64091
|
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
24 ;; Boston, MA 02110-1301, USA.
|
6000
|
25
|
|
26 ;;; Commentary:
|
|
27
|
|
28 ;; This mode is intended for use with languages that adds a small
|
|
29 ;; number of extra letters not available on the keyboard.
|
49588
|
30 ;;
|
6000
|
31 ;; Examples includes Scandinavian and German with an US keyboard.
|
|
32 ;;
|
|
33 ;; The idea is that certain keys are overloaded. When you press it
|
|
34 ;; once it will insert one string, and when you press it twice the
|
|
35 ;; string will be replaced by another. This can be used for mapping
|
|
36 ;; keys on a US keyboard to generate characters according to the local
|
|
37 ;; keyboard convention when pressed once, and according to US keyboard
|
49588
|
38 ;; convention when pressed twice.
|
6000
|
39 ;;
|
|
40 ;; To use this mode, you must define the variable `double-map' and
|
|
41 ;; then enable double mode with `M-x double-mode'. Read the
|
|
42 ;; documentation for both of them.
|
|
43 ;;
|
|
44 ;; The default mapping is for getting Danish/Norwegian keyboard layout
|
|
45 ;; using ISO Latin 1 on a US keyboard.
|
|
46 ;;
|
14040
|
47 ;; Important node: While I would like to hear comments, bug reports,
|
6000
|
48 ;; suggestions, please do @strong{not} expect me to put other mappings
|
14040
|
49 ;; than the default into this file. There are billions and billions
|
6000
|
50 ;; of such mappings, and just supporting the most common would
|
|
51 ;; increase the size of this nice small file manyfold.
|
|
52
|
|
53 ;;; Code:
|
|
54
|
20083
|
55 (defgroup double nil
|
|
56 "Remap keyboard, but get original by typing the same key twice."
|
|
57 :group 'i18n)
|
|
58
|
|
59 (defcustom double-map
|
6000
|
60 '((?\; "\346" ";")
|
|
61 (?\' "\370" "'")
|
|
62 (?\[ "\345" "[")
|
|
63 (?\: "\306" ":")
|
|
64 (?\" "\330" "\"")
|
|
65 (?\{ "\305" "{"))
|
|
66 "Alist of key translations activated by double mode.
|
|
67
|
|
68 Each entry is a list with three elements:
|
|
69 1. The key activating the translation.
|
|
70 2. The string to be inserted when the key is pressed once.
|
20083
|
71 3. The string to be inserted when the key is pressed twice."
|
|
72 :group 'double
|
|
73 :type '(repeat (list (character :tag "Key")
|
|
74 (string :tag "Once")
|
|
75 (string :tag "Twice"))))
|
6000
|
76
|
20083
|
77 (defcustom double-prefix-only t
|
10067
|
78 "*Non-nil means that Double mode mapping only works for prefix keys.
|
47253
|
79 That is, for any key `X' in `double-map', `X' alone will be mapped
|
20083
|
80 but not `C-u X' or `ESC X' since the X is not the prefix key."
|
|
81 :group 'double
|
|
82 :type 'boolean)
|
8008
|
83
|
6000
|
84 ;;; Read Event
|
|
85
|
|
86 (defvar double-last-event nil)
|
|
87 ;; The last key that generated a double key event.
|
|
88
|
|
89 (defun double-read-event (prompt)
|
|
90 ;; Read an event
|
|
91 (if isearch-mode (isearch-update))
|
|
92 (if prompt
|
|
93 (prog2 (message "%s%c" prompt double-last-event)
|
|
94 (read-event)
|
|
95 (message ""))
|
|
96 (read-event)))
|
|
97
|
7279
|
98 (global-set-key [ignore] '(lambda () (interactive)))
|
6000
|
99
|
|
100 (or (boundp 'isearch-mode-map)
|
|
101 (load-library "isearch"))
|
|
102
|
49588
|
103 (define-key isearch-mode-map [ignore]
|
6000
|
104 (function (lambda () (interactive) (isearch-update))))
|
|
105
|
|
106 (defun double-translate-key (prompt)
|
|
107 ;; Translate input events using double map.
|
|
108 (let ((key last-input-char))
|
|
109 (cond (unread-command-events
|
|
110 ;; Artificial event, ignore it.
|
|
111 (vector key))
|
8008
|
112 ((and double-prefix-only
|
|
113 (> (length (this-command-keys)) 1))
|
|
114 ;; This is not a prefix key, ignore it.
|
|
115 (vector key))
|
6000
|
116 ((eq key 'magic-start)
|
|
117 ;; End of generated event. See if he will repeat it...
|
|
118 (let ((new (double-read-event prompt))
|
|
119 (entry (assoc double-last-event double-map)))
|
60312
|
120 (force-window-update (selected-window))
|
6000
|
121 (if (eq new double-last-event)
|
49588
|
122 (progn
|
6000
|
123 (setq unread-command-events
|
|
124 (append (make-list (1- (length (nth 1 entry)))
|
7279
|
125 127)
|
6000
|
126 (nth 2 entry)
|
|
127 '(magic-end)))
|
|
128 (vector 127))
|
|
129 (setq unread-command-events (list new))
|
7279
|
130 [ignore])))
|
6000
|
131 ((eq key 'magic-end)
|
|
132 ;; End of double event. Ignore.
|
7279
|
133 [ignore])
|
6000
|
134 (t
|
|
135 ;; New key.
|
|
136 (let ((exp (nth 1 (assoc key double-map))))
|
|
137 (setq double-last-event key)
|
|
138 (setq unread-command-events
|
|
139 (append (substring exp 1) '(magic-start)))
|
|
140 (vector (aref exp 0)))))))
|
|
141
|
|
142 ;;; Key Translation Map
|
|
143
|
22861
|
144 (defun double-setup (enable-flag)
|
|
145 (if enable-flag
|
|
146 (progn
|
|
147 ;; Set up key-translation-map as indicated by `double-map'.
|
83346
7372c2f9daac
Rename function-key-map to local-function-key-map, and global-function-key-map to function-key-map. Same for key-translation-map.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
148 ;; XXX I don't think key-translation-map should be made local here. -- Lorentey
|
22861
|
149 (kill-local-variable 'key-translation-map)
|
|
150 (make-local-variable 'key-translation-map)
|
23003
95c97e05a03e
(double-setup): Only copy `key-translation-map' if it is a keymap.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
151 (setq key-translation-map (if (keymapp key-translation-map)
|
83346
7372c2f9daac
Rename function-key-map to local-function-key-map, and global-function-key-map to function-key-map. Same for key-translation-map.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
152 (copy-keymap key-translation-map)
|
83319
|
153 (make-sparse-keymap)))
|
22861
|
154 (mapcar (function (lambda (entry)
|
|
155 (define-key key-translation-map
|
|
156 (vector (nth 0 entry))
|
|
157 'double-translate-key)))
|
|
158 (append double-map '((magic-start) (magic-end)))))
|
|
159 (kill-local-variable 'key-translation-map)))
|
6000
|
160
|
|
161 ;;; Mode
|
|
162
|
25531
|
163 ;;;###autoload
|
|
164 (defcustom double-mode nil
|
|
165 "Toggle Double mode.
|
|
166 Setting this variable directly does not take effect;
|
|
167 use either \\[customize] or the function `double-mode'."
|
|
168 :set (lambda (symbol value)
|
|
169 (double-mode (if value 1 0)))
|
|
170 :initialize 'custom-initialize-default
|
|
171 :link '(emacs-commentary-link "double")
|
|
172 :type 'boolean
|
|
173 :require 'double
|
|
174 :group 'double)
|
|
175 (make-variable-buffer-local 'double-mode)
|
6000
|
176
|
|
177 (or (assq 'double-mode minor-mode-alist)
|
|
178 (setq minor-mode-alist
|
10067
|
179 (cons '(double-mode " Double") minor-mode-alist)))
|
6000
|
180
|
10067
|
181 ;; This feature seemed useless and it confused describe-mode,
|
|
182 ;; so I deleted it.
|
|
183 ;;;(defvar double-mode-name "Double")
|
|
184 ;;;;; Name of current double mode.
|
|
185 ;;; (make-variable-buffer-local 'double-mode-name)
|
6000
|
186
|
|
187 ;;;###autoload
|
|
188 (defun double-mode (arg)
|
10067
|
189 "Toggle Double mode.
|
78492
|
190 With prefix argument ARG, turn Double mode on if ARG is positive, otherwise
|
|
191 turn it off.
|
6000
|
192
|
11561
|
193 When Double mode is on, some keys will insert different strings
|
|
194 when pressed twice. See variable `double-map' for details."
|
6000
|
195 (interactive "P")
|
|
196 (if (or (and (null arg) double-mode)
|
|
197 (<= (prefix-numeric-value arg) 0))
|
|
198 ;; Turn it off
|
|
199 (if double-mode
|
|
200 (progn
|
|
201 (let ((double-map))
|
22861
|
202 (double-setup nil))
|
6000
|
203 (setq double-mode nil)
|
11561
|
204 (force-mode-line-update)))
|
6000
|
205 ;;Turn it on
|
|
206 (if double-mode
|
|
207 ()
|
22861
|
208 (double-setup t)
|
6000
|
209 (setq double-mode t)
|
11561
|
210 (force-mode-line-update))))
|
6000
|
211
|
|
212 (provide 'double)
|
|
213
|
52401
|
214 ;;; arch-tag: 2e170036-44cb-4493-bc32-ada0a4395221
|
6000
|
215 ;;; double.el ends here
|