mirror of
https://github.com/fscotto/infra.git
synced 2026-05-31 07:49:57 +00:00
18fd0fa129
Install Emacs and copy the desktop .emacs.d config so the editor setup is managed with the rest of desktop dotfiles. Add vterm/build/debug dependencies plus C/C++ and Go tooling needed by the configured workflow.
162 lines
6.1 KiB
EmacsLisp
162 lines
6.1 KiB
EmacsLisp
;;; keybindings.el -*- lexical-binding: t; -*-
|
|
|
|
;;;; Global / Core
|
|
|
|
(global-set-key (kbd "C-x C-b") #'ibuffer)
|
|
(global-set-key (kbd "C-<return>") 'company-complete)
|
|
|
|
(defvar fscotto/leader-map (make-sparse-keymap)
|
|
"Keymap per comandi sotto C-c.")
|
|
|
|
(define-key global-map (kbd "C-c") fscotto/leader-map)
|
|
|
|
;;;; Git / Magit
|
|
(defun fscotto/enable-magit-keymap ()
|
|
"Enable Git keybindings if current buffer is inside a Git repository."
|
|
(when (and (require 'magit nil 'noerror)
|
|
(magit-toplevel))
|
|
(local-set-key (kbd "C-c g") fscotto/git-map)))
|
|
|
|
(defvar fscotto/git-map (make-sparse-keymap)
|
|
"Keymap for Git commands under C-c g.")
|
|
|
|
(add-hook 'find-file-hook #'fscotto/enable-magit-keymap)
|
|
(add-hook 'prog-mode-hook #'fscotto/enable-magit-keymap)
|
|
(add-hook 'conf-mode-hook #'fscotto/enable-magit-keymap)
|
|
|
|
;; autoload: il tasto carica magit
|
|
(autoload 'magit-status "magit" nil t)
|
|
(autoload 'magit-branch "magit" nil t)
|
|
(autoload 'magit-commit "magit" nil t)
|
|
(autoload 'magit-push "magit" nil t)
|
|
(autoload 'magit-fetch "magit" nil t)
|
|
|
|
;; keybinding (sempre definite nella mappa)
|
|
(define-key fscotto/git-map (kbd "s") #'magit-status)
|
|
(define-key fscotto/git-map (kbd "b") #'magit-branch)
|
|
(define-key fscotto/git-map (kbd "c") #'magit-commit)
|
|
(define-key fscotto/git-map (kbd "p") #'magit-push)
|
|
(define-key fscotto/git-map (kbd "f") #'magit-fetch)
|
|
|
|
;;;; Open / Tools
|
|
(defvar fscotto/open (make-sparse-keymap))
|
|
(define-key fscotto/leader-map (kbd "o") fscotto/open)
|
|
|
|
;; -------- vterm --------
|
|
(autoload 'vterm "vterm" nil t)
|
|
(define-key fscotto/open (kbd "T") #'vterm)
|
|
|
|
(with-eval-after-load 'vterm
|
|
(define-key vterm-mode-map (kbd "C-c C-t") #'vterm-copy-mode))
|
|
|
|
;; -------- mu4e --------
|
|
(autoload 'mu4e "mu4e" nil t)
|
|
(define-key fscotto/open (kbd "m") #'mu4e)
|
|
|
|
;; -------- elfeed --------
|
|
(autoload 'elfeed "elfeed" nil t)
|
|
(define-key fscotto/open (kbd "f") #'elfeed)
|
|
|
|
;;;; Elfeed mode maps
|
|
(with-eval-after-load 'elfeed
|
|
(define-key elfeed-search-mode-map (kbd "w") #'elfeed-search-yank)
|
|
(define-key elfeed-search-mode-map (kbd "R") #'elfeed-update)
|
|
(define-key elfeed-search-mode-map (kbd "q") #'elfeed-kill-buffer)
|
|
|
|
(define-key elfeed-show-mode-map (kbd "S") #'elfeed-show-new-live-search)
|
|
(define-key elfeed-show-mode-map (kbd "f") #'elfeed-show-fetch-full-text)
|
|
(define-key elfeed-show-mode-map (kbd "w") #'elfeed-show-yank))
|
|
|
|
;;;; hl-todo
|
|
(with-eval-after-load 'hl-todo
|
|
(define-key hl-todo-mode-map (kbd "C-t p") #'hl-todo-previous)
|
|
(define-key hl-todo-mode-map (kbd "C-t n") #'hl-todo-next)
|
|
(define-key hl-todo-mode-map (kbd "C-t o") #'hl-todo-occur)
|
|
(define-key hl-todo-mode-map (kbd "C-t i") #'hl-todo-insert))
|
|
|
|
;; Projectile keybindings
|
|
(define-key fscotto/leader-map (kbd "p") 'projectile-command-map)
|
|
|
|
(with-eval-after-load 'projectile
|
|
(define-key projectile-command-map (kbd "v") #'fscotto/project-vterm)
|
|
(define-key projectile-command-map (kbd "g") #'fscotto/project-magit-status))
|
|
|
|
;;;; LSP
|
|
(defvar fscotto/lsp-map (make-sparse-keymap))
|
|
|
|
(autoload 'lsp-find-definition "lsp-mode" nil t)
|
|
(autoload 'lsp-find-type-definition "lsp-mode" nil t)
|
|
(autoload 'lsp-find-implementation "lsp-mode" nil t)
|
|
(autoload 'lsp-execute-code-action "lsp-mode" nil t)
|
|
(autoload 'lsp-rename "lsp-mode" nil t)
|
|
(autoload 'lsp-format-buffer "lsp-mode" nil t)
|
|
(autoload 'lsp-restart-workspace "lsp-mode" nil t)
|
|
|
|
(autoload 'consult-lsp-symbols "consult-lsp" nil t)
|
|
(autoload 'consult-lsp-diagnostics "consult-lsp" nil t)
|
|
|
|
(define-key fscotto/lsp-map (kbd "s") #'consult-lsp-symbols)
|
|
(define-key fscotto/lsp-map (kbd "e") #'consult-lsp-diagnostics)
|
|
(define-key fscotto/lsp-map (kbd "d") #'lsp-find-definition)
|
|
(define-key fscotto/lsp-map (kbd "D") #'lsp-find-type-definition)
|
|
(define-key fscotto/lsp-map (kbd "i") #'lsp-find-implementation)
|
|
(define-key fscotto/lsp-map (kbd "a") #'lsp-execute-code-action)
|
|
(define-key fscotto/lsp-map (kbd "r") #'lsp-rename)
|
|
(define-key fscotto/lsp-map (kbd "f") #'lsp-format-buffer)
|
|
(define-key fscotto/lsp-map (kbd "R") #'lsp-restart-workspace)
|
|
|
|
(defun fscotto/enable-lsp-keymap ()
|
|
"Enable LSP keybindings if LSP is active in the current buffer."
|
|
(when (and (bound-and-true-p lsp-mode)
|
|
(lsp-workspaces))
|
|
(local-set-key (kbd "C-c l") fscotto/lsp-map)))
|
|
|
|
(add-hook 'lsp-mode-hook #'fscotto/enable-lsp-keymap)
|
|
(add-hook 'lsp-after-initialize-hook #'fscotto/enable-lsp-keymap)
|
|
(add-hook 'lsp-after-open-hook #'fscotto/enable-lsp-keymap)
|
|
|
|
;;;; DAP
|
|
(defvar fscotto/dap-map (make-sparse-keymap)
|
|
"Keymap for DAP commands under C-c d.")
|
|
|
|
(autoload 'dap-debug "dap-mode" nil t)
|
|
(autoload 'dap-breakpoint-toggle "dap-mode" nil t)
|
|
(autoload 'dap-continue "dap-mode" nil t)
|
|
(autoload 'dap-next "dap-mode" nil t)
|
|
(autoload 'dap-step-in "dap-mode" nil t)
|
|
(autoload 'dap-step-out "dap-mode" nil t)
|
|
(autoload 'dap-restart-frame "dap-mode" nil t)
|
|
(autoload 'dap-disconnect "dap-mode" nil t)
|
|
|
|
(define-key fscotto/dap-map (kbd "d") #'dap-debug)
|
|
(define-key fscotto/dap-map (kbd "b") #'dap-breakpoint-toggle)
|
|
(define-key fscotto/dap-map (kbd "c") #'dap-continue)
|
|
(define-key fscotto/dap-map (kbd "n") #'dap-next)
|
|
(define-key fscotto/dap-map (kbd "i") #'dap-step-in)
|
|
(define-key fscotto/dap-map (kbd "o") #'dap-step-out)
|
|
(define-key fscotto/dap-map (kbd "r") #'dap-restart-frame)
|
|
(define-key fscotto/dap-map (kbd "q") #'dap-disconnect)
|
|
|
|
(defun fscotto/enable-dap-keymap ()
|
|
"Enable DAP keybindings if dap-mode is active in the current buffer."
|
|
(when (bound-and-true-p dap-mode)
|
|
(local-set-key (kbd "C-c d") fscotto/dap-map)))
|
|
|
|
(add-hook 'dap-mode-hook #'fscotto/enable-dap-keymap)
|
|
(add-hook 'dap-session-created-hook #'fscotto/enable-dap-keymap)
|
|
(add-hook 'dap-terminated-hook #'fscotto/enable-dap-keymap)
|
|
|
|
;;;; Go
|
|
|
|
(with-eval-after-load 'go-ts-mode
|
|
(define-key go-ts-mode-map (kbd "C-c m t") #'fscotto/go-mod-tidy)
|
|
(define-key go-ts-mode-map (kbd "C-c m d") #'fscotto/go-mod-download)
|
|
(define-key go-ts-mode-map (kbd "C-c t p") #'fscotto/go-test-package)
|
|
(define-key go-ts-mode-map (kbd "C-c t a") #'fscotto/go-test-module)
|
|
(define-key go-ts-mode-map (kbd "C-c t t") #'fscotto/go-test-current-test)
|
|
(define-key go-ts-mode-map (kbd "C-c d t") #'dap-debug))
|
|
|
|
(provide 'core/keybindings)
|
|
|
|
;;; keybindings.el ends here
|