Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Loading…

1.3 support #1

Merged
merged 1 commit into from

2 participants

@technomancy

Just a removal of c.c.string/take.

@joegallo joegallo merged commit 18fde0a into joegallo:master
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Commits on Sep 29, 2011
  1. @technomancy

    Clojure 1.3 support.

    technomancy authored
This page is out of date. Refresh to see the latest.
Showing with 5 additions and 5 deletions.
  1. +1 −0  .gitignore
  2. +2 −2 project.clj
  3. +2 −3 src/doric/core.clj
View
1  .gitignore
@@ -3,3 +3,4 @@ pom.xml
lib
classes
.lein-deps-sum
+/.lein-failures
View
4 project.clj
@@ -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
5 src/doric/core.clj
@@ -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)
Something went wrong with that request. Please try again.