tolitius

;; GIVEN (a text file):

;; John Smith & Jane Smirnoff,,2,2,"2800 West 21st Ave Apt 8C, Brooklyn, NY 11237",
;; Mr. & Mrs. Anatoly Clojurevich & Family,,4,2,"877 Greatview Road, Silicon Valley, PA 19006",

;; NEED (a text file):

;; John Smith & Jane Smirnoff
;; 2800 West 21st Ave Apt 8C
;; Brooklyn, NY 11237

tolitius

;; this is a ClojureScript REPL that is connected to a browser 
;; (here is how it's connected: https://github.com/tolitius/wracer/blob/master/docs/README.md)

;; "sel1" here is a "dommy" library selector: e.g. similar to "$" in JQuery
wracer.repl=> (def $e-names (sel1 :.e-names))
#<[object HTMLDivElement]>

wracer.repl=> (inner-html $e-names)
<p class="e-name">Bing</p>
<p class="e-name">Google</p>

tolitius

public class Calculator {

    public interface Operation {
        public Long perform( Long a, Long b );
    }

    // example of anonymous class(es)
    public static Operation add = new Operation() { public Long perform( Long a, Long b ) { return a + b; } };
    public static Operation subtract = new Operation() { public Long perform( Long a, Long b ) { return a - b; } };
    public static Operation divide = new Operation() { public Long perform( Long a, Long b ) { return a / b; } };

tolitius

public class Bean {

    private String a;
    private Integer b;
    private String c;
    private Integer d;

    public Bean( String a, Integer b, String c, Integer d ) {
        this.a = a;
        this.b = b;

tolitius

=> (def error-codes [[:code "ERROR" :type "title"] [:code "ERROR" :type "id"]])

=> error-codes
[[:code "ERROR" :type "title"] [:code "ERROR" :type "id"]]

=> (let [[[_ c1 _ t1] [_ c2 _ t2]] error-codes] [(distinct [c1 c2]) #{t1 t2}])
[("ERROR") #{"id" "title"}]

tolitius

(defn hello                                 ;; a function named "hello"
  [&rest]                                   ;; that takes varagrs, hence "&" in a parameter list
                                            ;; could be (defn hello [name &rest]), which would mean
                                            ;; function "hello" takes one or more params
                                                     
  (->                                       ;; "->" is called a threading macro, all it does it executes
                                            ;; a first expression, takes its result and passes it to the
                                            ;; second expression as its first argument, and so forth
    (Observable/from &rest)                 ;; (Class/method params) is a way to call a Java static method in Clojure
    (.subscribe                             ;; ".subscribe" is a method of an object that "(Observable/from &rest)" returns

tolitius

repl> (let [[a b] [1 41 3 4 5 6 7 8]] 
        (+ a b))
42

;; anywhere, function params? sure!

(defn sum [[a b]]              ;; define a function (inner brackets fetch first two elements)
  (+ a b))        

(sum [1 41 3 4 5 6 7 8 9])     ;; use it

tolitius

(defrecord Communicator-Channels []
  component/Lifecycle
  (start [component] (log/info "Starting Communicator Channels Component")
         (assoc component
           :query (chan)
           :query-results (chan)
           :tweet-missing (chan)
           :missing-tweet-found (chan)
           :persistence (chan)
           :rt-persistence (chan)

tolitius

(defn listen-to-events [ch transform signal]
  (go-loop []
    (-> (<! ch)
        transform
        signal)
    (recur)))

tolitius

(ns poco)

(gen-class 
  :name org.stargate.PlainOldClojureObject
  :state "state"
  :init "init"
  :constructors {[Boolean Boolean String] []}
  :methods [[isHuman [] Boolean]
            [isFound [] Boolean]
            [planet [] String]])