- prevented crash when exceeding the character limit in a post.

- updated italian translations.
- fixed line wrapping of announcements window.
2024-03-31 18:53:23 +02:00 · 2024-03-31 13:58:53 +02:00 · 2024-03-31 13:56:20 +02:00 · 2024-03-31 12:59:09 +02:00 · 2024-03-31 11:19:27 +02:00
9 changed files with 63 additions and 30 deletions
--- a/etc/init.lisp
+++ b/etc/init.lisp
@ -151,7 +151,7 @@

 (define-key ">"         #'open-net-address)

-(define-key "S a"       #'switch-fediverse-account)
+(define-key "@"         #'switch-fediverse-account)

 (define-key "?"         #'print-quick-help)

--- a/po/de.po
+++ b/po/de.po
@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: tinmop 0.9.9.1414\n"
 "Report-Msgid-Bugs-To: https://codeberg.org/cage/tinmop/\n"
-"POT-Creation-Date: 2024-03-30 20:28+0100\n"
+"POT-Creation-Date: 2024-03-31 13:56+0200\n"
 "PO-Revision-Date: 2024-02-25 17:23+0000\n"
 "Last-Translator: pabloscloud <pabloscloud@users.noreply.translate.codeberg."
 "org>\n"
@ -1432,7 +1432,7 @@ msgstr ""
 msgid "Deleting: ~a"
 msgstr ""

-#: src/program-events.lisp:1911
+#: src/program-events.lisp:1918
 msgid "Announcements "
 msgstr ""

@ -1458,6 +1458,10 @@ msgstr ""
 msgid "Removed"
 msgstr ""

+#: src/scheduled-events.lisp:71
+msgid "Looking for announcements…"
+msgstr ""
+
 #: src/sending-message.lisp:123
 msgid "none"
 msgstr ""
--- a/po/es.po
+++ b/po/es.po
@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: tinmop 0.9.9.1414\n"
 "Report-Msgid-Bugs-To: https://codeberg.org/cage/tinmop/\n"
-"POT-Creation-Date: 2024-03-30 20:28+0100\n"
+"POT-Creation-Date: 2024-03-31 13:56+0200\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: Automatically generated\n"
 "Language-Team: none\n"
@ -1431,7 +1431,7 @@ msgstr "No hay ninguna mención"
 msgid "Deleting: ~a"
 msgstr ""

-#: src/program-events.lisp:1911
+#: src/program-events.lisp:1918
 msgid "Announcements "
 msgstr ""

@ -1457,6 +1457,10 @@ msgstr ""
 msgid "Removed"
 msgstr ""

+#: src/scheduled-events.lisp:71
+msgid "Looking for announcements…"
+msgstr ""
+
 #: src/sending-message.lisp:123
 msgid "none"
 msgstr ""
--- a/po/fr.po
+++ b/po/fr.po
@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: tinmop 0.9.9.1414\n"
 "Report-Msgid-Bugs-To: https://codeberg.org/cage/tinmop/\n"
-"POT-Creation-Date: 2024-03-30 20:28+0100\n"
+"POT-Creation-Date: 2024-03-31 13:56+0200\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: Automatically generated\n"
 "Language-Team: none\n"
@ -1436,7 +1436,7 @@ msgstr ""
 msgid "Deleting: ~a"
 msgstr ""

-#: src/program-events.lisp:1911
+#: src/program-events.lisp:1918
 msgid "Announcements "
 msgstr ""

@ -1462,6 +1462,10 @@ msgstr ""
 msgid "Removed"
 msgstr ""

+#: src/scheduled-events.lisp:71
+msgid "Looking for announcements…"
+msgstr ""
+
 #: src/sending-message.lisp:123
 msgid "none"
 msgstr ""
--- a/po/it.po
+++ b/po/it.po
@ -8,8 +8,8 @@ msgid ""
 msgstr ""
 "Project-Id-Version: tinmop 0.0.1\n"
 "Report-Msgid-Bugs-To: https://codeberg.org/cage/tinmop/\n"
-"POT-Creation-Date: 2024-03-30 20:28+0100\n"
-"PO-Revision-Date: 2024-03-30 20:32+0100\n"
+"POT-Creation-Date: 2024-03-31 13:56+0200\n"
+"PO-Revision-Date: 2024-03-31 13:58+0200\n"
 "Last-Translator: cage <cage-dev@twistfold.it>\n"
 "Language-Team: Italian <https://translate.codeberg.org/projects/tinmop/"
 "tinmop/it/>\n"
@ -1167,7 +1167,7 @@ msgid "Loading configuration file ~a~%"
 msgstr "Carico il file di configurazione: ~a~%"

 #: src/main.lisp:135
-#, fuzzy, lisp-format
+#, lisp-format
 msgid ""
 "Configuration error~%~a~%Tinmop will create  an empty file for you in ~a (if "
 "such file does not exists). This file will be enough to use the program as a "
@ -1454,7 +1454,7 @@ msgstr "Nessuna menzione"
 msgid "Deleting: ~a"
 msgstr "cancello: ~a"

-#: src/program-events.lisp:1911
+#: src/program-events.lisp:1918
 msgid "Announcements "
 msgstr "Annunci "

@ -1480,6 +1480,10 @@ msgstr "Rimozione vecchi post dei gemlog…"
 msgid "Removed"
 msgstr "Rimossi"

+#: src/scheduled-events.lisp:71
+msgid "Looking for announcements…"
+msgstr "Controllo gli annunci…"
+
 #: src/sending-message.lisp:123
 msgid "none"
 msgstr "nessuno"
--- a/po/pl.po
+++ b/po/pl.po
@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: tinmop 0.9.9.1414\n"
 "Report-Msgid-Bugs-To: https://codeberg.org/cage/tinmop/\n"
-"POT-Creation-Date: 2024-03-30 20:28+0100\n"
+"POT-Creation-Date: 2024-03-31 13:56+0200\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: Automatically generated\n"
 "Language-Team: none\n"
@ -1421,7 +1421,7 @@ msgstr ""
 msgid "Deleting: ~a"
 msgstr ""

-#: src/program-events.lisp:1911
+#: src/program-events.lisp:1918
 msgid "Announcements "
 msgstr ""

@ -1447,6 +1447,10 @@ msgstr ""
 msgid "Removed"
 msgstr ""

+#: src/scheduled-events.lisp:71
+msgid "Looking for announcements…"
+msgstr ""
+
 #: src/sending-message.lisp:123
 msgid "none"
 msgstr ""
--- a/po/tinmop.pot
+++ b/po/tinmop.pot
@ -8,7 +8,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: tinmop 0.9.9.141421356\n"
 "Report-Msgid-Bugs-To: https://codeberg.org/cage/tinmop/\n"
-"POT-Creation-Date: 2024-03-30 20:28+0100\n"
+"POT-Creation-Date: 2024-03-31 13:56+0200\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"
@ -1420,7 +1420,7 @@ msgstr ""
 msgid "Deleting: ~a"
 msgstr ""

-#: src/program-events.lisp:1911
+#: src/program-events.lisp:1918
 msgid "Announcements "
 msgstr ""

@ -1446,6 +1446,10 @@ msgstr ""
 msgid "Removed"
 msgstr ""

+#: src/scheduled-events.lisp:71
+msgid "Looking for announcements…"
+msgstr ""
+
 #: src/sending-message.lisp:123
 msgid "none"
 msgstr ""
--- a/src/program-events.lisp
+++ b/src/program-events.lisp
@ -882,14 +882,15 @@
                                                     mentions
                                                     body)
                                             body)))
