summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Ankarström <john@ankarstrom.se>2021-10-21 03:13:10 +0200
committerJohn Ankarström <john@ankarstrom.se>2021-10-21 03:16:03 +0200
commit0ecd8ef5e8fb87b8ca8b198bcee2212a07421dd5 (patch)
tree1c56e9237e640c0f8819b666ec481db1becaef52
parent52a4f5ab818402f53bf152830151fccb62cc359d (diff)
downloadebsd-0ecd8ef5e8fb87b8ca8b198bcee2212a07421dd5.tar.gz
Emacs: Install clipmon, multiple-cursors, visual-regexp-steroids
-rw-r--r--.emacs.d/init.el55
1 files 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))