Skip to content
Browse files

update name and input map

  • Loading branch information...
1 parent 3566148 commit 1d99fecaf825dd860b3b39103e19fc5428258b4d @ghostandthemachine committed
View
2 PLAN.md
@@ -16,7 +16,7 @@
+ Extract clooj application components from clooj.core and create a new clooj.dev-tools namespace which will contain all of the application components.
+ Update clooj.core to build standard Clooj with simple (create-application) function where the desired components can be added and styled.
-- Create Sketchpad in overtone-sketchpad.core
+- Create Sketchpad in sketchpad.core
+ Use the clooj.dev-tools namespace to create custom Clooj base application as base of Sketchpad
+ Overhaul standard Clooj layout to be more suited to Overtone:
+ Use less real estate by making components collapsible
View
8 README.md
@@ -1,10 +1,10 @@
# Sketchpad
## Getting started
- $ git clone git@github.com:ghostandthemachine/overtone-sketchpad.git
+ $ git clone git@github.com:ghostandthemachine/sketchpad.git
$ git clone git@github.com:overtone/overtone.git
- $ cd overtone-sketchpad
+ $ cd sketchpad
$ lein deps
@@ -19,10 +19,10 @@ example you can evaluate an entire file in the repl by hitting cmd E.
The Overtone Sketchpad is a Google Summer of Code project which aims to create an IDE inspired by [Processing](processing.org) for programming audio with [Clojure](clojure.org) and [Overtone](http://overtone.github.com/). Like Processing, the goal is to create an editor and project management application simple enough for a child to download, load an example, and click run. Beyond that it will provide a centralized UI to incorporate new Overtone GUI elements, manage Overtone projects, live code with repl driven development, and most of all worry about sound design and not platforms, dependencies, and enviroments. The project will be built on top of [Clooj](https://github.com/arthuredelstein/clooj) and [seesaw](https://github.com/daveray/seesaw).
-There is a [wiki](https://github.com/ghostandthemachine/overtone-sketchpad/wiki/Overtone-Sketchpad-Features-and-Design-Wiki) setup for sharing ideas and features so please feel free to jump in the conversation.
+There is a [wiki](https://github.com/ghostandthemachine/sketchpad/wiki/Overtone-Sketchpad-Features-and-Design-Wiki) setup for sharing ideas and features so please feel free to jump in the conversation.
For the most current information on the project check out the project
-[blog](http://ghostandthemachine.github.com/overtone-sketchpad/)
+[blog](http://ghostandthemachine.github.com/sketchpad/)
## License
View
11 project.clj
@@ -1,10 +1,11 @@
-(defproject overtone-sketchpad "0.0.1-SNAPSHOT"
+(defproject sketchpad "0.0.1-SNAPSHOT"
:description "A light weight IDE for programming with Overtone and Clojure"
- :main overtone-sketchpad.core
+ :main sketchpad.core
:dependencies [[org.clojure/clojure "1.3.0"]
[overtone "0.6.0"]
[franks42/seesaw "1.4.2-SNAPSHOT"]
[clooj "0.3.4.2-SNAPSHOT"]
- [com.github.insubstantial/substance "7.1"]]
- :jvm-opts ~(if (= (System/getProperty "os.name") "Mac OS X") ["-Xdock:name=Sketchpad"] [])
- )
+ ; [com.github.insubstantial/substance "7.1"]
+ [org.fife.ui/rsyntaxtextarea "2.0.3"]
+ ]
+ :jvm-opts ~(if (= (System/getProperty "os.name") "Mac OS X") ["-Xdock:name=Sketchpad"] []))
View
152 src/overtone_sketchpad/core.clj
@@ -1,152 +0,0 @@
-(ns overtone-sketchpad.core
- (:use [seesaw core graphics color border font]
- [clooj.repl]
- [clooj.help]
- [clooj.utils]
- [clooj.navigate]
- [clooj.doc-browser]
- [clooj.filetree]
- [clooj.menus]
- [clooj.dev-tools]
- [clooj.indent]
- [clojure.pprint]
- [overtone-sketchpad.editor]
- [overtone-sketchpad.popup]
- [overtone-sketchpad.menu])
- (:require [overtone-sketchpad.theme :as theme]))
-
-(def overtone-handlers { :update-caret-position update-caret-position
- :save-caret-position save-caret-position
- :setup-autoindent setup-autoindent
- :switch-repl switch-repl
- :get-selected-projects get-selected-projects
- :apply-namespace-to-repl apply-namespace-to-repl
- :find-file find-file})
-
-(defn create-app []
- (let [app-init (atom {})
- editor (editor app-init)
- file-tree (file-tree app-init)
- repl (repl app-init)
- doc-view (doc-view app-init)
- doc-nav (doc-nav app-init)
- doc-split-pane (left-right-split
- file-tree
- editor
- :divider-location 0.25
- :resize-weight 0.25
- :divider-size 5)
- split-pane (left-right-split
- doc-split-pane
- repl
- :divider-location 0.66
- :resize-weight 0.66
- :divider-size 5)
- frame (frame
- :title "Sketchpad"
- :width 950
- :height 700
- :on-close :exit
- :minimum-size [500 :by 350]
- :content split-pane)
- app (merge {:file (atom nil)
- :repl (atom (create-outside-repl (@app-init :repl-out-writer) nil))
- :changed false}
- @app-init
- overtone-handlers
- (gen-map
- frame
- doc-split-pane
- split-pane))]
- app))
-
-(defn add-behaviors
- [app]
- ;; docs
- (setup-completion-list (app :completion-list) app)
- (setup-tab-help app (app :doc-text-area))
- ;;editor
- (setup-autoindent (app :doc-text-area))
- (doto (app :doc-text-area) attach-navigation-keys)
- (double-click-selector (app :doc-text-area))
- (add-caret-listener (app :doc-text-area) #(display-caret-position app))
- (setup-search-text-area app)
- (activate-caret-highlighter handle-caret-move app :doc-text-area)
- (activate-caret-highlighter handle-caret-move app :repl-in-text-area)
- (setup-temp-writer app)
- (attach-action-keys (app :doc-text-area)
- ["cmd1 ENTER" #(send-selected-to-repl app)])
-
- ; (gutter-popup (app :doc-scroll-pane))
- (setup-text-area-font app)
- (set-text-area-preffs app)
-
- ;; repl
- (setup-autoindent (app :repl-in-text-area))
- (setup-tab-help app (app :repl-in-text-area))
- (add-repl-input-handler app)
- (doto (app :repl-in-text-area)
- double-click-selector
- attach-navigation-keys)
- ;; file tree
- (setup-tree app)
- ;; global
- (add-visibility-shortcut app)
- (dorun (map #(attach-global-action-keys % app)
- [(app :docs-tree)
- (app :doc-text-area)
- (app :repl-in-text-area)
- (app :repl-out-text-area)
- (.getContentPane (app :frame))])))
-
-;; startup
-(defn startup-overtone [app]
- (Thread/setDefaultUncaughtExceptionHandler
- (proxy [Thread$UncaughtExceptionHandler] []
- (uncaughtException [thread exception]
- (println thread) (.printStackTrace exception))))
-
- (doall (map #(add-project app %) (load-project-set)))
- (let [frame (app :frame)]
- (persist-window-shape clooj-prefs "main-window" frame)
- (on-window-activation frame #(update-project-tree (app :docs-tree))))
- (load-font app)
- ;; set theme
- (let [doc-ta (app :doc-text-area)
- repl-in-ta (app :repl-in-text-area)
- repl-out-ta (app :repl-out-text-area)
- theme (theme/theme "src/overtone_sketchpad/themes/dark.xml")]
- (theme/apply! theme doc-ta)
- (theme/apply! theme repl-in-ta)
- (theme/apply! theme repl-out-ta))
- (let [tree (app :docs-tree)]
- (load-expanded-paths tree)
- (load-tree-selection tree))
- (app :frame))
-
-(defonce current-app (atom nil))
-
-(defn -show []
- (reset! embedded false)
- (reset! current-app (create-app))
- (add-behaviors @current-app)
- (create-menubar @current-app)
- (invoke-later
- (->
- (startup-overtone @current-app)
- show!)))
-
-(defn -main [& args]
- (reset! embedded false)
- (reset! current-app (create-app))
- ; (pprint (@current-app :doc-scroll-pane))
- (add-behaviors @current-app)
- (create-menubar @current-app)
- (invoke-later
- (->
- (startup-overtone @current-app)
- show!)))
-
-
-
-
View
311 src/overtone_sketchpad/doc_browser.clj
@@ -1,311 +0,0 @@
-(ns clooj.doc-browser
-
- (:use [seesaw core graphics color border]
- [clooj.highlighting]
- [clooj.help]
- [clooj.utils]
- [clojure.repl :only (source-fn)]
- [clooj.collaj :only (raw-data)])
-
- (:require [clooj.rsyntax :as rsyntax]
- [cemerick.pomegranate.aether :as aether])
-
- (:import (java.io LineNumberReader InputStreamReader PushbackReader)
- (clojure.lang RT Reflector)
- (java.awt Point)
- (javax.swing DefaultListCellRenderer ListSelectionModel)
- (javax.swing.event ListSelectionListener)
- (java.util Vector)
- (java.lang.reflect Modifier)))
-
-;; tab help
-; (defonce help-state (atom {:visible false :token nil :pos nil}))
-
-(defn var-map [v]
- (when-let [m (meta v)]
- (let [ns (:ns m)]
- (-> m
- (select-keys [:doc :ns :name :arglists])
- (assoc :source (binding [*ns* ns]
- (source-fn (symbol (str ns "/" name)))))))))
-
-(defn var-help [var-map]
- (let [{:keys [doc ns name arglists source]} var-map]
- (str name
- (if ns (str " [" ns "]") "") "\n"
- arglists
- "\n\n"
- (if doc
- (str "Documentation:\n" doc)
- "No documentation found.")
- "\n\n"
- (if source
- (str "Source:\n"
- (if doc
- (.replace source doc "...docs...")
- source))
- "No source found."))))
-
-(defn create-param-list
- ([method-or-constructor static]
- (str " (["
- (let [type-names (map #(.getSimpleName %)
- (.getParameterTypes method-or-constructor))
- param-names (if static type-names (cons "this" type-names))]
- (apply str (interpose " " param-names)))
- "])"))
- ([method-or-constructor]
- (create-param-list method-or-constructor true)))
-
-(defn constructor-help [constructor]
- (str (.. constructor getDeclaringClass getSimpleName) "."
- (create-param-list constructor)))
-
-(defn method-help [method]
- (let [stat (Modifier/isStatic (.getModifiers method))]
- (str
- (if stat
- (str (.. method getDeclaringClass getSimpleName)
- "/" (.getName method))
- (str "." (.getName method)))
- (create-param-list method stat)
- " --> " (.getName (.getReturnType method)))))
-
-(defn field-help [field]
- (let [c (.. field getDeclaringClass getSimpleName)]
- (str
- (if (Modifier/isStatic (.getModifiers field))
- (str (.. field getDeclaringClass getSimpleName)
- "/" (.getName field)
- (when (Modifier/isFinal (.getModifiers field))
- (str " --> " (.. field (get nil) toString))))
- (str "." (.getName field) " --> " (.getName (.getType field)))))))
-
-(defn class-help [c]
- (apply str
- (concat
- [(present-item c) "\n java class"]
- ["\n\nCONSTRUCTORS\n"]
- (interpose "\n"
- (sort
- (for [constructor (.getConstructors c)]
- (constructor-help constructor))))
- ["\n\nMETHODS\n"]
- (interpose "\n"
- (sort
- (for [method (.getMethods c)]
- (method-help method))))
- ["\n\nFIELDS\n"]
- (interpose "\n"
- (sort
- (for [field (.getFields c)]
- (field-help field)))))))
-
-(defn item-help [item]
- (cond (map? item) (var-help item)
- (class? item) (class-help item)))
-
-(defn set-first-component [split-pane comp]
- (let [loc (.getDividerLocation split-pane)]
- (.setTopComponent split-pane comp)
- (.setDividerLocation split-pane loc)))
-
-(defn clock-num [i n]
- (if (zero? n)
- 0
- (cond (< i 0) (dec n)
- (>= i n) 0
- :else i)))
-
-(defn list-size [list]
- (-> list .getModel .getSize))
-
-(defn advance-help-list [app token index-change-fn]
- (let [help-list (app :completion-list)
- token-pat1 (re-pattern (str "(?i)\\A\\Q" token "\\E"))
- token-pat2 (re-pattern (str "(?i)\\Q" token "\\E"))]
- (if (not= token (@help-state :token))
- (do
- (swap! help-state assoc :token token)
- (.setListData help-list (Vector.))
- (when-let [items (-> app :repl deref :var-maps deref vals)]
- (let [best (sort-by #(.toLowerCase (:name %))
- (filter
- #(re-find token-pat1 (:name %))
- items))
- others (sort-by #(.toLowerCase (:name %))
- (filter
- #(re-find token-pat2 (.substring (:name %) 1))
- items))
- collaj-items (or (raw-data token))]
- (.setListData help-list
- (Vector. (concat best others collaj-items)))
- (.setSelectedIndex help-list 0)
- )))
- (let [n (list-size help-list)]
- (when (pos? n)
- (.setSelectedIndex help-list
- (clock-num
- (index-change-fn
- (.getSelectedIndex help-list))
- n)))))
- (when (pos? (list-size help-list))
- (set-first-component (app :repl-split-pane)
- (app :help-text-scroll-pane))
- (set-first-component (app :doc-split-pane)
- (app :completion-panel))
- ; (.setText (app :repl-label) "Documentation")
- (.ensureIndexIsVisible help-list
- (.getSelectedIndex help-list)))))
-
-(defn get-list-item [app]
- (-> app :completion-list .getSelectedValue))
-
-(defn get-list-artifact [app]
- (binding [*read-eval* false]
- (read-string (:artifact (get-list-item app)))))
-
-(defn get-list-token [app]
- (let [val (get-list-item app)]
- (str (:ns val) "/" (:name val))))
-
-(defn local-token-location [text pos]
- (let [n (.length text)
- pos (-> pos (Math/max 0) (Math/min n))]
- [(loop [p (dec pos)]
- (if (or (neg? p)
- (some #{(.charAt text p)} non-token-chars))
- (inc p)
- (recur (dec p))))
- (loop [p pos]
- (if (or (>= p n)
- (some #{(.charAt text p)} non-token-chars))
- p
- (recur (inc p))))]))
-
-(defn show-help-text [app choice]
- (let [help-text (or (when choice (item-help choice)) "")]
- (.setText (app :help-text-area) help-text))
- (-> app :help-text-scroll-pane .getViewport
- (.setViewPosition (Point. (int 0) (int 0)))))
-
-(defn show-tab-help [app text-comp index-change-fn]
- (awt-event
- (let [text (get-text-str text-comp)
- pos (.getCaretPosition text-comp)
- [start stop] (local-token-location text pos)]
- (when-let [token (.substring text start stop)]
- (swap! help-state assoc :pos start :visible true)
- (advance-help-list app token index-change-fn)))))
-
-(defn hide-tab-help [app]
- (awt-event
- (when (@help-state :visible)
- (set-first-component (app :repl-split-pane)
- (app :repl-out-scroll-pane))
- (set-first-component (app :doc-split-pane)
- (app :docs-tree-panel))
- ; (.setText (app :repl-label) "Clojure REPL output")
- )
- (swap! help-state assoc :visible false :pos nil)))
-
-(defn update-ns-form [app]
- (current-ns-form app))
-
-(defn load-dependencies [app artifact]
- (println "Loading " artifact)
- (let [deps (cemerick.pomegranate.aether/resolve-dependencies
- :coordinates [artifact]
- :repositories {"clojars" "http://clojars.org/repo"})]
- (aether/dependency-files deps)))
-
-(defn update-token [app text-comp new-token]
- (awt-event
- (let [[start stop] (local-token-location
- (get-text-str text-comp)
- (.getCaretPosition text-comp))
- len (- stop start)]
- (when (and (not (empty? new-token)) (-> app :completion-list
- .getModel .getSize pos?))
- (.. text-comp getDocument
- (replace start len new-token nil))))))
-
-(defn setup-tab-help [app text-comp]
- (attach-action-keys text-comp
- ["TAB" #(show-tab-help app text-comp inc)]
- ["shift TAB" #(show-tab-help app text-comp dec)]
- ["ESCAPE" #(hide-tab-help app)])
- (attach-child-action-keys text-comp
- ["ENTER" #(@help-state :visible)
- #(do (hide-tab-help app)
- (load-dependencies app (get-list-artifact app))
- (update-token app text-comp (get-list-token app)))]))
-
-(defn find-focused-text-pane [app]
- (let [t1 (app :doc-text-area)
- t2 (app :repl-in-text-area)]
- (cond (.hasFocus t1) t1
- (.hasFocus t2) t2)))
-
-(defn setup-completion-list [l app]
- (doto l
- (.setCellRenderer
- (proxy [DefaultListCellRenderer] []
- (getListCellRendererComponent [list item index isSelected cellHasFocus]
- (doto (proxy-super getListCellRendererComponent list item index isSelected cellHasFocus)
- (.setText (present-item item))))))
- (.addListSelectionListener
- (reify ListSelectionListener
- (valueChanged [_ e]
- (when-not (.getValueIsAdjusting e)
- (.ensureIndexIsVisible l (.getSelectedIndex l))
- (show-help-text app (.getSelectedValue l))))))
- (on-click 2 #(when-let [text-pane (find-focused-text-pane app)]
- (update-token app text-pane)))))
-
-
-;; view
-
-(defn doc-nav
- [app-atom]
- (let [completion-label (label :text "Name search"
- :id :doc-nav-label
- :class :doc-nav-comp)
- completion-list (listbox :border (compound-border "Doc List")
- :id :doc-nav-list
- :class :doc-nav-comp)
- completion-scroll-pane (scrollable completion-list
- :id :doc-nav-scrollable
- :class :doc-nav-comp)
- completion-panel (vertical-panel
- :items [completion-label
- completion-scroll-pane]
- :id :doc-nav-panel
- :class :doc-nav-comp)]
- (swap! app-atom conj (gen-map
- completion-label
- completion-list
- completion-scroll-pane
- completion-panel))
-
- completion-panel))
-
-(defn doc-view
- [app-atom]
- (let [help-text-area (rsyntax/text-area
- :wrap-lines? true
- :editable? false
- :background (color 0xFF 0xFF 0xE8)
- :border (line-border
- :color (color "#FFFFE8" 0)
- :thickness 10)
- :syntax :clojure
- :id :doc-view-text-area
- :class :doc-view-comp)
- help-text-scroll-pane (scrollable help-text-area
- :id :doc-view-scrollable
- :class :doc-view-comp)]
- (swap! app-atom conj (gen-map
- help-text-area
- help-text-scroll-pane))
- help-text-scroll-pane))
View
205 src/overtone_sketchpad/editor.clj
@@ -1,205 +0,0 @@
-(ns overtone-sketchpad.editor
- (:use [seesaw core graphics color font border]
- [clooj utils])
- (:require [clooj.rsyntax :as rsyntax]
- [clooj.doc-browser :as db]
- [clooj.highlighting :as h]
- [clooj.brackets :as b]
- [clooj.help :as help]
- [clooj.search :as search]
- [overtone-sketchpad.rtextscrollpane :as sp]
- [overtone-sketchpad.rsyntaxtextarea :as rs]
- [overtone-sketchpad.rtextarea :as ta]
- [overtone-sketchpad.gutter :as gutter])
- (:import (org.fife.ui.rtextarea RTextScrollPane)
- (java.awt.event FocusAdapter MouseAdapter)))
-
-(def highlight-agent (agent nil))
-(def arglist-agent (agent nil))
-(def caret-position (atom nil))
-
-;; caret finding
-(defn save-caret-position [app]
- (when-lets [text-area (app :doc-text-area)
- pos (get @caret-position text-area)
- file @(:file app)]
- (when-not (.isDirectory file)
- (let [key-str (str "caret_" (.hashCode (.getAbsolutePath file)))]
- (write-value-to-prefs clooj-prefs key-str pos)))))
-
-(defn load-caret-position [app]
- (when-lets [text-area (app :doc-text-area)
- file @(:file app)]
- (when-not (.isDirectory file)
- (when-lets [key-str (str "caret_" (.hashCode (.getAbsolutePath file)))
- pos (read-value-from-prefs clooj-prefs key-str)]
- (let [length (.. text-area getDocument getLength)
- pos2 (Math/min pos length)]
- (.setCaretPosition text-area pos2)
- (scroll-to-caret text-area))))))
-
-(defn update-caret-position [text-comp]
- (swap! caret-position assoc text-comp (.getCaretPosition text-comp)))
-
-(defn display-caret-position [app]
- (let [{:keys [row col]} (get-caret-coords (:doc-text-area app))]
- (.setText (:pos-label app) (str " " (inc row) "|" (inc col)))))
-
-(defn help-handle-caret-move [app text-comp]
- (awt-event
- (when (@db/help-state :visible)
- (let [[start _] (db/local-token-location (get-text-str text-comp)
- (.getCaretPosition text-comp))]
- (if-not (= start (@db/help-state :pos))
- (db/hide-tab-help app)
- (db/show-tab-help app text-comp identity))))))
-
-(defn handle-caret-move [app text-comp ns]
- (update-caret-position text-comp)
- (help-handle-caret-move app text-comp)
- (send-off highlight-agent
- (fn [old-pos]
- (try
- (let [pos (@caret-position text-comp)
- text (get-text-str text-comp)]
- (when-not (= pos old-pos)
- (let [enclosing-brackets (b/find-enclosing-brackets text pos)
- bad-brackets (b/find-bad-brackets text)
- good-enclosures (clojure.set/difference
- (set enclosing-brackets) (set bad-brackets))]
- (awt-event
- (h/highlight-brackets text-comp good-enclosures bad-brackets)))))
- (catch Throwable t (.printStackTrace t)))))
- (when ns
- (send-off arglist-agent
- (fn [old-pos]
- (try
- (let [pos (@caret-position text-comp)
- text (get-text-str text-comp)]
- (when-not (= pos old-pos)
- (let [arglist-text (help/arglist-from-caret-pos app ns text pos)]
- (awt-event (.setText (:arglist-label app) arglist-text)))))
- (catch Throwable t (.printStackTrace t)))))))
-
-;; double-click paren to select form
-
-(defn double-click-selector [text-comp]
- (.addMouseListener text-comp
- (proxy [MouseAdapter] []
- (mouseClicked [e]
- (when (== 2 (.getClickCount e))
- (when-lets [pos (.viewToModel text-comp (.getPoint e))
- c (.. text-comp getDocument (getText pos 1) (charAt 0))
- pos (cond (#{\( \[ \{ \"} c) (inc pos)
- (#{\) \] \} \"} c) pos)
- [a b] (b/find-enclosing-brackets (get-text-str text-comp) pos)]
- (set-selection text-comp a (inc b))))))))
-
-;; search
-
-(defn setup-search-text-area [app]
- (let [sta (doto (app :search-text-area)
- (.addFocusListener (proxy [FocusAdapter] [] (focusLost [_] (search/stop-find app)))))]
- (add-text-change-listener sta #(search/update-find-highlight app false))
- (attach-action-keys sta ["ENTER" #(search/highlight-step app false)]
- ["shift ENTER" #(search/highlight-step app true)]
- ["ESCAPE" #(search/escape-find app)])))
-
-;; view
-
-(defn setup-text-area-font
- [app]
- (cond
- (is-mac)
- (do
- (println "This is OSX. Setting font to MENLO")
- (config! (app :doc-text-area) :font (font
- :name "MENLO"
- :size 12))
- (println "Set font: " (str (config (app :doc-text-area) :font))))
- (is-win)
- (config! (app :doc-text-area) :font (font
- :name "COURIER-NEW"
- :size 12))
- :else
- (config! (app :doc-text-area) :font (font
- :name "MONOSPACED"
- :size 12))))
-
-(defn set-text-area-preffs
- [app]
- (let [rscroll (app :doc-scroll-pane)
- gutter (sp/gutter rscroll)
- ta (app :doc-text-area)]
- (println "Set text area prefs")
- (println "Set gutter border color")
- (gutter/border-color! gutter (color 0 0 0 0))
- (gutter/fold-indicator-enabled? gutter true)
- (gutter/bookmarking-enabled? gutter true)
-
- (sp/fold-indicator-enabled? rscroll true)
-
- (.setCodeFoldingEnabled ta true)
- ; (rs/code-folding-enabled? ta true)
- ; (rs/clear-whitespace-lines-enabled? ta true)
- (println "Is folding enabled by the manager: " (.isCodeFoldingEnabled (rs/fold-manager ta)))
- ))
-
-(defn editor
- [app-atom]
- (let [arglist-label (label :foreground (color :blue)
- :id :arglist-label
- :class :arg-response)
- search-text-area (text :visible? false
- :border (line-border
- :color :grey
- :thickness 1)
- :id :search-text-area
- :class :search-area)
- arg-search-panel (horizontal-panel
- :items [arglist-label search-text-area]
- :id :arg-search-panel
- :class :search-panel)
- pos-label (label :id :pos-label
- :class :pos-label)
- position-search-panel (horizontal-panel
- :items [pos-label
- [:fill-h 10]
- arg-search-panel
- :fill-h]
- :maximum-size [2000 :by 15]
- :id :position-search-panel
- :class :search-panel)
- doc-label (label :text "Source Editor"
- :id :doc-label
- :class :editor-comp)
- doc-label-panel (horizontal-panel
- :items [doc-label
- :fill-h]
- :id :doc-label-panel
- :class :editor-comp)
- doc-text-area (rsyntax/text-area
- :wrap-lines? false
- :syntax :clojure
- :id :doc-text-area
- :class [:editor-comp :syntax-editor])
- doc-scroll-pane (sp/scroll-pane doc-text-area)
- doc-text-panel (vertical-panel
- :items [doc-label-panel
- doc-scroll-pane
- position-search-panel]
- :id :doc-text-panel
- :class :editor-comp)]
-
-
- (swap! app-atom conj (gen-map
- arglist-label
- search-text-area
- arg-search-panel
- pos-label
- position-search-panel
- doc-label
- doc-text-area
- doc-scroll-pane
- doc-text-panel))
- doc-text-panel))
View
345 src/overtone_sketchpad/gutter.clj
@@ -1,345 +0,0 @@
-(ns overtone-sketchpad.gutter
- (:import (org.fife.ui.rtextarea Gutter)))
-
-(defn line-numbering-start-index
-"
- args: []
- flags: :public
- interop fn: .getLineNumberingStartIndex
- return-type: int"
- [obj]
- (.getLineNumberingStartIndex obj))
-
-(defn active-line-range-color
-"
- args: []
- flags: :public
- interop fn: .getActiveLineRangeColor
- return-type: java.awt.Color"
- [obj]
- (.getActiveLineRangeColor obj))
-
-(defn bookmarks
-"
- args: []
- flags: :public
- interop fn: .getBookmarks
- return-type: org.fife.ui.rtextarea.GutterIconInfo<>"
- [obj]
- (.getBookmarks obj))
-
-(defn line-number-font!
-"
- args: [java.awt.Font]
- flags: :public
- interop fn: .setLineNumberFont
- return-type: void"
- [obj x]
- (.setLineNumberFont obj x))
-
-(defn toggle-bookmark?
-"
- args: [int]
- flags: :public
- interop fn: .toggleBookmark
- return-type: boolean"
- [obj x]
- (.toggleBookmark obj x))
-
-(defn line-numbers-enabled?
-"
- args: []
- flags: :public
- interop fn: .getLineNumbersEnabled
- return-type: boolean"
- [obj]
- (.getLineNumbersEnabled obj))
-
-(defn text-area!
-"
- args: [org.fife.ui.rtextarea.RTextArea]
- flags:
- interop fn: .setTextArea
- return-type: void"
- [obj x]
- (.setTextArea obj x))
-
-(defn line-number-color
-"
- args: []
- flags: :public
- interop fn: .getLineNumberColor
- return-type: java.awt.Color"
- [obj]
- (.getLineNumberColor obj))
-
-(defn show-collapsed-region-tool-tips?
-"
- args: []
- flags: :public
- interop fn: .getShowCollapsedRegionToolTips
- return-type: boolean"
- [obj]
- (.getShowCollapsedRegionToolTips obj))
-
-(defn default-active-line-range-color
-"
- args:
- flags: :static :public :final
- interop fn: .DEFAULT_ACTIVE_LINE_RANGE_COLOR
- return-type: "
- [obj]
- (org.fife.ui.rtextarea.Gutter/DEFAULT_ACTIVE_LINE_RANGE_COLOR))
-
-(defn icon-row-header-enabled?
-"
- args: [boolean]
- flags:
- interop fn: .setIconRowHeaderEnabled
- return-type: void"
- [obj x]
- (.setIconRowHeaderEnabled obj x))
-
-(defn fold-indicator-foreground
-"
- args: []
- flags: :public
- interop fn: .getFoldIndicatorForeground
- return-type: java.awt.Color"
- [obj]
- (.getFoldIndicatorForeground obj))
-
-(defn active-line-range-color!
-"
- args: [java.awt.Color]
- flags: :public
- interop fn: .setActiveLineRangeColor
- return-type: void"
- [obj x]
- (.setActiveLineRangeColor obj x))
-
-(defn fold-background
-"
- args: []
- flags: :public
- interop fn: .getFoldBackground
- return-type: java.awt.Color"
- [obj]
- (.getFoldBackground obj))
-
-(defn remove-all-tracking-icons
-"
- args: []
- flags: :public
- interop fn: .removeAllTrackingIcons
- return-type: void"
- [obj]
- (.removeAllTrackingIcons obj))
-
-(defn bookmarking-enabled?
-"
- args: []
- flags: :public
- interop fn: .isBookmarkingEnabled
- return-type: boolean"
- [obj]
- (.isBookmarkingEnabled obj))
-
-(defn border-color
-"
- args: []
- flags: :public
- interop fn: .getBorderColor
- return-type: java.awt.Color"
- [obj]
- (.getBorderColor obj))
-
-(defn fold-icons!
-"
- args: [javax.swing.Icon javax.swing.Icon]
- flags: :public
- interop fn: .setFoldIcons
- return-type: void"
- [obj x y]
- (.setFoldIcons obj x y))
-
-(defn add-line-tracking-icon!
-"
- args: [int javax.swing.Icon]
- flags: :public
- interop fn: .addLineTrackingIcon
- return-type: org.fife.ui.rtextarea.GutterIconInfo"
- [obj x y]
- (.addLineTrackingIcon obj x y))
-
-(defn icon-row-header-enabled?
-"
- args: []
- flags: :public
- interop fn: .isIconRowHeaderEnabled
- return-type: boolean"
- [obj]
- (.isIconRowHeaderEnabled obj))
-
-(defn remove-tracking-icon
-"
- args: [org.fife.ui.rtextarea.GutterIconInfo]
- flags: :public
- interop fn: .removeTrackingIcon
- return-type: void"
- [obj x]
- (.removeTrackingIcon obj x))
-
-(defn fold-indicator-foreground!
-"
- args: [java.awt.Color]
- flags: :public
- interop fn: .setFoldIndicatorForeground
- return-type: void"
- [obj x]
- (.setFoldIndicatorForeground obj x))
-
-(defn fold-indicator-enabled?
-"
- args: []
- flags: :public
- interop fn: .isFoldIndicatorEnabled
- return-type: boolean"
- [obj]
- (.isFoldIndicatorEnabled obj))
-
-(defn fold-background!
-"
- args: [java.awt.Color]
- flags: :public
- interop fn: .setFoldBackground
- return-type: void"
- [obj x]
- (.setFoldBackground obj x))
-
-(defn line-numbers-enabled?
-"
- args: [boolean]
- flags:
- interop fn: .setLineNumbersEnabled
- return-type: void"
- [obj x]
- (.setLineNumbersEnabled obj x))
-
-(defn line-number-color!
-"
- args: [java.awt.Color]
- flags: :public
- interop fn: .setLineNumberColor
- return-type: void"
- [obj x]
- (.setLineNumberColor obj x))
-
-(defn add-offset-tracking-icon!
-"
- args: [int javax.swing.Icon]
- flags: :public
- interop fn: .addOffsetTrackingIcon
- return-type: org.fife.ui.rtextarea.GutterIconInfo"
- [obj x y]
- (.addOffsetTrackingIcon obj x y))
-
-(defn bookmark-icon!
-"
- args: [javax.swing.Icon]
- flags: :public
- interop fn: .setBookmarkIcon
- return-type: void"
- [obj x]
- (.setBookmarkIcon obj x))
-
-(defn fold-indicator-enabled?
-"
- args: [boolean]
- flags: :public
- interop fn: .setFoldIndicatorEnabled
- return-type: void"
- [obj x]
- (.setFoldIndicatorEnabled obj x))
-
-(defn component-orientation!
-"
- args: [java.awt.ComponentOrientation]
- flags: :public
- interop fn: .setComponentOrientation
- return-type: void"
- [obj x]
- (.setComponentOrientation obj x))
-
-(defn gutter
-"
- args: [org.fife.ui.rtextarea.RTextArea]
- flags: :public
- interop fn: Gutter.
- return-type: "
- [obj x]
- (Gutter. x))
-
-(defn bookmark-icon
-"
- args: []
- flags: :public
- interop fn: .getBookmarkIcon
- return-type: javax.swing.Icon"
- [obj]
- (.getBookmarkIcon obj))
-
-(defn line-numbering-start-index!
-"
- args: [int]
- flags: :public
- interop fn: .setLineNumberingStartIndex
- return-type: void"
- [obj x]
- (.setLineNumberingStartIndex obj x))
-
-(defn bookmarking-enabled?
-"
- args: [boolean]
- flags: :public
- interop fn: .setBookmarkingEnabled
- return-type: void"
- [obj x]
- (.setBookmarkingEnabled obj x))
-
-(defn tracking-icons
-"
- args: [java.awt.Point]
- flags: :public
- interop fn: .getTrackingIcons
- return-type: java.lang.Object<>"
- [obj x]
- (.getTrackingIcons obj x))
-
-(defn line-number-font
-"
- args: []
- flags: :public
- interop fn: .getLineNumberFont
- return-type: java.awt.Font"
- [obj]
- (.getLineNumberFont obj))
-
-(defn border-color!
-"
- args: [java.awt.Color]
- flags: :public
- interop fn: .setBorderColor
- return-type: void"
- [obj x]
- (.setBorderColor obj x))
-
-(defn show-collapsed-region-tool-tips?
-"
- args: [boolean]
- flags: :public
- interop fn: .setShowCollapsedRegionToolTips
- return-type: void"
- [obj x]
- (.setShowCollapsedRegionToolTips obj x))
-
View
84 src/overtone_sketchpad/macro.clj
@@ -1,84 +0,0 @@
-(ns overtone-sketchpad.macro
- (:import (org.fife.ui.rtextarea Macro)))
-
-(defn macro
-"
- args: [java.lang.String java.util.List]
- flags: :public
- interop fn: Macro.
- return-type: "
- [obj x y]
- (Macro. x y))
-
-(defn save-to-file!
-"
- args: [java.lang.String]
- flags: :public
- interop fn: .saveToFile
- return-type: void"
- [obj x]
- (.saveToFile obj x))
-
-(defn macro
-"
- args: []
- flags: :public
- interop fn: Macro.
- return-type: "
- [obj]
- (Macro. ))
-
-(defn add-macro-record!
-"
- args: [org.fife.ui.rtextarea.Macro$MacroRecord]
- flags: :public
- interop fn: .addMacroRecord
- return-type: void"
- [obj x]
- (.addMacroRecord obj x))
-
-(defn macro
-"
- args: [java.io.File]
- flags: :public
- interop fn: Macro.
- return-type: "
- [obj x]
- (Macro. x))
-
-(defn name!
-"
- args: [java.lang.String]
- flags: :public
- interop fn: .setName
- return-type: void"
- [obj x]
- (.setName obj x))
-
-(defn macro
-"
- args: [java.lang.String]
- flags: :public
- interop fn: Macro.
- return-type: "
- [obj x]
- (Macro. x))
-
-(defn macro-records
-"
- args: []
- flags: :public
- interop fn: .getMacroRecords
- return-type: java.util.List"
- [obj]
- (.getMacroRecords obj))
-
-(defn name
-"
- args: []
- flags: :public
- interop fn: .getName
- return-type: java.lang.String"
- [obj]
- (.getName obj))
-
View
137 src/overtone_sketchpad/menu.clj
@@ -1,137 +0,0 @@
-(ns overtone-sketchpad.menu
- (:use [clojure.pprint]
- [seesaw core]
- [clooj repl utils project dev-tools indent editor filetree doc-browser search style indent])
- (:require
- [overtone-sketchpad.rtextscrollpane :as sp]
- [overtone-sketchpad.rsyntaxtextarea :as cr]
- [overtone-sketchpad.rtextarea :as rt]))
-
-(def macro-recording-state (atom false))
-
-(defn toggle-macro-recording!
- [app]
- (if @macro-recording-state
- (do
- (swap! macro-recording-state (fn [_] false))
- (rt/end-recording-macro! (:doc-text-area app)))
- (do
- (swap! macro-recording-state (fn [_] true))
- (rt/begin-recording-macro! (:doc-text-area app)))))
-
-(defn fold-action
- [ta]
- (action :name "fold-action"
- :handler #((cr/code-folding-enabled? ta (not (cr/code-folding-enabled? ta))))))
-
-(defn view-menu
- [ta]
- (menu :text "View"
- :items [(checkbox-menu-item :text "Code Folding"
- :listen [:action #(fold-action ta)])]))
-
-;;actions
-
-(defn about-action
- [ta]
- (action :name "About Sketchpad..."
- :handler (fn [_] )))
-
-(defn animate-bracket-matching-action
- [ta]
- (action :name "Animate Bracket Matching"
- :handler (fn [_] (cr/animate-bracket-matching? ta (not (cr/animate-bracket-matching? ta))))))
-
-(defn bookmarks-action
- [sp]
- (action :name "Bookmarks"
- :handler (fn [_] (sp/icon-row-header-enabled? sp (not (sp/icon-row-header-enabled? sp))))))
-
-(defn code-folding-action
- [ta]
- (action :name "Code Folding"
- :handler (fn [_] (cr/code-folding-enabled? ta (not (cr/code-folding-enabled? ta))))))
-
-(defn mark-occurrences-action
- [ta]
- (action :name "Mark Occurrences"
- :handler (fn [_] (cr/mark-occurrences? ta (not (cr/mark-occurrences? ta))))))
-
-(defn create-menubar
- [app]
- (when-not (contains? app :menus)
- (config! (app :frame) :menubar
- (menubar
- :items [(menu :text "View"
- :items [(checkbox-menu-item :text "Animate Bracket Matching"
- :listen [:action (fn [_] (animate-bracket-matching-action (app :doc-text-area)))])
- (checkbox-menu-item :text "Code Folding"
- :listen [:action (fn [_] (code-folding-action (app :doc-text-area)))])
- (checkbox-menu-item :text "Bookmarks"
- :listen [:action (fn [_] (do
- (pprint (app :doc-scroll-pane))
- (bookmarks-action (app :doc-scroll-pane))))])])]))))
-
-(defn make-sketchpad-menus [app]
- (when-not (contains? app :menus)
- (when (is-mac)
- (System/setProperty "apple.laf.useScreenMenuBar" "true"))
- (let [menu-bar (menubar)]
- (. (app :frame) setJMenuBar menu-bar)
- (let [file-menu
- (add-menu menu-bar "File" "F"
- ["New" "N" "cmd1 N" #(create-file app (first (get-selected-projects app)) "")]
- ["Save" "S" "cmd1 S" #(save-file app)]
- ["Move/Rename" "M" nil #(rename-file app)]
- ["Revert" "R" nil #(revert-file app)]
- ["Delete" nil nil #(delete-file app)])]
- (when-not (is-mac)
- (add-menu-item file-menu "Exit" "X" nil #(System/exit 0))))
- (add-menu menu-bar "Edit" "E"
- ["Undo" "U" "cmd1 Z" #()]
- ["Redo" "Y" "cmd1 shift Z" #(rt/redo-last-action (app :doc-text-area))]
- ["Copy" "C" "cmd1 C" #(cr/copy-as-rtf (app :doc-text-area))]
- ["Paste" "P" "cmd1 V" #(rt/paste (:doc-text-area app))])
- (add-menu menu-bar "Project" "P"
- ["New..." "N" "cmd1 shift N" #(new-project app)]
- ["Open..." "O" "cmd1 shift O" #(open-project app)]
- ["Move/Rename" "M" nil #(rename-project app)]
- ["Remove" nil nil #(remove-project app)])
- (add-menu menu-bar "Source" "U"
- ["Comment-out" "C" "cmd1 SEMICOLON" #(comment-out (:doc-text-area app))]
- ["Uncomment-out" "U" "cmd1 shift SEMICOLON" #(uncomment-out (:doc-text-area app))]
- ["Fix indentation" "F" "cmd1 BACK_SLASH" #(fix-indent-selected-lines (:doc-text-area app))]
- ["Indent lines" "I" "cmd1 CLOSE_BRACKET" #(indent (:doc-text-area app))]
- ["Unindent lines" "D" "cmd1 OPEN_BRACKET" #(indent (:doc-text-area app))]
- ["Name search/docs" "S" "TAB" #(show-tab-help app (find-focused-text-pane app) inc)])
- (add-menu menu-bar "Tools" "T"
- ["Begin recording macro..." nil "ctrl Q" #(toggle-macro-recording! app)]
- ["End recording macro..." nil "ctrl Q" #(toggle-macro-recording! app)]
- ["Playback last macro..." nil "ctrl shift Q" #(rt/playback-last-macro! (:doc-text-area app))])
- (add-menu menu-bar "REPL" "R"
- ["Evaluate here" "E" "cmd1 ENTER" #(send-selected-to-repl app)]
- ["Evaluate entire file" "F" "cmd1 E" #(send-doc-to-repl app)]
- ["Apply file ns" "A" "cmd1 shift A" #(apply-namespace-to-repl app)]
- ["Clear output" "C" "cmd1 K" #(.setText (app :repl-out-text-area) "")]
- ["Restart" "R" "cmd1 R" #(restart-repl app
- (first (get-selected-projects app)))]
- ["Print stack trace for last error" "T" "cmd1 T" #(print-stack-trace app)])
- (add-menu menu-bar "Search" "S"
- ["Find" "F" "cmd1 F" #(start-find app)]
- ["Find next" "N" "cmd1 G" #(highlight-step app false)]
- ["Find prev" "P" "cmd1 shift G" #(highlight-step app true)])
-
- (add-menu menu-bar "View" "V"
- ["Folding" nil nil #(fold-action (app :doc-text-area))])
-
- (add-menu menu-bar "Window" "W"
- ["Go to REPL input" "R" "cmd1 3" #(.requestFocusInWindow (:repl-in-text-area app))]
- ["Go to Editor" "E" "cmd1 2" #(.requestFocusInWindow (:doc-text-area app))]
- ["Go to Project Tree" "P" "cmd1 1" #(.requestFocusInWindow (:docs-tree app))]
- ["Increase font size" nil "cmd1 PLUS" #(grow-font app)]
- ["Decrease font size" nil "cmd1 MINUS" #(shrink-font app)]
- ["Choose font..." nil nil #(apply show-font-window
- app set-font @current-font)])
- (when (is-mac) (add-menu menu-bar "Help" "H")))))
-
-
View
50 src/overtone_sketchpad/popup.clj
@@ -1,50 +0,0 @@
-(ns overtone-sketchpad.popup
- (:use [clojure.pprint]
- [seesaw.core :only (separator popup menu radio-menu-item label config! config)])
- (:require
- [overtone-sketchpad.rsyntaxtextarea :as cr]
- [overtone-sketchpad.rtextscrollpane :as sp]
- [overtone-sketchpad.rtextarea :as rt])
- (:import (javax.swing.JPanel)))
-
-(def key-binding-mode (atom :none))
-
-(defn editor-key-binding-mode!
- "Set the current key binding edit mode.\n
- modes: none"
- [comp mode]
- (if (not (contains? [:vi :vim :emacs :default :eclipse] mode))
- (println "Error setting editor key binding mode. " (str mode) " is not an option.")
- (do
- (pprint "Current Ediotr mode: " mode)
- (swap! key-binding-mode mode))))
-
-(def default-bindings
- {:copy \C
- :paste \p
- :cut \X
- :undo \Z
- :redo \Y})
-
-(defn gutter-popup
- [rscroll-pane]
- (let [textarea (sp/text-area rscroll-pane)]
- (.setComponentPopupMenu
- (sp/gutter rscroll-pane)
- (popup
- :items [(menu
- :text "Edit Mode"
- :items [(radio-menu-item
- :text "Default"
- :listen [:action #(editor-key-binding-mode! textarea :default)])
- (radio-menu-item
- :text "Vi"
- :listen [:action #(editor-key-binding-mode! textarea :vi)])
- (radio-menu-item
- :text "Emacs"
- :listen [:action #(editor-key-binding-mode! textarea :emacs)])
- (radio-menu-item
- :text "Eclipse"
- :listen [:action #(editor-key-binding-mode! textarea :default)])])]))))
-
-
View
1,101 src/overtone_sketchpad/rsyntaxtextarea.clj
@@ -1,1101 +0,0 @@
-(ns overtone-sketchpad.rsyntaxtextarea
- (:import (org.fife.ui.rsyntaxtextarea RSyntaxTextArea)))
-
-(defn background-for-token-type
-"wrapper type: :getter
- args: [int]
- flags: :public
- interop fn: .getBackgroundForTokenType
- return-type: java.awt.Color"
- [obj x]
- (.getBackgroundForTokenType obj x))
-
-(defn matched-bracket-border-color
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getMatchedBracketBorderColor
- return-type: java.awt.Color"
- [obj]
- (.getMatchedBracketBorderColor obj))
-
-(defn visible-whitespace-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .VISIBLE_WHITESPACE_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/VISIBLE_WHITESPACE_PROPERTY))
-
-(defn document!
-"wrapper type: :setter
- args: [javax.swing.text.Document]
- flags: :public
- interop fn: .setDocument
- return-type: void"
- [obj x]
- (.setDocument obj x))
-
-(defn syntax-editing-style!
-"wrapper type: :setter
- args: [java.lang.String]
- flags: :public
- interop fn: .setSyntaxEditingStyle
- return-type: void"
- [obj x]
- (.setSyntaxEditingStyle obj x))
-
-(defn close-markup-tags-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .CLOSE_MARKUP_TAGS_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/CLOSE_MARKUP_TAGS_PROPERTY))
-
-(defn template-directory!
-"wrapper type: :setter
- args: [java.lang.String]
- flags: :synchronized :static :public
- interop fn: .setTemplateDirectory
- return-type: boolean"
- [obj x]
- (RSyntaxTextArea/setTemplateDirectory x))
-
-(defn remove-hyperlink-listener
-"wrapper type: :unknown
- args: [javax.swing.event.HyperlinkListener]
- flags: :public
- interop fn: .removeHyperlinkListener
- return-type: void"
- [obj x]
- (.removeHyperlinkListener obj x))
-
-(defn syntax-scheme!
-"wrapper type: :setter
- args: [org.fife.ui.rsyntaxtextarea.SyntaxScheme]
- flags: :public
- interop fn: .setSyntaxScheme
- return-type: void"
- [obj x]
- (.setSyntaxScheme obj x))
-
-(defn restore-default-syntax-scheme
-"wrapper type: :unknown
- args: []
- flags: :public
- interop fn: .restoreDefaultSyntaxScheme
- return-type: void"
- [obj]
- (.restoreDefaultSyntaxScheme obj))
-
-(defn fractional-font-metrics-enabled?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .getFractionalFontMetricsEnabled
- return-type: boolean"
- [obj]
- (.getFractionalFontMetricsEnabled obj))
-
-(defn parser
-"wrapper type: :getter
- args: [int]
- flags: :public
- interop fn: .getParser
- return-type: org.fife.ui.rsyntaxtextarea.parser.Parser"
- [obj x]
- (.getParser obj x))
-
-(defn hyperlink-foreground
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getHyperlinkForeground
- return-type: java.awt.Color"
- [obj]
- (.getHyperlinkForeground obj))
-
-(defn remove-active-line-range-listener
-"wrapper type: :unknown
- args: [org.fife.ui.rsyntaxtextarea.ActiveLineRangeListener]
- flags: :public
- interop fn: .removeActiveLineRangeListener
- return-type: void"
- [obj x]
- (.removeActiveLineRangeListener obj x))
-
-(defn tool-tip-text
-"wrapper type: :getter
- args: [java.awt.event.MouseEvent]
- flags: :public
- interop fn: .getToolTipText
- return-type: java.lang.String"
- [obj x]
- (.getToolTipText obj x))
-
-(defn paint-tab-lines?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .getPaintTabLines
- return-type: boolean"
- [obj]
- (.getPaintTabLines obj))
-
-(defn paint-mark-occurrences-border?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setPaintMarkOccurrencesBorder
- return-type: void"
- [obj x]
- (.setPaintMarkOccurrencesBorder obj x))
-
-(defn token-list-for-line
-"wrapper type: :getter
- args: [int]
- flags: :public
- interop fn: .getTokenListForLine
- return-type: org.fife.ui.rsyntaxtextarea.Token"
- [obj x]
- (.getTokenListForLine obj x))
-
-(defn should-indent-next-line?
-"wrapper type: :boolean
- args: [int]
- flags: :public
- interop fn: .getShouldIndentNextLine
- return-type: boolean"
- [obj x]
- (.getShouldIndentNextLine obj x))
-
-(defn marked-occurrences-changed-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .MARKED_OCCURRENCES_CHANGED_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/MARKED_OCCURRENCES_CHANGED_PROPERTY))
-
-(defn close-markup-tags?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setCloseMarkupTags
- return-type: void"
- [obj x]
- (.setCloseMarkupTags obj x))
-
-(defn close-curly-braces?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setCloseCurlyBraces
- return-type: void"
- [obj x]
- (.setCloseCurlyBraces obj x))
-
-(defn match-rectangle
-"wrapper type: :getter
- args: []
- flags: :public :final
- interop fn: .getMatchRectangle
- return-type: java.awt.Rectangle"
- [obj]
- (.getMatchRectangle obj))
-
-(defn whitespace-visible?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .isWhitespaceVisible
- return-type: boolean"
- [obj]
- (.isWhitespaceVisible obj))
-
-(defn close-curly-braces?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .getCloseCurlyBraces
- return-type: boolean"
- [obj]
- (.getCloseCurlyBraces obj))
-
-(defn syntax-style-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .SYNTAX_STYLE_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/SYNTAX_STYLE_PROPERTY))
-
-(defn rsyntaxtextarea
-"wrapper type: :constructor
- args: [java.lang.String]
- flags: :public
- interop fn: Rsyntaxtextarea.
- return-type: "
- [obj x]
- (RSyntaxTextArea. obj x))
-
-(defn rsyntaxtextarea
-"wrapper type: :constructor
- args: [java.lang.String int int]
- flags: :public
- interop fn: Rsyntaxtextarea.
- return-type: "
- [obj x y z]
- (RSyntaxTextArea. obj x y z))
-
-(defn syntax-scheme-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .SYNTAX_SCHEME_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/SYNTAX_SCHEME_PROPERTY))
-
-(defn parser-notices-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .PARSER_NOTICES_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/PARSER_NOTICES_PROPERTY))
-
-(defn mark-occurrences-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .MARK_OCCURRENCES_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/MARK_OCCURRENCES_PROPERTY))
-
-(defn code-folding-enabled?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setCodeFoldingEnabled
- return-type: void"
- [obj x]
- (.setCodeFoldingEnabled obj x))
-
-(defn default-bracket-match-bg-color
-"wrapper type: :getter
- args: []
- flags: :static :public :final
- interop fn: .getDefaultBracketMatchBGColor
- return-type: java.awt.Color"
- [obj]
- (RSyntaxTextArea/getDefaultBracketMatchBGColor))
-
-(defn marked-occurrences
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getMarkedOccurrences
- return-type: java.util.List"
- [obj]
- (.getMarkedOccurrences obj))
-
-(defn syntax-scheme
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getSyntaxScheme
- return-type: org.fife.ui.rsyntaxtextarea.SyntaxScheme"
- [obj]
- (.getSyntaxScheme obj))
-
-(defn bracket-matching-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .BRACKET_MATCHING_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/BRACKET_MATCHING_PROPERTY))
-
-(defn copy-as-rtf
-"wrapper type: :unknown
- args: []
- flags: :public
- interop fn: .copyAsRtf
- return-type: void"
- [obj]
- (.copyAsRtf obj))
-
-(defn default-syntax-scheme
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getDefaultSyntaxScheme
- return-type: org.fife.ui.rsyntaxtextarea.SyntaxScheme"
- [obj]
- (.getDefaultSyntaxScheme obj))
-
-(defn close-markup-tags?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .getCloseMarkupTags
- return-type: boolean"
- [obj]
- (.getCloseMarkupTags obj))
-
-(defn default-bracket-match-border-color
-"wrapper type: :getter
- args: []
- flags: :static :public :final
- interop fn: .getDefaultBracketMatchBorderColor
- return-type: java.awt.Color"
- [obj]
- (RSyntaxTextArea/getDefaultBracketMatchBorderColor))
-
-(defn animate-bracket-matching-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .ANIMATE_BRACKET_MATCHING_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/ANIMATE_BRACKET_MATCHING_PROPERTY))
-
-(defn focusable-tips-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .FOCUSABLE_TIPS_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/FOCUSABLE_TIPS_PROPERTY))
-
-(defn fractional-font-metrics-enabled?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setFractionalFontMetricsEnabled
- return-type: void"
- [obj x]
- (.setFractionalFontMetricsEnabled obj x))
-
-(defn mark-occurrences-color
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getMarkOccurrencesColor
- return-type: java.awt.Color"
- [obj]
- (.getMarkOccurrencesColor obj))
-
-(defn mark-occurrences-of-token-type?
-"wrapper type: :boolean
- args: [int]
- flags:
- interop fn: .getMarkOccurrencesOfTokenType
- return-type: boolean"
- [obj x]
- (.getMarkOccurrencesOfTokenType obj x))
-
-(defn hyperlink-foreground!
-"wrapper type: :setter
- args: [java.awt.Color]
- flags: :public
- interop fn: .setHyperlinkForeground
- return-type: void"
- [obj x]
- (.setHyperlinkForeground obj x))
-
-(defn force-reparsing
-"wrapper type: :unknown
- args: [int]
- flags: :public
- interop fn: .forceReparsing
- return-type: void"
- [obj x]
- (.forceReparsing obj x))
-
-(defn paint-mark-occurrences-border?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .getPaintMarkOccurrencesBorder
- return-type: boolean"
- [obj]
- (.getPaintMarkOccurrencesBorder obj))
-
-(defn matched-bracket-border-color!
-"wrapper type: :setter
- args: [java.awt.Color]
- flags: :public
- interop fn: .setMatchedBracketBorderColor
- return-type: void"
- [obj x]
- (.setMatchedBracketBorderColor obj x))
-
-(defn add-notify!
-"wrapper type: :should-have-bang
- args: []
- flags: :public
- interop fn: .addNotify
- return-type: void"
- [obj]
- (.addNotify obj))
-
-(defn bracket-matching-enabled?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setBracketMatchingEnabled
- return-type: void"
- [obj x]
- (.setBracketMatchingEnabled obj x))
-
-(defn add-active-line-range-listener!
-"wrapper type: :should-have-bang
- args: [org.fife.ui.rsyntaxtextarea.ActiveLineRangeListener]
- flags: :public
- interop fn: .addActiveLineRangeListener
- return-type: void"
- [obj x]
- (.addActiveLineRangeListener obj x))
-
-(defn close-curly-braces-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .CLOSE_CURLY_BRACES_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/CLOSE_CURLY_BRACES_PROPERTY))
-
-(defn antialias-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .ANTIALIAS_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/ANTIALIAS_PROPERTY))
-
-(defn parser-notices
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getParserNotices
- return-type: java.util.List"
- [obj]
- (.getParserNotices obj))
-
-(defn hyperlinks-enabled-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .HYPERLINKS_ENABLED_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/HYPERLINKS_ENABLED_PROPERTY))
-
-(defn tab-line-color-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .TAB_LINE_COLOR_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/TAB_LINE_COLOR_PROPERTY))
-
-(defn tab-lines-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .TAB_LINES_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/TAB_LINES_PROPERTY))
-
-(defn fire-parser-notices-change
-"wrapper type: :unknown
- args: []
- flags:
- interop fn: .fireParserNoticesChange
- return-type: void"
- [obj]
- (.fireParserNoticesChange obj))
-
-(defn foreground-for-token
-"wrapper type: :getter
- args: [org.fife.ui.rsyntaxtextarea.Token]
- flags: :public
- interop fn: .getForegroundForToken
- return-type: java.awt.Color"
- [obj x]
- (.getForegroundForToken obj x))
-
-(defn bracket-matching-enabled?
-"wrapper type: :boolean
- args: []
- flags: :public :final
- interop fn: .isBracketMatchingEnabled
- return-type: boolean"
- [obj]
- (.isBracketMatchingEnabled obj))
-
-(defn syntax-editing-style
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getSyntaxEditingStyle
- return-type: java.lang.String"
- [obj]
- (.getSyntaxEditingStyle obj))
-
-(defn add-hyperlink-listener!
-"wrapper type: :should-have-bang
- args: [javax.swing.event.HyperlinkListener]
- flags: :public
- interop fn: .addHyperlinkListener
- return-type: void"
- [obj]
- (.addHyperlinkListener obj obj))
-
-(defn foreground-for-token-type
-"wrapper type: :getter
- args: [int]
- flags: :public
- interop fn: .getForegroundForTokenType
- return-type: java.awt.Color"
- [obj x]
- (.getForegroundForTokenType obj x))
-
-(defn templates-enabled?
-"wrapper type: :boolean
- args: [boolean]
- flags: :synchronized :static :public
- interop fn: .setTemplatesEnabled
- return-type: void"
- [obj x]
- (RSyntaxTextArea/setTemplatesEnabled x))
-
-(defn remove-parser?
-"wrapper type: :boolean
- args: [org.fife.ui.rsyntaxtextarea.parser.Parser]
- flags: :public
- interop fn: .removeParser
- return-type: boolean"
- [obj x]
- (.removeParser obj x))
-
-(defn default-selection-color
-"wrapper type: :getter
- args: []
- flags: :static :public
- interop fn: .getDefaultSelectionColor
- return-type: java.awt.Color"
- [obj]
- (RSyntaxTextArea/getDefaultSelectionColor))
-
-(defn clear-parsers
-"wrapper type: :unknown
- args: []
- flags: :public
- interop fn: .clearParsers
- return-type: void"
- [obj]
- (.clearParsers obj))
-
-(defn fire-marked-occurrences-changed
-"wrapper type: :unknown
- args: []
- flags:
- interop fn: .fireMarkedOccurrencesChanged
- return-type: void"
- [obj]
- (.fireMarkedOccurrencesChanged obj))
-
-(defn font-for-token-type
-"wrapper type: :getter
- args: [int]
- flags: :public
- interop fn: .getFontForTokenType
- return-type: java.awt.Font"
- [obj x]
- (.getFontForTokenType obj x))
-
-(defn animate-bracket-matching?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .getAnimateBracketMatching
- return-type: boolean"
- [obj]
- (.getAnimateBracketMatching obj))
-
-(defn matched-bracket-bg-color
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getMatchedBracketBGColor
- return-type: java.awt.Color"
- [obj]
- (.getMatchedBracketBGColor obj))
-
-(defn line-height
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getLineHeight
- return-type: int"
- [obj]
- (.getLineHeight obj))
-
-(defn auto-indent-enabled?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .isAutoIndentEnabled
- return-type: boolean"
- [obj]
- (.isAutoIndentEnabled obj))
-
-(defn mark-occurrences-color!
-"wrapper type: :setter
- args: [java.awt.Color]
- flags: :public
- interop fn: .setMarkOccurrencesColor
- return-type: void"
- [obj x]
- (.setMarkOccurrencesColor obj x))
-
-(defn rsyntaxtextarea
-"wrapper type: :constructor
- args: [int]
- flags: :public
- interop fn: Rsyntaxtextarea.
- return-type: "
- [obj x]
- (RSyntaxTextArea. obj x))
-
-(defn add-parser!
-"wrapper type: :should-have-bang
- args: [org.fife.ui.rsyntaxtextarea.parser.Parser]
- flags: :public
- interop fn: .addParser
- return-type: void"
- [obj x]
- (.addParser obj x))
-
-(defn use-focusable-tips?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setUseFocusableTips
- return-type: void"
- [obj x]
- (.setUseFocusableTips obj x))
-
-(defn mark-occurrences?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .getMarkOccurrences
- return-type: boolean"
- [obj]
- (.getMarkOccurrences obj))
-
-(defn eol-markers-visible?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .getEOLMarkersVisible
- return-type: boolean"
- [obj]
- (.getEOLMarkersVisible obj))
-
-(defn hyperlinks-enabled?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .getHyperlinksEnabled
- return-type: boolean"
- [obj]
- (.getHyperlinksEnabled obj))
-
-(defn auto-indent-enabled?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setAutoIndentEnabled
- return-type: void"
- [obj x]
- (.setAutoIndentEnabled obj x))
-
-(defn tab-line-color!
-"wrapper type: :setter
- args: [java.awt.Color]
- flags: :public
- interop fn: .setTabLineColor
- return-type: void"
- [obj x]
- (.setTabLineColor obj x))
-
-(defn remove-notify
-"wrapper type: :unknown
- args: []
- flags: :public
- interop fn: .removeNotify
- return-type: void"
- [obj]
- (.removeNotify obj))
-
-(defn active-line-range!
-"wrapper type: :setter
- args: [int int]
- flags: :public
- interop fn: .setActiveLineRange
- return-type: void"
- [obj x y]
- (.setActiveLineRange obj x y))
-
-(defn clear-whitespace-lines-enabled?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setClearWhitespaceLinesEnabled
- return-type: void"
- [obj x]
- (.setClearWhitespaceLinesEnabled obj x))
-
-(defn code-folding-enabled?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .isCodeFoldingEnabled
- return-type: boolean"
- [obj]
- (.isCodeFoldingEnabled obj))
-
-(defn anti-aliasing-enabled?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .getAntiAliasingEnabled
- return-type: boolean"
- [obj]
- (.getAntiAliasingEnabled obj))
-
-(defn anti-aliasing-enabled?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setAntiAliasingEnabled
- return-type: void"
- [obj x]
- (.setAntiAliasingEnabled obj x))
-
-(defn fold-manager
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getFoldManager
- return-type: org.fife.ui.rsyntaxtextarea.folding.FoldManager"
- [obj]
- (.getFoldManager obj))
-
-(defn auto-indent-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .AUTO_INDENT_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/AUTO_INDENT_PROPERTY))
-
-(defn fractional-fontmetrics-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .FRACTIONAL_FONTMETRICS_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/FRACTIONAL_FONTMETRICS_PROPERTY))
-
-(defn code-folding-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .CODE_FOLDING_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/CODE_FOLDING_PROPERTY))
-
-(defn eol-visible-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .EOL_VISIBLE_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/EOL_VISIBLE_PROPERTY))
-
-(defn tab-line-color
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getTabLineColor
- return-type: java.awt.Color"
- [obj]
- (.getTabLineColor obj))
-
-(defn clear-whitespace-lines-enabled?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .isClearWhitespaceLinesEnabled
- return-type: boolean"
- [obj]
- (.isClearWhitespaceLinesEnabled obj))
-
-(defn font!
-"wrapper type: :setter
- args: [java.awt.Font]
- flags: :public
- interop fn: .setFont
- return-type: void"
- [obj x]
- (.setFont obj x))
-
-(defn max-ascent
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getMaxAscent
- return-type: int"
- [obj]
- (.getMaxAscent obj))
-
-(defn parser-count
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getParserCount
- return-type: int"
- [obj]
- (.getParserCount obj))
-
-(defn animate-bracket-matching?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setAnimateBracketMatching
- return-type: void"
- [obj x]
- (.setAnimateBracketMatching obj x))
-
-(defn rsyntaxtextarea
-"wrapper type: :constructor
- args: [int int]
- flags: :public
- interop fn: Rsyntaxtextarea.
- return-type: "
- [obj x y]
- (RSyntaxTextArea. obj x y))
-
-(defn rsyntaxtextarea
-"wrapper type: :constructor
- args: []
- flags: :public
- interop fn: Rsyntaxtextarea.
- return-type: "
- [obj]
- (RSyntaxTextArea. obj))
-
-(defn match
-"wrapper type: :unknown
- args:
- flags:
- interop fn: .match
- return-type: "
- [obj]
- (.match obj))
-
-(defn paint-tab-lines?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setPaintTabLines
- return-type: void"
- [obj x]
- (.setPaintTabLines obj x))
-
-(defn force-reparsing?
-"wrapper type: :boolean
- args: [org.fife.ui.rsyntaxtextarea.parser.Parser]
- flags: :public
- interop fn: .forceReparsing
- return-type: boolean"
- [obj x]
- (.forceReparsing obj x))
-
-(defn underline-for-token?
-"wrapper type: :boolean
- args: [org.fife.ui.rsyntaxtextarea.Token]
- flags: :public
- interop fn: .getUnderlineForToken
- return-type: boolean"
- [obj x]
- (.getUnderlineForToken obj x))
-
-(defn hyperlinks-enabled?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setHyperlinksEnabled
- return-type: void"
- [obj x]
- (.setHyperlinksEnabled obj x))
-
-(defn fold-toggled
-"wrapper type: :unknown
- args: [org.fife.ui.rsyntaxtextarea.folding.Fold]
- flags: :public
- interop fn: .foldToggled
- return-type: void"
- [obj x]
- (.foldToggled obj x))
-
-(defn highlighter!
-"wrapper type: :setter
- args: [javax.swing.text.Highlighter]
- flags: :public
- interop fn: .setHighlighter
- return-type: void"
- [obj x]
- (.setHighlighter obj x))
-
-(defn code-template-manager
-"wrapper type: :getter
- args: []
- flags: :synchronized :static :public
- interop fn: .getCodeTemplateManager
- return-type: org.fife.ui.rsyntaxtextarea.CodeTemplateManager"
- [obj]
- (RSyntaxTextArea/getCodeTemplateManager))
-
-(defn whitespace-visible?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setWhitespaceVisible
- return-type: void"
- [obj x]
- (.setWhitespaceVisible obj x))
-
-(defn eol-markers-visible?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setEOLMarkersVisible
- return-type: void"
- [obj x]
- (.setEOLMarkersVisible obj x))
-
-(defn use-focusable-tips?
-"wrapper type: :boolean
- args: []
- flags: :public
- interop fn: .getUseFocusableTips
- return-type: boolean"
- [obj]
- (.getUseFocusableTips obj))
-
-(defn font-metrics-for-token-type
-"wrapper type: :getter
- args: [int]
- flags: :public
- interop fn: .getFontMetricsForTokenType
- return-type: java.awt.FontMetrics"
- [obj x]
- (.getFontMetricsForTokenType obj x))
-
-(defn mark-occurrences?
-"wrapper type: :boolean
- args: [boolean]
- flags: :public
- interop fn: .setMarkOccurrences
- return-type: void"
- [obj x]
- (.setMarkOccurrences obj x))
-
-(defn last-visible-offset
-"wrapper type: :getter
- args: []
- flags: :public
- interop fn: .getLastVisibleOffset
- return-type: int"
- [obj]
- (.getLastVisibleOffset obj))
-
-(defn link-scanning-mask!
-"wrapper type: :setter
- args: [int]
- flags: :public
- interop fn: .setLinkScanningMask
- return-type: void"
- [obj x]
- (.setLinkScanningMask obj x))
-
-(defn save-templates?
-"wrapper type: :boolean
- args: []
- flags: :synchronized :static :public
- interop fn: .saveTemplates
- return-type: boolean"
- [obj]
- (RSyntaxTextArea/saveTemplates))
-
-(defn matched-bracket-bg-color!
-"wrapper type: :setter
- args: [java.awt.Color]
- flags: :public
- interop fn: .setMatchedBracketBGColor
- return-type: void"
- [obj x]
- (.setMatchedBracketBGColor obj x))
-
-(defn clear-whitespace-lines-property
-"wrapper type: :unknown
- args:
- flags: :static :public :final
- interop fn: .CLEAR_WHITESPACE_LINES_PROPERTY
- return-type: "
- [obj]
- (RSyntaxTextArea/CLEAR_WHITESPACE_LINES_PROPERTY))
-
-(defn templates-enabled?
-"wrapper type: :boolean
- args: []
- flags: :synchronized :static :public
- interop fn: .getTemplatesEnabled
- return-type: boolean"
- [obj]
- (RSyntaxTextArea/getTemplatesEnabled))
-
-(defn rsyntaxtextarea
-"wrapper type: :constructor
- args: [org.fife.ui.rsyntaxtextarea.RSyntaxDocument]
- flags: :public
- interop fn: Rsyntaxtextarea.
- return-type: "
- [obj x]
- (RSyntaxTextArea. obj x))
-
View
570 src/overtone_sketchpad/rtextarea.clj
@@ -1,570 +0,0 @@
-(ns overtone-sketchpad.rtextarea
- (:import (org.fife.ui.rtextarea RTextArea)))
-
-(defn action-properties!
-"wrapper type: :setter
- args: [int java.lang.String char javax.swing.KeyStroke]
- flags: :static :public
- interop fn: .setActionProperties
- return-type: void"
- [obj x y z w]