Add external link button on story view

Author: ranfdev

src/main/lobjur/main.cljs

@@ -23,6 +23,8 @@
       (.add_child v)
       (.set_visible_child v))
     (-> s
+        (assoc :header-start nil)
+        (assoc :header-end nil)
         (assoc :prev-state s)
         (assoc :curr-view v))))
 (defn push-titled-view [s view title]
@@ -52,7 +54,13 @@
                              (stories-list-view (partial lobster/domain-stories payload))
                              payload)
            :push-story
-           (push-titled-view state (comments/comments-view payload) "Comments")
+           (-> state
+               (push-titled-view (comments/comments-view payload) "Comments")
+               (assoc :header-end
+                      [Gtk/LinkButton
+                       :uri (lobster/rel "s/" (:short_id payload))
+                       :icon-name "web-browser-symbolic"
+                       :css_classes #js ["image-button"]]))
            :push-tagged-stories
            (push-titled-view state
                              (stories-list-view (partial lobster/tagged payload))
@@ -66,7 +74,9 @@
                  (assoc :prev-state (get-in state [:prev-state :prev-state]))
                  (assoc :curr-view (:curr-view (:prev-state state)))
                  (assoc :title-widget (:title-widget (:prev-state state)))
-                 (assoc :header-start (if (get-in state [:prev-state :prev-state]) back-btn nil)))))
+                 (assoc :header-start (get-in state [:prev-state :header-start]))
+                 (assoc :header-end (get-in state [:prev-state :header-end])))))
+
          (f action)))))
 (state/add-transducer app-transducer)
 

src/main/lobjur/widgets/window.cljs

@@ -7,11 +7,16 @@
 
 (declare header-bar)
 (defc header-bar []
-  (let [header-start (derived-atom [state/state] :header-start #(get % :header-start nil))]
-    [Adw/HeaderBar
-     :.pack_start [Adw/Bin :child header-start]
-     :title_widget (derived-atom
-                    [state/state] :title-widget #(get % :title-widget nil))]))
+
+  [Adw/HeaderBar
+   :.pack_start [Adw/Bin :child
+                 (derived-atom [state/state]
+                               :header-start #(get % :header-start nil))]
+   :.pack_end [Adw/Bin :child
+                 (derived-atom [state/state]
+                               :header-end #(get % :header-end nil))]
+   :title_widget (derived-atom
+                  [state/state] :title-widget #(get % :title-widget nil))])
 
 (defn window-content []
   [Gtk/Box