-                (client:send-status actual-message-body
-                                    reply-to
-                                    attachments
-                                    alt-text
-                                    subject
-                                    (make-keyword (string-upcase visibility))
-                                    language)
-                (ui:notify (_ "Message sent"))
+                (tui:with-notify-errors
+                  (client:send-status actual-message-body
+                                      reply-to
+                                      attachments
+                                      alt-text
+                                      subject
+                                      (make-keyword (string-upcase visibility))
+                                      language)
+                  (ui:notify (_ "Message sent")))
                (ui:close-send-message-window))))))))

 (defun find-user-id-from-exact-acct (username)
@ -1895,14 +1896,21 @@
  "Shows a window with all announcements"
  (when-let* ((all-announcements (api-client:get-announcements))
              (all-texts         (mapcar (lambda (a)
-                                           (html-utils:html->text a
-                                                                  :quote-prefix (swconf:message-window-quote-prefix)
-                                                                  :list-item-prefix (swconf:message-window-bullet-prefix)))
+                                           (text-utils:justify-monospaced-text (html-utils:html->text a
+                                                                                                      :quote-prefix
+                                                                                                      (swconf:message-window-quote-prefix)
+                                                                                                      :list-item-prefix
+                                                                                                      (swconf:message-window-bullet-prefix))
+                                                                               (truncate (* 3/4
+                                                                                            (windows:win-width specials:*main-window*)))))
                                         (mapcar #'tooter:content all-announcements)))
-              (lines             (reduce #'append
-                                         (mapcar #'text-utils:split-lines all-texts)))
-              (window-content    (text-utils:join-with-strings* (swconf:config-announcements-separator)
-                                                                lines)))
+              (lines             (mapcar (lambda (a)
+                                           (append a
+                                                   (list ""
+                                                         (swconf:config-announcements-separator)
+                                                         "")))
+                                         all-texts))
+              (window-content    (flatten lines)))
    (api-client:dismiss-all-announcements all-announcements)
    (line-oriented-window:make-blocking-list-dialog-window specials:*main-window*
                                                           window-content
--- a/src/scheduled-events.lisp
+++ b/src/scheduled-events.lisp
@ -68,6 +68,7 @@
 (gen-scheduler-function (look-for-announcements
                         +announcements-check-frequency+)
  (when *thread-window*
+    (ui:notify (_ "Looking for announcements…"))
    (program-events:push-event (make-instance 'program-events:check-announcements-event))))

 (gen-at-boot-function purge-history
Author	SHA1	Message	Date
cage	07505754b4	- prevented crash when exceeding the character limit in a post.	2024-03-31 18:53:23 +02:00
cage	dbd0ace318	- updated italian translations.	2024-03-31 13:58:53 +02:00
cage	c1d4024185	- fixed line wrapping of announcements window.	2024-03-31 13:56:20 +02:00
cage	ceaeeb8ec6	- added notification when fetching announcements.	2024-03-31 12:59:09 +02:00
cage	72620bc517	- changed key for fediverse account switching.	2024-03-31 11:19:27 +02:00