Skip to content

Instantly share code, notes, and snippets.

(ns test.core
(:use seesaw.core)
(:require
[seesaw.rsyntax :as r]))
(defn -main [& args]
(invoke-later
(-> (frame
:title "Hello",
(let [text-area (RSyntaxTextArea.)]
(config! text-area
:wrap-lines? true
:syntax-editing-style SyntaxConstants/SYNTAX_STYLE_CLOJURE ;It's RSyntaxTextArea property, not JTextArea
))