Emacs Lisp definitions for a Greek keyboard

grediting.el

;; DWIM key bindings when I have switched to a greek keyboard mapping
;; By <ji@tla.org>
;; If you fix something, email me.

(global-set-key (kbd "C-χ") ctl-x-map)
(global-set-key (kbd "M-χ") 'smex)


(global-set-key (kbd "C-α") 'move-beginning-of-line)
(global-set-key (kbd "C-β") 'backward-char)
(global-set-key (kbd "C-δ") 'delete-char)
(global-set-key (kbd "C-ε") 'move-end-of-line)
(global-set-key (kbd "C-φ") 'forward-char)
(global-set-key (kbd "C-γ") 'keyboard-quit)
(global-set-key (kbd "C-ι") 'indent-for-tab-command)
(global-set-key (kbd "C-ξ") 'electric-newline-and-maybe-indent)
(global-set-key (kbd "C-κ") 'kill-line)
(global-set-key (kbd "C-λ") 'recenter-top-bottom)
(global-set-key (kbd "C-μ") 'newline)
(global-set-key (kbd "C-ν") 'next-line)
(global-set-key (kbd "C-ο") 'open-line)
(global-set-key (kbd "C-π") 'previous-line)
(global-set-key (kbd "C-ρ") 'isearch-backward-regexp)
(global-set-key (kbd "C-σ") 'isearch-forward-regexp)
(global-set-key (kbd "C-τ") 'transpose-chars)
(global-set-key (kbd "C-θ") 'universal-argument)
(global-set-key (kbd "C-ω") 'scroll-up-command)
(global-set-key (kbd "C-ς") 'backward-kill-word)
(global-set-key (kbd "C-υ") 'yank)

(global-set-key (kbd "M-α") 'backward-sentence)
(global-set-key (kbd "M-β") 'backward-word)
(global-set-key (kbd "M-γ") 'capitalize-word)
(global-set-key (kbd "M-δ") 'kill-word)
(global-set-key (kbd "M-ε") 'forward-sentence)
(global-set-key (kbd "M-φ") 'forward-word)
(global-set-key (kbd "M-η") 'mark-paragraph)
(global-set-key (kbd "M-ι") 'tab-to-tab-stop)
(global-set-key (kbd "M-ξ") 'indent-new-comment-line)
(global-set-key (kbd "M-κ") 'kill-sentence)
(global-set-key (kbd "M-λ") 'downcase-word)
(global-set-key (kbd "M-μ") 'back-to-indentation)
(global-set-key (kbd "M-ο") 'facemenu-keymap)
(global-set-key (kbd "M-ρ") 'move-to-window-line-top-bottom)
(global-set-key (kbd "M-τ") 'transpose-words)
(global-set-key (kbd "M-θ") 'upcase-word)
(global-set-key (kbd "M-ω") 'scroll-down-command)
(global-set-key (kbd "M-ς") 'kill-ring-save)
(global-set-key (kbd "M-υ") 'yank-pop)
(global-set-key (kbd "M-ζ") 'zap-to-char)

(global-set-key (kbd "C-χ C-@") 'pop-global-mark)
(global-set-key (kbd "C-χ C-β") 'ibuffer)
(global-set-key (kbd "C-χ C-ψ") 'save-buffers-kill-terminal)
(global-set-key (kbd "C-χ C-δ") 'list-directory)
(global-set-key (kbd "C-χ C-ε") 'eval-last-sexp)
(global-set-key (kbd "C-χ C-φ") 'find-file)
(global-set-key (kbd "C-χ C-ι") 'indent-rigidly)
(global-set-key (kbd "C-χ C-ξ") 'goto-line)
(global-set-key (kbd "C-χ C-κ") 'kmacro-keymap)
(global-set-key (kbd "C-χ C-λ") 'downcase-region)
(global-set-key (kbd "C-χ C-ν") 'set-goal-column)
(global-set-key (kbd "C-χ C-ο") 'delete-blank-lines)
(global-set-key (kbd "C-χ C-π") 'mark-page)
(global-set-key (kbd "C-χ C-ρ") 'find-file-read-only)
(global-set-key (kbd "C-χ C-σ") 'save-buffer)
(global-set-key (kbd "C-χ C-τ") 'transpose-lines)
(global-set-key (kbd "C-χ C-θ") 'upcase-region)
(global-set-key (kbd "C-χ C-ω") 'find-alternate-file)
(global-set-key (kbd "C-χ C-ς") 'write-file)
(global-set-key (kbd "C-χ C-χ") 'exchange-point-and-mark)
(global-set-key (kbd "C-χ C-υ") 'suspend-frame)
(global-set-key (kbd "C-χ β") 'switch-to-buffer)
(global-set-key (kbd "C-χ δ") 'dired)
(global-set-key (kbd "C-χ ε") 'kmacro-end-and-call-macro)
(global-set-key (kbd "C-χ φ") 'set-fill-column)
(global-set-key (kbd "C-χ η") 'mark-whole-buffer)
(global-set-key (kbd "C-χ ι") 'insert-file)
(global-set-key (kbd "C-χ ξ") 'goto-line)
(global-set-key (kbd "C-χ κ") 'kill-buffer)
(global-set-key (kbd "C-χ λ") 'count-lines-page)
(global-set-key (kbd "C-χ μ") 'compose-mail)
(global-set-key (kbd "C-χ ο") 'other-window)
(global-set-key (kbd "C-χ σ") 'save-some-buffers)
(global-set-key (kbd "C-χ θ") 'undo)
(global-set-key (kbd "C-χ ω") 'vc-prefix-map)
(global-set-key (kbd "C-χ ζ") 'repeat)

(global-set-key (kbd "C-M-@") 'mark-sexp)
(global-set-key (kbd "C-M-α") 'beginning-of-defun)
(global-set-key (kbd "C-M-β") 'backward-sexp)
(global-set-key (kbd "C-M-ψ") 'exit-recursive-edit)
(global-set-key (kbd "C-M-δ") 'down-list)
(global-set-key (kbd "C-M-ε") 'end-of-defun)
(global-set-key (kbd "C-M-φ") 'forward-sexp)
(global-set-key (kbd "C-M-η") 'mark-defun)
(global-set-key (kbd "C-M-ξ") 'indent-new-comment-line)
(global-set-key (kbd "C-M-κ") 'kill-sexp)
(global-set-key (kbd "C-M-λ") 'reposition-window)
(global-set-key (kbd "C-M-ν") 'forward-list)
(global-set-key (kbd "C-M-ο") 'split-line)
(global-set-key (kbd "C-M-π") 'backward-list)
(global-set-key (kbd "C-M-ρ") 'isearch-backward)
(global-set-key (kbd "C-M-σ") 'isearch-forward)
(global-set-key (kbd "C-M-τ") 'transpose-sexps)
(global-set-key (kbd "C-M-θ") 'backward-up-list)
(global-set-key (kbd "C-M-ω") 'scroll-other-window)
(global-set-key (kbd "C-M-ς") 'append-next-kill)