1
63%
master: 63%

Ran 13 Mar 2015 08:51PM UTC

Files 4

Run time 18s

Badge

Embed ▾

Committed 13 Mar 2015 08:27PM UTC coverage: 47.593%. Remained the same

Job # EMACS=emacs24

Build Type

push

travis-ci

Committed by

abo-abo

Commit Message

Improve "xf" for Clojure

* le-clojure.el (lispy-flatten--clojure-loaded): New defvar.
(lispy-flatten--clojure-load): New defun.
(lispy-flatten--clojure): Update.

The code now can distinguish macros and use `macroexpand' for them.
Otherwise, some custom Clojure code will be used to flatten.

"xf" should work on this:

    (filter odd? [1 2 3 4 5])

After "xfM" you get:

    (let [pred odd? coll [1 2 3 4 5]
          ]
      (lazy-seq (when-let [s (seq coll)
                           ]
                  (if (chunked-seq? s)
                    (let [c (chunk-first s)
                          size (count c)
                          b (chunk-buffer size)
                          ]
                      (dotimes [i size]
                        (when (pred (.nth c i))
                          (chunk-append b (.nth c i))))
                      (chunk-cons (chunk b)
                                  (filter pred (chunk-rest s))))
                    (let [f (first s)
                          r (rest s)
                          ]
                      (if (pred f)
                        (cons f (filter pred r))
                        (filter pred r)))))))

Re #54.

Coverage Stats

3262 of 6854 relevant lines covered (47.59%)

11.69 hits per line

abo-abo / lispy / 375 / 1
63%
master: 63%

README BADGES
x

Markdown

Textile

RDoc

HTML

Rst

Source Files on job 375.1 (EMACS=emacs24)

abo-abo / lispy / 375 / 1 63% master: 63%

README BADGES x

Markdown

Textile

RDoc

HTML

Rst

Source Files on job 375.1 (EMACS=emacs24)

abo-abo / lispy / 375 / 1
63%
master: 63%

README BADGES
x