From 989b5dd570249fff50f177a23326fbc99c1d3a51 Mon Sep 17 00:00:00 2001
From: Guillaume Hivert <hivert.is.coming@gmail.com>
Date: Mon, 13 May 2024 23:33:31 +0200
Subject: [PATCH] feat: add ability to click on types to see hexdocs

Signed-off-by: Guillaume Hivert <hivert.is.coming@gmail.com>
---
 apps/frontend/src/data/search_result.gleam    | 18 ++++++---------
 .../src/frontend/view/body/signature.gleam    | 22 +++++++++++++++++--
 .../src/frontend/view/body/styles.gleam       |  8 +++++++
 apps/frontend/src/frontend/view/helpers.gleam | 12 ++++++++++
 4 files changed, 47 insertions(+), 13 deletions(-)

diff --git a/apps/frontend/src/data/search_result.gleam b/apps/frontend/src/data/search_result.gleam
index 4c11291..bbe6f23 100644
--- a/apps/frontend/src/data/search_result.gleam
+++ b/apps/frontend/src/data/search_result.gleam
@@ -1,9 +1,8 @@
 import data/kind.{type Kind}
 import data/metadata.{type Metadata}
 import data/signature.{type Signature}
+import frontend/view/helpers
 import gleam/dynamic
-import gleam/function
-import gleam/string
 
 pub type SearchResult {
   SearchResult(
@@ -52,13 +51,10 @@ pub fn decode_search_results(dyn) {
 }
 
 pub fn hexdocs_link(search_result: SearchResult) {
-  let join = function.flip(string.join)
-  let base =
-    join("/", [
-      "https://hexdocs.pm",
-      search_result.package_name,
-      search_result.version,
-      search_result.module_name,
-    ])
-  base <> ".html#" <> search_result.name
+  helpers.hexdocs_link(
+    package: search_result.package_name,
+    version: search_result.version,
+    module: search_result.module_name,
+    name: search_result.name,
+  )
 }
diff --git a/apps/frontend/src/frontend/view/body/signature.gleam b/apps/frontend/src/frontend/view/body/signature.gleam
index 8d6805c..d963cd8 100644
--- a/apps/frontend/src/frontend/view/body/signature.gleam
+++ b/apps/frontend/src/frontend/view/body/signature.gleam
@@ -1,6 +1,7 @@
 import data/msg
 import data/search_result
 import data/signature.{type Parameter, type Type, Parameter}
+import frontend/view/body/styles as s
 import frontend/view/helpers
 import frontend/view/types as t
 import gleam/bool
@@ -8,6 +9,7 @@ import gleam/int
 import gleam/list
 import gleam/option.{None, Some}
 import gleam/string
+import lustre/attribute as a
 import lustre/element as el
 import lustre/element/html as h
 
@@ -109,13 +111,29 @@ fn view_type(type_: Type, indent: Int) -> List(el.Element(msg.Msg)) {
         }),
       ]
     }
-    signature.Named(width, name, _package, _module, parameters, _ref) -> {
+    signature.Named(width, name, package, module, parameters, version) -> {
       let inline = width + indent <= 80
       let is_params = !list.is_empty(parameters)
       list.concat([
         [
           helpers.idt(indent),
-          t.type_(name),
+          case version {
+            None -> t.type_(name)
+            Some(version) ->
+              s.named_type_button(
+                [
+                  a.target("_blank"),
+                  a.rel("noreferrer"),
+                  a.href(helpers.hexdocs_link(
+                    package: package,
+                    version: version,
+                    module: module,
+                    name: name,
+                  )),
+                ],
+                [t.type_(name)],
+              )
+          },
           case is_params {
             True -> h.text("(")
             False -> el.none()
diff --git a/apps/frontend/src/frontend/view/body/styles.gleam b/apps/frontend/src/frontend/view/body/styles.gleam
index 35bd746..b0dec20 100644
--- a/apps/frontend/src/frontend/view/body/styles.gleam
+++ b/apps/frontend/src/frontend/view/body/styles.gleam
@@ -411,3 +411,11 @@ pub fn items_wrapper(attributes, children) {
   |> list.prepend(attributes, _)
   |> element.element("div", _, children)
 }
+
+pub fn named_type_button(attributes, children) {
+  s.class([s.text_decoration("none")])
+  |> s.memo()
+  |> s.to_lustre()
+  |> list.prepend(attributes, _)
+  |> element.element("a", _, children)
+}
diff --git a/apps/frontend/src/frontend/view/helpers.gleam b/apps/frontend/src/frontend/view/helpers.gleam
index 710f4ef..bfcdeb5 100644
--- a/apps/frontend/src/frontend/view/helpers.gleam
+++ b/apps/frontend/src/frontend/view/helpers.gleam
@@ -1,3 +1,4 @@
+import gleam/function
 import gleam/string
 import lustre/element/html as h
 
@@ -8,3 +9,14 @@ pub fn newline() {
 pub fn idt(indent: Int) {
   h.text(string.repeat(" ", indent))
 }
+
+pub fn hexdocs_link(
+  package package: String,
+  version version: String,
+  module module: String,
+  name name: String,
+) {
+  let join = function.flip(string.join)
+  let base = join("/", ["https://hexdocs.pm", package, version, module])
+  base <> ".html#" <> name
+}