add C-c equivalent to leader key

This commit is contained in:
Peter Tillemans 2024-11-11 13:30:16 +01:00
parent 119a6b0fec
commit 3b3dbbb628

View file

@ -412,17 +412,22 @@ muscle memory.
;; make vc commands available via leader key ;; make vc commands available via leader key
(evil-define-key 'normal 'global (evil-define-key 'normal 'global
(kbd "<leader>v") vc-prefix-map) (kbd "<leader>v") vc-prefix-map)
(keymap-global-set "C-c v")
#+END_SRC #+END_SRC
#+RESULTS: #+RESULTS
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
;; make project commands available via leader key ;; make project commands available via leader key
(evil-define-key 'normal 'global (evil-define-key 'normal 'global
(kbd "<leader>p") project-prefix-map) (kbd "<leader>p") project-prefix-map)
(keymap-global-set "C-c p" project-prefix-map)
#+END_SRC #+END_SRC
#+RESULTS: #+RESULTS:
: (keymap (2 . project-list-buffers) (111 . project-any-command) (120 . project-execute-extended-command) (114 . project-query-replace-regexp) (71 . project-or-external-find-regexp) (103 . project-find-regexp) (112 . project-switch-project) (107 . project-kill-buffers) (101 . project-eshell) (99 . project-compile) (118 . magit-status) (68 . project-dired) (100 . project-find-dir) (115 . project-shell) (98 . project-switch-to-buffer) (70 . project-or-external-find-file) (102 . project-find-file) (38 . project-async-shell-command) (33 . project-shell-command))
#+RESULTS
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(evil-define-key 'normal 'global (evil-define-key 'normal 'global
@ -430,6 +435,10 @@ muscle memory.
(kbd "<leader>fo") #'recentf (kbd "<leader>fo") #'recentf
(kbd "<leader>fr") #'revert-buffer (kbd "<leader>fr") #'revert-buffer
(kbd "<leader>fd") #'diff-buffer-with-file) (kbd "<leader>fd") #'diff-buffer-with-file)
(keymap-global-set "C-c ff") #'find-file
(keymap-global-set "C-c fo") #'recentf
(keymap-global-set "C-c fr") #'revert-buffer
(keymap-global-set "C-c fd") #'diff-buffer-with-file)
#+END_SRC #+END_SRC
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -438,20 +447,21 @@ muscle memory.
#+END_SRC #+END_SRC
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package harpoon (use-package harpoon
:ensure t :ensure t
:init :init
(setq pti-harpoon-map (make-sparse-keymap)) (setq pti-harpoon-map (make-sparse-keymap))
(keymap-set pti-harpoon-map (kbd "h") 'harpoon-toggle-quick-menu) (keymap-set pti-harpoon-map (kbd "h") 'harpoon-toggle-quick-menu)
(keymap-set pti-harpoon-map (kbd "a") 'harpoon-add-file) (keymap-set pti-harpoon-map (kbd "a") 'harpoon-add-file)
(keymap-set pti-harpoon-map (kbd "f") 'harpoon-toggle-file) (keymap-set pti-harpoon-map (kbd "f") 'harpoon-toggle-file)
(keymap-set pti-harpoon-map (kbd "j") 'harpoon-go-to-1) (keymap-set pti-harpoon-map (kbd "j") 'harpoon-go-to-1)
(keymap-set pti-harpoon-map (kbd "k") 'harpoon-go-to-2) (keymap-set pti-harpoon-map (kbd "k") 'harpoon-go-to-2)
(keymap-set pti-harpoon-map (kbd "l") 'harpoon-go-to-3) (keymap-set pti-harpoon-map (kbd "l") 'harpoon-go-to-3)
(keymap-set pti-harpoon-map (kbd ";") 'harpoon-go-to-4) (keymap-set pti-harpoon-map (kbd ";") 'harpoon-go-to-4)
(keymap-set pti-harpoon-map (kbd "h") 'harpoon-toggle-quick-menu) (keymap-set pti-harpoon-map (kbd "h") 'harpoon-toggle-quick-menu)
:bind :bind
(("<leader>h" . 'pti-harpoon-map))) (("<leader>h" . 'pti-harpoon-map)))
#+END_SRC #+END_SRC
#+RESULTS: #+RESULTS: