Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix c.j.io/file usage.

  • Loading branch information...
commit 21606560f88ea18da3d63383b252f32ae993038f 1 parent 8d06b5a
Clojure authored
Showing with 8 additions and 8 deletions.
  1. +1 −0  project.clj
  2. +7 −8 src/quickbeam/core.clj
View
1  project.clj
@@ -2,4 +2,5 @@
:description "Clojure access to git."
:dependencies [[org.clojure/clojure "1.2.1"]
[org.eclipse.jgit "0.12.1"]]
+ :dev-dependencies [[slamhound "1.2.0-SNAPSHOT"]]
:repositories {"jgit" "http://download.eclipse.org/jgit/maven"})
View
15 src/quickbeam/core.clj
@@ -1,15 +1,14 @@
(ns quickbeam.core
- (:require [clojure.java.io :as jio])
- (:import (org.eclipse.jgit.lib Repository)
- (org.eclipse.jgit.storage.file FileRepository)
- (org.eclipse.jgit.lib ObjectId)
- (org.eclipse.jgit.revwalk RevWalk)))
+ (:require [clojure.java.io :as io])
+ (:import (java.util Date)
+ (org.eclipse.jgit.revwalk RevWalk)
+ (org.eclipse.jgit.storage.file FileRepository)))
(defn find-repo [path]
- (when-let [git-dir (->> (.getAbsoluteFile (jio/file path))
+ (when-let [git-dir (->> (.getAbsoluteFile (io/file path))
(iterate #(.getParentFile %))
(take-while identity)
- (map #(file % ".git"))
+ (map #(io/file % ".git"))
(filter #(.exists %))
first)]
(FileRepository. git-dir)))
@@ -19,7 +18,7 @@
{:author (.toExternalString authorIdent)
:message fullMessage
:sha name
- :date (java.util.Date. (long (* 1000 commitTime)))}))
+ :date (Date. (long (* 1000 commitTime)))}))
(defn history
([repo-path]
Please sign in to comment.
Something went wrong with that request. Please try again.