projects / config.git / blame
| Commit | Line | Data |
|---|---|---|
| 53e6db90 DC |
1 | ;; jabber-keymap.el - common keymap for many modes -*- lexical-binding: t; -*- |
| 2 | ||
| 3 | ;; Copyright (C) 2003, 2004, 2007, 2008 - Magnus Henoch - mange@freemail.hu | |
| 4 | ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net | |
| 5 | ||
| 6 | ;; This file is a part of jabber.el. | |
| 7 | ||
| 8 | ;; This program is free software; you can redistribute it and/or modify | |
| 9 | ;; it under the terms of the GNU General Public License as published by | |
| 10 | ;; the Free Software Foundation; either version 2 of the License, or | |
| 11 | ;; (at your option) any later version. | |
| 12 | ||
| 13 | ;; This program is distributed in the hope that it will be useful, | |
| 14 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 15 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 16 | ;; GNU General Public License for more details. | |
| 17 | ||
| 18 | ;; You should have received a copy of the GNU General Public License | |
| 19 | ;; along with this program; if not, write to the Free Software | |
| 20 | ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
| 21 | ||
| 22 | ||
| 23 | (require 'button) | |
| 24 | ||
| 25 | (defvar jabber-common-keymap | |
| 26 | (let ((map (make-sparse-keymap))) | |
| 27 | (define-key map "\C-c\C-c" 'jabber-popup-chat-menu) | |
| 28 | (define-key map "\C-c\C-r" 'jabber-popup-roster-menu) | |
| 29 | (define-key map "\C-c\C-i" 'jabber-popup-info-menu) | |
| 30 | (define-key map "\C-c\C-m" 'jabber-popup-muc-menu) | |
| 31 | (define-key map "\C-c\C-s" 'jabber-popup-service-menu) | |
| 32 | ;; note that {forward,backward}-button are not autoloaded. | |
| 33 | ;; thus the `require' above. | |
| 34 | (when (fboundp 'forward-button) | |
| 35 | (define-key map [?\t] 'forward-button) | |
| 36 | (define-key map [backtab] 'backward-button)) | |
| 37 | map)) | |
| 38 | ||
| 39 | ;;;###autoload | |
| 40 | (defvar jabber-global-keymap | |
| 41 | (let ((map (make-sparse-keymap))) | |
| 42 | (define-key map "\C-c" 'jabber-connect-all) | |
| 43 | (define-key map "\C-d" 'jabber-disconnect) | |
| 44 | (define-key map "\C-r" 'jabber-switch-to-roster-buffer) | |
| 45 | (define-key map "\C-j" 'jabber-chat-with) | |
| 46 | (define-key map "\C-l" 'jabber-activity-switch-to) | |
| 47 | (define-key map "\C-a" 'jabber-send-away-presence) | |
| 48 | (define-key map "\C-o" 'jabber-send-default-presence) | |
| 49 | (define-key map "\C-x" 'jabber-send-xa-presence) | |
| 50 | (define-key map "\C-p" 'jabber-send-presence) | |
| 51 | map) | |
| 52 | "Global Jabber keymap (usually under C-x C-j).") | |
| 53 | ||
| 54 | ;;;###autoload | |
| 55 | (define-key ctl-x-map "\C-j" jabber-global-keymap) | |
| 56 | ||
| 57 | (provide 'jabber-keymap) | |
| 58 | ||
| 59 | ;;; arch-tag: 22a9993d-a4a7-40ef-a025-7cff6c3f5587 |