updating parinfer and adjusting keymap

bindings.el

@@ -6,7 +6,7 @@
         "C-x p" #'+popup/other)
 
       (:when (modulep! :ui workspaces)
-        (:when IS-MAC
+        (:when (featurep :system 'macos)
           "s-t"   #'+workspace/new
           "s-T"   #'+workspace/display
           "s-1"   #'+workspace/switch-to-0
@@ -20,7 +20,6 @@
           "s-9"   #'+workspace/switch-to-8
           "s-0"   #'+workspace/switch-to-final)))
 
-
 (map! :leader
       "`" nil
       (:prefix ("m" . "<localleader>")) ; bound locally
@@ -404,14 +403,6 @@
       "s-<return>" #'split-window-below
       "C-M-S-s-<mouse-1>" #'+fold/toggle)
 
-;; remove default Lispy mode bindings
-(map! :map lispy-mode-map
-      "M-<left>" nil
-      "M-<right>" nil)
-(map! :map lispy-mode-map-lispy
-      "M-<left>" nil
-      "M-<right>" nil)
-
 (map!
  :localleader
  :map lisp-mode-map
@@ -423,6 +414,8 @@
  "M-]" #'sp-forward-slurp-sexp
  "M-{" #'sp-backward-slurp-sexp
  "M-}" #'sp-backward-barf-sexp
+ "M-)" #'sp-split-sexp
+ "M-(" #'sp-splice-sexp
  "s-(" #'sp-wrap-round
  "s-)" #'sp-unwrap-sexp
  "s-[" #'sp-wrap-square

config.el

@@ -100,6 +100,10 @@
 (after! anzu
   (global-anzu-mode))
 
+(after! parinfer-rust-mode
+  (setq parinfer-rust-auto-download t)
+  (setq parinfer-rust-preferred-mode "smart"))
+
 (setq vterm-kill-buffer-on-exit t)
 (setq dap-ui-variable-length 200)
 
@@ -176,7 +180,7 @@
 (after! vertico
   (vertico-mouse-mode))
 
-;; better completions for sly
+;; sly
 (after! sly
   (setq sly-lisp-implementations
       '((sbcl ("sbcl" "--dynamic-space-size" "12000"))

init.el

@@ -169,7 +169,7 @@
        (ruby +rails)     ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
        (rust +lsp +tree-sitter)       ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
        ;;scala             ; java, but good
-       (scheme +guile +chez)   ; a fully conniving family of lisps
+       (scheme +guile)   ; a fully conniving family of lisps
        sh                ; she sells {ba,z,fi}sh shells on the C xor
        ;;sml
        ;;solidity          ; do you need a blockchain? No.

modules/editor/meow/config.el

@@ -17,6 +17,16 @@
    ;; SPC j/k will run the original command in MOTION state.
    '("j" . "H-j")
    '("k" . "H-k"))
+
+  ;; (map! :map meow-paren-state-keymap
+  ;;       "h" #'sp-backward-sexp
+  ;;       "j" #'sp-forward-sexp)
+
+  ;; (meow-define-state paren
+  ;;   "meow state for lisps"
+  ;;   :lighter " [P]"
+  ;;   :keymap meow-paren-state-keymap)
+
   (map! :map meow-normal-state-keymap
         "<" #'meow-beginning-of-thing
         ">" #'meow-end-of-thing
@@ -78,6 +88,8 @@
         "," #'meow-inner-of-thing
         "." #'meow-bounds-of-thing
         "\\" #'bookmark-jump
+        "`" #'bookmark-set
+        "~" #'bookmark-delete
         "'" #'repeat
         "=" #'meow--eval-sexp
         ":" #'meow--eval-sexp
@@ -118,4 +130,4 @@
   (meow/setup-leader)
   (pushnew! meow-mode-state-list '(sly-db-mode . motion))
   (pushnew! meow-mode-state-list '(sly-inspector-mode . motion)))
-  ;; (pushnew! meow-mode-state-list '(custom-mode . motion)))
+;; (pushnew! meow-mode-state-list '(custom-mode . motion)))

packages.el

@@ -17,6 +17,7 @@
 (unpin! cape)
 (unpin! corfu)
 (unpin! yasnippet-capf)
+(unpin! parinfer-rust-mode)
 ;; (unpin! geiser)
 
 (package! meow-vterm