code.delx.au - dotemacs/blob - lisp/my-keys.el

   1 ;;; -*- lexical-binding: t -*-
   2
   3 ;; Disable suspend-frame, it's annoying
   4 (global-set-key (kbd "C-z") nil)
   5 (global-set-key (kbd "C-x C-z") nil)
   6
   7 ;; Search
   8 (global-set-key (kbd "C-s") 'counsel-grep-or-swiper)
   9 (global-set-key (kbd "C-r") 'ivy-resume)
  10
  11 ;; Files/buffers
  12 (global-set-key (kbd "C-x f") 'counsel-rg-jump)
  13 (global-set-key (kbd "C-x g") 'counsel-rg)
  14 (global-set-key (kbd "C-x l") 'counsel-locate)
  15 (global-set-key (kbd "C-x c") 'my/kill-buffers-not-in-frame)
  16 (global-set-key (kbd "C-x C-b") 'ibuffer)
  17 (global-set-key (kbd "C-x C-r") 'counsel-recentf)
  18 (global-set-key (kbd "C-x t") 'my/find-prod-or-test-file)
  19 (global-set-key (kbd "C-c g d") 'git-gutter:popup-hunk)
  20 (global-set-key (kbd "C-c g p") 'git-gutter:previous-hunk)
  21 (global-set-key (kbd "C-c g n") 'git-gutter:next-hunk)
  22 (global-set-key (kbd "C-c g r") 'git-gutter:revert-hunk)
  23
  24 ;; Windows/frames
  25 (global-set-key (kbd "C-x o") 'ace-window)
  26 (global-set-key (kbd "C-x 9") 'my/window-resize-mode)
  27 (global-set-key (kbd "<C-up>") 'windmove-up)
  28 (global-set-key (kbd "<C-down>") 'windmove-down)
  29 (global-set-key (kbd "<C-left>") 'windmove-left)
  30 (global-set-key (kbd "<C-right>") 'windmove-right)
  31
  32 ;; Movement
  33 (global-set-key (kbd "M-g f") 'jump-char-forward)
  34 (global-set-key (kbd "M-g g") 'avy-goto-line)
  35 (global-set-key (kbd "M-g M-g") 'avy-goto-line)
  36 (global-set-key (kbd "M-g j") 'avy-goto-word-1)
  37
  38 ;; Text formatting
  39 (global-set-key (kbd "M-/") 'hippie-expand)
  40 (global-set-key (kbd "M-;") 'comment-line)
  41 (global-set-key (kbd "M-i") 'change-inner)
  42 (global-set-key (kbd "C-o") 'my/open-line-above)
  43 (global-set-key (kbd "M-o") 'my/open-line-below)
  44 (global-set-key (kbd "C-c c") 'my/copy-line)
  45 (global-set-key (kbd "C-c d") 'my/duplicate-line)
  46
  47 ;; Marking
  48 (global-set-key (kbd "C-=") 'er/expand-region)
  49 (global-set-key (kbd "C-c m a") 'mc/mark-all-dwim)
  50 (global-set-key (kbd "C-c m l") 'mc/edit-lines)
  51 (global-set-key (kbd "C-c m m") 'mc/mark-more-like-this-extended)
  52 (global-set-key (kbd "C-c m p") 'mc/mark-previous-like-this)
  53 (global-set-key (kbd "C-c m n") 'mc/mark-next-like-this)
  54 (global-set-key (kbd "C-.") 'goto-last-change)
  55 (global-set-key (kbd "C-,") 'goto-last-change-reverse)
  56
  57 ;; Killing and deleting
  58 (global-set-key (kbd "M-z") 'zap-up-to-char)
  59 (global-set-key (kbd "C-c k") 'kill-whole-line)
  60 (global-set-key (kbd "C-c s") 'my/substitute-line)
  61
  62 ;; Mode switching
  63 (global-set-key (kbd "C-x C-j") 'direx-project:jump-to-project-root-other-window)
  64 (global-set-key (kbd "C-c g s") 'magit-status)
  65 (global-set-key (kbd "C-c g g") 'magit-dispatch-popup)
  66 (global-set-key (kbd "C-c g f") 'magit-file-popup)
  67 (global-set-key (kbd "<f8>") 'flyspell-mode)
  68 (global-set-key (kbd "<f9>") 'whitespace-mode)
  69 (global-set-key (kbd "<f10>") 'toggle-truncate-lines)
  70
  71 ;; Disable some default bindings from the builtin mouse.el
  72 (global-set-key [C-down-mouse-1] nil)
  73 (global-set-key [C-down-mouse-2] nil)
  74 (global-set-key [C-down-mouse-3] nil)
  75 (global-set-key [S-down-mouse-1] nil)
  76 (global-set-key [S-down-mouse-2] nil)
  77 (global-set-key [S-down-mouse-3] nil)
  78
  79
  80 (defun my/window-resize-mode ()
  81   (interactive)
  82   (message "Resize window with the arrow keys")
  83   (let ((keymap (make-sparse-keymap)))
  84     (define-key keymap [up] #'enlarge-window)
  85     (define-key keymap [down] #'shrink-window)
  86     (define-key keymap [left] #'shrink-window-horizontally)
  87     (define-key keymap [right] #'enlarge-window-horizontally)
  88     (set-transient-map keymap t)))