Compare commits
2 Commits
7344512c3a
...
2b0ca519c6
| Author | SHA1 | Date | |
|---|---|---|---|
| 2b0ca519c6 | |||
| 2973596913 |
@@ -141,8 +141,31 @@
|
||||
(setq ns-command-modifier 'meta)
|
||||
(setq ns-right-command-modifier 'super)
|
||||
|
||||
;; Training wheels for Cmd-S
|
||||
(global-set-key (kbd "M-s M-s") 'save-buffer)
|
||||
;;;;; Training wheels
|
||||
(defun cmd-key-reminder (keybind emacs-alternative)
|
||||
"Display a beep and reminder message for macOS muscle memory keys.
|
||||
KEYBIND is the key combination pressed (e.g., 'Cmd-S').
|
||||
EMACS-ALTERNATIVE is the Emacs equivalent (e.g., 'C-s')."
|
||||
(beep)
|
||||
(message "Muscle memory! Use %s instead of %s" emacs-alternative keybind))
|
||||
|
||||
;; Define reminders for common macOS shortcuts
|
||||
(global-set-key (kbd "s-s") (lambda () (interactive)
|
||||
(cmd-key-reminder "Cmd-S" "C-x C-s (save-buffer)")))
|
||||
(global-set-key (kbd "s-z") (lambda () (interactive)
|
||||
(cmd-key-reminder "Cmd-Z" "C-/ (undo)")))
|
||||
(global-set-key (kbd "s-x") (lambda () (interactive)
|
||||
(cmd-key-reminder "Cmd-X" "C-w (kill-region)")))
|
||||
(global-set-key (kbd "s-c") (lambda () (interactive)
|
||||
(cmd-key-reminder "Cmd-C" "M-w (copy-region-as-kill)")))
|
||||
(global-set-key (kbd "s-v") (lambda () (interactive)
|
||||
(cmd-key-reminder "Cmd-V" "C-y (yank)")))
|
||||
(global-set-key (kbd "s-a") (lambda () (interactive)
|
||||
(cmd-key-reminder "Cmd-A" "C-x h (mark-whole-buffer)")))
|
||||
(global-set-key (kbd "s-0") (lambda () (interactive)
|
||||
(cmd-key-reminder "Cmd-0" "C-x 0 (text-scale-adjust)")))
|
||||
(global-set-key (kbd "s-t") (lambda () (interactive)
|
||||
(cmd-key-reminder "Cmd-T" "C-o t (tab-bar-new-tab)")))
|
||||
|
||||
;;; Editing
|
||||
;;;; MWIM
|
||||
@@ -710,6 +733,8 @@
|
||||
("C-j" . nil)
|
||||
("C-a" . mwim-beginning)
|
||||
("C-e" . mwim-end)
|
||||
:map org-agenda-mode-map
|
||||
("C-x C-s" . org-save-all-org-buffers)
|
||||
:map org-src-mode-map
|
||||
("C-c C-c" . org-edit-src-exit))
|
||||
:hook ((org-mode . visual-line-mode))
|
||||
@@ -733,7 +758,7 @@
|
||||
(interactive)
|
||||
(org-agenda nil "d"))
|
||||
|
||||
(add-hook 'org-after-todo-state-change-hook #'save-buffer))
|
||||
(add-hook 'org-after-todo-state-change-hook #'org-save-all-org-buffers))
|
||||
|
||||
|
||||
(use-package org-bullets
|
||||
|
||||
Reference in New Issue
Block a user