Commit 6f7407bf7d8c

Vincent Demeester <vincent@sbr.pm>
2019-01-12 22:04:30
setup-fold: add folding configuration…
… and region bindings mode too 👼 Signed-off-by: Vincent Demeester <vincent@sbr.pm>
1 parent b7ddd73
lisp/setup-fold.el
@@ -0,0 +1,19 @@
+;;; vde-fold.el --- setup folding 👼 -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(use-package fold-this
+  :config
+  (bind-keys
+   :map fold-this-keymap
+   ("<mouse-1>" . fold-this-unfold-at-point))
+  (bind-keys
+   :map region-bindings-mode-map
+   ("&" . fold-this)))
+
+(provide 'setup-fold)
+
+;; Local Variables:
+;; coding: utf-8
+;; indent-tabs-mode: nil
+;; End:
lisp/setup-keybindings.el
@@ -1,7 +1,6 @@
-;;; vde-keybindings.el --- setup keybindings 👼
+;;; vde-keybindings.el --- setup keybindings 👼 -*- lexical-binding: t; -*-
 ;;; Commentary:
 ;;; Code:
-;;; -*- lexical-binding: t; -*-
 
 (use-package key-chord
   :chords
@@ -24,6 +23,15 @@
   (add-to-list 'which-key-replacement-alist '(("DEL" . nil) . ("⇤" . nil)))
   (add-to-list 'which-key-replacement-alist '(("SPC" . nil) . ("␣" . nil))))
 
+(use-package region-bindings-mode
+  :config
+  ;; Do not activate `region-bindings-mode' in Special modes like `dired' and
+  ;; `ibuffer'. Single-key bindings like 'm' are useful in those modes even
+  ;; when a region is selected.
+  (setq region-bindings-mode-disabled-modes '(dired-mode ibuffer-mode))
+
+  (region-bindings-mode-enable))
+
 ;; Disable C-x C-n to avoid the disabled command buffer
 (unbind-key "C-x C-n" global-map)
 
init.el
@@ -152,6 +152,7 @@ packages.")
 
 (use-package setup-style)
 (use-package setup-keybindings)
+(use-package setup-fold)
 (use-package setup-ivy)
 (use-package setup-vcs)
 (use-package setup-dired)