feat(blocks, parser): adds correct parsing for nested page links in h… (

#311)

* feat(blocks, parser): adds correct parsing for nested page links in hashtags; add auto link for hashtags and page links

* style: fix testing code style

src/cljc/athens/parser.cljc

@@ -44,7 +44,7 @@
    
    hashtag = hashtag-bare | hashtag-delimited
    <hashtag-bare> = <'#'> #'[^\\ \\+\\!\\@\\#\\$\\%\\^\\&\\*\\(\\)\\?\\\"\\;\\:\\]\\[]+'  (* Unicode: L = letters, M = combining marks, N = numbers *)
-   <hashtag-delimited> = <'#'> <'[['> #'[^\\]]+' <']]'>
+   <hashtag-delimited> = <'#'> <'[['> page-link-content <']]'>
 
    url-image = <'!'> url-link-text url-link-url
    

src/cljs/athens/parse_renderer.cljs

@@ -96,12 +96,13 @@
                       (let [block (pull db/dsdb '[*] [:block/uid uid])]
                         [:span (use-style block-ref {:class "block-ref"})
                          [:span {:class "contents" :on-click #(navigate-uid uid)} (parse-and-render (:block/string @block) uid)]]))
-     :hashtag       (fn [tag-name]
-                      (let [node (pull db/dsdb '[*] [:node/title tag-name])]
+     :hashtag       (fn [& tag-name]
+                      (let [parsed-name (concat tag-name)
+                            node        (pull db/dsdb '[*] [:node/title parsed-name])]
                         [:span (use-style hashtag {:class    "hashtag"
                                                    :on-click #(navigate-uid (:block/uid @node))})
                          [:span {:class "formatting"} "#"]
-                         [:span {:class "contents"} tag-name]]))
+                         [:span {:class "contents"} parsed-name]]))
      :url-image     (fn [{url :url alt :alt}]
                       [:img (use-style image {:class "url-image"
                                               :alt   alt

src/cljs/athens/views/blocks.cljs

@@ -346,12 +346,14 @@
                                            uid (gen-block-uid)]
                                        (db-fn inner-title now uid)))
                                    (str "[[" inner-title "]]")))
-                    :hashtag   (fn [title]
-                                 (when (and (string? title) (link-fn title))
-                                   (let [now (now-ts)
-                                         uid (gen-block-uid)]
-                                     (db-fn title now uid)))
-                                 (str "#" title))} (parser/parse-to-ast source-str)))
+                    :hashtag   (fn [& title]
+                                 (let [inner-title (apply + title)]
+                                   (when (and (string? inner-title)
+                                              (link-fn inner-title))
+                                     (let [now (now-ts)
+                                           uid (gen-block-uid)]
+                                       (db-fn inner-title now uid)))
+                                   (str "#" inner-title)))} (parser/parse-to-ast source-str)))
 
 
 (defn on-change

test/athens/parser_test.clj

@@ -54,6 +54,9 @@
     [:block "that’s " [:hashtag "very cool"] ", yeah"]
     "that’s #[[very cool]], yeah"
 
+    [:block "also here's " [:hashtag "nested " [:page-link "links"]] " in hashtags!"]
+    "also here's #[[nested [[links]]]] in hashtags!"
+
     [:block "Ends after " [:hashtag "words_are_over"] "!"]
     "Ends after #words_are_over!"