From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Emanuel Berg via Users list for the GNU Emacs text editor Newsgroups: gmane.emacs.help Subject: Re: input methods for mathematical glyphs Date: Thu, 09 Dec 2021 04:05:14 +0100 Message-ID: <87lf0uwk9h.fsf@zoho.eu> References: <87czm76of1.fsf@t14.reltub.ca> <87ilvzx7z6.fsf@zoho.eu> <87a6hbx7hn.fsf@zoho.eu> Reply-To: Emanuel Berg Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="32897"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) To: help-gnu-emacs@gnu.org Cancel-Lock: sha1:Lr96XA+aZH3KBsZHdiRabDEU7A4= Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Thu Dec 09 04:06:18 2021 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1mv9lC-0008QA-Qb for geh-help-gnu-emacs@m.gmane-mx.org; Thu, 09 Dec 2021 04:06:18 +0100 Original-Received: from localhost ([::1]:59714 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mv9lB-0006zH-DQ for geh-help-gnu-emacs@m.gmane-mx.org; Wed, 08 Dec 2021 22:06:17 -0500 Original-Received: from eggs.gnu.org ([209.51.188.92]:51700) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mv9kM-0006z6-96 for help-gnu-emacs@gnu.org; Wed, 08 Dec 2021 22:05:27 -0500 Original-Received: from ciao.gmane.io ([116.202.254.214]:50160) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mv9kK-0001F2-DU for help-gnu-emacs@gnu.org; Wed, 08 Dec 2021 22:05:25 -0500 Original-Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1mv9kG-00076e-3o for help-gnu-emacs@gnu.org; Thu, 09 Dec 2021 04:05:20 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Mail-Copies-To: never Received-SPF: pass client-ip=116.202.254.214; envelope-from=geh-help-gnu-emacs@m.gmane-mx.org; helo=ciao.gmane.io X-Spam_score_int: -15 X-Spam_score: -1.6 X-Spam_bar: - X-Spam_report: (-1.6 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.25, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:134909 Archived-At: ;;; greek-ao.el --- insert Greek chars -*- lexical-binding: t -*- ;;; ;;; Commentary: ;;; ;;; Author: Emanuel Berg (incal) ;;; Created: 2021-12-09 ;;; Keywords: key ;;; License: GPL3+ ;;; URL: https://dataswamp.org/~incal/emacs-init/greek-ao.el ;;; Version: 1.0.0 ;;; ;;; Invoke this mode. Insert a Greek char. ;;; Return automatically. ;;; ;;; Code: (defun char-to-greek (c) "Convert C to the corresponding Greek char." (when (and (<= ?A c) (<= c ?Y) ) (+ c 848) )) (defun greek-ao-mode-self-insert-command (n) "Insert the `last-command-event' char N times, in Greek." (interactive "p") (let*((chr last-command-event) (greek-char (char-to-greek chr)) ) (when greek-char (insert-char greek-char n)) (greek-ao-mode 0) )) (defvar greek-ao-mode-map (let ((map (make-keymap))) (substitute-key-definition #'self-insert-command #'greek-ao-mode-self-insert-command map global-map) map) ) (define-minor-mode greek-ao-mode "Greek Alpha Omega (ao) mode (greek-ao-mode)." :init-value nil :lighter " Caps") (defun toggle-greek-ao-mode () "Toggle Greek Alpha Omega (ao) mode (greek-ao-mode)." (interactive) (greek-ao-mode 'toggle) ) (provide 'greek-ao) ;;; greek-ao.el ends here -- underground experts united https://dataswamp.org/~incal