yogthos

from http://www.linuxjournal.com/article/10708

An in-depth look at the new language with Rich Hickey, Creator of Clojure

DE: What did you do before you started the Clojure project?

RH: I'm a consultant, so I work on various things. I think the big thing I've done recently is I worked on the national exit poll.

DE: What other languages did you use before inventing your own?

yogthos

#!/usr/bin/env lumo
(ns spacedl.spacedl
  (:require [cljs.nodejs :as node]
            [clojure.pprint :refer [pprint]]
            [clojure.string :as string :refer [join split starts-with?]]
            [cljs.core :refer [*command-line-args*]]))

(node/enable-util-print!)
(.on js/process "uncaughtException" #(js/console.error %))

yogthos

The project can be built using Lumo

npm install -g lumo-cljs
lumo build.cljs

yogthos

Plnack FFI example by Mike Fikes:

cc -fPIC -shared -o libnative.so native.c

planck ffi.cljs

yogthos

Atom Clojure Setup

This describes how I setup Atom for an ideal Clojure development workflow. This fixes indentation on newlines, handles parentheses, etc. The keybinding settings for enter (in keymap.cson) are important to get proper newlines with indentation at the right level. There are other helpers in init.coffee and keymap.cson that are useful for cutting, copying, pasting, deleting, and indenting Lisp expressions.

Install Atom

Download Atom

The Atom documentation is excellent. It's highly worth reading the flight manual.

yogthos

{:access-keys
 {:consumer_key "XXXX"
  :consumer_secret "XXXX"
  :access_token_key "XXXX"
  :access_token_secret "XXXX"
 :account "arstechnica"
 :content-filters [".*badwords.*"]
 :include-replies? true
 :include-rts? true
 :output-file "tweets.md"}

yogthos

#!/bin/sh

palette="$1.palette.png"

if [[ ! -e $palette ]]; then
    ffmpeg -y -i $1 -vf palettegen $palette
fi

filters="fps=15,scale=640:-1:flags=lanczos"

yogthos

(ns re-frame.datepicker
  (:require [cljs-pikaday.reagent :as pikaday]))

(defn datepicker [k]
    (r/with-let [date         (r/atom @(rf/subscribe [:schedule/event-modal-details-value k]))
                 date-tracker (r/track! #(rf/dispatch [:schedule/update-event-modal-details k @date]))]
      [pikaday/date-selector
       {:date-atom     date
        :pikaday-attrs {:format "YYYY-MM-DD"}
        :input-attrs   {:read-only true :class "form-control"}}]

yogthos

#!/usr/bin/env lumo
(ns reddit-video.core
  (:require
   [cljs.core :refer [*command-line-args*]]
   [clojure.string :as string]))

(def https (js/require "https"))
(def process (js/require "child_process"))

(defn js->edn [data]

yogthos

(ns gjs-example.core)

(defn main []
  (set! (-> js/imports .-gi .-versions .-Gtk) "3.0")
  (let [Gtk (doto (-> js/imports .-gi .-Gtk) (.init nil))
        window (Gtk.Window.
                (clj->js
                 {:type (-> Gtk .-WindowType .-TOPLEVEL)
                  :title "A default title"
                  :default_width 300