diff options
author | Martin Polden <mpolden@mpolden.no> | 2023-07-24 20:59:35 +0200 |
---|---|---|
committer | Martin Polden <mpolden@mpolden.no> | 2023-07-24 20:59:35 +0200 |
commit | bdca4f9b88d58cb21c940ab283ce6887e35123b7 (patch) | |
tree | 4a7b57b8ab8d8437f97bfdf8bbc27f3b8a4f6ae6 /lisp | |
parent | 946a6b0f9658baa0557cbec5d68b8a272339df57 (diff) |
Revert "mac: remove obsolete key translation hacks"
This reverts commit ab94fdc58f42718ddca51aae0a4ccc8bbf7b56c9.
Needed for plain Emacs (something other than emacs-mac).
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/init-mac.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lisp/init-mac.el b/lisp/init-mac.el index cffe4e5..1b44ed8 100644 --- a/lisp/init-mac.el +++ b/lisp/init-mac.el @@ -2,8 +2,20 @@ ;;; Commentary: ;;; Code: -;; use command as meta +;; configure modifiers +(setq mac-option-modifier 'super) (setq mac-command-modifier 'meta) +(setq ns-function-modifier 'hyper) + +;; Norwegian mac-keyboard +(define-key key-translation-map (kbd "s-8") (kbd "[")) +(define-key key-translation-map (kbd "s-(") (kbd "{")) +(define-key key-translation-map (kbd "s-9") (kbd "]")) +(define-key key-translation-map (kbd "s-)") (kbd "}")) +(define-key key-translation-map (kbd "s-7") (kbd "|")) +(define-key key-translation-map (kbd "s-/") (kbd "\\")) +(define-key key-translation-map (kbd "M-s-7") (kbd "M-|")) +(define-key key-translation-map (kbd "s-ยจ") (kbd "~")) ;; disable native tabs (setq mac-frame-tabbing nil) |