Permalink
Browse files

Clojure 1.3 support.

  • Loading branch information...
1 parent 870d801 commit 5d996a777535f060581b350b710971187b108800 @technomancy technomancy committed Sep 29, 2011
Showing with 5 additions and 5 deletions.
  1. +1 −0 .gitignore
  2. +2 −2 project.clj
  3. +2 −3 src/doric/core.clj
View
@@ -3,3 +3,4 @@ pom.xml
lib
classes
.lein-deps-sum
+/.lein-failures
View
@@ -1,4 +1,4 @@
(defproject doric "0.6.0-SNAPSHOT"
:description "Clojure table layout"
- :dependencies [[org.clojure/clojure "1.2.0"]
- [org.clojure/clojure-contrib "1.2.0"]])
+ :dependencies [[org.clojure/clojure "1.3.0"]]
+ :multi-deps {"1.2" [[org.clojure/clojure "1.2.1"]]})
View
@@ -1,7 +1,6 @@
(ns doric.core
(:refer-clojure :exclude [format name join split when])
- (:use [clojure.string :only [join split]])
- (:require [clojure.contrib.string :as s]))
+ (:use [clojure.string :only [join split]]))
(defn- title-case-word [w]
(if (zero? (count w))
@@ -44,7 +43,7 @@
(defn align-cell [col s align]
(let [width (:width col)
- s (s/take width s)
+ s (subs s 0 (min (count s) width))
len (count s)
pad #(apply str (take % (repeat " ")))
padding (- width len)

0 comments on commit 5d996a7

Please sign in to comment.