feat: add missing KF6 framework recipes

local/recipes/kde/kf6-syntaxhighlighting/source/autotests/input/clojure.clj

@@ -0,0 +1,73 @@
+; Test file, released under MIT License
+(ns ^{:doc "Syntax highlighting test file"
+      :author "Markus Brenneis"}
+    highlighting)
+
+(defn something-else [f xs]
+  #_(map #(apply f (% [%])) (cons 1 xs))
+  (map #(apply f (% xs)) (cons 1 xs))
+  #_[1 '(2)]
+  xs)
+
+(def foo [\a \b \n \ucafe \o123 \n
+          \newline \tab \space \formfeed \backspace])
+
+(def fizz {#{\a \b}
+           #{\n \newline}})
+
+(def fizz' #{{\a \b}
+             {\n \newline}})
+
+(defn bar [xs]
+  (as-> xs <>
+        (cons :a <>)
+        (map #(%1 %2) <>) ; TODO improve
+        (into <> [:konjure.logic.specs/numShips])))
+
+(def x-2-y
+  #_"do \" sth"
+  (domonad set-m
+    [x #{1.1, (+ -2 +4)}
+     y #{1.1, (- -2.0 4.0)}]
+    (*' x y)))
+
+(def bases
+  (and (= -1 -1N)
+       (= 1/4 -2.5e-1)
+       (= -1/2 -0.5M)
+       (= -0x1Ab -0X1ab)
+       (= +2r101010 25R1h)
+       (= 39r13 42R10))) ; FIXME this one is not correct
+
+(def ^{:private true}
+  (= (last #{#{}}) #{{#{}}}))
+
+(def s "#repl\n")
+(def r #"repl")
+
+(defn- stuff!
+  [a]
+  "This is no \"documentation\"!"
+  (= (class #'+) (class #'foo))
+  (let [+ -] [(+ a 1) (@#'+ a 1)]))
+
+(defn- throwIllegalArgumentException!
+  "Throws an \"IllegalArgumentException\" or
+  a js/Error."
+  [message]
+  #?(:clj  (throw (IllegalArgumentException. message))
+     :cljs (throw (js/Error. message))))
+
+(defmacro let-fn "a nonsense macro" [one-binding & body]
+  `(+ 1 ~(inc' 1))
+  (let [[identifier & fn-body] one-binding]
+    `(let [~identifier (fn ~identifier ~@fn-body)]
+      ~@body `a#)))
+
+(def state (atom [(= false true) nil]))
+
+(defn something-cool [] (first @state))
+
+(defn- something-different [] (first (into @state [12])))
+
+(defn- instance-getfield [this k] (@(.state this) k))