- [gemini] prevent gemlog window to lose focus when a gemlog is selected.

- made gemlog window close when focus passes to thread window.

po/it.po

@@ -8,8 +8,8 @@ msgid ""
 msgstr ""
 "Project-Id-Version: tinmop 0.0.1\n"
 "Report-Msgid-Bugs-To: https://notabug.org/cage/tinmop/\n"
-"POT-Creation-Date: 2021-01-10 13:02+0100\n"
+"POT-Creation-Date: 2021-01-11 19:02+0100\n"
-"PO-Revision-Date: 2021-01-10 13:04+0100\n"
+"PO-Revision-Date: 2021-01-11 19:02+0100\n"
 "Last-Translator: cage <cage@invalid.org>\n"
 "Language-Team: Italian\n"
 "Language: it\n"
@@ -307,7 +307,7 @@ msgid "Quick help"
 msgstr "Aiuto rapido"
 
 #: src/keybindings.lisp:542 src/line-oriented-window.lisp:261
-#: src/open-message-link-window.lisp:106 src/open-message-link-window.lisp:193
+#: src/open-message-link-window.lisp:108 src/open-message-link-window.lisp:195
 #: src/program-events.lisp:441
 msgid "Invalid regular expression"
 msgstr "Espressione regolare non valida"
@@ -432,11 +432,11 @@ msgid_plural "~a pending"
 msgstr[0] "~a in attesa"
 msgstr[1] "Altre ~a in attesa"
 
-#: src/open-message-link-window.lisp:60 src/open-message-link-window.lisp:201
+#: src/open-message-link-window.lisp:60 src/open-message-link-window.lisp:203
 msgid "Links"
 msgstr "Links"
 
-#: src/open-message-link-window.lisp:264
+#: src/open-message-link-window.lisp:266
 msgid "Chat attachments"
 msgstr "Allegati alla chat"
 
@@ -485,7 +485,7 @@ msgstr "Nessun sottotitolo"
 #: src/program-events.lisp:1205
 #, lisp-format
 msgid "~a ~:[(not opened)~;(opened)~]~%"
-msgstr "~a ~:[(aperto)~;(non aperto)~]~%\""
+msgstr "~a ~:[(non aperto)~;(aperto)~]~%"
 
 #: src/program-events.lisp:1330
 msgid "no label"
@@ -1052,29 +1052,29 @@ msgstr "Chat ~a con ~a creata"
 msgid "Type the user to chat with: "
 msgstr "Digita l'utente con cui vuoi iniziare una chat: "
 
-#: src/ui-goodies.lisp:1783
+#: src/ui-goodies.lisp:1776
-msgid "This is not a valid gemini address"
-msgstr "Questo non è un indirizzo gemini valido"
-
-#: src/ui-goodies.lisp:1784
 msgid "Open Gemini url: "
 msgstr "Apri un indirizzo gemini: "
 
-#: src/ui-goodies.lisp:1870
+#: src/ui-goodies.lisp:1788
+msgid "This is not a valid gemini address"
+msgstr "Questo non è un indirizzo gemini valido"
+
+#: src/ui-goodies.lisp:1875
 #, lisp-format
 msgid "Subscribing to ~s"
 msgstr "Abbonati a ~s: "
 
-#: src/ui-goodies.lisp:1883 src/ui-goodies.lisp:1896
+#: src/ui-goodies.lisp:1888 src/ui-goodies.lisp:1901
 #, lisp-format
 msgid "Command ~s completed"
 msgstr "Comando ~s completato"
 
-#: src/ui-goodies.lisp:1885
+#: src/ui-goodies.lisp:1890
 msgid "Send to command: "
 msgstr "Manda al comando: "
 
-#: src/ui-goodies.lisp:1898
+#: src/ui-goodies.lisp:1903
 msgid "Send message to command: "
 msgstr "Manda il messaggio al comando: "
 

po/tinmop.pot

@@ -6,9 +6,9 @@
 #, fuzzy
 msgid ""
 msgstr ""
-"Project-Id-Version: tinmop 0.4.2\n"
+"Project-Id-Version: tinmop 0.5.0\n"
 "Report-Msgid-Bugs-To: https://notabug.org/cage/tinmop/\n"
-"POT-Creation-Date: 2021-01-10 13:02+0100\n"
+"POT-Creation-Date: 2021-01-11 19:02+0100\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
@@ -298,7 +298,7 @@ msgid "Quick help"
 msgstr ""
 
 #: src/keybindings.lisp:542 src/line-oriented-window.lisp:261
-#: src/open-message-link-window.lisp:106 src/open-message-link-window.lisp:193
+#: src/open-message-link-window.lisp:108 src/open-message-link-window.lisp:195
 #: src/program-events.lisp:441
 msgid "Invalid regular expression"
 msgstr ""
