The author of the talk I gave yesterday at PyTennessee is Jim Blandy. Jim is a Mozilla engineer, a go player, a drinker of tea, and one of the most generous people I’ve ever met.
| (require 'mine-jabber) | |
| ;; Username & nickname fields from https://banno.hipchat.com/account/xmpp | |
| (setq hipchat-username "") | |
| (setq hipchat-nickname "") | |
| (setq hipchat-password "") | |
| (setq hipchat-autojoin-rooms | |
| '("aggregation" "assets" "banno_talk" "banno_cms" "data_services" "emacs" "grip" "kernel" "southen" "troll_talk" "webdev" "design_talk")) |
| (ns react-cljs.core | |
| (:require React)) | |
| (declare render) | |
| (defn handle-change [e] | |
| (render {:text (.. e -target -value)})) | |
| (defn render [{:keys [text]}] | |
| (React/renderComponent |
| (defn with-local-redefs-fn | |
| [a-var its-new-value func] | |
| (cast clojure.lang.IFn @a-var) | |
| (alter-meta! a-var | |
| (fn [m] | |
| (if (::scope-count m) | |
| (update-in m [::scope-count] inc) | |
| (assoc m | |
| ::scope-count 1 | |
| ::thread-local-var (doto (clojure.lang.Var/create @a-var) |
| ;; Ugly mitigation of http://dev.clojure.org/jira/browse/CLJ-1152 in | |
| ;; the protocols case. Motivation: Need to eval lots domain-specific | |
| ;; language code rendered in core.logic. Approach: Start a thread to | |
| ;; purge protocol caches every second. You should probable write a | |
| ;; fancier version. | |
| (defn protocol? [x] | |
| (and (instance? clojure.lang.PersistentArrayMap x) | |
| (boolean (:on-interface x)))) |
| ;; HipChat | |
| (setq ssl-program-name "gnutls-cli" | |
| ssl-program-arguments '("--insecure" "-p" service host) | |
| ssl-certificate-verification-policy 1) | |
| ;; Connect using jabber.el | |
| ;; M-x jabber-connect <RET> | |
| ;; Config |
Comments? [email protected]
I 'm fleshing out some of these ideas here: https://github.com/lynaghk/todoFRP/tree/master/todo/angular-cljs
This article is now published on my website: Prefer Subshells for Context.
| # _______ _ _ _ _ _ | |
| # |__ __| | (_) (_) | | | | | |
| # | | | |__ _ ___ ___ ___ _ __ _ _ __ | |_ _ __ ___ _____ _____ __| | | |
| # | | | '_ \| / __| / __|/ __| '__| | '_ \| __| | '_ ` _ \ / _ \ \ / / _ \/ _` | | |
| # | | | | | | \__ \ \__ \ (__| | | | |_) | |_ | | | | | | (_) \ V / __/ (_| | | |
| # |_| |_| |_|_|___/ |___/\___|_| |_| .__/ \__| |_| |_| |_|\___/ \_/ \___|\__,_| | |
| # | | | |
| # |_| | |
| # | |
| # New home : https://github.com/bric3/osx-jdk5-installer |