lupan/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

replace key chords with short key bindings

Browse Source
This commit is contained in:
Łukasz Pankowski 2018-02-28 21:20:30 +01:00
parent d258398af2
commit 8de0ef34dd
1 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
init.el
View File

@ -55,9 +55,6 @@
(require 'use-package) (require 'use-package)
(use-package use-package-chords
:ensure nil
:config (key-chord-mode 1))
;;; This also turns on checking TLS certificates (in both possible modes) ;;; This also turns on checking TLS certificates (in both possible modes)
;;; with `tls-program` set to only the first value from the default value ;;; with `tls-program` set to only the first value from the default value
@ -172,16 +169,15 @@
(use-package treemacs (use-package treemacs
:ensure nil :ensure nil
:bind :bind
("C-c t" . treemacs-toggle) (("C-c t" . treemacs-toggle)
:chords ("s-a" . treemacs-toggle)))
(("tt" . treemacs-toggle)))
(use-package buffer-flip (use-package buffer-flip
:ensure nil :ensure nil
:chords (("bb" . buffer-flip)) :bind (("s-v" . buffer-flip)
:bind (:map buffer-flip-map :map buffer-flip-map
( "b" . buffer-flip-forward) ( "s-v" . buffer-flip-forward)
( "B" . buffer-flip-backward) ( "s-V" . buffer-flip-backward)
( "C-g" . buffer-flip-abort))) ( "C-g" . buffer-flip-abort)))
(use-package goto-chg (use-package goto-chg
@ -855,7 +851,7 @@ inserted between the braces between the braces."
;;; ----------------- ;;; -----------------
;;; Set keys from jj a to jj z to switch to buffers from a register from a to z ;;; Set keys from s-s a to s-s z to switch to buffers from a register from a to z
(defalias 'pr #'point-to-register) (defalias 'pr #'point-to-register)
@ -870,14 +866,14 @@ of the key binding used to execute this command."
(switch-to-buffer (marker-buffer r)) (switch-to-buffer (marker-buffer r))
(jump-to-register c)))) (jump-to-register c))))
(setq my-jj-map (make-sparse-keymap)) (setq my-switch-to-register-map (make-sparse-keymap))
(let ((character ?a)) (let ((character ?a))
(while (<= character ?z) (while (<= character ?z)
(define-key my-jj-map (format "%c" character) #'my-switch-to-register) (define-key my-switch-to-register-map (format "%c" character) #'my-switch-to-register)
(setq character (1+ character)))) (setq character (1+ character))))
(key-chord-define-global "jj" my-jj-map) (global-set-key (kbd "s-s") my-switch-to-register-map)
;;; Search engines ;;; Search engines