Issue #133, String keys in for loops (#147)

* fix issue #133

* improved performance and reuse an older function

* Added some tests

src/selmer/filter_parser.clj

@@ -134,7 +134,7 @@ applied filter."
     val
     (map vector filter-strs filters)))
 
-(defn- get-accessor [m k]
+(defn get-accessor [m k]
   "Returns the value of `k` from map `m`, either as a keyword or string lookup."
   (or (get m k)
       (when (keyword? k)

src/selmer/tags.clj

@@ -1,6 +1,6 @@
 (ns selmer.tags
   (:require selmer.node
-            [selmer.filter-parser :refer [split-filter-val safe-filter compile-filter-body fix-accessor]]
+            [selmer.filter-parser :refer [split-filter-val safe-filter compile-filter-body fix-accessor get-accessor]]
             [selmer.filters :refer [filters]]
             [selmer.util :refer :all]
             [json-html.core :refer [edn->html]])
@@ -44,7 +44,7 @@
         item-keys     (parse-arg items)]
     (fn [context-map]
       (let [buf    (StringBuilder.)
-            items  (-> (get-in context-map item-keys)
+            items  (-> (reduce get-accessor context-map item-keys)
                        (apply-filters filters context-map items))
             length (count items)]
         (if (and empty-content (empty? items))

test/selmer/core_test.clj

@@ -252,7 +252,11 @@
          "<<1>><<2>><<3>>"))
   (is (= (render "{% for ele in foo %}{{ele}}-{{forloop.counter}}-{{forloop.counter0}}-{{forloop.revcounter}}-{{forloop.revcounter0}};{%endfor%}"
                  {:foo [1 2 3]})
-         "1-1-0-2-3;2-2-1-1-2;3-3-2-0-1;")))
+         "1-1-0-2-3;2-2-1-1-2;3-3-2-0-1;"))
+  (is (= (render "{% for ele in foo %}{{ele.bar}} {% endfor %}"
+                 {"foo" [{:bar "bar"}
+                         {:bar "bar"}]})
+         "bar bar ")))
 
 (deftest for-filter-test
   (is