Adds og meta tags for sessions

src/co/gaiwan/compass/html/sessions.clj

@@ -3,6 +3,7 @@
   {:ornament/prefix "sessions-"}
   (:require
    [clojure.string :as str]
+   [co.gaiwan.compass.config :as config]
    [co.gaiwan.compass.css.tokens :as t :refer :all]
    [co.gaiwan.compass.db.queries :as q]
    [co.gaiwan.compass.html.components :as c]
@@ -318,6 +319,16 @@
      #_[:p (pr-str user)]
      #_[:p (pr-str session)]]]))
 
+(defn session-metas [{:session/keys [title description image]
+                      :as session :or {description ""}}]
+  [:<>
+   [:meta {:property "og:url" :content (url-for :session/card {:id (:db/id session)})}]
+   [:meta {:property "og:title" :content title}]
+   [:meta {:property "og:description" :content (subs description 0
+                                                     ;; max 200 chars for twitter
+                                                     (min (count description) 200))}]
+   [:meta {:property "og:image" :content (str (config/value :compass/origin) "/uploads/" image)}]])
+
 (o/defstyled session-list :section#sessions
   [:.sessions
    :grid :gap-3

src/co/gaiwan/compass/routes/sessions.clj

@@ -36,10 +36,13 @@
                  (q/all-session-types)]}))
 
 (defn GET-session [req]
-  (let [session-eid (parse-long (get-in req [:path-params :id]))]
+  (let [session-eid (parse-long (get-in req [:path-params :id]))
+        session (q/session session-eid)]
     {:html/body [session-html/session-detail
-                 (q/session session-eid)
-                 (:identity req)]}))
+                 session
+                 (:identity req)]
+     :html/head [session-html/session-metas
+                 session ]}))
 
 (defn GET-session-card [req]
   (let [session-eid (parse-long (get-in req [:path-params :id]))]