From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Sven Bretfeld Newsgroups: gmane.emacs.help Subject: Re: Inputting characters with specialist diacritic marks in emacs Date: Thu, 21 Jan 2016 21:31:11 +0100 Message-ID: <87si1qisj4.fsf@ntnu.no> References: <571eb6f1-614e-4ec0-9c55-bbe1fbfb9ddc@googlegroups.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1453408317 9394 80.91.229.3 (21 Jan 2016 20:31:57 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 21 Jan 2016 20:31:57 +0000 (UTC) Cc: help-gnu-emacs@gnu.org To: mikew2801@gmail.com Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Jan 21 21:31:48 2016 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1aMLtI-0005u6-Ek for geh-help-gnu-emacs@m.gmane.org; Thu, 21 Jan 2016 21:31:36 +0100 Original-Received: from localhost ([::1]:49637 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aMLtE-0007ZA-Hq for geh-help-gnu-emacs@m.gmane.org; Thu, 21 Jan 2016 15:31:32 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:46701) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aMLt2-0007Z0-TF for help-gnu-emacs@gnu.org; Thu, 21 Jan 2016 15:31:22 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aMLsz-0007VH-LC for help-gnu-emacs@gnu.org; Thu, 21 Jan 2016 15:31:20 -0500 Original-Received: from hylle05.itea.ntnu.no ([129.241.56.225]:60811) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aMLsz-0007VC-AE for help-gnu-emacs@gnu.org; Thu, 21 Jan 2016 15:31:17 -0500 Original-Received: from localhost (localhost [127.0.0.1]) by hylle05.itea.ntnu.no (Postfix) with ESMTP id 4FDDA9028E6; Thu, 21 Jan 2016 21:31:13 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at hylle05.itea.ntnu.no Original-Received: from kamaloka (84-52-249.91.3p.ntebredband.no [84.52.249.91]) (using TLSv1.2 with cipher ECDHE-RSA-AES128-GCM-SHA256 (128/128 bits)) (No client certificate requested) (Authenticated sender: svenbre) by hylle05.itea.ntnu.no (Postfix) with ESMTPSA id 029059028C2; Thu, 21 Jan 2016 21:31:11 +0100 (CET) User-agent: mu4e 0.9.15; emacs 24.5.1 In-reply-to: <571eb6f1-614e-4ec0-9c55-bbe1fbfb9ddc@googlegroups.com> X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 129.241.56.225 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 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.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:108808 Archived-At: mikew2801@gmail.com writes: > My makeshift solution is to use the "global-set-key" function to bind i= ndividual characters to keys, e.g., > > (global-set-key (kbd "C-c y") (lambda () (interactive) (insert "=C3=B1"= ))) > (global-set-key (kbd "C-c t") (lambda () (interactive) (insert "=E1=B9=AD= "))) > (global-set-key (kbd "C-c d") (lambda () (interactive) (insert "=E1=B8=8D= "))) Hi Here is what I've been using for years to type Sanskrit, Pali and Tibetan. The M-a prefix feels quite natural after short. I just hit it with thumb and middle finger of the left hand. Stefan's sanskrit.el package is brilliant but might be overkill. Too many different prefixes to remember for my taste. Using one easy-to-reach prefix for everything and adding an intuitive follow-up key (i for =C4=AB, I for =C4=AA) seems = more easy to me. Sven ----- (define-key global-map [(meta a)] nil) ;;Alt-a als Pr=C3=A4fix freigeben (define-key org-mode-map [(meta a)] nil) ;; auch f=C3=BCr orgmode (defun insert-lang-a () (interactive) (ucs-insert #x0101)) (global-set-key "\M-aa" 'insert-lang-a) (defun insert-lang-i () (interactive) (ucs-insert #x012B)) (global-set-key "\M-ai" 'insert-lang-i) (defun insert-lang-u () (interactive) (ucs-insert #x016B)) (global-set-key "\M-au" 'insert-lang-u) (defun insert-punkt-r () (interactive) (ucs-insert #x1E5B)) (global-set-key "\M-ar" 'insert-punkt-r) (defun insert-punkt-l () (interactive) (ucs-insert #x1E37)) (global-set-key "\M-al" 'insert-punkt-l) (defun insert-lang-e () (interactive) (ucs-insert #x0113)) (global-set-key "\M-ae" 'insert-lang-e) (defun insert-lang-o () (interactive) (ucs-insert #x014D)) (global-set-key "\M-ao" 'insert-lang-o) (defun insert-nga () (interactive) (ucs-insert #x1E45)) (global-set-key "\M-ag" 'insert-nga) (defun insert-nya () (interactive) (ucs-insert #x00F1)) (global-set-key "\M-ac" 'insert-nya) (defun insert-punkt-t () (interactive) (ucs-insert #x1E6D)) (global-set-key "\M-at" 'insert-punkt-t) (defun insert-punkt-d () (interactive) (ucs-insert #x1E0D)) (global-set-key "\M-ad" 'insert-punkt-d) (defun insert-punkt-n () (interactive) (ucs-insert #x1E47)) (global-set-key "\M-an" 'insert-punkt-n) (defun insert-sha () (interactive) (ucs-insert #x015B)) (global-set-key "\M-ax" 'insert-sha) (defun insert-punkt-s () (interactive) (ucs-insert #x1E63)) (global-set-key "\M-as" 'insert-punkt-s) (defun insert-zha () (interactive) (ucs-insert #x017A)) (global-set-key "\M-az" 'insert-zha) (defun insert-punkt-m () (interactive) (ucs-insert #x1E43)) (global-set-key "\M-am" 'insert-punkt-m) (defun insert-punkt-h () (interactive) (ucs-insert #x1E25)) (global-set-key "\M-ah" 'insert-punkt-h) (defun insert-lang-a-gr () (interactive) (ucs-insert #x0100)) (global-set-key "\M-aA" 'insert-lang-a-gr) (defun insert-lang-i-gr () (interactive) (ucs-insert #x012A)) (global-set-key "\M-aI" 'insert-lang-i-gr) (defun insert-lang-u-gr () (interactive) (ucs-insert #x016A)) (global-set-key "\M-aU" 'insert-lang-u-gr) (defun insert-punkt-r-gr () (interactive) (ucs-insert #x1E5A)) (global-set-key "\M-aR" 'insert-punkt-r-gr) (defun insert-lang-e-gr () (interactive) (ucs-insert #x0112)) (global-set-key "\M-aE" 'insert-lang-e-gr) (defun insert-lang-o-gr () (interactive) (ucs-insert #x014C)) (global-set-key "\M-aO" 'insert-lang-o-gr) (defun insert-nga-gr () (interactive) (ucs-insert #x1E44)) (global-set-key "\M-aG" 'insert-nga-gr) (defun insert-nya-gr () (interactive) (ucs-insert #x00D1)) (global-set-key "\M-aC" 'insert-nya-gr) (defun insert-punkt-t-gr () (interactive) (ucs-insert #x1E6C)) (global-set-key "\M-aT" 'insert-punkt-t-gr) (defun insert-punkt-d-gr () (interactive) (ucs-insert #x1E0C)) (global-set-key "\M-aD" 'insert-punkt-d-gr) (defun insert-punkt-n-gr () (interactive) (ucs-insert #x1E46)) (global-set-key "\M-aN" 'insert-punkt-n-gr) (defun insert-sha-gr () (interactive) (ucs-insert #x015A)) (global-set-key "\M-aX" 'insert-sha-gr) (defun insert-punkt-s-gr () (interactive) (ucs-insert #x1E62)) (global-set-key "\M-aS" 'insert-punkt-s-gr) (defun insert-zha-gr () (interactive) (ucs-insert #x0179)) (global-set-key "\M-aZ" 'insert-zha-gr) (defun insert-punkt-m-gr () (interactive) (ucs-insert #x1E42)) (global-set-key "\M-aM" 'insert-punkt-m-gr) (defun insert-punkt-h-gr () (interactive) (ucs-insert #x1E24)) (global-set-key "\M-aH" 'insert-punkt-h-gr) (defun insert-lang-ae-gr () (interactive) (ucs-insert #x01DF)) (global-set-key "\M-ap" 'insert-lang-ae-gr) (defun insert-degree () (interactive) (ucs-insert #xB0)) (global-set-key "\M-a|" 'insert-degree) ---- --=20 Sven Bretfeld Department of Philosophy and Religious Studies NTNU Trondheim