jeroenvandijk

const { evalString } = require("@borkdude/sci");
let printlnArgs = null;
function println(...args) {
  printlnArgs = args.map(arg => arg.toString()).join(" ");
}
exports.evalClojureExpr = (req, res) => {
  const { text } = req.body;
  try {
    const result = evalString(text, {namespaces: {"clojure.core": {println: println}}});
    let value = [];

jeroenvandijk

(defn heredoc []
  (let [delim (.readLine *in*)]
    (->> (repeatedly #(.readLine *in*))
         (take-while #(not= delim %))
         (interpose \newline)
         (apply str))))

; The following lines are read (by the reader) as:
; "Look )(\"\\T\na here doc!\n"
#=(heredoc)"""

jeroenvandijk

I am observing this weird behaviour of watching a clojure ref. It seems to behave wrong/delayed when not wrapped in a let block:

(let []
  (def ^{:flag 1} v 1))

(def ^{:flag 2} v 2)

(add-watch #'v ::listener (fn [_key _ref old-value new-value]
                            (println "old " old-value ", new" new-value "new-meta " _ref (select-keys (meta _ref) [:flag]))))

jeroenvandijk

(ns clojure_js
  (:gen-class)
  (:import [javax.script
            ScriptEngineManager
            ScriptException
            SimpleBindings]))

;; GraalVM doesn't like reflections
(set! *warn-on-reflection* true)

jeroenvandijk

(defcmd git [& [dispatch :as args]]
  (if (= dispatch "browse")
      (let [{:keys [code stderr]
             remote-url :stdout} (sh-value "git" "remote" "get-url" "origin")]
        (if (zero? code)
          (do (println "Opening" remote-url)
              (sh "open" (clojure.string/trim remote-url)))
          (println stderr)))
      (eval `(sh "git" ~@args))))

jeroenvandijk

(defcmd git [& [dispatch :as args]]
  (if (= dispatch "browse")
      (let [{:keys [code stderr]
             remote-url :stdout} (sh-value "git" "remote" "get-url" "origin")]
        (if (zero? code)
          (do (println "Opening" remote-url)
              (sh "open" (clojure.string/trim remote-url)))
          (println stderr)))
      (eval `(sh "git" ~@args))))

jeroenvandijk

1. Download rebl from http://rebl.cognitect.com/download.html
2. Move jar in zipfile to the com.cognitect/rebl :local/root property defined in the deps.edn
3. Run boot rebl

jeroenvandijk

;; See https://github.com/dundalek/closh/

(defn eval-string [s]
  (eval (clojure.edn/read-string
         (str "(do" s ")"))))

(defn closhrc []
  (slurp (str (getenv "HOME") "/.closhrc")))

(defn eclosh []

jeroenvandijk

(defn compile-inline [ns-name code]
  (let [tmp-dir *compile-path*
        sanitized-ns-name (.replace (str ns-name) "-" "_")
        clj-file (clojure.java.io/file (str tmp-dir  "/" (clojure.string/join "/" (clojure.string/split sanitized-ns-name #"\.")) ".clj"))]
    (clojure.java.io/make-parents clj-file)

    (with-open [file (clojure.java.io/writer clj-file)]
      (binding [*out* file]

jeroenvandijk

(ns clojure-dojo.core)




(import '[javax.imageio ImageIO]
        '[java.awt.image BufferedImage])

(def img (let [f "resources/image.png"]
           (ImageIO/read (clojure.java.io/file f))))