mirror of https://codeberg.org/cage/tinmop/
Compare commits
6 Commits
9599000c5c
...
759fc15125
| Author | SHA1 | Date |
|---|---|---|
cage
|
759fc15125 | |
cage
|
830cb49c40 | |
|
cage
|
9c40856a68 | |
|
cage
|
5d8608a66d | |
cage
|
bc556163b1 | |
|
cage
|
7e6398bcee |
10
po/ca.po
10
po/ca.po
|
|
@ -5,7 +5,7 @@ msgid ""
|
|||
msgstr ""
|
||||
"Project-Id-Version: tinmop 0.9.9.1414213562-rc1\n"
|
||||
"Report-Msgid-Bugs-To: https://codeberg.org/cage/tinmop/\n"
|
||||
"POT-Creation-Date: 2024-09-21 11:45+0200\n"
|
||||
"POT-Creation-Date: 2024-09-21 12:50+0200\n"
|
||||
"PO-Revision-Date: 2024-05-25 13:29+0200\n"
|
||||
"Last-Translator: Eloitor <Eloitor@users.noreply.translate.codeberg.org>\n"
|
||||
"Language-Team: Catalan <https://translate.codeberg.org/projects/tinmop/"
|
||||
|
|
@ -208,7 +208,7 @@ msgid "Start a dummy sever, just useful for debugging."
|
|||
msgstr ""
|
||||
|
||||
#: src/command-line.lisp:106
|
||||
msgid "Complete command line switches (for bash complation only)."
|
||||
msgid "Complete command line switches (for bash completion only)."
|
||||
msgstr ""
|
||||
|
||||
#: src/command-line.lisp:217
|
||||
|
|
@ -1038,7 +1038,7 @@ msgid "Status"
|
|||
msgstr ""
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:62
|
||||
msgid "Number of octects downloaded"
|
||||
msgid "Number of octets downloaded"
|
||||
msgstr ""
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:126
|
||||
|
|
@ -2226,7 +2226,7 @@ msgid "Reporting user: ~s"
|
|||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:2191
|
||||
msgid "Report trasmitted"
|
||||
msgid "Report transmitted"
|
||||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:2194
|
||||
|
|
@ -2645,7 +2645,7 @@ msgid "Parent message"
|
|||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:3653
|
||||
msgid "Cache for TLS passord cleared"
|
||||
msgid "Cache for TLS password cleared"
|
||||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:3674
|
||||
|
|
|
|||
11
po/de.po
11
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-09-21 11:45+0200\n"
|
||||
"POT-Creation-Date: 2024-09-21 12:50+0200\n"
|
||||
"PO-Revision-Date: 2024-05-29 19:39+0200\n"
|
||||
"Last-Translator: Dirk <Dirk@users.noreply.translate.codeberg.org>\n"
|
||||
"Language-Team: German <https://translate.codeberg.org/projects/tinmop/tinmop/"
|
||||
|
|
@ -213,7 +213,8 @@ msgid "Start a dummy sever, just useful for debugging."
|
|||
msgstr "Einen Dummy-Server starten, nur nützlich für die Fehleranalyse."
|
||||
|
||||
#: src/command-line.lisp:106
|
||||
msgid "Complete command line switches (for bash complation only)."
|
||||
#, fuzzy
|
||||
msgid "Complete command line switches (for bash completion only)."
|
||||
msgstr ""
|
||||
"Befehlszeilenparameter vervollständigen (nur für Bash-Vervollständigung)."
|
||||
|
||||
|
|
@ -1061,7 +1062,7 @@ msgstr "Stauts"
|
|||
|
||||
#: src/gui/client/stream-frame.lisp:62
|
||||
#, fuzzy
|
||||
msgid "Number of octects downloaded"
|
||||
msgid "Number of octets downloaded"
|
||||
msgstr "Anzahl der heruntergeladenen Oktetts"
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:126
|
||||
|
|
@ -2250,7 +2251,7 @@ msgid "Reporting user: ~s"
|
|||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:2191
|
||||
msgid "Report trasmitted"
|
||||
msgid "Report transmitted"
|
||||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:2194
|
||||
|
|
@ -2669,7 +2670,7 @@ msgid "Parent message"
|
|||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:3653
|
||||
msgid "Cache for TLS passord cleared"
|
||||
msgid "Cache for TLS password cleared"
|
||||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:3674
|
||||
|
|
|
|||
10
po/es.po
10
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-09-21 11:45+0200\n"
|
||||
"POT-Creation-Date: 2024-09-21 12:50+0200\n"
|
||||
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
|
||||
"Last-Translator: Automatically generated\n"
|
||||
"Language-Team: none\n"
|
||||
|
|
@ -207,7 +207,7 @@ msgid "Start a dummy sever, just useful for debugging."
|
|||
msgstr ""
|
||||
|
||||
#: src/command-line.lisp:106
|
||||
msgid "Complete command line switches (for bash complation only)."
|
||||
msgid "Complete command line switches (for bash completion only)."
|
||||
msgstr ""
|
||||
|
||||
#: src/command-line.lisp:217
|
||||
|
|
@ -1048,7 +1048,7 @@ msgid "Status"
|
|||
msgstr "Estado"
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:62
|
||||
msgid "Number of octects downloaded"
|
||||
msgid "Number of octets downloaded"
|
||||
msgstr ""
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:126
|
||||
|
|
@ -2241,7 +2241,7 @@ msgid "Reporting user: ~s"
|
|||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:2191
|
||||
msgid "Report trasmitted"
|
||||
msgid "Report transmitted"
|
||||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:2194
|
||||
|
|
@ -2660,7 +2660,7 @@ msgid "Parent message"
|
|||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:3653
|
||||
msgid "Cache for TLS passord cleared"
|
||||
msgid "Cache for TLS password cleared"
|
||||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:3674
|
||||
|
|
|
|||
10
po/fr.po
10
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-09-21 11:45+0200\n"
|
||||
"POT-Creation-Date: 2024-09-21 12:50+0200\n"
|
||||
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
|
||||
"Last-Translator: Automatically generated\n"
|
||||
"Language-Team: none\n"
|
||||
|
|
@ -210,7 +210,7 @@ msgid "Start a dummy sever, just useful for debugging."
|
|||
msgstr ""
|
||||
|
||||
#: src/command-line.lisp:106
|
||||
msgid "Complete command line switches (for bash complation only)."
|
||||
msgid "Complete command line switches (for bash completion only)."
|
||||
msgstr ""
|
||||
|
||||
#: src/command-line.lisp:217
|
||||
|
|
@ -1061,7 +1061,7 @@ msgid "Status"
|
|||
msgstr ""
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:62
|
||||
msgid "Number of octects downloaded"
|
||||
msgid "Number of octets downloaded"
|
||||
msgstr ""
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:126
|
||||
|
|
@ -2250,7 +2250,7 @@ msgid "Reporting user: ~s"
|
|||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:2191
|
||||
msgid "Report trasmitted"
|
||||
msgid "Report transmitted"
|
||||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:2194
|
||||
|
|
@ -2669,7 +2669,7 @@ msgid "Parent message"
|
|||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:3653
|
||||
msgid "Cache for TLS passord cleared"
|
||||
msgid "Cache for TLS password cleared"
|
||||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:3674
|
||||
|
|
|
|||
32
po/it.po
32
po/it.po
|
|
@ -8,9 +8,9 @@ msgid ""
|
|||
msgstr ""
|
||||
"Project-Id-Version: tinmop 0.0.1\n"
|
||||
"Report-Msgid-Bugs-To: https://codeberg.org/cage/tinmop/\n"
|
||||
"POT-Creation-Date: 2024-09-21 11:45+0200\n"
|
||||
"PO-Revision-Date: 2024-09-21 11:52+0200\n"
|
||||
"Last-Translator: cage <cage-dev@twistfold.it>\n"
|
||||
"POT-Creation-Date: 2024-09-21 12:50+0200\n"
|
||||
"PO-Revision-Date: 2024-09-21 12:48+0000\n"
|
||||
"Last-Translator: cage <cage@users.noreply.translate.codeberg.org>\n"
|
||||
"Language-Team: Italian <https://translate.codeberg.org/projects/tinmop/"
|
||||
"tinmop/it/>\n"
|
||||
"Language: it\n"
|
||||
|
|
@ -18,7 +18,7 @@ msgstr ""
|
|||
"Content-Type: text/plain; charset=UTF-8\n"
|
||||
"Content-Transfer-Encoding: 8bit\n"
|
||||
"Plural-Forms: nplurals=2; plural=n != 1;\n"
|
||||
"X-Generator: Weblate 5.1\n"
|
||||
"X-Generator: Weblate 5.7.2\n"
|
||||
|
||||
#: data/modules/delete-by-regex.lisp:52
|
||||
msgid "Delete posts that match regex: "
|
||||
|
|
@ -30,7 +30,7 @@ msgstr "La finestra non sta mostrando un documento gemini"
|
|||
|
||||
#: src/api-client.lisp:121
|
||||
msgid "Please visit the address below"
|
||||
msgstr "Per favore visita l'indirizzo mostrato piu' sotto"
|
||||
msgstr "Per favore visita l'indirizzo mostrato più sotto"
|
||||
|
||||
#: src/api-client.lisp:141
|
||||
#, lisp-format
|
||||
|
|
@ -48,7 +48,7 @@ msgid ""
|
|||
"authenticate again"
|
||||
msgstr ""
|
||||
"Credenziali non più valide. Provare a rimuovere ~a e riavviare il programma "
|
||||
"per riautenticarsi"
|
||||
"per autenticarsi nuovamente"
|
||||
|
||||
#: src/api-client.lisp:217
|
||||
msgid "Save address"
|
||||
|
|
@ -70,7 +70,7 @@ msgstr "Questo client è stato autorizzato"
|
|||
|
||||
#: src/api-client.lisp:235
|
||||
msgid "Got a generic error when registering client"
|
||||
msgstr "Errore generico provando a registare il client"
|
||||
msgstr "Errore generico provando a registrare il client"
|
||||
|
||||
#: src/api-client.lisp:237
|
||||
#, lisp-format
|
||||
|
|
@ -79,7 +79,7 @@ msgstr "File ~a salvato"
|
|||
|
||||
#: src/api-client.lisp:239
|
||||
msgid "Please enter below the file where to save the address"
|
||||
msgstr "Inserisci piu' sotto il file dove salvare l'indirizzo"
|
||||
msgstr "Inserisci più sotto il file dove salvare l'indirizzo"
|
||||
|
||||
#: src/api-client.lisp:260
|
||||
msgid ""
|
||||
|
|
@ -91,7 +91,7 @@ msgstr ""
|
|||
#: src/api-client.lisp:885
|
||||
#, lisp-format
|
||||
msgid "type: ~a from ~a"
|
||||
msgstr "tipo ~a da ~a"
|
||||
msgstr "tipo: ~a da ~a"
|
||||
|
||||
#: src/api-client.lisp:892
|
||||
#, lisp-format
|
||||
|
|
@ -210,10 +210,10 @@ msgstr ""
|
|||
|
||||
#: src/command-line.lisp:103
|
||||
msgid "Start a dummy sever, just useful for debugging."
|
||||
msgstr "Avvia un server di facciata, utile per il debugging."
|
||||
msgstr "Avvia un server di facciata, utile solamente per il debugging."
|
||||
|
||||
#: src/command-line.lisp:106
|
||||
msgid "Complete command line switches (for bash complation only)."
|
||||
msgid "Complete command line switches (for bash completion only)."
|
||||
msgstr ""
|
||||
"Autocompleta le opzioni sulla linea di comando (utile solo per bash "
|
||||
"autocompletion)."
|
||||
|
|
@ -224,7 +224,7 @@ msgstr "Uso"
|
|||
|
||||
#: src/command-line.lisp:218
|
||||
msgid "Available options"
|
||||
msgstr "Opzioni diponibili"
|
||||
msgstr "Opzioni disponibili"
|
||||
|
||||
#: src/command-window.lisp:328
|
||||
#, lisp-format
|
||||
|
|
@ -352,7 +352,7 @@ msgstr "Il server ~s chiede: ~s "
|
|||
#: src/gemini-viewer.lisp:739
|
||||
#, lisp-format
|
||||
msgid "Redirects to ~s, follows redirect? [y/N] "
|
||||
msgstr "Seguire la redirezione a ~s? [s/N] "
|
||||
msgstr "Seguire il reindirizzamento a ~s? [s/N] "
|
||||
|
||||
#: src/gemini-viewer.lisp:792 src/ui-goodies.lisp:3160
|
||||
#, lisp-format
|
||||
|
|
@ -1056,7 +1056,7 @@ msgid "Status"
|
|||
msgstr "Stato"
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:62
|
||||
msgid "Number of octects downloaded"
|
||||
msgid "Number of octets downloaded"
|
||||
msgstr "Numero di ottetti scaricati"
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:126
|
||||
|
|
@ -2276,7 +2276,7 @@ msgid "Reporting user: ~s"
|
|||
msgstr "Segnalo l'utente ~s"
|
||||
|
||||
#: src/ui-goodies.lisp:2191
|
||||
msgid "Report trasmitted"
|
||||
msgid "Report transmitted"
|
||||
msgstr "Segnalazione trasmessa"
|
||||
|
||||
#: src/ui-goodies.lisp:2194
|
||||
|
|
@ -2699,7 +2699,7 @@ msgid "Parent message"
|
|||
msgstr "Messaggio genitore"
|
||||
|
||||
#: src/ui-goodies.lisp:3653
|
||||
msgid "Cache for TLS passord cleared"
|
||||
msgid "Cache for TLS password cleared"
|
||||
msgstr "Ripulita la cache delle password per i certificati TLS"
|
||||
|
||||
#: src/ui-goodies.lisp:3674
|
||||
|
|
|
|||
10
po/pl.po
10
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-09-21 11:45+0200\n"
|
||||
"POT-Creation-Date: 2024-09-21 12:50+0200\n"
|
||||
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
|
||||
"Last-Translator: Automatically generated\n"
|
||||
"Language-Team: none\n"
|
||||
|
|
@ -203,7 +203,7 @@ msgid "Start a dummy sever, just useful for debugging."
|
|||
msgstr ""
|
||||
|
||||
#: src/command-line.lisp:106
|
||||
msgid "Complete command line switches (for bash complation only)."
|
||||
msgid "Complete command line switches (for bash completion only)."
|
||||
msgstr ""
|
||||
|
||||
#: src/command-line.lisp:217
|
||||
|
|
@ -1032,7 +1032,7 @@ msgid "Status"
|
|||
msgstr ""
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:62
|
||||
msgid "Number of octects downloaded"
|
||||
msgid "Number of octets downloaded"
|
||||
msgstr ""
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:126
|
||||
|
|
@ -2221,7 +2221,7 @@ msgid "Reporting user: ~s"
|
|||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:2191
|
||||
msgid "Report trasmitted"
|
||||
msgid "Report transmitted"
|
||||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:2194
|
||||
|
|
@ -2640,7 +2640,7 @@ msgid "Parent message"
|
|||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:3653
|
||||
msgid "Cache for TLS passord cleared"
|
||||
msgid "Cache for TLS password cleared"
|
||||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:3674
|
||||
|
|
|
|||
|
|
@ -8,7 +8,7 @@ msgid ""
|
|||
msgstr ""
|
||||
"Project-Id-Version: tinmop 0.9.9.14142135623\n"
|
||||
"Report-Msgid-Bugs-To: https://codeberg.org/cage/tinmop/\n"
|
||||
"POT-Creation-Date: 2024-09-21 11:45+0200\n"
|
||||
"POT-Creation-Date: 2024-09-21 12:50+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"
|
||||
|
|
@ -203,7 +203,7 @@ msgid "Start a dummy sever, just useful for debugging."
|
|||
msgstr ""
|
||||
|
||||
#: src/command-line.lisp:106
|
||||
msgid "Complete command line switches (for bash complation only)."
|
||||
msgid "Complete command line switches (for bash completion only)."
|
||||
msgstr ""
|
||||
|
||||
#: src/command-line.lisp:217
|
||||
|
|
@ -1031,7 +1031,7 @@ msgid "Status"
|
|||
msgstr ""
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:62
|
||||
msgid "Number of octects downloaded"
|
||||
msgid "Number of octets downloaded"
|
||||
msgstr ""
|
||||
|
||||
#: src/gui/client/stream-frame.lisp:126
|
||||
|
|
@ -2219,7 +2219,7 @@ msgid "Reporting user: ~s"
|
|||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:2191
|
||||
msgid "Report trasmitted"
|
||||
msgid "Report transmitted"
|
||||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:2194
|
||||
|
|
@ -2638,7 +2638,7 @@ msgid "Parent message"
|
|||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:3653
|
||||
msgid "Cache for TLS passord cleared"
|
||||
msgid "Cache for TLS password cleared"
|
||||
msgstr ""
|
||||
|
||||
#: src/ui-goodies.lisp:3674
|
||||
|
|
|
|||
|
|
@ -20,7 +20,7 @@
|
|||
"The tooter client, used to access mastodon/pleroma")
|
||||
|
||||
(defparameter *credentials* nil
|
||||
"An istance of 'credentials' used to holds the intormation needed to
|
||||
"An instance of 'credentials' used to holds the intormation needed to
|
||||
access a mastodon/pleroma instance")
|
||||
|
||||
(defparameter *client-lock* (make-lock)
|
||||
|
|
@ -144,7 +144,7 @@ parameter, returns nil if a socket can not be opened."
|
|||
"When an user authorize a client to access mastodon/pleroma the server send
|
||||
an http request to an arbitrary URI chosen by the user.
|
||||
|
||||
This URI contains the authorization code neede to make the client
|
||||
This URI contains the authorization code needed to make the client
|
||||
trusted by the server. When tinmop starts the authorization process
|
||||
opens a server on the local machine and asks the server to redirect
|
||||
the user's browser to an URI (which contains the authorization code on
|
||||
|
|
@ -490,7 +490,7 @@ become an empty string (\"\")
|
|||
(tooter:history tag-info)))
|
||||
|
||||
(defun update-subscribed-tags (all-tags all-max-id &key (limit 20))
|
||||
"Update all tage in the list `all-tags'"
|
||||
"Update all tags in the list `all-tags'"
|
||||
(loop
|
||||
for tag in all-tags
|
||||
for max-id in all-max-id
|
||||
|
|
@ -516,7 +516,7 @@ database."
|
|||
(program-events:push-event event)))
|
||||
|
||||
(defun-api-call get-remote-status (status-id)
|
||||
"Get a single status identified bu `status-id'"
|
||||
"Get a single status identified by `status-id'"
|
||||
(ignore-errors
|
||||
(tooter:find-status *client* status-id)))
|
||||
|
||||
|
|
@ -658,7 +658,7 @@ database."
|
|||
:initarg :last-status
|
||||
:accessor last-status
|
||||
:type (or null tooter:status)
|
||||
:documentation "The lastest status that forms this conversation")
|
||||
:documentation "The latest status that forms this conversation")
|
||||
(root
|
||||
:initform nil
|
||||
:initarg :root
|
||||
|
|
|
|||
|
|
@ -103,7 +103,7 @@
|
|||
:description (_ "Start a dummy sever, just useful for debugging.")
|
||||
:long "start-dummy-server")
|
||||
(:name :bash-complete
|
||||
:description (_ "Complete command line switches (for bash complation only).")
|
||||
:description (_ "Complete command line switches (for bash completion only).")
|
||||
:long "bash-complete"))))
|
||||
|
||||
(defmacro gen-opts ()
|
||||
|
|
|
|||
|
|
@ -80,7 +80,7 @@
|
|||
:initform nil
|
||||
:initarg :suggestions-win
|
||||
:accessor suggestions-win
|
||||
:documentation "The windows that print contect stuccesions to
|
||||
:documentation "The windows that print conntent suggestions to
|
||||
user (e.g. autocomplete path")
|
||||
(history-position
|
||||
:initarg :history-position
|
||||
|
|
|
|||
|
|
@ -115,7 +115,7 @@
|
|||
(defmethod resync-rows-db ((object conversations-window) &key
|
||||
(redraw t)
|
||||
(suggested-message-index nil))
|
||||
"Resync this window whit the conversation in database, if
|
||||
"Resync this window with the conversation in database, if
|
||||
`suggested-message-index' is not nil marks as selected the message in
|
||||
position indicated by this variable."
|
||||
(with-accessors ((rows rows)
|
||||
|
|
|
|||
10
src/db.lisp
10
src/db.lisp
|
|
@ -2914,7 +2914,7 @@ if no such messages exist"
|
|||
(mapcar #'row-id (all-conversations :remove-ignored remove-ignored)))
|
||||
|
||||
(defun add-conversation (id root-message-status-id &key (folder id))
|
||||
"Create a new conversation: the timeline for messges will be
|
||||
"Create a new conversation: the timeline for messages will be
|
||||
+default-converation-timeline+ and default folder name will be weual
|
||||
to id."
|
||||
(assert (string-not-empty-p id))
|
||||
|
|
@ -2975,11 +2975,11 @@ conversation"
|
|||
(:= :id id))))
|
||||
|
||||
(defun update-status-folder (old-folder-name new-folder-name)
|
||||
"chane statuses folder name"
|
||||
"change statuses folder name"
|
||||
(update-folder +table-status+ old-folder-name new-folder-name))
|
||||
|
||||
(defun change-conversation-name (old-name new-name)
|
||||
"This will update both column folder in table converstion and in table status"
|
||||
"This will update both column folder in table conversation and in table status"
|
||||
(with-db-transaction
|
||||
(update-status-folder old-name new-name)
|
||||
(update-conversation-folder old-name new-name)))
|
||||
|
|
@ -3024,7 +3024,7 @@ conversation"
|
|||
(values to-read red)))
|
||||
|
||||
(defun all-conversation-stats (&key (remove-ignored t))
|
||||
"All statistics for all converstions optionally with ignored
|
||||
"All statistics for all conversations optionally with ignored
|
||||
conversation removed (default: remove)"
|
||||
(let ((all (all-conversations :remove-ignored remove-ignored)))
|
||||
(loop for conversation in all collect
|
||||
|
|
@ -3083,7 +3083,7 @@ conversation removed (default: remove)"
|
|||
(:= :key key)))))
|
||||
|
||||
(defun cache-put (key &optional (type "generic"))
|
||||
"Insert a new cahe row with key `key'"
|
||||
"Insert a new cache row with key `key'"
|
||||
(if (cache-get key)
|
||||
(with-db-transaction
|
||||
(cache-touch key)
|
||||
|
|
|
|||
|
|
@ -93,8 +93,8 @@
|
|||
(defun init (follow-requests usernames-follow-requests screen)
|
||||
"Initialize the window
|
||||
|
||||
- follows-requests the account entity (from tooter library) that requestes to follow you
|
||||
- username-follow-requests the username of the accounts that requestes to follow you
|
||||
- follows-requests the account entities (from tooter library) that request to follow you
|
||||
- username-follow-requests the username of the accounts that request to follow you
|
||||
- screen the main window
|
||||
"
|
||||
(flet ((make-rows (usernames bg fg)
|
||||
|
|
|
|||
|
|
@ -975,7 +975,7 @@
|
|||
(enqueue nil))
|
||||
"Load `url', that is a web resource or a local file. This function
|
||||
can be used only when the event polling is enabled (e.g. from user
|
||||
command) otherwise te actual code to get the resource will never be
|
||||
command) otherwise the actual code to get the resource will never be
|
||||
executed."
|
||||
(let* ((event (make-instance 'program-events:gemini-request-event
|
||||
:give-focus-to-message-window give-focus-to-message-window
|
||||
|
|
|
|||
|
|
@ -59,7 +59,7 @@
|
|||
(let ((treeview (make-instance 'gui:scrolled-treeview
|
||||
:master object
|
||||
:columns (list (_ "Status")
|
||||
(_ "Number of octects downloaded")))))
|
||||
(_ "Number of octets downloaded")))))
|
||||
(gui:treeview-heading treeview
|
||||
gui:+treeview-first-column-id+
|
||||
:text (_ "Address"))
|
||||
|
|
|
|||
|
|
@ -408,8 +408,8 @@ produces a tree and graft the latter on `existing-tree'"
|
|||
:initform nil
|
||||
:initarg :curses-code
|
||||
:accessor curses-code))
|
||||
(:documentation "terminal-code: the raw string that the terminal provide to encode a key
|
||||
croatoan-code: ther symbol croatoan use and returns to usercode
|
||||
(:documentation "terminal-code: the raw string that the terminal provides to encode a key
|
||||
croatoan-code: the symbol croatoan use and returns as usercode
|
||||
curses-keycode: integer that map terminal-code
|
||||
(used internally by croatoan to match croatoan-code
|
||||
Example: \"^[1\" :alt-1 512.
|
||||
|
|
|
|||
|
|
@ -625,10 +625,10 @@ printed in the box column by column; in the example above the results are:
|
|||
(labels ((length-fitted (line)
|
||||
(length (cat-annotated-values line)))
|
||||
(cut-last (line)
|
||||
(let ((shrinked (coerce (misc:safe-all-but-last-elt (cdr (a:last-elt line)))
|
||||
(let ((shrunk (coerce (misc:safe-all-but-last-elt (cdr (a:last-elt line)))
|
||||
'string)))
|
||||
(setf (cdr (a:last-elt line))
|
||||
shrinked)
|
||||
shrunk)
|
||||
(remove-if (lambda (a)
|
||||
(let((string (cdr a)))
|
||||
(string-empty-p string)))
|
||||
|
|
|
|||
|
|
@ -2188,7 +2188,7 @@ Often would be possible to generate a new identity (i.e. a new certificate).
|
|||
(length comment))))
|
||||
(with-blocking-notify-procedure
|
||||
((format nil (_ "Reporting user: ~s") username)
|
||||
(_ "Report trasmitted"))
|
||||
(_ "Report transmitted"))
|
||||
(push-event event)))))))
|
||||
(ask-string-input #'on-input-complete
|
||||
:prompt (_ "Comment on reports: ")))))
|
||||
|
|
@ -2366,7 +2366,7 @@ there."
|
|||
|
||||
(defun open-chats-list-window ()
|
||||
"open a window containing the list of active chat ordered from the
|
||||
mot recent updated to least recent"
|
||||
most recent updated to least recent"
|
||||
(when (not command-line:*gemini-full-screen-mode*)
|
||||
(chats-list-window:open-chats-list-window)
|
||||
(focus-to-chats-list-window)))
|
||||
|
|
@ -3650,7 +3650,7 @@ gemini client certificates!)."
|
|||
(defun clear-cached-client-tls-certificates ()
|
||||
"Delete all the password for TLS certificates that has been cached in memory."
|
||||
(gemini-client:clear-cache-certificate-password)
|
||||
(info-message (_ "Cache for TLS passord cleared")))
|
||||
(info-message (_ "Cache for TLS password cleared")))
|
||||
|
||||
(defun switch-fediverse-account ()
|
||||
"Switch to a different fediverse account (if defined in the configuration file)"
|
||||
|
|
|
|||
Loading…
Reference in New Issue