Add lein-auto so we can lein auto test TDD.

Author: agilecreativity

README.org

@@ -1,10 +1,10 @@
 * hn-reader
 
 #+ATTR_HTML: title="Clojars"
-[[https://clojars.org/scrapper][file:https://img.shields.io/clojars/v/scrapper.svg]]
+[[https://clojars.org/hn-reader][file:https://img.shields.io/clojars/v/hn-reader.svg]]
 
 #+ATTR_HTML: title="Jarkeeper"
-[[https://jarkeeper.com/agilecreativity/hn-scrapper][file:https://jarkeeper.com/agilecreativity/hn-scrapper/status.svg]]
+[[https://jarkeeper.com/agilecreativity/hn-reader][file:https://jarkeeper.com/agilecreativity/hn-reader/status.svg]]
 
 Access to all of the latest news from [[https://news.ycombinator.com/][Hacker News]].
 
@@ -68,11 +68,6 @@ Now get the list of all news from [[https://news.ycombinator.com/news][Hacker Ne
 
 ** Example Sessions and Outputs
 
-*** Sample sessions (animated gif)
-
-#+ATTR_HTML: title="sample-session.gif"
-[[https://github.com/agilecreativity/hn-reader/raw/master/doc/sample-session.gif][file:https://github.com/agilecreativity/hn-reader/raw/master/doc/sample-session.gif]]
-
 *** Sample sessions (screencasts)
 
 #+ATTR_HTML: title="sample-session.webm"
@@ -82,12 +77,6 @@ Now get the list of all news from [[https://news.ycombinator.com/news][Hacker Ne
 
 [[https://github.com/agilecreativity/hn-reader/blob/master/doc/sample-output.org][sample output in org-mode format]]
 
-** Features idea
-
-- Export/print first level content of hackernews to PDFs or Epubs
-- Group the results in some ways (topics, keywords, link to YouTube?)
-- Persist the result to html pages and store the link just once!
-
 ** Useful Links
 
 - [[https://github.com/mischov/reaver][reaver]]
@@ -104,7 +93,6 @@ Now get the list of all news from [[https://news.ycombinator.com/news][Hacker Ne
 
 ** License
 
-Copyright © 2016 Burin Choomnuan
+Copyright © 2016-2017 Burin Choomnuan
 
-Distributed under the Eclipse Public License either version 1.0 or (at
-your option) any later version.
+Distributed under the Eclipse Public License either version 1.0 or (at your option) any later version.

Tips.org

@@ -18,4 +18,21 @@
 *** [[https://clojuredocs.org/clojure.test/deftest][Testing in Clojure]]
 *** [[http://rubyforgood.org/2017.html]]
 *** How to TDD/BDD in Clojure like using watch for file changes and run tests?
-*** How to switch between test/source when doing TDD in Clojure?
+*** How to switch betwe
+
+** Notes from [[http://www.buildfunthings.com/][buildfunthing.com - Productive (CIDER) Testing]]
+
+| Command             | Emacs's shotcuts |   |   |   |
+|---------------------+------------------+---+---+---|
+| cider-test-run-test |                  |   |   |   |
+| more command here   |                  |   |   |   |
+|---------------------+------------------+---+---+---|
+
+** Write the elisp function that will do copy of previous sexp
+
+#+BEGIN_EXAMPLE
+(is (= 3
+       (some-function 1 2)))
+;;     |< cursor position at this point
+;; we like to be able to copy this one without using =sp-copy-sexp=
+#+END_EXAMPLE

doc/sample-output.org

@@ -12,7 +12,8 @@
         :bin-path "~/bin"
         :bootclasspath true}
   :plugins [[lein-bin "0.3.4"]
-            [lein-cljfmt "0.5.3"]]
+            [lein-cljfmt "0.5.3"]
+            [lein-auto "0.1.3"]]
   :dependencies [[org.clojure/clojure "1.8.0"]
                  [reaver "0.1.2"]
                  [org.clojure/tools.cli "0.3.5"]

doc/sample-session.gif

@@ -33,6 +33,7 @@
   (slurp (hacker-news-url page-number)))
 
 (defn- discussion-url
+  "Create a discussion url for hacker news."
   [vote-url]
   (let [article-id (re-find #"\d+" vote-url)
         article-url (str "https://news.ycombinator.com/item?id=" article-id)]
@@ -94,6 +95,7 @@
    (str "[[" url "][" url-desc "]]")))
 
 (defn hn-link-url-item
+  "Create hacker new url item."
   ([url url-desc]
    (hn-link-url-item url url-desc 0))
   ([url url-desc level]
@@ -135,7 +137,7 @@
                          " "
                          "The recent " page-count " pages from Hacker News\n"))
           (.newLine w)
-          ;; Note: Hacker News only show the last 20 pages
+          ;; Note: Hacker News only show the last 12 pages
           (doseq [n (range (Integer. page-count))]
             (let [content (extract-data (inc n))]
               (comment (clojure.pprint/pprint content))

doc/sample-session.webm

@@ -16,6 +16,20 @@
   (is (= "  - [[http://www.google.com][Google]]"
          (hr/hn-link-url-item "http://www.google.com" "Google" 2))))
 
+(deftest repeat-string-test
+  (is (= ""
+         (hr/repeat-string 0 "a")) "zero number will result in empty string")
+  (is (= ""
+         (hr/repeat-string -1 "a")) "negative number will result in empty string")
+  (is (= "1111"
+         (hr/repeat-string 4 "1")) "positive number will result in proper result"))
+
+(deftest hn-make-org-list-test
+  (is (= " - "  (hr/hn-make-org-list 1)))
+  (is (= "- "   (hr/hn-make-org-list 0)))
+  (is (= "  - " (hr/hn-make-org-list 2)))
+  (is (= "  * " (hr/hn-make-org-list 2 "*"))))
+
 (deftest hacker-new-collector-test
   (hn-link-url-test)
   (hn-link-url-item-test))