;;;; -*- mode:emacs-lisp;coding:utf-8 -*- ;;;;************************************************************************** ;;;;FILE: pjb-caps-mode.el ;;;;LANGUAGE: emacs lisp ;;;;SYSTEM: POSIX ;;;;USER-INTERFACE: NONE ;;;;DESCRIPTION ;;;; ;;;; caps-mode ;;;; ;;;;AUTHORS ;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com> ;;;;MODIFICATIONS ;;;; 2015-08-20 <PJB> Extracted from ~/rc/emacs-common.el ;;;;BUGS ;;;;LEGAL ;;;; AGPL3 ;;;; ;;;; Copyright Pascal J. Bourguignon 2015 - 2015 ;;;; ;;;; This program is free software: you can redistribute it and/or modify ;;;; it under the terms of the GNU Affero General Public License as published by ;;;; the Free Software Foundation, either version 3 of the License, or ;;;; (at your option) any later version. ;;;; ;;;; This program is distributed in the hope that it will be useful, ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; GNU Affero General Public License for more details. ;;;; ;;;; You should have received a copy of the GNU Affero General Public License ;;;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;;;************************************************************************** ;;;(autoload 'caps-mode "caps-mode" "Toggle caps mode." t) (defun caps-mode-self-insert-command (&optional n) "Like `self-insert-command', but uppercase the the typed character." (interactive "p") (insert-char (upcase last-command-event) n)) (defvar caps-mode-map nil) (when (fboundp 'define-minor-mode) (define-minor-mode caps-mode "Toggle caps mode. With no argument, this command toggles the mode. Non-null prefix argument turns on the mode. Null prefix argument turns off the mode. When caps mode is enabled, all letters are inserted in their capitalized form." :init-value nil :lighter " Caps" (setq caps-mode-map (let ((map (make-sparse-keymap))) (substitute-key-definition 'self-insert-command 'caps-mode-self-insert-command map global-map) map)) (if caps-mode (add-to-list 'minor-mode-map-alist (cons 'caps-mode caps-mode-map)) (setq minor-mode-map-alist (delete (assoc 'caps-mode minor-mode-map-alist) minor-mode-map-alist))))) ;;;; THE END ;;;;