kul

Chord diagrams show directed relationships among a group of entities. This example also demonstrates simple interactivity by using mouseover filtering. Layout inspired by Martin Krzywinski's beautiful work on Circos.

kul

--langdef=clojure
--langmap=clojure:.clj
--regex-clojure=/\([ \t]*create-ns[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/n,namespace/
--regex-clojure=/\([ \t]*def[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/d,definition/
--regex-clojure=/\([ \t]*defn[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/f,function/
--regex-clojure=/\([ \t]*defn-[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/p,private function/
--regex-clojure=/\([ \t]*defmacro[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/m,macro/
--regex-clojure=/\([ \t]*definline[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/i,inline/
--regex-clojure=/\([ \t]*defmulti[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/a,multimethod definition/
--regex-clojure=/\([ \t]*defmethod[ \t]+([-[:alnum:]*+!_:\/.?]+)/\1/b,multimethod instance/

kul

(def ^ThreadLocal kryo-registry
  (proxy [ThreadLocal] []
    (initialValue []
      (doto (co/default-registry) (comment register-custom)))))

(defn- freeze
  [data]
  (cb/write-bytes (.get kryo-registry) data))

(defn- thaw

kul

set editing-mode vi
set keymap vi-insert
$if mode=vi
    set keymap vi-command
    "gg": beginning-of-history
    "G": end-of-history
    "\C-l": clear-screen
    set keymap vi-insert
    "kj": vi-movement-mode
    "\C-w": backward-kill-word

kul

;            [clojure.zip :as zip]
;            [clojure.data.xml :refer [parse-str] :as x]
;            [clojure.data.zip.xml :refer [xml-> text] :as zx]


  (defn parse-xml
    [s]
    (-> s x/parse-str zip/xml-zip))

  (defn update-in-xml