Add support for more paredit actions

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## [Unreleased]
 
+- Add support for `forward`, `backward`, `forward-select`, `backward-select` paredit actions. #72
+
 ## 3.2.0
 
 - Bump clj4intellij to 0.7.1

docs/features.md

@@ -113,3 +113,19 @@ This plugin relies on [clojure-lsp](https://clojure-lsp.io/) features and [lsp4i
 > <kbd>Alt</kbd> + <kbd>k</kbd>
 
 ![](../images/paredit-kill.gif)
+
+##### Forward sexpr
+
+> <kbd>Ctrl</kbd> + <kbd>Alt</kbd> + <kbd>]</kbd>
+
+##### Forward select sexpr
+
+> <kbd>Ctrl</kbd> + <kbd>Shift</kbd> + <kbd>Alt</kbd> + <kbd>]</kbd>
+
+##### Backward sexpr
+
+> <kbd>Ctrl</kbd> + <kbd>Alt</kbd> + <kbd>[</kbd>
+
+##### Backward select sexpr
+
+> <kbd>Ctrl</kbd> + <kbd>Shift</kbd> + <kbd>Alt</kbd> + <kbd>[</kbd>

src/main/clojure/com/github/clojure_lsp/intellij/extension/general_settings.clj

@@ -92,7 +92,7 @@
                             :foreground (s.color/color 110 110 110)) "wrap"]]
                  (remove nil?)))))
 
-(def-extension GeneralSettingsConfigurable []
+(def-extension ClojureGeneralSettingsConfigurable []
   Configurable
   (createComponent [_]
     (let [project (first (db/all-projects))

src/main/clojure/com/github/clojure_lsp/intellij/extension/register_actions_startup.clj

@@ -72,7 +72,11 @@
    {:name "backward-slurp" :text "Slurp backward" :description "Slurp backward (Paredit)" :keyboard-shortcut {:first "alt shift CLOSE_BRACKET" :replace-all true}}
    {:name "backward-barf" :text "Barf backward" :description "Barf backward (Paredit)" :keyboard-shortcut {:first "alt shift OPEN_BRACKET" :replace-all true}}
    {:name "raise-sexp" :text "Raise sexpr" :description "Raise current sexpr (Paredit)" :keyboard-shortcut {:first "alt R" :replace-all true}}
-   {:name "kill-sexp" :text "Kill sexpr" :description "Kill current sexpr (Paredit)" :keyboard-shortcut {:first "alt K" :replace-all true}}])
+   {:name "kill-sexp" :text "Kill sexpr" :description "Kill current sexpr (Paredit)" :keyboard-shortcut {:first "alt K" :replace-all true}}
+   {:name "forward" :text "Move forward" :description "Move cursor forward a sexpr (Paredit)" :keyboard-shortcut {:first "ctrl alt CLOSE_BRACKET" :replace-all true}}
+   {:name "forward-select" :text "Select forward" :description "Select forward a sexpr (Paredit)" :keyboard-shortcut {:first "ctrl shift alt CLOSE_BRACKET" :replace-all true}}
+   {:name "backward" :text "Move backward" :description "Move cursor backward a sexpr (Paredit)" :keyboard-shortcut {:first "ctrl alt OPEN_BRACKET" :replace-all true}}
+   {:name "backward-select" :text "Select backward" :description "Select backward a sexpr (Paredit)" :keyboard-shortcut {:first "ctrl shift alt OPEN_BRACKET" :replace-all true}}])
 
 (defn ^:private on-action-performed [command-name text ^AnActionEvent event]
   (when-let [editor ^Editor (.getData event CommonDataKeys/EDITOR_EVEN_IF_INACTIVE)]