tim.mccarthy/dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: tim.mccarthy:7344512c3ad048f59088200f3c488078a567face
Branches Tags
tim.mccarthy:master
..
compare: tim.mccarthy:master
Branches Tags
tim.mccarthy:master

4 Commits
7344512c3a ... master

Author SHA1 Message Date
Tim McCarthy
48feb223f1 Pin eshell-p10k version 2025-10-23 11:22:51 -07:00
Tim McCarthy
9dfd55ada4 Move org-agenda-mode-map to separate use-package statement 2025-10-23 10:59:08 -07:00
Tim McCarthy
2b0ca519c6 Better org save behavior 2025-10-20 15:03:32 -07:00
Tim McCarthy
2973596913 Stricter training wheels for command-as-meta 2025-10-20 15:03:09 -07:00
1 changed files with 30 additions and 4 deletions
Expand all files Collapse all files

34
emacs/init.el
View File

@@ -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
@@ -733,8 +756,11 @@
(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-agenda
:bind (:map org-agenda-mode-map
("C-x C-s" . org-save-all-org-buffers)))
(use-package org-bullets
:ensure t
@@ -1099,7 +1125,7 @@ any directory proffered by `consult-dir'."
`(rxt-elisp-to-pcre (rx ,@rx-sexp))))
(use-package eshell-p10k
:ensure (:host github :repo "elken/eshell-p10k")
:ensure (:host github :repo "elken/eshell-p10k" :ref "fce701187de408e7b23884169ea597a49a2d3205")
:config
(eshell-p10k-def-segment time
""