[JAVA] Schreiben Sie Rich Text mit Clojure
Einführung
Die Dynamik für das Schreiben einer Art GUI-Anwendung nimmt in mir zu, und als ich nach Material für das Studium suchte, Ich hatte das folgende Swing-App-Tutorial vor 10 Jahren geschrieben, also habe ich beschlossen, es nach Clojure zu portieren.
http://www.javadrive.jp/tutorial/appli_word/
Wie benutzt man
Es gibt keine externen abhängigen Bibliotheken. Schreiben Sie daher den folgenden Code in eine Datei und laden Sie die Datei von REPL, um zu funktionieren.
(load-file "path/to/file.clj")
Code
(ns advent.rich-text
(:import [java.awt BorderLayout Color Dimension FlowLayout GraphicsEnvironment]
java.awt.event.ActionListener
[javax.swing DefaultComboBoxModel JComboBox JFrame JMenu JMenuBar JMenuItem JScrollPane JTextPane JToggleButton JToolBar]
[javax.swing.text BadLocationException DefaultStyledDocument SimpleAttributeSet StyleConstants StyleContext]
javax.swing.text.rtf.RTFEditorKit)
(:require [clojure.string :as str]))
(definterface IStateHolder
(getStateMap [])
(swapStateMap [update-fn]))
;; anctionPerformed handlers
(defmulti handle-action (fn [_ cmd](.getActionCommand cmd)))
(defn set-attribute-set [document text-pane attr]
(let [start (.getSelectionStart text-pane)
end (.getSelectionEnd text-pane)]
(.setCharacterAttributes document start (- end start) attr false)))
(defmethod handle-action "combo-fonts"
[this e]
(let [{:keys [combo-fonts text-pane document] :as state}
(.getStateMap this)
attr (SimpleAttributeSet.)
font-name (-> combo-fonts .getSelectedItem .toString)]
(StyleConstants/setFontFamily attr font-name)
(set-attribute-set document text-pane attr)
(.requestFocusInWindow text-pane)))
(defmethod handle-action "combo-sizes"
[this e]
(let [{:keys [combo-sizes text-pane document]} (.getStateMap this)
attr (SimpleAttributeSet.)
font-size (-> combo-sizes .getSelectedItem Integer/parseInt)]
(StyleConstants/setFontSize attr font-size)
(set-attribute-set document text-pane attr)
(.requestFocusInWindow text-pane)))
(def colors ["000000" "0000FF" "00FF00" "00FFFF" "FF0000" "FF00FF" "FFFF00" "FFFFFF"])
(defmethod handle-action "combo-color"
[this e]
(let [{:keys [combo-color text-pane document]} (.getStateMap this)
attr (SimpleAttributeSet.)
color (get colors (.getSelectedIndex combo-color))
b (Integer/parseInt (.substring color 4 6) 16)
g (Integer/parseInt (.substring color 2 4) 16)
r (Integer/parseInt (.substring color 0 2) 16)]
(StyleConstants/setForeground attr (Color. r g b))
(set-attribute-set document text-pane attr)
(.requestFocusInWindow text-pane)))
(defmethod handle-action "toggle-bold"
[this e]
(let [{:keys [toggle-bold text-pane document]} (.getStateMap this)
attr (SimpleAttributeSet.)]
(StyleConstants/setBold attr (.isSelected toggle-bold))
(set-attribute-set document text-pane attr)
(.requestFocusInWindow text-pane)))
(defmethod handle-action "toggle-italics"
[this e]
(let [{:keys [toggle-italics text-pane document]} (.getStateMap this)
attr (SimpleAttributeSet.)]
(StyleConstants/setItalic attr (.isSelected toggle-italics))
(set-attribute-set document text-pane attr)
(.requestFocusInWindow text-pane)))
(defmethod handle-action "toggle-underline"
[this e]
(let [{:keys [toggle-underline text-pane document]} (.getStateMap this)
attr (SimpleAttributeSet.)]
(StyleConstants/setUnderline attr (.isSelected toggle-underline))
(set-attribute-set document text-pane attr)
(.requestFocusInWindow text-pane)))
(defmethod handle-action "toggle-strike"
[this e]
(let [{:keys [toggle-strike text-pane document]} (.getStateMap this)
attr (SimpleAttributeSet.)]
(StyleConstants/setStrikeThrough attr (.isSelected toggle-strike))
(set-attribute-set document text-pane attr)
(.requestFocusInWindow text-pane)))
(defn init-document [doc sc]
(let [sb (str "Merry Christmas, world!\n"
"Merry Christmas, world!\n"
"Merry Christmas, world!\n"
"Merry Christmas, world!\n"
"Merry Christmas, world!\n"
"Merry Christmas, world!\n"
"Merry Christmas, world!\n")]
(try (.insertString doc 0 sb (.getStyle sc StyleContext/DEFAULT_STYLE))
(catch BadLocationException ble
(prn "Das ursprüngliche Dokument konnte nicht gelesen werden.")))))
(defn init-toolbar [jframe tool-bar]
(let [ge (GraphicsEnvironment/getLocalGraphicsEnvironment)
family-name (.getAvailableFontFamilyNames ge)
combo-fonts (JComboBox. family-name)
combo-sizes (JComboBox. (into-array ["8" "9" "10" "11" "12" "14" "16" "18" "20" "22"
"24" "26" "28" "36" "48" "60" "72" "84" "96"]))
toggle-bold (JToggleButton. "<html><b>B</b></html>")
toggle-italics (JToggleButton. "<html><i>I</i></html>")
toggle-underline (JToggleButton. "<html><u>U</u></html>")
toggle-strike (JToggleButton. "<html><s>S</s></html>")
color-model (DefaultComboBoxModel.)
combo-color (JComboBox. color-model)]
(doto combo-fonts
(.setMaximumSize (.getPreferredSize combo-fonts))
(.addActionListener jframe)
(.setActionCommand "combo-fonts"))
(doto combo-sizes
(.setMaximumSize (.getPreferredSize combo-sizes))
(.addActionListener jframe)
(.setActionCommand "combo-sizes"))
(doto toggle-bold
(.setPreferredSize (Dimension. 26 26))
(.addActionListener jframe)
(.setActionCommand "toggle-bold"))
(doto toggle-italics
(.setPreferredSize (Dimension. 26 26))
(.addActionListener jframe)
(.setActionCommand "toggle-italics"))
(doto toggle-underline
(.setPreferredSize (Dimension. 26 26))
(.addActionListener jframe)
(.setActionCommand "toggle-underline"))
(doto toggle-strike
(.setPreferredSize (Dimension. 26 26))
(.addActionListener jframe)
(.setActionCommand "toggle-strike"))
(doseq [color colors
:let [html (str "<html><font color=\"#" color "\">■</font></html>")]]
(.addElement color-model html))
(doto combo-color
(.setMaximumSize (.getPreferredSize combo-color))
(.addActionListener jframe)
(.setActionCommand "combo-color"))
(doto tool-bar
(.setLayout (FlowLayout. FlowLayout/LEFT))
(.add combo-fonts)
(.add combo-sizes)
.addSeparator
(.add toggle-bold)
(.add toggle-italics)
(.add toggle-underline)
(.add toggle-strike)
.addSeparator
(.add combo-color))
{:combo-fonts combo-fonts
:combo-sizes combo-sizes
:combo-color combo-color
:toggle-bold toggle-bold
:toggle-italics toggle-italics
:toggle-strike toggle-strike
:toggle-underline toggle-underline}))
(defn create-jframe-proxy []
(let [is-caret-update-atom (atom false)
state (atom {})]
(proxy [JFrame ActionListener IStateHolder] []
(actionPerformed [e]
(when-not @is-caret-update-atom
(handle-action this e)))
(getStateMap [] @state)
(swapStateMap [update-fn]
(swap! state update-fn)))))
(defn constructor []
(let [jframe (doto (create-jframe-proxy)
(.setTitle "TextPaneTest test")
(.setBounds 10 10 500 300))
text-pane (JTextPane.)
scroll-pane (JScrollPane. text-pane
JScrollPane/VERTICAL_SCROLLBAR_ALWAYS
JScrollPane/HORIZONTAL_SCROLLBAR_NEVER)
sc (StyleContext.)
doc (DefaultStyledDocument. )
tool-bar (JToolBar.)
tool-bar-components (init-toolbar jframe tool-bar)]
(-> jframe
(.getContentPane)
(.add scroll-pane BorderLayout/CENTER))
(doto text-pane
(.setDocument doc))
(init-document doc sc)
(-> jframe
(.getContentPane)
(.add tool-bar BorderLayout/NORTH))
(.swapStateMap jframe #(merge % {:text-pane text-pane
:scroll-pane scroll-pane
:style-context sc
:document doc
:tool-bar tool-bar}
tool-bar-components))
jframe))
;;; Start the editor
(doto (constructor)
(.setVisible true)
(.setSize 800 400))
Demo
- Es ist niedlich, dass der Status der Umschalttaste erhalten bleibt (im Java-Beispiel gab es eine Logik zum Aktualisieren entsprechend der Bewegung von Caret, aber es war nicht genügend Zeit vorhanden).
- Im Java-Beispiel wurde auch das Lesen und Schreiben von Dateien erwähnt, aber zusätzlich zu den oben genannten ist dies ein Problem für den Leser (
Impressionen der Umsetzung
- Um das Ereignis zu empfangen, benötigte ich eine Instanz von JFrame, die die ActionListener-Schnittstelle implementierte, sodass ich sie mithilfe eines Proxys realisierte.
- Es ist sehr ordentlich, den Ereignisversand mit mehreren Methoden zu schreiben.
- Im Java-Beispiel wurden Instanzvariablen verwendet, um Informationen von Teilen wie Schaltflächen zu erhalten. In Clojures Beispiel wird stattdessen ein Atom im lexikalischen Abschluss des Proxys erstellt und dieses Atom über die Oleore-Schnittstelle IStateHolder erstellt. Geändert, um weiter zu arbeiten. ――Es hat Spaß gemacht, die Funktion und das Verhalten dynamisch ändern zu können, ohne JFrame neu zu starten.
Zusammenfassung
- Java-Abwärtskompatibilität, die das Beispiel von vor 10 Jahren verwenden kann, da es großartig ist --Clojure ist erstaunlich, dass Sie das Java-Typ-System so wie es ist eingeben können --GUI App Spaß
Vielen Dank
Vielen Dank an @ayato_p für die höfliche Erklärung der Verwendung von Proxy!
Recommended Posts