- [GUI] printed information when streaming is started or finished;

- [GUI] increased width of bookmark window.

src/gemini/client.lisp

@@ -436,8 +436,10 @@
                                :fragment (percent-encode-fragment fragment)))
          (ctx (cl+ssl:make-context :verify-mode cl+ssl:+ssl-verify-none+)))
     (cl+ssl:with-global-context (ctx :auto-free-p t)
-      (let* ((socket       (open-tls-socket host port))
+      (let ((socket       (open-tls-socket host port)))
-             (stream       (usocket:socket-stream socket))
+        (when hooks:*after-gemini-socket*
+          (hooks:run-hooks 'hooks:*after-gemini-socket*))
+        (let* ((stream       (usocket:socket-stream socket))
                (ssl-hostname (if (or (iri:ipv4-address-p host)
                                      (iri:ipv6-address-p host))
                                  nil
@@ -457,9 +459,12 @@
               (progn
                 (write-sequence (string->octets request) ssl-stream)
                 (force-output ssl-stream)
+                (misc:dbg "client hook ~a" hooks:*after-gemini-request-sent*)
+                (when hooks:*after-gemini-request-sent*
+                  (hooks:run-hooks 'hooks:*after-gemini-request-sent*))
                 (multiple-value-bind (status description meta response)
                     (parse-response ssl-stream)
-                (values status description meta response socket))))))))
+                  (values status description meta response socket)))))))))
 
 (defun missing-dispath-function (status code-description meta response socket iri parsed-iri)
   (declare (ignore response socket parsed-iri))

src/gui/client/bookmark-window.lisp

@@ -27,12 +27,31 @@
                                   (description-text nil))
   (gui:with-toplevel (toplevel :master master :title (_ "Streams"))
     (gui:transient toplevel master)
-    (let* ((iri-label         (make-instance 'gui:label :master toplevel :text (_ "Address")))
+    (let* ((entries-width     (gui-goodies:quite-good-dialog-width))
-           (section-label     (make-instance 'gui:label :master toplevel :text (_ "Section")))
+           (iri-label         (make-instance 'gui:label
-           (description-label (make-instance 'gui:label :master toplevel :text (_ "Description")))
+                                             :width entries-width
-           (iri-entry         (make-instance 'gui:entry :master toplevel :text iri))
+                                             :master toplevel
-           (section-entry     (make-instance 'gui:entry :master toplevel :text section-text))
+                                             :text (_ "Address")))
-           (description-entry (make-instance 'gui:entry :master toplevel :text description-text))
+           (section-label     (make-instance 'gui:label
+                                             :width entries-width
+                                             :master toplevel
+                                             :text (_ "Section")))
+           (description-label (make-instance 'gui:label
+                                             :width entries-width
+                                             :master toplevel
+                                             :text (_ "Description")))
+           (iri-entry         (make-instance 'gui:entry
+                                             :width entries-width
+                                             :master toplevel
+                                             :text iri))
+           (section-entry     (make-instance 'gui:entry
+                                             :width entries-width
+                                             :master toplevel
+                                             :text section-text))
+           (description-entry (make-instance 'gui:entry
+                                             :width entries-width
+                                             :master toplevel
+                                             :text description-text))
            (buttons-frame     (make-instance 'gui:frame :master toplevel))
            (add-button        (make-instance 'gui:button
                                              :master  buttons-frame
@@ -117,8 +136,7 @@
                                          :command (update-bookmark-clsr toplevel
                                                                         searchbox
                                                                         bookmarks))))
-      (let ((searchbox-width (truncate (min (/ (gui:screen-width) 2
+      (let ((searchbox-width (gui-goodies:quite-good-dialog-width)))
-                                               (gui:font-measure gui:+tk-text-font+ "0"))))))
         (gui:configure (gui:listbox searchbox) :width searchbox-width))
       (gui:grid searchbox     0 0 :padx (* 2 +minimum-padding+) :pady (* 2 +minimum-padding+))
       (gui:grid delete-button 0 0 :sticky :s)

src/gui/client/gui-goodies.lisp

@@ -127,3 +127,9 @@
     :accessor rows
     :initform '()
     :initarg  :rows)))
+
+(defun quite-good-dialog-width (&optional (chars-unit t))
+  (if chars-unit
+      (truncate (min (/ (gui:screen-width) 2
+                        (gui:font-measure gui:+tk-text-font+ "0"))))
+      (truncate (/ (gui:screen-width) 2))))

src/gui/client/main-window.lisp

@@ -154,6 +154,7 @@
                                     next-start-fetching))))))))
     (loop-fetch)
     (ev:with-enqueued-process-and-unblock ()
+      (print-info-message (_ "Stream finished"))
       (render-toc main-window iri))
     (if (cev:enqueue-request-and-wait-results :gemini-bookmarked-p
                                                 1
@@ -181,6 +182,7 @@
         (push-db-stream stream-wrapper))
       (flet ((aborting-function ()
                (eq (status stream-wrapper) +stream-status-canceled+)))
+        (print-info-message (_ "Stream started"))
         (let ((stream-thread (bt:make-thread (lambda ()
                                                (slurp-gemini-stream main-window
                                                                     iri

src/gui/client/tour-window.lisp

@@ -33,8 +33,7 @@
                                    :pack    '(:side :top :expand t :fill :both)
                                    :columns (list (_ "Description")))))
       (setf tree treeview)
-      (gui:treeview-heading tree  gui:+treeview-first-column-id+
+      (gui:treeview-heading tree  gui:+treeview-first-column-id+ :text (_ "Address"))
-                            :text (_ "Address"))
       (resync-rows object new-rows)
       object)))
 

src/hooks.lisp

@@ -127,3 +127,9 @@ open the links")
 
 (defparameter *after-delete-char-from-command-window* '()
   "Run this hooks after deleting a character from the input of the command-window.")
+
+(defparameter *after-gemini-socket* '()
+  "Run these hooks after a gemini socket has been estabilshed")
+
+(defparameter *after-gemini-request-sent* '()
+  "Run these hooks after a gemini request has been sent")

src/package.lisp

@@ -1856,7 +1856,9 @@
    :*before-displaying-links-hook*
    :*after-char-to-command-window*
    :*before-fire-string-event-command-window*
-   :*after-delete-char-from-command-window*))
+   :*after-delete-char-from-command-window*
+   :*after-gemini-socket*
+   :*after-gemini-request-sent*))
 
 (defpackage :keybindings
   (:use
@@ -3389,7 +3391,8 @@
    :password-dialog
    :table-frame
    :tree
-   :rows))
+   :rows
+   :quite-good-dialog-width))
 
 (defpackage :client-menu-command
   (:use