[accountant] Making methods private and updating README

This commit makes most methods private and updates the README to keep
pace and to make the library's function a little clearer.

README.md

@@ -1,7 +1,7 @@
 # Accountant
 
 Accountant is a ClojureScript library to make navigation in single-page
-applications simple.
+applications simple. It expects you to use [Secretary](https://github.com/gf3/secretary) to define your routes.
 
 By default, clicking a link in a ClojureScript application that isn't a simple
 URL fragment will trigger a full page reload. This defeats the purpose of using
@@ -19,7 +19,7 @@ browsers will be left behind.
 Just add the following to your `project.clj`:
 
 ```clojure
-:dependencies [venantius/accountant "0.1.0"]
+:dependencies [venantius/accountant "0.1.1"]
 ```
 
 ## Usage
@@ -30,7 +30,7 @@ All you have to do to get Accountant working is the following:
 (ns your-app-ns
   (:require [accountant.core :as accountant]))
 
-(accountant/configure)
+(accountant/configure-navigation!)
 ```
 
 ...and you're good to go!

project.clj

@@ -1,4 +1,4 @@
-(defproject venantius/accountant "0.1.0"
+(defproject venantius/accountant "0.1.1"
   :description "Navigation for Single-Page Applications Made Easy."
   :url "http://github.com/venantius/accountant"
   :license {:name "Eclipse Public License"

src/accountant/core.cljs

@@ -8,21 +8,21 @@
   (:import goog.history.Html5History
            goog.Uri))
 
-(defn listen [el type]
+(defn- listen [el type]
   (let [out (chan)]
     (events/listen el type
                    (fn [e] (put! out e)))
     out))
 
-(defn dispatch-on-navigate
+(defn- dispatch-on-navigate
   [history]
   (let [navigation (listen history EventType/NAVIGATE)]
     (go
       (while true
         (let [token (.-token (<! navigation))]
           (secretary/dispatch! token))))))
 
-(defn find-href
+(defn- find-href
   "Given a DOM element that may or may not be a link, traverse up the DOM tree
   to see if any of its parents are links. If so, return the href content."
   [e]
@@ -32,7 +32,7 @@
         (when-let [parent (.-parentNode e)]
            (recur parent)))) (.-target e)))
 
-(defn prevent-reload-on-known-path
+(defn- prevent-reload-on-known-path
   "Create a click handler that blocks page reloads for known routes in
   Secretary."
   [history]
@@ -47,7 +47,7 @@
          (. history (setToken path title))
          (.preventDefault e))))))
 
-(defn configure
+(defn configure-navigation!
   "Create and configure HTML5 history navigation."
   []
   (let [history (Html5History.)]