1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/clojure/java/browse_ui.clj	Sat Aug 21 06:25:44 2010 -0400
     1.3 @@ -0,0 +1,30 @@
     1.4 +;   Copyright (c) Rich Hickey. All rights reserved.
     1.5 +;   The use and distribution terms for this software are covered by the
     1.6 +;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
     1.7 +;   which can be found in the file epl-v10.html at the root of this distribution.
     1.8 +;   By using this software in any fashion, you are agreeing to be bound by
     1.9 +;   the terms of this license.
    1.10 +;   You must not remove this notice, or any other, from this software.
    1.11 +
    1.12 +(ns
    1.13 +    ^{:author "Christophe Grand",
    1.14 +      :doc "Helper namespace for clojure.java.browse.
    1.15 +            Prevents console apps from becoming GUI unnecessarily."}
    1.16 +  clojure.java.browse-ui)
    1.17 +
    1.18 +(defn- open-url-in-swing
    1.19 +  [url]
    1.20 +  (let [htmlpane (javax.swing.JEditorPane. url)]
    1.21 +    (.setEditable htmlpane false)
    1.22 +    (.addHyperlinkListener htmlpane
    1.23 +      (proxy [javax.swing.event.HyperlinkListener] []
    1.24 +        (hyperlinkUpdate [#^javax.swing.event.HyperlinkEvent e]
    1.25 +          (when (= (.getEventType e) (. javax.swing.event.HyperlinkEvent$EventType ACTIVATED))
    1.26 +            (if (instance? javax.swing.text.html.HTMLFrameHyperlinkEvent e)
    1.27 +              (-> htmlpane .getDocument (.processHTMLFrameHyperlinkEvent e))
    1.28 +              (.setPage htmlpane (.getURL e)))))))
    1.29 +    (doto (javax.swing.JFrame.)
    1.30 +      (.setContentPane (javax.swing.JScrollPane. htmlpane))
    1.31 +      (.setBounds 32 32 700 900)
    1.32 +      (.show))))
    1.33 +