Clojure editor input example

example.clj

(ns edit.example
  (:require
    [clojure.java.io :as io]
    [clojure.java.process :as proc]
    [clojure.string :as str])
  (:import
    java.io.File))


(defn editor-input
  []
  (let [tmp-file (File/createTempFile "edit.example." ".md")]
    (println "Wrote temp file" (str tmp-file))
    (try
      (spit tmp-file "Editor Test\n===========\n\nHello, editor!\n\n## An H2\nAhoy\n")
      (let [pre-time (.lastModified tmp-file)
            editor (proc/start {:in :inherit, :out :inherit, :err :inherit} "nvim" (str tmp-file))
            exit-code @(proc/exit-ref editor)
            post-time (.lastModified tmp-file)]
        (cond
          (not= 0 exit-code)
          (println "Editor exited with error:" exit-code)

          (= pre-time post-time)
          (println "File not modified by user")

          :else
          (println "Read:\n" (slurp tmp-file))))
      (finally
        (.delete tmp-file)))))