daveray

; A REPL-based, annotated Seesaw tutorial
; Please visit https://github.com/daveray/seesaw for more info
;
; This is a very basic intro to Seesaw, a Clojure UI toolkit. It covers
; Seesaw's basic features and philosophy, but only scratches the surface
; of what's available. It only assumes knowledge of Clojure. No Swing or
; Java experience is needed.
;
; This material was first presented in a talk at @CraftsmanGuild in
; Ann Arbor, MI.

daveray

Links for essays ref'd in http://blog.fogus.me/2009/03/11/seven-books/

• On the Criteria to Be Used in Decomposing Systems Into Modules – David Parnas
• A Note On Distributed Computing – Jim Waldo, Geoff Wyant, Ann Wollrath, Sam Kendall
• The Next 700 Programming Languages – P. J. Landin
• Can Programming Be Liberated from the von Neumann Style? – John Backus
• Reflections on Trusting Trust – Ken Thompson
• Lisp: Good News, Bad News, How to Win Big – Richard Gabriel
• An Experimental Evaluation of the Assumption of Independence in Multiversion Programming – John Knight and Nancy Leveson
• [Arguments and Results –

daveray

These are very Java-centric, but honestly, if you're not doing Java why would you want to use Eclipse? :)

Replace `ctrl` with `cmd` as needed. The translation to Mac is a little arbitrary.

* ctrl-. (period): Jump to next warning or error
* ctrl-1: Show quick-fix menu (great in conjunction with ctrl-.)
* ctrl-3: "smart" navigation. Type name of something (file, view, perspective, etc) to go to it.
* ctrl-D: delete current line
* ctrl-e: switch editor. Also try ctrl-F6
* ctrl-F7: switch between views

daveray

import java.awt.event.ComponentAdapter;
import java.awt.event.ComponentEvent;
import java.awt.event.HierarchyEvent;
import java.awt.event.HierarchyListener;

import javax.swing.JFrame;
import javax.swing.JLabel;
import javax.swing.JSplitPane;

daveray

(defn merge+
  "Takes a *channel* of source channels and returns a channel which
  contains all values taken from them. The returned channel will be
  unbuffered by default, or a buf-or-n can be supplied. The channel
  will close after all the source channels have closed."
  ([in-ch] (merge+ in-ch nil))
  ([in-ch buf-or-n]
  (let [out-ch (async/chan buf-or-n)]
    (async/go-loop [cs [in-ch]]
      (if-not (empty? cs)

daveray

(ns mr-jr
  (:refer-clojure :exclude [shuffle])
  (:require [clojure.string :as string]
            [clojure.core.async :as async]))

(defn async-group-by
  "Kinda like clojure.core/group-by, but takes a channel and returns a channel"
  [f g ch]
  (->> ch
       (async/reduce

daveray

; Is there a way to tell assoc! "No really, I know what I'm doing."
; Do I know what I'm doing?
(->> (async/to-chan [[:a 1] [:b 2] [:c 3]])
     (async/reduce (fn [acc [k v]] 
                      (assoc! acc k v))
                   (transient {}))
     (async/map< persistent!)
     (async/<!!))
;=>
; Exception in thread "async-dispatch-52" java.lang.IllegalAccessError: Transient used by non-owner thread

daveray

(use 'seesaw.core)
(require '[seesaw.bind :as b])

(def f (let [bg (button-group)
             f  (-> (frame :title "test"
                  :content (border-panel :center (text :id :text :text "hi")
                                         :south (horizontal-panel :items
                                                  [(radio :group bg :text "enabled")
                                                   (radio :group bg :text "disabled")])))
           pack!

daveray

; http://docs.oracle.com/javase/tutorial/displayCode.html?code=http://docs.oracle.com/javase/tutorial/uiswing/examples/misc/ShapedWindowDemoProject/src/misc/ShapedWindowDemo.java

(use 'seesaw.core)
(require '[seesaw.graphics :as g])
(-> (doto (frame :undecorated? true
                 :content (border-panel :center (button :text "I am a button"))
                 :listen [:component-resized 
                          (fn [e] 
                            (.setShape (to-root e) 
                                       (g/ellipse (0 0 (width e) (height e)))))])

daveray

[info] Compiling 3 Scala sources to /Users/dray/mine/coursera-rx/quickcheck/target/scala-2.10/classes...
[info] 'compiler-interface' not yet compiled for Scala 2.10.2. Compiling...
sbt appears to be exiting abnormally.
  The log file for this session is at /var/folders/12/bkvfkd5j0fxbd0k1q71tqqnc49fbdt/T/sbt4624986011374152709.log
java.lang.OutOfMemoryError: PermGen space
	at java.lang.ClassLoader.defineClass1(Native Method)
	at java.lang.ClassLoader.defineClassCond(ClassLoader.java:631)
	at java.lang.ClassLoader.defineClass(ClassLoader.java:615)
	at java.security.SecureClassLoader.defineClass(SecureClassLoader.java:141)
	at java.net.URLClassLoader.defineClass(URLClassLoader.java:283)