fix inline-link when html export

logseq · Apr 3, 2023 · 14d91a5 · 14d91a5
1 parent 9b5bdb2
commit 14d91a5
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/main/frontend/handler/export/html.cljs b/src/main/frontend/handler/export/html.cljs
@@ -88,7 +88,10 @@
 
 (defn- inline-link
   [{:keys [url label full_text]}]
-  (let [href (when (= "Search" (first url)) (second url))]
+  (let [href (case (first url)
+               "Search" (second url)
+               "Complex" (str (:protocol (second url)) "://" (:link (second url)))
+               nil)]
     (cond-> [:a]
       href (conj {:href href})
       href (concatv (mapv inline-ast->hiccup label))