A clojure quine that draws itself in a swing buffer

swing-quine.clj

;;
;; This file is clojure code that draws itself in a swing buffer
;; (https://twitter.com/pjstadig/status/771152863410188288)
;;

(defn draw-in-swing-buffer
  [s]
  (let [panel (doto (javax.swing.JPanel.)
                (.setLayout (java.awt.BorderLayout.)))
        frame (doto (javax.swing.JFrame.)
                (.setSize 900 900)
                (.setVisible true)
                (.setContentPane panel)
                (.setDefaultCloseOperation javax.swing.JFrame/EXIT_ON_CLOSE))
        text-area (doto (javax.swing.JTextArea. 50 87)
                    (.setText s)
                    (.setEditable false)
                    (.setFont (java.awt.Font. java.awt.Font/MONOSPACED
                                              java.awt.Font/BOLD
                                              16)))
        scroll-pane  (javax.swing.JScrollPane. text-area)]
    (.add panel scroll-pane java.awt.BorderLayout/CENTER)))

;; do the quiney part

(let [s ";;
;; This file is clojure code that draws itself in a swing buffer
;; (https://twitter.com/pjstadig/status/771152863410188288)
;;

(defn draw-in-swing-buffer
  [s]
  (let [panel (doto (javax.swing.JPanel.)
                (.setLayout (java.awt.BorderLayout.)))
        frame (doto (javax.swing.JFrame.)
                (.setSize 900 900)
                (.setVisible true)
                (.setContentPane panel)
                (.setDefaultCloseOperation javax.swing.JFrame/EXIT_ON_CLOSE))
        text-area (doto (javax.swing.JTextArea. 50 87)
                    (.setText s)
                    (.setEditable false)
                    (.setFont (java.awt.Font. java.awt.Font/MONOSPACED
                                              java.awt.Font/BOLD
                                              16)))
        scroll-pane  (javax.swing.JScrollPane. text-area)]
    (.add panel scroll-pane java.awt.BorderLayout/CENTER)))

;; do the quiney part

(let [s \"%s\"
      whole-file (format s (clojure.string/replace s #\"[\\\\\\\"]\" #(str \\\\ %%)))]
  (draw-in-swing-buffer whole-file))"
      whole-file (format s (clojure.string/replace s #"[\\\"]" #(str \\ %)))]
  (draw-in-swing-buffer whole-file))