@@ -421,11 +421,11 @@ msgid_plural "~a pending"
 msgstr[0] ""
 msgstr[1] ""
 
-#: src/open-message-link-window.lisp:60 src/open-message-link-window.lisp:201
+#: src/open-message-link-window.lisp:60 src/open-message-link-window.lisp:203
 msgid "Links"
 msgstr ""
 
-#: src/open-message-link-window.lisp:264
+#: src/open-message-link-window.lisp:266
 msgid "Chat attachments"
 msgstr ""
 
@@ -1035,29 +1035,29 @@ msgstr ""
 msgid "Type the user to chat with: "
 msgstr ""
 
-#: src/ui-goodies.lisp:1783
+#: src/ui-goodies.lisp:1776
-msgid "This is not a valid gemini address"
-msgstr ""
-
-#: src/ui-goodies.lisp:1784
 msgid "Open Gemini url: "
 msgstr ""
 
-#: src/ui-goodies.lisp:1870
+#: src/ui-goodies.lisp:1788
+msgid "This is not a valid gemini address"
+msgstr ""
+
+#: src/ui-goodies.lisp:1875
 #, lisp-format
 msgid "Subscribing to ~s"
 msgstr ""
 
-#: src/ui-goodies.lisp:1883 src/ui-goodies.lisp:1896
+#: src/ui-goodies.lisp:1888 src/ui-goodies.lisp:1901
 #, lisp-format
 msgid "Command ~s completed"
 msgstr ""
 
-#: src/ui-goodies.lisp:1885
+#: src/ui-goodies.lisp:1890
 msgid "Send to command: "
 msgstr ""
 
-#: src/ui-goodies.lisp:1898
+#: src/ui-goodies.lisp:1903
 msgid "Send message to command: "
 msgstr ""
 

src/open-message-link-window.lisp

@@ -76,6 +76,8 @@
         (let ((program-events:*process-events-immediately* t)
               (event (make-instance 'program-events:gemini-push-behind-downloading-event
                                     :priority program-events:+maximum-event-priority+)))
+          (db:insert-in-history (ui:gemini-open-url-prompt) url)
+          (db:gemlog-mark-as-seen url)
           (gemini-viewer:ensure-just-one-stream-rendering)
           (program-events:push-event event))
         (gemini-viewer:request url :enqueue enqueue

src/package.lisp

@@ -2371,6 +2371,7 @@
    :chat-create-new
    :chat-list-go-up
    :chat-list-go-down
+   :gemini-open-url-prompt
    :open-gemini-address
    :gemini-history-back
    :gemini-view-source

src/program-events.lisp

@@ -1200,7 +1200,7 @@
                                    (title (text-utils:strcat (format-time encoded-date date-format)
                                                              " "
                                                              (db:row-post-title entry)))
-                                   (seenp (db:row-post-seenp entry)))
+                                   (seenp (db-utils:db-not-nil-p (db:row-post-seenp entry))))
                               (format stream
                                       (_ "~a ~:[(not opened)~;(opened)~]~%")
                                       (gemini-parser:make-gemini-link link

src/ui-goodies.lisp

@@ -400,7 +400,9 @@ Metadata includes:
               *message-window*
               *follow-requests-window*)
   (when-window-shown (*chats-list-window*)
-    (close-chats-list-window)))
+    (close-chats-list-window))
+  (when-window-shown (*gemini-subscription-window*)
+    (close-gemlog-window)))
 
 (gen-focus-to-window message-window
                      *message-window*
@@ -1264,8 +1266,7 @@ certificate).
                                           :title      (db:row-title fields)
                                           :subtitle   (db:row-subtitle fields)
                                           :entries    entries)))
-      (program-events:push-event event)
+      (program-events:push-event event))))
-      (focus-to-message-window))))
 
 (defun gemlog-refresh-all ()
   (with-blocking-notify-procedure ((_ "updating gemlog's subscriptions"))
@@ -1770,6 +1771,11 @@ mot recent updated to least recent"
 
 ;;;; gemini
 
+(defun gemini-open-url-prompt ()
+  "This is used when oppening gemini link too, see:
+open-message-link-window:open-message-link"
+  (_ "Open Gemini url: "))
+
 (defun open-gemini-address ()
   "Ask for a gemini address and try to load it"
   (flet ((on-input-complete (url)
@@ -1781,7 +1787,7 @@ mot recent updated to least recent"
                                             :url                       url)))
                  (program-events:push-event event))
                (error-message (_ "This is not a valid gemini address")))))
-    (let ((prompt (_ "Open Gemini url: ")))
+    (let ((prompt (gemini-open-url-prompt)))
       (ask-string-input #'on-input-complete
                         :prompt      prompt
                         :complete-fn (complete:make-complete-gemini-iri-fn prompt)))))