From d7f36cc33d86e6704c58c0c72c8fdd70cb28eab1 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Wed, 29 Mar 2023 18:13:46 +0200
Subject: [PATCH] - [GUI] added stream window (list the streams and delete
 them).

---
 data/icons/fmw_page-accept.png               | Bin 0 -> 5384 bytes
 data/icons/fmw_page.png                      | Bin 0 -> 738 bytes
 src/gui/client/certificates-window.lisp      |  23 ++----
 src/gui/client/gui-goodies.lisp              |  10 +++
 src/gui/client/json-rpc-communication.lisp   |   2 +-
 src/gui/client/main-window.lisp              |   1 +
 src/gui/client/menu-command.lisp             |   4 +
 src/gui/client/stream-window.lisp            |  75 +++++++++++++++++++
 src/gui/server/public-api-gemini-stream.lisp |   8 +-
 src/gui/server/public-api.lisp               |   3 +
 src/package.lisp                             |  37 ++++++++-
 tinmop.asd                                   |   1 +
 12 files changed, 145 insertions(+), 19 deletions(-)
 create mode 100644 data/icons/fmw_page-accept.png
 create mode 100644 data/icons/fmw_page.png
 create mode 100644 src/gui/client/stream-window.lisp

diff --git a/data/icons/fmw_page-accept.png b/data/icons/fmw_page-accept.png
new file mode 100644
index 0000000000000000000000000000000000000000..2b39c63e49be214c8b04938dcc9d18a1ffa0f163
GIT binary patch
literal 5384
zcmeHKc~BGS5+4pp1QkSF6t5w8A?Chg!kGX8B8OZeh?8Ujkz6E!0OAu6SrAu_UBOjU
zP*G7)L0xslYeCUf!8}(y5f4^$6+u@-Wx+QIs90~SURm|_KT|cCnf|(e-TmwSy5`FZ
zn(s5((!mk{fYE$kZU}M*4Hw!1`PZbSy+UsFX`zwY5J(5A)Jlm|27}sE6%4{DQV9U0
z+>!@**w%ySy1vz}9t*d=nS6CSx!+?;tX*-QKzD9@q=fg&K<cSqwym^9EneNeK@+O_
z-A`bamqTOlrn22}QrBzs&V?oA^ttPv_4{x(StL`xE6Fcn$3(_e)b?F0C_1&qHMoFI
z->onwIUe&ks5~288GY)&^TeDRBR54ps!^uuJLUN&&9+V%89Z^xB%mKGmjbY7%Q^Fj
z>$YA3=~q|%b^B^&_lTSDLYtQ{ZQcN2k}dV}3gUZteMkpMqHK8)$G6^n^4Zu${=7Ms
z$%PLJD_A$rSU1#!SD?pxR$tk@@<L_omF<rF#6-Jjt1<tY8$KnvEGbDf-u#TUO@#d{
zp1t#n75oa`8dPI{imofMcT6{ZPXKk9ZN~0}-ZR(Pso#b<zFG}zoxrsjXG`v31_#t@
z(p&2ruODYLzjW>GcpPCl(=6RIG3!YVug-&gQ2L~-H_vJBT<3<4hKCk0g>Q<U)?QSW
z`H$&Kl{B1}Jj!!w@T|)J9VdakW^A6h)_J%0+kvu+mL1rprH7kt^|s?j*&kX5@4GtL
z!!kcI3vELBV^_JQRbmu1BtRVR_T+v6>t99Dq+@fIv`4y+o-@7CdH{9mI5mI4_lgk4
zNb^`(pU4i~X<D5lUoq`=@>6p(+bklgF*d>U;Fj%lR@5`}gc}yPee*Wdp`xDy^?^T&
zeb?HRKf!;K*-L)6gH6y{y{bNT;&5-`J3w5u=hbMH3cY6C>}9PFTTir}=wG&@wavOX
zRekU`=wKJpb}3S%y&?qxERj-<gTzW9j7yQLkiG)|wp)q{5+%S|Pzc9K6&y_0@lzO3
zD&}A!r~-mO<psw}ebdzNg0%UeqO=4NQ;czQwPdHT5CA!>g}@ZKOrc?=a4<$(7V>Nm
z<1wI7MVr9EL<)jHFQpm=DL4v_faRq~lSvp?OOUM=OIRUX?;!}}jf08TYE>*eUZ>OH
zbYz@T9fv0}nM^!^geQ@(hz3@Zs?b6yScS&P05OQcg*76zRHc<F6`%nV5-O9l91I3o
z2S3CoR|y0k;T4)877#x0DUb?J#1ZgvIexf>M$1b^K!yVPTMJDnvP<zHutu4r7Qwt^
zSfO<q4j~qOv{xmmWyW;GB0MaE<%p^V@k;#6r4L^a^wGjVL7Y^sGFl;If2OIGN<NYG
zS!{+CV>-hFLCinmey05)ccU_*B@nQ<N>P#_JU*9$G5BYRl_IH_Wqc$siBz%(CSu7#
z1`|u65+JOQK!mX*m`M^sWQZxG2!}!O6&fw15Wxm01RN(ta7c8BDS}}LOQVxSSPD@@
z$3k=w4NE7`nM{$8NG6lW!yp3HQlu*(+3=_gP+|m%$dph-WFi$yrIKh^3PZxcG9VHI
z3)4hmiiAX!h{=OcViC(*sg^@XIi+$a4#uk#aYi2o!dV_cd=7?$BYcts$snx+G2mbV
zq>7}JPYa<^IlMp%8Q3J!=u8HM#-NdjWGb1-_@opLt2Ia`8Ze0j9GPNVF_eXcB!dtO
z8Tu3fFv^i!SYB!v(kj)VN~Mg0F@yvfEI%#_knJRfv=A54!U!mVL}n4lED|l0$Y2rZ
zEDFhmKw=Sw=_|!jN$UU7Hf$b{Jy>#IsRr?%Y7`Cbs0DE1;M?G<OlsUpAZXkaEJ!q%
zf(A;4#l|=htidHwJfw(&k?Aqit{>#mzi9;~0isLjkPr(C35NQKsaPgbH!P7xK>CYD
zV3H}!&(SqXiB<=xVUIY3M}#Y+J&jy}vyFvv{#;uZ4;!k05QZg?v7ZPd4-tkRN*HgL
z86Prc<Nu2jwozf&kU{JQWytVCW+DFLFdX8{Fn0dI-%u_7K@SM@S0`V@?^n9M()C3Q
ze3A0k?)pmC7cuZf%3r(d|3;VPr{ff?K)!->$YJT%{iU0cgO-KR--iqA1hxUCYsXHR
zg-AxKd>3i}z-pY~G66P}O+bVwEnmPxb(lHWpj_PjGLX}>c`cvo5gJ*4xpYPRy08h2
zZXIR4b+_em){U1wodq)m8Y`#5-zK&P%%*5I@`}b)gXlbx^hU$6GND^G!OSWfe1AS%
zw86Pud?WXd0+L#POBKE~r-_#IT+!Rw=h~mx)w=X{>xt`YSfw2WrJ81DTSw~2X8fCi
zQiq<-fa<=zRc#UeoLGS0=ecb>?o6iJPp);g6a0G9lbasZzYL7fbnq_hR>;f)YEhel
z+kOnbe1Az_*KBv^b#{kyZGeJH8&;<cj1x!97@c5W65%KEdegJo$HYy)kkc~5mOLY}
zS`||G`27R=QWn1F#g$9x4lN}m-!4|j)}Oa!>2t0*H0mR_6|a66zqh4+PC%2EnK(f5
zk83Tq<9Y(#RflGrRC|p%=2+S#1Rb_SMQ#q`xaJap2X%CBNSkKsWWKiLPRaKk9`kdX
z{I92|B(A8<$M&<2?5L7by2`Sjg<4kH%~^G2EU3t!R<3HVRtk$V_c`V%EKF+m*aqH)
z-O)!k*k$Oe%mB3AUoE$r@BYdRO4O~f&T4U@zsUr|J1pEQQSL6hz!ll2S6WBiMU^kr
zJES>{wJ^JXH|x&PWnq3eLew@pXOkeVS8{DqYTuQOcM{)60MD3r>VJlx9<$5aUY6@k
zTjM~FC^$koBrHB$mvoQ1`kUovY939q$vo?C`g-b#yxlXJcUXf{!!H0wYZ`Sl#m@Ld
zm+Hnqp`2c5FUY{Gu+smAEf4#lwI=sG#bPW3qS0L81-~LW_PAS{ckn`&w)Bb1+4E)<
z+|-S~nkaLfH0Qd0(u;k~rlv>ziaJ@(n6JiUb>FE?%Kp|A@NDTm=hJg(c0y(U&hHsN
zO{#pkJ|-lfQNJqGExdkw^Op5>)6a9gS0>moe;hN<?e4iB-ukR(y(i3jt#q8#UN}yD
z;{}8z|GM_->wbP+rXqS{BS(|}BpwGpe0Vr}`83DVkAoND!mPycmye@#WRd>*p(C4s
zC6COY#py~c@Mnqcg=P_|C2#5C(CC0TjWab+R?%kF&AY<i{Um$x0q=*XsTh-%EMIy|
zr`e^L*DgRzXKBs+X}j2#`F@NfnF%$pg?R7n8}oX;Z;W*Y1GPBvt?ljJn92jP+=DT0
zwyGjc%<^E{sGxRD0z~XMiLI1e`^KVCA6<Di^FF(LY<7kFjnJ^hCnX~S@N>@{ej91O
z*J|H)t^@uTO=)xYi_Y6~N1mHqb~JvKNc#?m-j+CJ+%;}_a!+{Ep&v+<<=LY)2IgFj
z^Ya)P7v)zKb7K7T7HbEubFmFcqn?`sWnB5vKdY?jB@{m*)@9|+2$}fLlY&c&96G6s
z+&0zk*+ctx@&KvzKDxiAd-8%^++FKA%cEl%dAG#duBkjsA5ZO8t=VyM>7<^%BW6Ld
zJ(e7(z-4p6tR;>5P;U1OqJ3Gzh?xVE^bb7WgW%r%yJp%{9C!QW@Oc}kc}qt8AMduh
z+iabvYd_jy6}NxPj%ywHXwsSV`_ngsaZme%JV(v6C}e<*z=0Z4-Ge46J$=+c@3HeO
zz>5{ikj|owC){)2-m@5$p}*;Pv7*bb_@;`anpe0{h%YXoXH30Exv~+RF`^dejdjRz
hI!!(O@O|xox&PC<vm4E^Bandx@OksO`#hIq{Rdwn2)_UT

literal 0
HcmV?d00001

diff --git a/data/icons/fmw_page.png b/data/icons/fmw_page.png
new file mode 100644
index 0000000000000000000000000000000000000000..464caf278af41f338a5702dde0a1f6171049f1d2
GIT binary patch
literal 738
zcmV<80v-K{P)<h;3K|Lk000e1NJLTq001BW001Be1^@s6b9#F80000PbVXQnQ*UN;
zcVTj606}DLVr3vnZDD6+Qe|Oed2z{QJOBU!gh@m}RCwCNSFvu?KoFf-ua7$gj$8o>
zh!oHesOTsXdQd=c3F!e*BPuA6K!}c#AK(K{m<tln<Qt$xiVzY_A`lSBB~du+WoGTQ
zg3oLFd?q*6$X@Sy_RY-O*)=MqV4NcNHV{!xJ$~KY_Hn-NGqB;oIRc>u!SeSfSFTg@
zk8ND+I6oLAIn;dkMvW>ft6$Z`ea~Y&SpZmN;(a~z9N^W5b-*wxxn8rOfbLgkrU37}
z0QGDUIydLqi^}WlJY86#F5mX8NVL&}-Ju?r!YK=AIL=rUu==eBmrfrc5VP&ZJ+G4$
z31RDS$&e(gu7kO%#|aU;Fj=p``?a4iKXWt}gcX28p&wR_v>KAM2Ja#e-mSSdaUvDO
z006^#hdg6O52FzwC>;V$G!MXZvq9<Df{T=n<=Yq9tq0w1a^*?u`XrB-fLLJZDNWY!
z`Nr%iz`HLY{*XI^Kohes+{@HzkZ$GzV2_FdU<qj8=Z$T6zI0A&n)rc^Z@m}*91eh>
zvFp8ESlisy-p2uma(aHcWzvg<Qs7V?5uq>uV_VrOUXfD#Pltnpa7&2Fv5=X9Y5+jV
z2#7G8RRF-U5f~2u1@T@`xu_Bx*w+I|8V9P7kvK3m0Fp?ci%115%sSLq0n`}4SXMza
zdgbF6UEiyafFikY_IN51Y0H=1<D(5}qzKUDzOr*c+KFSX(J5Gpgo-aU`fi|)-x=#k
z+7=B@?&t1hMFH3s<NyFS+J>*4IaYbqW7|7<045~#4nKN(u+PV*s{R`>{C8m6zmi>h
zPb|dvNxGfnlXV3pAgv_)ApJzTVdhN&a5)HEhyK&v^P6;wv~L5jZ@=Yc-oFA20I^FD
Ux%6!c5C8xG07*qoM6N<$f-<X10ssI2

literal 0
HcmV?d00001

diff --git a/src/gui/client/certificates-window.lisp b/src/gui/client/certificates-window.lisp
index dd8e94b..0f51488 100644
--- a/src/gui/client/certificates-window.lisp
+++ b/src/gui/client/certificates-window.lisp
@@ -2,19 +2,11 @@
 
 (named-readtables:in-readtable nodgui.syntax:nodgui-syntax)
 
-(defclass certificate-frame (gui:frame)
-  ((tree
-    :accessor tree
-    :initform nil
-    :initarg  :tree)
-   (rows
-    :accessor rows
-    :initform '()
-    :initarg  :rows)))
+(defclass certificate-frame (gui-goodies:table-frame) ())
 
 (defun resync-rows (certificate-frame new-rows)
-  (with-accessors ((tree tree)
-                   (rows rows)) certificate-frame
+  (with-accessors ((tree gui-goodies:tree)
+                   (rows gui-goodies:rows)) certificate-frame
     (gui:treeview-delete-all tree)
     (setf rows new-rows)
     (loop for row in rows do
@@ -25,6 +17,7 @@
                                                            (getf row :hash))
                                       :index          gui:+treeview-last-index+)))
         (gui:treeview-insert-item tree :item tree-row))))
+  (gui:treeview-refit-columns-width (gui-goodies:tree certificate-frame))
   certificate-frame)
 
 (defun all-rows ()
@@ -32,9 +25,9 @@
                                         1
                                         ev:+standard-event-priority+))
 
-(defmethod initialize-instance :after ((object certificate-frame) &key)
-  (with-accessors ((tree tree)
-                   (rows rows)) object
+(defmethod initialize-instance :after ((object certificate-frame) &key &allow-other-keys)
+  (with-accessors ((tree gui-goodies:tree)
+                   (rows gui-goodies:rows)) object
     (let ((new-rows (all-rows))
           (treeview (make-instance 'gui:scrolled-treeview
                                    :master  object
@@ -49,7 +42,7 @@
 
 (defun delete-certificates-clsr (certificate-frame)
   (lambda ()
-    (a:when-let* ((selections (gui:treeview-get-selection (tree certificate-frame))))
+    (a:when-let* ((selections (gui:treeview-get-selection (gui-goodies:tree certificate-frame))))
       (loop for selection in selections do
         (let ((url (gui:id selection)))
           (ev:with-enqueued-process-and-unblock ()
diff --git a/src/gui/client/gui-goodies.lisp b/src/gui/client/gui-goodies.lisp
index 46acaa5..aabb40c 100644
--- a/src/gui/client/gui-goodies.lisp
+++ b/src/gui/client/gui-goodies.lisp
@@ -117,3 +117,13 @@
         (gui:grid widget    1 0 :sticky :news)
         (gui:grid ok-button 1 1 :sticky :news)))
     res))
+
+(defclass table-frame (gui:frame)
+  ((tree
+    :accessor tree
+    :initform nil
+    :initarg  :tree)
+   (rows
+    :accessor rows
+    :initform '()
+    :initarg  :rows)))
diff --git a/src/gui/client/json-rpc-communication.lisp b/src/gui/client/json-rpc-communication.lisp
index 58299c5..e9f17b4 100644
--- a/src/gui/client/json-rpc-communication.lisp
+++ b/src/gui/client/json-rpc-communication.lisp
@@ -95,7 +95,7 @@
 
 (defun start-client ()
   (with-output-to-string (stream)
-    (let ((process  (os-utils:run-external-program "/home/cage/lisp/tinmop/tinmop" ;+program-name+
+    (let ((process  (os-utils:run-external-program +program-name+
                                                    (list (format nil
                                                                  "-~a"
                                                                  command-line:+start-server-command-line+))
diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp
index bfd70a9..9e02c03 100644
--- a/src/gui/client/main-window.lisp
+++ b/src/gui/client/main-window.lisp
@@ -198,6 +198,7 @@
            (tools      (gui:make-menu bar (_ "Tools") :underline 0))
            (help       (gui:make-menu bar (_ "Help")  :underline 0)))
       (gui:make-menubutton tools (_ "Certificates") #'menu:show-certificates :underline 0)
+      (gui:make-menubutton tools (_ "Streams")      #'menu:show-streams :underline 0)
       (gui:make-menubutton file  (_ "Quit")  #'menu:quit       :underline 0)
       (gui:make-menubutton help  (_ "About") #'menu:help-about :underline 0))))
 
diff --git a/src/gui/client/menu-command.lisp b/src/gui/client/menu-command.lisp
index 3f315bb..f3ca46c 100644
--- a/src/gui/client/menu-command.lisp
+++ b/src/gui/client/menu-command.lisp
@@ -20,3 +20,7 @@
 (defun show-certificates ()
   (let ((master gui-goodies:*toplevel*))
     (client-certificates-window:init-window master)))
+
+(defun show-streams ()
+  (let ((master gui-goodies:*toplevel*))
+    (client-stream-window:init-window master)))
diff --git a/src/gui/client/stream-window.lisp b/src/gui/client/stream-window.lisp
new file mode 100644
index 0000000..e83ee71
--- /dev/null
+++ b/src/gui/client/stream-window.lisp
@@ -0,0 +1,75 @@
+(in-package :client-stream-window)
+
+(named-readtables:in-readtable nodgui.syntax:nodgui-syntax)
+
+(defclass stream-frame (gui-goodies:table-frame) ())
+
+(defun resync-rows (stream-frame new-rows)
+  (with-accessors ((tree gui-goodies:tree)
+                   (rows gui-goodies:rows)) stream-frame
+    (gui:treeview-delete-all tree)
+    (setf rows new-rows)
+    (loop for row in rows do
+      (let* ((iri                   (getf row :download-iri))
+             (stream-client-wrapper (client-main-window:find-db-stream-url iri))
+             (stream-status         (to-s (client-main-window::status stream-client-wrapper)))
+             (tree-row              (make-instance 'gui:tree-item
+                                                   :id    iri
+                                                   :text  iri
+                                                   :column-values
+                                                   (list stream-status
+                                                         (to-s (getf row :octet-count)))
+                                                   :index gui:+treeview-last-index+)))
+        (gui:treeview-insert-item tree :item tree-row)))
+    (gui:treeview-refit-columns-width (gui-goodies:tree stream-frame))
+  stream-frame))
+
+(defun all-rows ()
+  (cev:enqueue-request-and-wait-results :gemini-all-stream-info
+                                        1
+                                        ev:+standard-event-priority+))
+
+(defmethod initialize-instance :after ((object stream-frame) &key &allow-other-keys)
+  (with-accessors ((tree gui-goodies:tree)
+                   (rows gui-goodies:rows)) object
+    (let ((new-rows (all-rows))
+          (treeview (make-instance 'gui:scrolled-treeview
+                                    :master  object
+                                    :pack    '(:side :top :expand t :fill :both)
+                                    :columns (list (_ "Status")
+                                                   (_ "Number of octets downloaded")))))
+      (setf tree treeview)
+      (gui:treeview-heading tree  gui:+treeview-first-column-id+
+                            :text (_ "Address"))
+      (resync-rows object new-rows)
+      object)))
+
+(defun delete-stream-clsr (stream-frame)
+  (lambda ()
+    (a:when-let* ((selections (gui:treeview-get-selection (gui-goodies:tree stream-frame))))
+      (loop for selection in selections do
+        (let* ((url                   (gui:id selection))
+               (stream-client-wrapper (client-main-window::find-db-stream-url url)))
+          (when (eq (client-main-window:status stream-client-wrapper)
+                    client-main-window:+stream-status-streaming+)
+              (ev:with-enqueued-process-and-unblock ()
+                (client-main-window:stop-steaming-stream-thread)))
+          (ev:with-enqueued-process-and-unblock ()
+            (client-main-window:remove-db-stream stream-client-wrapper)
+            (comm:make-request :gemini-remove-stream 1 url))
+          (let ((new-rows (all-rows)))
+            (resync-rows stream-frame new-rows)))))))
+
+(defun init-window (master)
+  (gui:with-modal-toplevel (toplevel :master master :title (_ "Streams"))
+    (gui:transient toplevel master)
+    (let* ((table         (make-instance 'stream-frame :master toplevel))
+           (buttons-frame (make-instance 'gui:frame :master toplevel))
+           (delete-button (make-instance 'gui:button
+                                         :master  buttons-frame
+                                         :image   icons:*document-delete*
+                                         :command (delete-stream-clsr table))))
+      (gui-goodies:attach-tooltips (delete-button (_ "delete selected stream")))
+      (gui:grid table         0 0 :sticky :nwe)
+      (gui:grid buttons-frame 1 0 :sticky :s)
+      (gui:grid delete-button 0 0 :sticky :s))))
diff --git a/src/gui/server/public-api-gemini-stream.lisp b/src/gui/server/public-api-gemini-stream.lisp
index 41132a1..77d2748 100644
--- a/src/gui/server/public-api-gemini-stream.lisp
+++ b/src/gui/server/public-api-gemini-stream.lisp
@@ -312,7 +312,7 @@
                                       (cons "download-iri"            download-iri)
                                       (cons "start-time"              actual-start-time)
                                       (cons "support-file"            support-file)
-                                      (cons "octect-count"            octect-count)
+                                      (cons "octet-count"             octect-count)
                                       (cons "port"                    port)
                                       (cons "status-code"             status-code)
                                       (cons "status-code-description" status-code-description)
@@ -397,6 +397,12 @@
         stream-wrapper
         (make-no-such-stream-error iri))))
 
+(defun gemini-remove-stream (iri)
+  (let ((stream-wrapper (gw:find-db-stream-url iri)))
+    (if stream-wrapper
+        (gw:remove-db-stream stream-wrapper)
+        (make-no-such-stream-error iri))))
+
 (defun gemini-all-stream-info ()
   gw:*gemini-streams-db*)
 
diff --git a/src/gui/server/public-api.lisp b/src/gui/server/public-api.lisp
index 1cd5675..9e03f0a 100644
--- a/src/gui/server/public-api.lisp
+++ b/src/gui/server/public-api.lisp
@@ -60,6 +60,9 @@
      (gen-rpc "gemini-stream-status"
               'gemini-stream-status
               "iri" 0)
+     (gen-rpc "gemini-remove-stream"
+              'gemini-remove-stream
+              "iri" 0)
      (gen-rpc "gemini-stream-completed-p"
               'gemini-stream-completed-p
               "iri" 0)
diff --git a/src/package.lisp b/src/package.lisp
index 175107b..872d868 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -3368,7 +3368,10 @@
    :attach-tooltip
    :attach-tooltips
    :with-busy*
-   :password-dialog))
+   :password-dialog
+   :table-frame
+   :tree
+   :rows))
 
 (defpackage :client-menu-command
   (:use
@@ -3389,7 +3392,8 @@
   (:export
    :help-about
    :quit
-   :show-certificates))
+   :show-certificates
+   :show-streams))
 
 (defpackage :client-certificates-window
   (:use
@@ -3407,6 +3411,29 @@
                     (:gui-mw     :nodgui.mw)
                     (:gui-shapes :nodgui.shapes)
                     (:menu       :client-menu-command))
+  (:export
+   :certificate-frame
+   :tree
+   :rows
+   :init-window))
+
+(defpackage :client-stream-window
+  (:use
+   :cl
+   :config
+   :constants
+   :text-utils
+   :misc-utils)
+  (:local-nicknames (:cert-win   :client-certificates-window)
+                    (:comm       :json-rpc-communication)
+                    (:re         :cl-ppcre)
+                    (:a          :alexandria)
+                    (:ev         :program-events)
+                    (:cev        :client-events)
+                    (:gui        :nodgui)
+                    (:gui-mw     :nodgui.mw)
+                    (:gui-shapes :nodgui.shapes)
+                    (:menu       :client-menu-command))
   (:export
    :init-window))
 
@@ -3427,6 +3454,12 @@
                     (:gui-shapes :nodgui.shapes)
                     (:menu       :client-menu-command))
   (:export
+   :status
+   :+stream-status-streaming+
+   :stop-stream-thread
+   :stop-steaming-stream-thread
+   :remove-db-stream
+   :find-db-stream-url
    :open-local-path
    :init-main-window))
 
diff --git a/tinmop.asd b/tinmop.asd
index 1b18b47..d054bd4 100644
--- a/tinmop.asd
+++ b/tinmop.asd
@@ -166,6 +166,7 @@
                              (:file "validation")
                              (:file "icons")
                              (:file "certificates-window")
+                             (:file "stream-window")
                              (:file "menu-command")
                              (:file "main-window")))
                (:file "main")