diff --git a/src/main/frontend/text.cljs b/src/main/frontend/text.cljs index 847564651..893edd7dc 100644 --- a/src/main/frontend/text.cljs +++ b/src/main/frontend/text.cljs @@ -40,11 +40,9 @@ (sep-by-comma-or-quote) (map page-ref-un-brackets!) (distinct))] - (if (and (coll? result) - (or (> (count result) 1) - ;; Tag - (and (string? result) - (string/starts-with? result "#")))) + (if (or (coll? result) + (and (string? result) + (string/starts-with? result "#"))) (let [result (if coll? result [result]) result (map (fn [s] (string/replace s #"^#+" "")) result)] (set result)) diff --git a/src/main/frontend/version.cljs b/src/main/frontend/version.cljs index 430b1bf06..286e9d826 100644 --- a/src/main/frontend/version.cljs +++ b/src/main/frontend/version.cljs @@ -1,3 +1,3 @@ (ns frontend.version) -(defonce version "0.0.5.1-5") +(defonce version "0.0.5.1-6") diff --git a/src/test/frontend/text_test.cljs b/src/test/frontend/text_test.cljs index d582e4fbe..080947991 100644 --- a/src/test/frontend/text_test.cljs +++ b/src/test/frontend/text_test.cljs @@ -39,20 +39,22 @@ "foo bar" "foo bar" "foo, bar" #{"foo" "bar"} "foo \"bar\"" #{"foo" "bar"} - "[[foo]] [[bar]]" #{"[[foo]] [[bar]]"} + "[[foo]] [[bar]]" #{"foo]] [[bar"} "[[foo]],[[bar]]" #{"foo", "bar"} "[[foo]], [[bar]]" #{"foo", "bar"} - "[[foo]]" "foo" - "[[nested [[foo]]]]" "nested [[foo]]" - "[[nested [[foo]]]], [[foo]]" #{"nested [[foo]]" "foo"})) + "[[foo]]" #{"foo"} + "[[nested [[foo]]]]" #{"nested [[foo]]"} + "[[nested [[foo]]]], [[foo]]" #{"nested [[foo]]" "foo"} + "#tag," #{"tag"} + "#tag1,#tag2" #{"tag1" "tag2"})) (defn extract-level-spaces [] (testing "markdown" (are [x y] (= (text/extract-level-spaces x :markdown) y) - "# foobar" "# " - "## foobar" "## " - "##################### foobar" "##################### ")) + "# foobar" "# " + "## foobar" "## " + "##################### foobar" "##################### ")) (testing "org mode" (are [x y] (= (text/extract-level-spaces x :org) y) "* foobar" "* " @@ -77,10 +79,10 @@ "** foobar" "foobar" "********************* foobar" "foobar")) (testing "org without spaces between the `#` and title" - (are [x y] (= (text/remove-level-spaces x :org) y) - "*foobar" "foobar" - "**foobar" "foobar" - "*********************foobar" "foobar"))) + (are [x y] (= (text/remove-level-spaces x :org) y) + "*foobar" "foobar" + "**foobar" "foobar" + "*********************foobar" "foobar"))) (defn append-newline-after-level-spaces []