Keybinding changes
This commit is contained in:
contrapunctus
parent
89e2ac50ff
commit
ceca6912a7
47
init.org
47
init.org
|
|
@ -49,14 +49,15 @@ At first I decided to remap all Emacs, Boon, and Hydra bindings, but it turned o
|
|||
:map text-mode-map
|
||||
;; Boon already binds xref-find-definitions to f
|
||||
;; see also latex-mode
|
||||
("M-." forward-sentence)
|
||||
("M-." . forward-sentence)
|
||||
)
|
||||
;; ;; The old C-n/C-p/M-n/M-p were not the most comfortable to begin with, so I take this opportunity to bind them to something consistent with Boon
|
||||
(general-def minibuffer-local-map
|
||||
"C-c" 'previous-line
|
||||
"C-r" 'next-line
|
||||
"M-c" 'previous-history-element
|
||||
"M-r" 'next-history-element)
|
||||
"M-r" 'next-history-element
|
||||
"M-p" 'previous-matching-history-element)
|
||||
(general-def read-expression-map ;; not sure if this works
|
||||
"C-c" 'previous-line
|
||||
"C-r" 'next-line
|
||||
|
|
@ -204,7 +205,6 @@ This needs to be before =boon=, or you get a "failed to define function ido-mini
|
|||
("." . 'eval-last-sexp)
|
||||
("u" . 'find-file)
|
||||
("j" . 'kill-emacs)
|
||||
("k" . 'find-alternate-file)
|
||||
("x" . 'ibuffer)
|
||||
(")" . text-scale-adjust)
|
||||
("(" . text-scale-adjust))
|
||||
|
|
@ -1038,11 +1038,11 @@ PR ideas
|
|||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package comint
|
||||
:bind (:map comint-mode-map
|
||||
("M-g" . comint-history-isearch-backward-regexp)
|
||||
("M-p" . comint-history-isearch-backward-regexp) ;; QWERTY "r"
|
||||
("M-c" . comint-previous-matching-input-from-input)
|
||||
("M-r" . comint-next-matching-input-from-input)
|
||||
("C-c C-r" . comint-next-prompt)
|
||||
("C-c C-c" . comint-previous-prompt)))
|
||||
("C-c C-s" . comint-next-prompt)
|
||||
("C-c C-h" . comint-previous-prompt)))
|
||||
|
||||
#+END_SRC
|
||||
** company-emoji
|
||||
|
|
@ -1100,7 +1100,8 @@ Add these common operations to the hydra -
|
|||
("t" toggle-truncate-lines "truncate")
|
||||
("k" visual-line-mode "visual-line")
|
||||
("c" visual-fill-column-mode "visual-fill-column")
|
||||
("a" adaptive-wrap-prefix-mode "adaptive-prefix-wrap"))
|
||||
("a" adaptive-wrap-prefix-mode "adaptive-prefix-wrap")
|
||||
("o" org-indent-mode "org-indent-mode"))
|
||||
#+END_SRC
|
||||
*** Window
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
|
|
@ -1179,7 +1180,9 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
|||
("w" contrapunctus-window-hydra/body "window")
|
||||
("m" magit-status "magit")
|
||||
("E" toggle-debug-on-error "tdoe")
|
||||
("Q" toggle-debug-on-quit "tdoq"))
|
||||
("Q" toggle-debug-on-quit "tdoq")
|
||||
("T" cp-insert-timestamp "timestamp")
|
||||
("D" (cp-insert-timestamp t) "date"))
|
||||
#+END_SRC
|
||||
*** org
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
|
|
@ -1274,7 +1277,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
|||
#+BEGIN_SRC emacs-lisp
|
||||
(defhydra cp-el-debug (:color blue)
|
||||
"Debug"
|
||||
("e" (funcall-interactively #'eval-defun t) "Debug")
|
||||
("e" (funcall-interactively #'eval-defun t) "edebug")
|
||||
("o" toggle-debug-on-error "tdoe")
|
||||
("u" toggle-debug-on-quit "tdoq"))
|
||||
#+END_SRC
|
||||
|
|
@ -1288,7 +1291,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
|||
("r" slime "REPL")
|
||||
|
||||
("i" (find-file "~/.emacs.d/init.org") "open init")
|
||||
("d" dired-jump "dired-jump")
|
||||
("D" dired-jump "dired-jump")
|
||||
("u" find-file "new")
|
||||
("o" save-buffer "save")
|
||||
("k" (kill-buffer (current-buffer)) "kill")
|
||||
|
|
@ -1414,7 +1417,8 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
|||
("m" magit-status "Magit")
|
||||
("E" toggle-debug-on-error "tdoe")
|
||||
("Q" toggle-debug-on-quit "tdoq")
|
||||
("G" contrapunctus-general-hydra/body "up"))
|
||||
("G" contrapunctus-general-hydra/body "up")
|
||||
("D" (cp-insert-timestamp t) "date"))
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
|
|
@ -1457,9 +1461,11 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
|||
(use-package image-mode
|
||||
:bind
|
||||
(:map image-map
|
||||
("o" . nil))
|
||||
("o" . nil)
|
||||
("r" . nil))
|
||||
(:map image-mode-map
|
||||
("o" . nil)))
|
||||
("o" . nil)
|
||||
("r" . nil)))
|
||||
|
||||
#+END_SRC
|
||||
** flx-ido :disabled:
|
||||
|
|
@ -1566,7 +1572,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
|||
:bind (:map LaTeX-mode-map
|
||||
("M-c" . cp-backward-def)
|
||||
("M-r" . cp-forward-def)
|
||||
("M-." forward-sentence))
|
||||
("M-." . forward-sentence))
|
||||
:config
|
||||
(setq TeX-auto-save t
|
||||
TeX-parse-self t
|
||||
|
|
@ -1599,6 +1605,13 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
|||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package org
|
||||
:commands (org-drag-line-backward org-drag-line-forward)
|
||||
:bind (("C-c C-h" . nil)
|
||||
:map org-mode-map
|
||||
("C-c C-c" . org-previous-visible-heading)
|
||||
("C-c C-r" . org-next-visible-heading)
|
||||
("C-c C-s" . org-forward-heading-same-level)
|
||||
;; does not work...
|
||||
("C-c C-h" . org-backward-heading-same-level))
|
||||
:config
|
||||
(general-def "<f5> o" 'org-mode)
|
||||
(general-def org-mode-map
|
||||
|
|
@ -1609,7 +1622,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
|||
"C-c C-," 'org-metaleft
|
||||
"C-c C-." 'org-metaright
|
||||
;; "C-j" 'org-return
|
||||
;; "C-m" 'org-return-indent
|
||||
;; "C-m" 'org-return-indent
|
||||
"C-c C-9" 'org-mark-ring-goto
|
||||
"C-c C-/" 'org-sparse-tree
|
||||
"M-w" 'cp-copy-line-or-link
|
||||
|
|
@ -2477,6 +2490,10 @@ pjb suggested a different approach [[http://paste.lisp.org/display/10157][here]]
|
|||
("M-p" . previous-line)
|
||||
("SPC" . self-insert-command)
|
||||
("<f1> <f1>" . slime-documentation))
|
||||
(:map slime-repl-mode-map
|
||||
("M-p" . slime-repl-previous-matching-input) ;; QWERTY "r"
|
||||
("M-c" . slime-repl-previous-input)
|
||||
("M-r" . slime-repl-next-input))
|
||||
:config
|
||||
(slime-setup t)
|
||||
(setq inferior-lisp-program
|
||||
|
|
|
|||
Loading…
Reference in New Issue