Skip to content

Instantly share code, notes, and snippets.

@dedenbangkit

dedenbangkit/keybinding.el

Created March 31, 2023 23:19
Show Gist options
  • Save dedenbangkit/e6c70a1b4698e2565aacab83e915feb5 to your computer and use it in GitHub Desktop.
Save dedenbangkit/e6c70a1b4698e2565aacab83e915feb5 to your computer and use it in GitHub Desktop.
Download ZIP
keybinding.el
Raw
keybinding.el
;;; keybindings.el --- Initialization keybindings for Emacs
;;; Commentary
;;; Code:
(defvar which-key-idle-delay 0.01)
(helm-ext-ff-enable-split-actions t)
(global-set-key (kbd "<escape>") 'keyboard-escape-quit)
;; For leader f
(defun edit-keybindings ()
"Shortcut to edit keybindings.el."
(interactive) (find-file "~/.emacs.d/keybindings.el"))
(defun edit-init-el ()
"Shortcut to edit init.el."
(interactive) (find-file "~/.emacs.d/init.el"))
(defun edit-custom-el ()
"Shortcut to edit custom/main.el."
(interactive) (find-file "~/.emacs.d/custom/main.el"))
(defun edit-lsp-el ()
"Shortcut to edit custom/lsp.el."
(interactive) (find-file "~/.emacs.d/custom/lsp.el"))
(defun modes ()
"Switch between modes."
(interactive) nil)
(defun edit-my-config ()
"Edit Emacs Config."
(interactive) nil)
(global-set-key (kbd "<f5>") #'revert-buffer-quick)
(define-key helm-map (kbd "<escape>") 'helm-keyboard-quit)
(define-key helm-map (kbd "%") 'helm-ext-ff-execute-horizontal-split)
(define-key helm-map (kbd "|") 'helm-ext-ff-execute-vertical-split)
;; Quick View
(define-key evil-normal-state-map (kbd "ff") #'helm-find-files)
(define-key evil-normal-state-map (kbd "fb") #'helm-bookmarks)
(define-key evil-normal-state-map (kbd "fl") #'helm-mini)
(define-key evil-normal-state-map (kbd "fj") #'helm-buffers-list)
(define-key evil-normal-state-map (kbd "fn") #'global-linum-mode)
(define-key evil-normal-state-map (kbd "fp") 'find-file-literally-at-point)
(define-prefix-command 'edit-my-config)
(define-key evil-normal-state-map (kbd "fc") #'edit-my-config)
(define-key evil-normal-state-map (kbd "fck") #'edit-keybindings)
(define-key evil-normal-state-map (kbd "fci") #'edit-init-el)
(define-key evil-normal-state-map (kbd "fcc") #'edit-custom-el)
(define-key evil-normal-state-map (kbd "fcl") 'edit-custom-lsp)
(define-key evil-normal-state-map (kbd "fss") 'find-ag)
(define-key evil-normal-state-map (kbd "fsd") #'helm-do-ag)
(define-key evil-normal-state-map (kbd "fsh") #'helm-ag-pop-stack)
(define-key evil-normal-state-map (kbd "fsp") #'helm-ag-project-root)
(define-key evil-normal-state-map (kbd "fsb") #'helm-ag-buffers)
(define-key evil-normal-state-map (kbd "fa") #'org-agenda-list)
(define-key evil-normal-state-map (kbd "s") #'save-buffer)
(define-key evil-normal-state-map (kbd "f SPC") #'keyboard-escape-quit)
(define-key evil-normal-state-map (kbd "f <escape>") #'keyboard-escape-quit)
;; Indentation
(define-key evil-visual-state-map (kbd "SPC") #'indent-region)
;; Simple Clip
(define-key evil-visual-state-map (kbd "Y") #'simpleclip-copy)
(define-key evil-normal-state-map (kbd "P") #'simpleclip-paste)
;; Magit
(define-key evil-normal-state-map (kbd "M") #'magit)
;; Open Files
(define-key evil-normal-state-map (kbd "SPC") #'helm-ag-this-file)
;; Global Moving
(define-key evil-normal-state-map (kbd "(") 'evil-previous-open-paren)
(define-key evil-normal-state-map (kbd ")") 'evil-next-close-paren)
;; Neotree
(setq neo-smart-open t)
(define-key evil-normal-state-map (kbd "C-n") #'neotree-toggle)
(evil-define-key 'normal neotree-mode-map (kbd "I") #'neotree-hidden-file-toggle)
(evil-define-key 'normal neotree-mode-map (kbd "L") #'neotree-enter)
(evil-define-key 'normal neotree-mode-map (kbd "R") #'neotree-refresh)
(evil-define-key 'normal neotree-mode-map (kbd "ma") #'neotree-create-node)
(evil-define-key 'normal neotree-mode-map (kbd "mx") #'neotree-rename-node)
(evil-define-key 'normal neotree-mode-map (kbd "mc") #'neotree-copy-node)
(evil-define-key 'normal neotree-mode-map (kbd "md") #'neotree-delete-node)
(evil-define-key 'normal neotree-mode-map (kbd "i") #'neotree-hidden-file-toggle)
;; Windows
(define-key evil-normal-state-map (kbd "wl") #'windmove-right)
(define-key evil-normal-state-map (kbd "wh") #'windmove-left)
(define-key evil-normal-state-map (kbd "wj") #'windmove-down)
(define-key evil-normal-state-map (kbd "wk") #'windmove-up)
(define-key evil-normal-state-map (kbd "wd") #'kill-current-buffer)
(define-key evil-normal-state-map (kbd "ww") #'transpose-frame)
(define-key evil-normal-state-map (kbd "wH") #'flop-frame)
(define-key evil-normal-state-map (kbd "wJ") #'flip-frame)
(define-key evil-normal-state-map (kbd "wc") #'global-command-log-mode)
(define-key evil-normal-state-map (kbd "w SPC") #'clm/toggle-command-log-buffer)
(define-key evil-normal-state-map (kbd "w ") 'evil-window-increase-height)
(define-key evil-normal-state-map (kbd "w-") 'evil-window-decrease-height)
(define-key evil-normal-state-map (kbd "w(") 'evil-window-increase-width)
(define-key evil-normal-state-map (kbd "w)") 'evil-window-decrease-width)
(define-key evil-normal-state-map (kbd "%") #'split-window-below)
(define-key evil-normal-state-map (kbd "|") #'split-window-right)
;; Modes
(define-prefix-command 'modes)
(define-key evil-normal-state-map (kbd "fm") #'modes)
(define-key evil-normal-state-map (kbd "fml") #'lisp-mode)
(define-key evil-normal-state-map (kbd "fmo") #'org-mode)
(define-key evil-normal-state-map (kbd "fmc") #'clojure-mode)
(define-key evil-normal-state-map (kbd "fm <escape>") #'keyboard-escape-quit)
;; Flycheck
(define-key evil-normal-state-map (kbd "er") 'flycheck-list-errors)
;; Lisp
(add-hook
'emacs-lisp-mode-hook
#'(lambda ()
(linum-mode 1)
(define-key evil-normal-state-map (kbd "eb") 'eval-buffer)
(define-key evil-normal-state-map (kbd "eb") 'eval-buffer)))
;; Clojure Cider
(add-hook
'clojure-mode-hook
#'(lambda ()
(linum-mode 1)
(define-key evil-normal-state-map (kbd "ec") 'cider-connect)
(define-key evil-normal-state-map (kbd "eb") 'cider-eval-buffer)
(define-key evil-normal-state-map (kbd "ee") 'cider-eval-list-at-point)
(define-key evil-normal-state-map (kbd "ew") 'cider-repl-clear-buffer)
(define-key evil-normal-state-map (kbd "ej") 'cider-find-var)
(define-key evil-normal-state-map (kbd "ek") 'cider-pop-back)
(define-key evil-normal-state-map (kbd "et") 'cider-test-run-test)
(define-key evil-normal-state-map (kbd "eq") 'cider-quit)
(define-key evil-normal-state-map (kbd "ed") 'cider-debug-defun-at-point)
(define-key evil-normal-state-map (kbd "e <escape>") 'keyboard-escape-quit)))
;; Org Custom Evil
(add-hook
'org-mode-hook
#'(lambda ()
(define-key evil-normal-state-map (kbd "fe") 'org-table-export)
(define-key evil-normal-state-map (kbd "L") 'org-cycle)
(define-key evil-normal-state-map (kbd "R") 'org-export-dispatch)
(define-key evil-normal-state-map (kbd ">") 'org-table-wrap-region)
(define-key evil-normal-state-map (kbd " ") 'org-toggle-checkbox)
(define-key evil-normal-state-map (kbd "RET") 'org-babel-execute-src-block)
(define-key evil-normal-state-map (kbd "#") 'org-insert-structure-template)))
;; Python Custom
(add-hook
'python-mode-hook
#'(lambda ()
'(jedi-mode)
(linum-mode 1)
(define-key evil-normal-state-map (kbd "ef") 'lsp-goto-type-definition)
(define-key evil-normal-state-map (kbd "ej") 'jedi:goto-definition)
(define-key evil-normal-state-map (kbd "ee") 'elpy-yapf-fix-code)
(define-key evil-normal-state-map (kbd "ed") 'jedi:show-doc)))
;; (evil-ex-define-cmd "q[uit]" nil)
;; custom patch
(fset 'evil-visual-update-x-selection 'ignore)
;;; keybindings.el ends here
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment