.emacs.d

the most bloated Emacs config on this planet
git clone https://git.trogloxene.org/.emacs.d.git
Log | Files | Refs

init-terminal-kbd.el (1847B)


      1 ;;; init-terminal-kbd.el --- keybindings -*- lexical-binding: t -*-
      2 
      3 ;;; Commentary:
      4 
      5 ;;; Code:
      6 
      7 ;; general
      8 (use-package general)
      9 
     10 (defun open-init-file()
     11   "Open user's init.el file in ~/.emacs.d ."
     12   (interactive)
     13   (find-file "~/.emacs.d/init.el"))
     14 
     15 ;; scratch buffer
     16 (if *is-mac*
     17     (general-def "C-c <f12>" 'scratch-buffer)
     18   (general-def "C-c <delete>" 'scratch-buffer)
     19   (general-def "C-c <deletechar>" 'scratch-buffer))
     20 
     21 ;; diff
     22 (general-def diff-mode-map
     23   "M-o" 'other-window)
     24 
     25 ;; dired
     26 (general-def dired-mode-map
     27   "b" 'dired-up-directory)
     28 
     29 ;; global map with C-c prefix
     30 (general-def
     31   :prefix "C-c"
     32   "e" 'er/expand-region
     33   "k" 'comment-line
     34   "f r" 'recentf
     35   "i" 'imenu)
     36 
     37 ;; global map
     38 (general-def
     39 
     40   ;; buffer, file, and window
     41   "<f2>" 'open-init-file
     42   "C-x C-b" 'ibuffer-other-window
     43   "C-x K" 'crux-kill-other-buffers
     44 
     45   ;; edit
     46   "M-c" 'capitalize-dwim
     47   "M-u" 'upcase-dwim
     48   "M-l" 'downcase-dwim
     49   "C-," 'crux-duplicate-current-line-or-region
     50   "C-k" 'crux-smart-kill-line
     51   "C-<backspace>" 'crux-kill-line-backwards
     52   "M-y" 'yank-from-kill-ring
     53   "C-c DEL" 'hungry-delete-backward
     54   "C-c C-DEL" 'hungry-delete-forward
     55   "M-P" 'drag-stuff-up
     56   "M-N" 'drag-stuff-down
     57   "C-M-@" 'er/mark-symbol
     58   "M-@" 'er/mark-word
     59   "C-M-h" 'backward-kill-sexp
     60 
     61   ;; undo
     62   "C-/" 'undo
     63   "C-M-_" 'undo-redo
     64 
     65   ;; navigate
     66   "M-p" 'backward-paragraph
     67   "M-n" 'forward-paragraph
     68 
     69   ;; window
     70   "M-<left>" 'shrink-window-horizontally
     71   "M-<right>" 'enlarge-window-horizontally
     72   "M-<down>" 'shrink-window
     73   "M-<up>" 'enlarge-window
     74   "M-o" 'other-window)
     75 
     76 (add-to-list 'save-some-buffers-action-alist
     77              (list "d"
     78                    (lambda (buffer) (diff-buffer-with-file (buffer-file-name buffer)))
     79                    "show diff between the buffer and its file"))
     80 
     81 (provide 'init-terminal-kbd)
     82 ;;; init-terminal-kbd.el ends here