larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2024-11-26 07:28:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Structure bindings in sections

Browse Source
This commit is contained in:
Lars Tveito 2016-05-24 21:36:21 +02:00
parent 0428c8ee5d
commit fb5ae52c07
1 changed files with 25 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
init.org
View File

@ -1243,20 +1243,20 @@
"A keymap for custom bindings.") "A keymap for custom bindings.")
#+END_SRC #+END_SRC
Bindings for [[https://github.com/abo-abo/define-word][define-word]]. ** Bindings for [[https://github.com/abo-abo/define-word][define-word]]
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key custom-bindings-map (kbd "C-c D") 'define-word-at-point) (define-key custom-bindings-map (kbd "C-c D") 'define-word-at-point)
#+END_SRC #+END_SRC
Bindings for [[https://github.com/magnars/expand-region.el][expand-region]]. ** Bindings for [[https://github.com/magnars/expand-region.el][expand-region]]
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key custom-bindings-map (kbd "C->") 'er/expand-region) (define-key custom-bindings-map (kbd "C->") 'er/expand-region)
(define-key custom-bindings-map (kbd "C-<") 'er/contract-region) (define-key custom-bindings-map (kbd "C-<") 'er/contract-region)
#+END_SRC #+END_SRC
Bindings for [[https://github.com/magnars/multiple-cursors.el][multiple-cursors]]. ** Bindings for [[https://github.com/magnars/multiple-cursors.el][multiple-cursors]]
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key custom-bindings-map (kbd "C-c e") 'mc/edit-lines) (define-key custom-bindings-map (kbd "C-c e") 'mc/edit-lines)
@ -1264,13 +1264,13 @@
(define-key custom-bindings-map (kbd "C-c n") 'mc/mark-next-like-this) (define-key custom-bindings-map (kbd "C-c n") 'mc/mark-next-like-this)
#+END_SRC #+END_SRC
Bindings for [[http://magit.github.io][Magit]]. ** Bindings for [[http://magit.github.io][Magit]]
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key custom-bindings-map (kbd "C-c m") 'magit-status) (define-key custom-bindings-map (kbd "C-c m") 'magit-status)
#+END_SRC #+END_SRC
Bindings for [[http://company-mode.github.io/][company-mode]]. ** Bindings for [[http://company-mode.github.io/][company-mode]]
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key company-active-map (kbd "C-d") 'company-show-doc-buffer) (define-key company-active-map (kbd "C-d") 'company-show-doc-buffer)
@ -1282,7 +1282,7 @@
(define-key company-active-map (kbd "C-:") 'helm-company) (define-key company-active-map (kbd "C-:") 'helm-company)
#+END_SRC #+END_SRC
Bindings for [[http://emacs-helm.github.io/helm/][Helm]]. ** Bindings for [[http://emacs-helm.github.io/helm/][Helm]]
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key custom-bindings-map (kbd "C-c h") 'helm-command-prefix) (define-key custom-bindings-map (kbd "C-c h") 'helm-command-prefix)
@ -1300,21 +1300,26 @@
(define-key helm-map (kbd "C-z") 'helm-select-action) (define-key helm-map (kbd "C-z") 'helm-select-action)
#+END_SRC #+END_SRC
Bind some native Emacs functions. ** Bindings for built-ins
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key custom-bindings-map (kbd "M-u") 'upcase-dwim) (define-key custom-bindings-map (kbd "M-u") 'upcase-dwim)
(define-key custom-bindings-map (kbd "M-c") 'capitalize-dwim) (define-key custom-bindings-map (kbd "M-c") 'capitalize-dwim)
(define-key custom-bindings-map (kbd "M-l") 'downcase-dwim) (define-key custom-bindings-map (kbd "M-l") 'downcase-dwim)
(define-key custom-bindings-map (kbd "C-j") 'newline-and-indent) (define-key custom-bindings-map (kbd "M-]") 'other-frame)
(define-key custom-bindings-map (kbd "C-c s") 'ispell-word) (define-key custom-bindings-map (kbd "C-j") 'newline-and-indent)
(define-key custom-bindings-map (kbd "C-c c") 'org-capture) (define-key custom-bindings-map (kbd "C-c s") 'ispell-word)
(define-key custom-bindings-map (kbd "C-x m") 'mu4e) (define-key custom-bindings-map (kbd "C-c c") 'org-capture)
(define-key custom-bindings-map (kbd "C-x m") 'mu4e)
(define-key custom-bindings-map (kbd "C-c <up>") 'windmove-up)
(define-key custom-bindings-map (kbd "C-c <down>") 'windmove-down)
(define-key custom-bindings-map (kbd "C-c <left>") 'windmove-left)
(define-key custom-bindings-map (kbd "C-c <right>") 'windmove-right)
(define-key custom-bindings-map (kbd "C-c t") (define-key custom-bindings-map (kbd "C-c t")
(lambda () (interactive) (org-agenda nil "n"))) (lambda () (interactive) (org-agenda nil "n")))
#+END_SRC #+END_SRC
Bind the functions defined [[sec:defuns][above]]. ** Bindings for functions defined [[sec:defuns][above]].
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key global-map (kbd "M-p") 'jump-to-previous-like-this) (define-key global-map (kbd "M-p") 'jump-to-previous-like-this)
@ -1331,6 +1336,11 @@
(define-key custom-bindings-map (kbd "C-c j") 'cycle-spacing-delete-newlines) (define-key custom-bindings-map (kbd "C-c j") 'cycle-spacing-delete-newlines)
(define-key custom-bindings-map (kbd "C-c d") 'duplicate-thing) (define-key custom-bindings-map (kbd "C-c d") 'duplicate-thing)
(define-key custom-bindings-map (kbd "<C-tab>") 'tidy) (define-key custom-bindings-map (kbd "<C-tab>") 'tidy)
(define-key custom-bindings-map (kbd "C-c C-q")
'(lambda ()
(interactive)
(focus-mode 1)
(focus-read-only-mode 1)))
(with-eval-after-load 'org (with-eval-after-load 'org
(define-key org-mode-map (kbd "C-'") 'org-sync-pdf)) (define-key org-mode-map (kbd "C-'") 'org-sync-pdf))
#+END_SRC #+END_SRC