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))))

jeroenvandijk

;; If you want to fail before your old https://github.com/plumatic/schema 
;; function fails the strict-keys macros below will help you find it.

(require '[clojure.spec.alpha :as s]
         '[clojure.set])

(defn allowed-keys? [ks]
  (fn [m]
    (empty? (clojure.set/difference (set (keys m)) ks))))