From 200a440c8448595b081a8225464f6cf97ef4c03f Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kj@orbekk.com>
Date: Sun, 12 Mar 2023 11:45:35 -0400
Subject: Add multiple cursors config

---
 emacs/.config/emacs-kj/init.el | 73 ++++++------------------------------------
 1 file changed, 10 insertions(+), 63 deletions(-)

(limited to 'emacs/.config/emacs-kj/init.el')

diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el
index b771a0c..3658e63 100644
--- a/emacs/.config/emacs-kj/init.el
+++ b/emacs/.config/emacs-kj/init.el
@@ -553,15 +553,6 @@
 (require 'kj-development)
 (require 'kj-eshell)
 
-(defun kj/modules (module-directory)
-  (cl-loop for path in (f-files module-directory)
-           if (string-match "\\([^/]*\\).el" path)
-           collect (intern (match-string 1 path))))
-
-(dolist (module (kj/modules
-                 (expand-file-name "lisp" user-emacs-directory)))
-  (require module))
-
 (setq math-additional-units
       '((ZiB "1024 * EiB" "Zebibyte")
         (EiB "1024 * PiB" "Exbibyte")
@@ -781,60 +772,6 @@
   (interactive)
   (previous-line kj/some-lines))
 
-(use-package emacs
-  :init
-  (defvar kj/leader-map
-    (make-sparse-keymap)
-    "Keymap for leader key")
-  :bind (:repeat-map kj/leader-map
-                     ("." . mc/mark-next-like-this)
-                     ("," . mc/mark-previous-like-this)
-                     ("C-." . mc/skip-to-next-like-this)
-                     ("C-," . mc/skip-to-previous-like-this)
-                     ("<" . mc/unmark-next-like-this)
-                     (">" . mc/unmark-previous-like-this)
-                     ("*" . mc/mark-all-like-this)
-                     ("w" . mc/mark-next-like-this-word)
-                     ("W" . mc/mark-all-words-like-this)
-                     ("s" . set-rectangular-region-anchor)
-                     ("y" . mc/mark-next-like-this-symbol)
-                     ("Y" . mc/mark-all-like-this-symbol)
-                     ("d" . kj/forward-some-lines)
-                     ("u" . kj/previous-some-lines)
-                     ("C-SPC" . mc/mark-pop)
-                     ("("     . mc/mark-all-symbols-like-this-in-defun)
-                     ("C-("   . mc/mark-all-words-like-this-in-defun)
-                     ("M-("   . mc/mark-all-like-this-in-defun)
-                     :exit
-                     ("s" . shell)
-                     ("$" . eshell)
-                     ("b" . consult-buffer))
-
-  :bind (("S-<down-mouse-1>")
-         ("S-<mouse-1>" . mc/add-cursor-on-click))
-
-  :bind (:map selected-keymap
-              ("C-." . mc/skip-to-next-like-this)
-              ("C-," . mc/skip-to-previous-like-this)
-              ("." . mc/mark-next-like-this)
-              ("," . mc/mark-previous-like-this)
-              ("w" . mc/mark-next-like-this-word)
-              ("W" . mc/mark-all-words-like-this)
-              ("s" . set-rectangular-region-anchor)
-              ("y" . mc/mark-next-like-this-symbol)
-              ("Y" . mc/mark-all-like-this-symbol)))
-
-(defvar kj/keys-minor-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "C-t") kj/leader-map)
-    map)
-  "Keymap for kj/keys-minor-mode")
-(define-minor-mode kj/keys-minor-mode
-  "A minor mode so that my key settings override annoying major modes."
-  :init-value t
-  :lighter " kj-keys")
-(kj/keys-minor-mode 1)
-
 ;; Repeat commands (e.g., C-x o o o)
 ;; (use-package repeat-help
 ;;   :ensure t ;; or :straight t
@@ -946,5 +883,15 @@
 (put 'narrow-to-region 'disabled nil)
 (put 'downcase-region 'disabled nil)
 
+(defun kj/modules (module-directory)
+  (cl-loop for path in (f-files module-directory)
+           if (string-match "\\([^/]*\\).el" path)
+           collect (intern (match-string 1 path))))
+
+(dolist (module (kj/modules
+                 (expand-file-name "lisp" user-emacs-directory)))
+  (require module))
+
 ;; Restore gc.
 (setq gc-cons-threshold (* 16 1024 1024))
+
-- 
cgit v1.2.3