From 36d5911c40f867b3fdf7e6bddd5f6e08b2b15262 Mon Sep 17 00:00:00 2001 From: Casey Link Date: Mon, 12 Jan 2026 17:16:06 +0100 Subject: [PATCH 1/2] Fix balance subcommand help and --dry-run inconsistency - Add help flag support (-h, --help, -?) to balance subcommand - Fix main help text to show --dry-run instead of --write --- brepl | 9 +++++---- src/brepl.clj | 9 +++++---- 2 files changed, 10 insertions(+), 8 deletions(-) diff --git a/brepl b/brepl index 584531e..3cffe09 100755 --- a/brepl +++ b/brepl @@ -998,7 +998,7 @@ brepl documentation: https://github.com/licht1stein/brepl (println " brepl [OPTIONS] -m ") (println " brepl hooks [args]") (println " brepl skill ") - (println " brepl balance [--write]") + (println " brepl balance [--dry-run]") (println) (println "OPTIONS:") (println (cli/format-opts {:spec cli-spec :order [:e :f :m :h :p :verbose :version :help]})) @@ -1745,11 +1745,12 @@ brepl documentation: https://github.com/licht1stein/brepl (System/exit 0)) (defn handle-balance [args] - (let [dry-run? (some #(= "--dry-run" %) args) - file-args (remove #(= "--dry-run" %) args) + (let [help? (some #(contains? #{"-h" "--help" "-?"} %) args) + dry-run? (some #(= "--dry-run" %) args) + file-args (remove #(contains? #{"-h" "--help" "-?" "--dry-run"} %) args) file-path (first file-args)] (cond - (nil? file-path) + (or help? (nil? file-path)) (show-balance-help) (not (.exists (io/file file-path))) diff --git a/src/brepl.clj b/src/brepl.clj index 40a315d..b87b576 100644 --- a/src/brepl.clj +++ b/src/brepl.clj @@ -52,7 +52,7 @@ (println " brepl [OPTIONS] -m ") (println " brepl hooks [args]") (println " brepl skill ") - (println " brepl balance [--write]") + (println " brepl balance [--dry-run]") (println) (println "OPTIONS:") (println (cli/format-opts {:spec cli-spec :order [:e :f :m :h :p :verbose :version :help]})) @@ -799,11 +799,12 @@ (System/exit 0)) (defn handle-balance [args] - (let [dry-run? (some #(= "--dry-run" %) args) - file-args (remove #(= "--dry-run" %) args) + (let [help? (some #(contains? #{"-h" "--help" "-?"} %) args) + dry-run? (some #(= "--dry-run" %) args) + file-args (remove #(contains? #{"-h" "--help" "-?" "--dry-run"} %) args) file-path (first file-args)] (cond - (nil? file-path) + (or help? (nil? file-path)) (show-balance-help) (not (.exists (io/file file-path))) From b25175f72de29dfe8e6d6eac4dfb2b6375e79d03 Mon Sep 17 00:00:00 2001 From: Casey Link Date: Mon, 12 Jan 2026 17:21:21 +0100 Subject: [PATCH 2/2] Add brepl balance example to main help --- brepl | 3 ++- src/brepl.clj | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/brepl b/brepl index 3cffe09..3aab9f7 100755 --- a/brepl +++ b/brepl @@ -1022,7 +1022,8 @@ brepl documentation: https://github.com/licht1stein/brepl (println " brepl -f script.clj") (println " brepl -m '{\"op\" \"describe\"}'") (println " brepl -p 7888 '(println \"Hello\")'") - (println " BREPL_PORT=7888 brepl '(+ 1 2)'")) + (println " BREPL_PORT=7888 brepl '(+ 1 2)'") + (println " brepl balance src/core.clj # Fix unbalanced brackets")) (defn read-nrepl-port [] (when (.exists (io/file ".nrepl-port")) diff --git a/src/brepl.clj b/src/brepl.clj index b87b576..d90a5d6 100644 --- a/src/brepl.clj +++ b/src/brepl.clj @@ -76,7 +76,8 @@ (println " brepl -f script.clj") (println " brepl -m '{\"op\" \"describe\"}'") (println " brepl -p 7888 '(println \"Hello\")'") - (println " BREPL_PORT=7888 brepl '(+ 1 2)'")) + (println " BREPL_PORT=7888 brepl '(+ 1 2)'") + (println " brepl balance src/core.clj # Fix unbalanced brackets")) (defn read-nrepl-port [] (when (.exists (io/file ".nrepl-port"))