Skip to content

Instantly share code, notes, and snippets.

@r-moeritz

r-moeritz/set-umlaut-keys.lisp

Created July 25, 2012 06:19
Show Gist options
  • Save r-moeritz/3174709 to your computer and use it in GitHub Desktop.
Save r-moeritz/3174709 to your computer and use it in GitHub Desktop.
Download ZIP
Umlaut keybindings
Raw
set-umlaut-keys.lisp
;; -*- mode: Lisp; lexical-binding: t; -*-
(defun global-set-umlaut-keys ()
(let ((gen-insert-key
(lambda (key)
(lambda ()
(interactive)
(ucs-insert key)))))
(global-set-key (kbd "\C-co") (funcall gen-insert-key #xf6))
(global-set-key (kbd "\C-cu") (funcall gen-insert-key #xfc))
(global-set-key (kbd "\C-ca") (funcall gen-insert-key #xe4))
(global-set-key (kbd "\C-cs") (funcall gen-insert-key #xdf))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment