Add support for cljstyle for Clojure code

CHANGELOG.md

@@ -3,6 +3,11 @@
 All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog].
 
+## Unreleased
+### Formatters
+* [cljstyle](https://github.com/greglook/cljstyle)
+  for clojure, clojurescript, edn files.
+
 ## 4.3 (released 2024-11-12)
 ### Features
 * New user option `apheleia-skip-functions`, like

apheleia-formatters.el

@@ -42,6 +42,7 @@
                          (apheleia-formatters-mode-extension)
                          ".c")))
     (cljfmt . ("cljfmt" "fix" "-"))
+    (cljstyle . ("cljstyle" "pipe"))
     (cmake-format . ("cmake-format" "-"))
     (crystal-tool-format . ("crystal" "tool" "format" "-"))
     (css-beautify "css-beautify" "--file" "-" "--end-with-newline"

test/formatters/installers/cljstyle.bash

@@ -0,0 +1 @@
+curl -sLO "https://raw.githubusercontent.com/greglook/cljstyle/main/util/install-cljstyle" && chmod +x install-cljstyle && ./install-cljstyle

test/formatters/samplecode/cljstyle/in.clj

@@ -0,0 +1,12 @@
+(ns hello
+(:require [java-time.api :as t]))
+
+(defn time-str
+  "Returns a string representation of a datetime in the local time zone."
+              [instant]
+  (t/format
+   (t/with-zone (t/formatter "hh:mm a") (t/zone-id))
+instant))
+
+(defn run [opts]
+(println "Hello world, the time is" (time-str (t/instant))))

test/formatters/samplecode/cljstyle/in.cljs

@@ -0,0 +1,6 @@
+(ns hello-world.core
+(:require react-dom))
+
+(.render js/ReactDOM
+(.createElement js/React "h2" nil "Hello, React!")
+           (.getElementById js/document "app"))

test/formatters/samplecode/cljstyle/in.edn

@@ -0,0 +1,4 @@
+{:deps {clojure.java-time/clojure.java-time
+{:mvn/version "1.1.0"}
+               }
+   }

test/formatters/samplecode/cljstyle/out.clj

@@ -0,0 +1,16 @@
+(ns hello
+  (:require
+    [java-time.api :as t]))
+
+
+(defn time-str
+  "Returns a string representation of a datetime in the local time zone."
+  [instant]
+  (t/format
+    (t/with-zone (t/formatter "hh:mm a") (t/zone-id))
+    instant))
+
+
+(defn run
+  [opts]
+  (println "Hello world, the time is" (time-str (t/instant))))

test/formatters/samplecode/cljstyle/out.cljs

@@ -0,0 +1,8 @@
+(ns hello-world.core
+  (:require
+    [react-dom]))
+
+
+(.render js/ReactDOM
+         (.createElement js/React "h2" nil "Hello, React!")
+         (.getElementById js/document "app"))

test/formatters/samplecode/cljstyle/out.edn

@@ -0,0 +1,2 @@
+{:deps {clojure.java-time/clojure.java-time
+        {:mvn/version "1.1.0"}}}