From 0ecd8ef5e8fb87b8ca8b198bcee2212a07421dd5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Thu, 21 Oct 2021 03:13:10 +0200
Subject: Emacs: Install clipmon, multiple-cursors, visual-regexp-steroids

---
 .emacs.d/init.el | 55 ++++++++++++++++++++++++++++++++++++++-----------------
 1 file changed, 38 insertions(+), 17 deletions(-)

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 82d9bcb..c3bab31 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -20,7 +20,7 @@
   (declare (indent defun))
   (cl-loop for (key fun) on keys by #'cddr
 	   collect `(progn
-		      (autoload #',fun ,(if (stringp file) file (symbol-name file)) nil t)
+		      (autoload #',fun ,file nil t)
 		      (global-set-key
 		       ,(if (stringp key) `(kbd ,key) key)
 		       ,(if (listp fun) fun `#',fun)))
@@ -132,25 +132,30 @@
 	  "C-c s p" sort-paragraphs
 	  "C-z"     nil)
 
+;;; Clipmon
+(require 'clipmon)
+(clipmon-mode 1)
+
 ;;; EXWM
 (require 'exwm)
 (add-hook 'exwm-update-class-hook
 	  (lambda ()
 	    (exwm-workspace-rename-buffer exwm-class-name)))
-(setq exwm-input-simulation-keys
-      '(([?\C-b] . [left])
-	([?\C-f] . [right])
-	([?\C-p] . [up])
-	([?\C-n] . [down])
-	([?\C-a] . [home])
-	([?\C-e] . [end])
-	([?\M-v] . [prior])
-	([?\C-v] . [next])
-	([?\C-d] . [delete])
-	([?\C-k] . [S-end delete])
-	([?\M-w] . [C-c])
-	([?\M-f] . [C-right])
-	([?\M-b] . [C-left])))
+(setq exwm-input-simulation-keys (list))
+;; (setq exwm-input-simulation-keys
+;;       '(([?\C-b] . [left])
+;; 	([?\C-f] . [right])
+;; 	([?\C-p] . [up])
+;; 	([?\C-n] . [down])
+;; 	([?\C-a] . [home])
+;; 	([?\C-e] . [end])
+;; 	([?\M-v] . [prior])
+;; 	([?\C-v] . [next])
+;; 	([?\C-d] . [delete])
+;; 	([?\C-k] . [S-end delete])
+;; 	([?\M-w] . [C-c])
+;; 	([?\M-f] . [C-right])
+;; 	([?\M-b] . [C-left])))
 (push ?\C-§ exwm-input-prefix-keys)
 (setq exwm-manage-force-tiling t)
 (exwm-enable)
@@ -266,7 +271,7 @@ the only window in the frame."
 					  ; overridden by Paredit.
 (advice-add #'paredit-backward-delete :around #'apply-with-normal-backward-delete-char)
 (set-keys-in (lisp-mode-map emacs-lisp-mode-map)
-  "M-Q"     align-setq)
+  "M-Q" align-setq)
 
 ;;; Mouse
 (setq mouse-wheel-scroll-amount '(3 ((shift) . 1) ((control))))
@@ -274,6 +279,14 @@ the only window in the frame."
 					 ; crazy defaults with regards
 					 ; to mouse wheel scrolling.
 
+;;; Multiple-cursors
+(set-keys-and-load "multiple-cursors"
+  "C-S-c C-S-c" mc/edit-lines
+  "C-S-c C-S-a" mc/vertical-align
+  "C->"         mc/mark-next-like-this
+  "C-<"         mc/mark-previous-like-this
+  "C-c C-<"     mc/mark-all-like-this)
+
 ;;; Perspective
 ;; (require 'perspective)
 ;; (persp-mode)
@@ -308,6 +321,14 @@ the only window in the frame."
 (require 'undo-tree)
 (global-undo-tree-mode 1)
 
+;;; Visual-regexp
+(with-eval-after-load 'visual-regexp
+  (setq vr/engine 'pcre2el))
+(set-keys-and-load "visual-regexp"
+  "C-M-%" vr/query-replace
+  "C-M-r" vr/isearch-backward
+  "C-M-s" vr/isearch-forward)
+
 ;;; Wanderlust
 (autoload 'wl "wl" "Wanderlust" t)
 (autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
@@ -376,7 +397,7 @@ the only window in the frame."
  '(org-support-shift-select t)
  '(package-selected-packages
    (quote
-    (perspective wanderlust magit helm-exwm helm-ext undo-tree which-key paredit helm exwm)))
+    (multiple-cursors pcre2el clipmon visual-regexp-steroids perspective wanderlust magit helm-exwm helm-ext undo-tree which-key paredit helm exwm)))
  '(sentence-end-double-space nil)
  '(undo-tree-enable-undo-in-region t)
  '(wdired-allow-to-change-permissions t))
-- 
cgit v1.2.3