2001-07-16 12:23:00 +00:00
|
|
|
;;; double.el --- support for keyboard remapping with double clicking
|
1994-02-18 22:40:27 +00:00
|
|
|
|
2013-01-01 09:11:05 +00:00
|
|
|
;; Copyright (C) 1994, 1997-1998, 2001-2013 Free Software Foundation,
|
|
|
|
;; Inc.
|
1994-02-18 22:40:27 +00:00
|
|
|
|
1997-05-27 21:26:13 +00:00
|
|
|
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
|
1994-02-18 22:40:27 +00:00
|
|
|
;; Keywords: i18n
|
|
|
|
|
1994-02-18 22:42:29 +00:00
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
2008-05-06 08:06:51 +00:00
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
1994-02-18 22:40:27 +00:00
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 08:06:51 +00:00
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
;; (at your option) any later version.
|
1994-02-18 22:42:29 +00:00
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
1994-02-18 22:40:27 +00:00
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
;; GNU General Public License for more details.
|
1994-02-18 22:42:29 +00:00
|
|
|
|
1994-02-18 22:40:27 +00:00
|
|
|
;; You should have received a copy of the GNU General Public License
|
2008-05-06 08:06:51 +00:00
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
1994-02-18 22:40:27 +00:00
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
;; This mode is intended for use with languages that adds a small
|
|
|
|
;; number of extra letters not available on the keyboard.
|
2003-02-04 11:26:42 +00:00
|
|
|
;;
|
1994-02-18 22:40:27 +00:00
|
|
|
;; Examples includes Scandinavian and German with an US keyboard.
|
|
|
|
;;
|
|
|
|
;; The idea is that certain keys are overloaded. When you press it
|
|
|
|
;; once it will insert one string, and when you press it twice the
|
|
|
|
;; string will be replaced by another. This can be used for mapping
|
|
|
|
;; keys on a US keyboard to generate characters according to the local
|
|
|
|
;; keyboard convention when pressed once, and according to US keyboard
|
2003-02-04 11:26:42 +00:00
|
|
|
;; convention when pressed twice.
|
1994-02-18 22:40:27 +00:00
|
|
|
;;
|
|
|
|
;; To use this mode, you must define the variable `double-map' and
|
|
|
|
;; then enable double mode with `M-x double-mode'. Read the
|
|
|
|
;; documentation for both of them.
|
|
|
|
;;
|
|
|
|
;; The default mapping is for getting Danish/Norwegian keyboard layout
|
|
|
|
;; using ISO Latin 1 on a US keyboard.
|
|
|
|
;;
|
1996-01-05 22:21:28 +00:00
|
|
|
;; Important node: While I would like to hear comments, bug reports,
|
1994-02-18 22:40:27 +00:00
|
|
|
;; suggestions, please do @strong{not} expect me to put other mappings
|
1996-01-05 22:21:28 +00:00
|
|
|
;; than the default into this file. There are billions and billions
|
1994-02-18 22:40:27 +00:00
|
|
|
;; of such mappings, and just supporting the most common would
|
|
|
|
;; increase the size of this nice small file manyfold.
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
1997-10-16 18:46:36 +00:00
|
|
|
(defgroup double nil
|
|
|
|
"Remap keyboard, but get original by typing the same key twice."
|
|
|
|
:group 'i18n)
|
|
|
|
|
|
|
|
(defcustom double-map
|
1994-02-18 22:40:27 +00:00
|
|
|
'((?\; "\346" ";")
|
|
|
|
(?\' "\370" "'")
|
|
|
|
(?\[ "\345" "[")
|
|
|
|
(?\: "\306" ":")
|
|
|
|
(?\" "\330" "\"")
|
|
|
|
(?\{ "\305" "{"))
|
|
|
|
"Alist of key translations activated by double mode.
|
|
|
|
|
|
|
|
Each entry is a list with three elements:
|
|
|
|
1. The key activating the translation.
|
|
|
|
2. The string to be inserted when the key is pressed once.
|
1997-10-16 18:46:36 +00:00
|
|
|
3. The string to be inserted when the key is pressed twice."
|
|
|
|
:group 'double
|
|
|
|
:type '(repeat (list (character :tag "Key")
|
|
|
|
(string :tag "Once")
|
|
|
|
(string :tag "Twice"))))
|
1994-02-18 22:40:27 +00:00
|
|
|
|
1997-10-16 18:46:36 +00:00
|
|
|
(defcustom double-prefix-only t
|
2007-10-21 02:35:16 +00:00
|
|
|
"Non-nil means that Double mode mapping only works for prefix keys.
|
2002-09-06 07:12:37 +00:00
|
|
|
That is, for any key `X' in `double-map', `X' alone will be mapped
|
1997-10-16 18:46:36 +00:00
|
|
|
but not `C-u X' or `ESC X' since the X is not the prefix key."
|
|
|
|
:group 'double
|
|
|
|
:type 'boolean)
|
1994-06-22 18:03:28 +00:00
|
|
|
|
1994-02-18 22:40:27 +00:00
|
|
|
;;; Read Event
|
|
|
|
|
|
|
|
(defvar double-last-event nil)
|
|
|
|
;; The last key that generated a double key event.
|
|
|
|
|
|
|
|
(defun double-read-event (prompt)
|
|
|
|
;; Read an event
|
|
|
|
(if isearch-mode (isearch-update))
|
|
|
|
(if prompt
|
|
|
|
(prog2 (message "%s%c" prompt double-last-event)
|
|
|
|
(read-event)
|
|
|
|
(message ""))
|
|
|
|
(read-event)))
|
|
|
|
|
2007-10-21 02:35:16 +00:00
|
|
|
(global-set-key [ignore] 'ignore)
|
1994-02-18 22:40:27 +00:00
|
|
|
|
|
|
|
(or (boundp 'isearch-mode-map)
|
|
|
|
(load-library "isearch"))
|
|
|
|
|
2003-02-04 11:26:42 +00:00
|
|
|
(define-key isearch-mode-map [ignore]
|
1994-02-18 22:40:27 +00:00
|
|
|
(function (lambda () (interactive) (isearch-update))))
|
|
|
|
|
|
|
|
(defun double-translate-key (prompt)
|
|
|
|
;; Translate input events using double map.
|
2009-01-09 05:00:56 +00:00
|
|
|
(let ((key last-input-event))
|
1994-02-18 22:40:27 +00:00
|
|
|
(cond (unread-command-events
|
|
|
|
;; Artificial event, ignore it.
|
|
|
|
(vector key))
|
1994-06-22 18:03:28 +00:00
|
|
|
((and double-prefix-only
|
|
|
|
(> (length (this-command-keys)) 1))
|
|
|
|
;; This is not a prefix key, ignore it.
|
|
|
|
(vector key))
|
1994-02-18 22:40:27 +00:00
|
|
|
((eq key 'magic-start)
|
|
|
|
;; End of generated event. See if he will repeat it...
|
|
|
|
(let ((new (double-read-event prompt))
|
|
|
|
(entry (assoc double-last-event double-map)))
|
2005-02-28 22:49:46 +00:00
|
|
|
(force-window-update (selected-window))
|
1994-02-18 22:40:27 +00:00
|
|
|
(if (eq new double-last-event)
|
2003-02-04 11:26:42 +00:00
|
|
|
(progn
|
1994-02-18 22:40:27 +00:00
|
|
|
(setq unread-command-events
|
|
|
|
(append (make-list (1- (length (nth 1 entry)))
|
1994-05-02 18:27:24 +00:00
|
|
|
127)
|
1994-02-18 22:40:27 +00:00
|
|
|
(nth 2 entry)
|
|
|
|
'(magic-end)))
|
|
|
|
(vector 127))
|
|
|
|
(setq unread-command-events (list new))
|
1994-05-02 18:27:24 +00:00
|
|
|
[ignore])))
|
1994-02-18 22:40:27 +00:00
|
|
|
((eq key 'magic-end)
|
|
|
|
;; End of double event. Ignore.
|
1994-05-02 18:27:24 +00:00
|
|
|
[ignore])
|
1994-02-18 22:40:27 +00:00
|
|
|
(t
|
|
|
|
;; New key.
|
|
|
|
(let ((exp (nth 1 (assoc key double-map))))
|
|
|
|
(setq double-last-event key)
|
|
|
|
(setq unread-command-events
|
|
|
|
(append (substring exp 1) '(magic-start)))
|
|
|
|
(vector (aref exp 0)))))))
|
|
|
|
|
|
|
|
;;; Mode
|
|
|
|
|
1994-11-23 23:19:43 +00:00
|
|
|
;; This feature seemed useless and it confused describe-mode,
|
2007-10-21 02:35:16 +00:00
|
|
|
;; so I deleted it.
|
|
|
|
;; (defvar double-mode-name "Double")
|
|
|
|
;; ;; Name of current double mode.
|
|
|
|
;; (make-variable-buffer-local 'double-mode-name)
|
1994-02-18 22:40:27 +00:00
|
|
|
|
|
|
|
;;;###autoload
|
2007-10-21 02:35:16 +00:00
|
|
|
(define-minor-mode double-mode
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
"Toggle special insertion on double keypresses (Double mode).
|
|
|
|
With a prefix argument ARG, enable Double mode if ARG is
|
|
|
|
positive, and disable it otherwise. If called from Lisp, enable
|
|
|
|
the mode if ARG is omitted or nil.
|
1994-02-18 22:40:27 +00:00
|
|
|
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
When Double mode is enabled, some keys will insert different
|
|
|
|
strings when pressed twice. See `double-map' for details."
|
2007-10-21 02:35:16 +00:00
|
|
|
:lighter " Double"
|
|
|
|
:link '(emacs-commentary-link "double")
|
|
|
|
(kill-local-variable 'key-translation-map)
|
|
|
|
(when double-mode
|
|
|
|
;; Set up key-translation-map as indicated by `double-map'.
|
|
|
|
;; XXX I don't think key-translation-map should be made local here. -- Lorentey
|
|
|
|
(make-local-variable 'key-translation-map)
|
|
|
|
(let ((map (make-sparse-keymap)))
|
|
|
|
(set-keymap-parent map key-translation-map)
|
|
|
|
(setq key-translation-map map)
|
|
|
|
(dolist (entry (append double-map '((magic-start) (magic-end))))
|
|
|
|
(define-key map
|
|
|
|
(vector (nth 0 entry)) 'double-translate-key)))))
|
1994-02-18 22:40:27 +00:00
|
|
|
|
|
|
|
(provide 'double)
|
|
|
|
|
|
|
|
;;; double.el ends here
|