set up bar cursor

custom.el

@@ -6,8 +6,9 @@
  ;; If there is more than one, they won't work right.
  '(eglot-code-action-indications '(eldoc-hint))
  '(package-selected-packages
-   '(cape dumb-jump exec-path-from-shell jai-mode magit move-text
+   '(cape dumb-jump dumber-jump exec-path-from-shell jai-mode magit
-	  multiple-cursors yaml yaml-mode))
+	  markdown-mode move-text multiple-cursors vterm yaml
+	  yaml-mode))
  '(package-vc-selected-packages
    '((jai-mode :url "https://github.com/valignatev/jai-mode.git"))))
 (custom-set-faces

init.el

@@ -9,10 +9,6 @@
 
 (load-theme 'modus-vivendi)
 
-(defun hgh/edit-init-file ()
-  (interactive)
-  (find-file user-init-file))
-
 (when (string= system-type "darwin")
   (setq dired-use-ls-dired nil)
   (setq mac-command-modifier 'control))
@@ -24,11 +20,18 @@
 (keymap-global-set "M-1"     #'delete-other-windows)
 (keymap-global-set "M-2"     #'split-window-below)
 (keymap-global-set "M-3"     #'split-window-right)
+
 (keymap-global-set "C-c e i" #'hgh/edit-init-file)
+(keymap-global-set "C-,"     #'hgh/duplicate-dwim)
 
 (setq
  custom-file "~/.emacs.d/custom.el"
- make-backup-files nil)
+ make-backup-files nil
+ dired-dwim-target t)
+
+(load-file "~/.emacs.d/utils.el")
+
+(setq-default cursor-type 'bar)
 
 (setopt
  use-short-answers t
@@ -65,7 +68,7 @@
 
 (use-package move-text
   :bind (("M-<down>" . 'move-text-down)
-	 ("M-<up>"   . 'move-text-up)))
+         ("M-<up>"   . 'move-text-up)))
 
 (use-package jai-mode
   :vc (:url "https://github.com/valignatev/jai-mode.git"
@@ -75,9 +78,17 @@
   :bind ("C-x g" . magit-status))
 
 (use-package multiple-cursors
-  :bind (("C->" . mc/mark-next-like-this)
+  :custom
-	 ("C-<" . mc/mark-previous-like-this)
+  (mc/always-run-for-all t)
-	 ("C-c C-<" . mc/mark-all-like-this)))
+  :bind (("C->"     . mc/mark-next-like-this)
+         ("C-<"     . mc/mark-previous-like-this)
+	 ("C-c C-<" . mc/mark-all-like-this)
+	 ("C-c C->" . mc/mark-lines))
+  :init
+  (advice-add 'mc/mark-next-like-this :before #'hgh/set-box-cursor)
+  (advice-add 'mc/mark-previous-like-this :before #'hgh/set-box-cursor)
+  (advice-add 'mc/mark-all-like-this :before #'hgh/set-box-cursor)
+  (add-hook 'multiple-cursors-mode-disabled-hook #'hgh/set-bar-cursor))
 
 (use-package cape
   :hook ((completion-at-point-functions . cape-dabbrev)
@@ -112,3 +123,5 @@
   (push '(sql-mode "postgres-language-server" "lsp-proxy") eglot-server-programs))
 
 (use-package yaml-mode)
+
+(use-package vterm)