eneroth

;; Load config
(defn load-config [config-path]
  (let [ch (chan)]
    (go
      (let [{:keys [succeeded data]} (<! (path/resolve config-path))
            abs-path data]
        (if-not succeeded
          (failure ch data (str "load-config: couldn't resolve path '" config-path "'"))
          (let [{:keys [succeeded data]} (<! (file/read abs-path :utf-8))
                config-content data]

eneroth

Keybase proof

I hereby claim:

• I am eneroth on github.
• I am eneroth (https://keybase.io/eneroth) on keybase.
• I have a public key ASAcj6_a7ptkxlPrJD0OE87QcZzU8sBMesZE5fUb5UH-7wo

To claim this, I am signing this object:

eneroth

var Timer = React.createClass({
  getInitialState: function() {
    return {secondsElapsed: 0};
  },
  tick: function() {
    this.setState({secondsElapsed: this.state.secondsElapsed + 1});
  },
  componentDidMount: function() {
    this.interval = setInterval(this.tick, 1000);
  },

eneroth

(defn add [a b]
  (+ a b))

(let [add-1 (partial add 1)]
  (println (add-1 6))
  (println (add-1 12)))

eneroth

(let [grunka #(mate (rand-nth fittest) (rand-nth fittest))
      pryl   (repeatedly num-matings grunka)]
  (scores goal (mutate-population pryl)))

eneroth

;; Rendera en låda
;; ---------------
(defn command-box
  []
  [:input#commandbox {}]) ;; "commandbox" är IDt

(render-component [command-box] (get-element "body"))

;; Lyssna på events fran elementet
;; -------------------------------