From e9126fb615a761882ba2bfe2b7f122187ab22133 Mon Sep 17 00:00:00 2001 From: cage Date: Wed, 12 Jul 2023 15:29:49 +0200 Subject: [PATCH] - [GUI] added a suggested file name when saving a link's content. --- po/it.po | 67 ++++++++++++++++++--------------- po/tinmop.pot | 62 +++++++++++++++++------------- src/gui/client/main-window.lisp | 4 +- 3 files changed, 74 insertions(+), 59 deletions(-) diff --git a/po/it.po b/po/it.po index 3dda36d..514bc3b 100644 --- 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: 2023-07-10 18:00+0200\n" -"PO-Revision-Date: 2023-07-10 18:04+0200\n" +"POT-Creation-Date: 2023-07-12 15:09+0200\n" +"PO-Revision-Date: 2023-07-12 15:09+0200\n" "Last-Translator: cage \n" "Language-Team: Italian\n" "Language: it\n" @@ -609,16 +609,16 @@ msgstr "Gestisci" msgid "Shuffle" msgstr "Rimescola" -#: src/gui/client/main-window.lisp:363 src/gui/client/main-window.lisp:942 +#: src/gui/client/main-window.lisp:363 src/gui/client/main-window.lisp:952 msgid "Server certificate error" msgstr "Errore sul certificato del server" -#: src/gui/client/main-window.lisp:379 src/gui/client/main-window.lisp:961 +#: src/gui/client/main-window.lisp:379 src/gui/client/main-window.lisp:971 #, lisp-format msgid "Follow redirection to ~a?" msgstr "Seguire la redirezione a ~a?" -#: src/gui/client/main-window.lisp:380 src/gui/client/main-window.lisp:962 +#: src/gui/client/main-window.lisp:380 src/gui/client/main-window.lisp:972 msgid "Redirection" msgstr "Redirezione" @@ -637,49 +637,57 @@ msgstr "l' indirizzo ~s è stato copiato negli appunti" msgid "~s already bookmarked" msgstr "l'indirizzo ~s è già tra i segnalibri" -#: src/gui/client/main-window.lisp:483 +#: src/gui/client/main-window.lisp:485 +msgid "Choose a file for saving" +msgstr "Scegli il nome del file da salvare" + +#: src/gui/client/main-window.lisp:490 msgid "link menu" msgstr "link menu" -#: src/gui/client/main-window.lisp:491 +#: src/gui/client/main-window.lisp:498 msgid "Inline" msgstr "Includi nel flusso del testo" -#: src/gui/client/main-window.lisp:493 -msgid "Add link to bookmarks" -msgstr "Aggiungi indirizzo tra i segnalibri" - -#: src/gui/client/main-window.lisp:494 +#: src/gui/client/main-window.lisp:500 msgid "Add link to tour" msgstr "Aggiungi indirizzo al tour" -#: src/gui/client/main-window.lisp:495 +#: src/gui/client/main-window.lisp:501 msgid "Copy link to the clipboard" msgstr "Copia l'indirizzo negli appunti" -#: src/gui/client/main-window.lisp:497 +#: src/gui/client/main-window.lisp:502 +msgid "Add link to bookmarks" +msgstr "Aggiungi indirizzo tra i segnalibri" + +#: src/gui/client/main-window.lisp:505 +msgid "Save link as…" +msgstr "Salva link con nome" + +#: src/gui/client/main-window.lisp:507 msgid "Open link in background" msgstr "Apri collegamento in backgroud" -#: src/gui/client/main-window.lisp:803 +#: src/gui/client/main-window.lisp:813 #, lisp-format msgid "No such file or directory: ~a" msgstr "Non esiste il file o la directory ~a" -#: src/gui/client/main-window.lisp:846 +#: src/gui/client/main-window.lisp:856 #, lisp-format msgid "The server asks:~2%~a" msgstr "Il server chiede:~2%~a" -#: src/gui/client/main-window.lisp:848 +#: src/gui/client/main-window.lisp:858 msgid "Submit" msgstr "Inoltra" -#: src/gui/client/main-window.lisp:849 +#: src/gui/client/main-window.lisp:859 msgid "Input query" msgstr "Input" -#: src/gui/client/main-window.lisp:941 +#: src/gui/client/main-window.lisp:951 msgid "" "The certificate for this address has changed, replace the old with the one I " "just received?" @@ -687,39 +695,39 @@ msgstr "" "Il certificato relativo a questo indirizzo è cambiato dall'ultima visita, lo " "rimpiazzo con quello appena ottenuto?" -#: src/gui/client/main-window.lisp:1121 +#: src/gui/client/main-window.lisp:1131 msgid "Tour is terminated" msgstr "Il tour è terminato" -#: src/gui/client/main-window.lisp:1184 +#: src/gui/client/main-window.lisp:1194 msgid "go back" msgstr "indietro" -#: src/gui/client/main-window.lisp:1185 +#: src/gui/client/main-window.lisp:1195 msgid "reload address" msgstr "ricarica l'indirizzo" -#: src/gui/client/main-window.lisp:1186 +#: src/gui/client/main-window.lisp:1196 msgid "go to address" msgstr "vai all'indirizzo" -#: src/gui/client/main-window.lisp:1187 +#: src/gui/client/main-window.lisp:1197 msgid "one level up" msgstr "un livello in alto" -#: src/gui/client/main-window.lisp:1188 +#: src/gui/client/main-window.lisp:1198 msgid "add or remove bookmark" msgstr "Aggiungi o rimuovi segnalibro" -#: src/gui/client/main-window.lisp:1189 +#: src/gui/client/main-window.lisp:1199 msgid "go to the next link in tour" msgstr "vai al prossimo indirizzo del tour" -#: src/gui/client/main-window.lisp:1190 +#: src/gui/client/main-window.lisp:1200 msgid "subscribe/unsubscribe to this gemlog" msgstr "Abbonati/disdici l'abbonamento a questo gemlog" -#: src/gui/client/main-window.lisp:1191 +#: src/gui/client/main-window.lisp:1201 msgid "inline images" msgstr "includi nella pagina le immagini" @@ -2325,8 +2333,5 @@ msgstr "Recupero tutte le notifica, per favore attendere…" #~ msgid "No message" #~ msgstr "Nessun messaggio" -#~ msgid "Save link" -#~ msgstr "Salva link" - #~ msgid "Open link" #~ msgstr "Apri il link" diff --git a/po/tinmop.pot b/po/tinmop.pot index 4e327a4..6e2cf0c 100644 --- a/po/tinmop.pot +++ b/po/tinmop.pot @@ -8,7 +8,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: 2023-07-10 18:00+0200\n" +"POT-Creation-Date: 2023-07-12 15:09+0200\n" "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" "Last-Translator: FULL NAME \n" "Language-Team: LANGUAGE \n" @@ -600,16 +600,16 @@ msgstr "" msgid "Shuffle" msgstr "" -#: src/gui/client/main-window.lisp:363 src/gui/client/main-window.lisp:942 +#: src/gui/client/main-window.lisp:363 src/gui/client/main-window.lisp:952 msgid "Server certificate error" msgstr "" -#: src/gui/client/main-window.lisp:379 src/gui/client/main-window.lisp:961 +#: src/gui/client/main-window.lisp:379 src/gui/client/main-window.lisp:971 #, lisp-format msgid "Follow redirection to ~a?" msgstr "" -#: src/gui/client/main-window.lisp:380 src/gui/client/main-window.lisp:962 +#: src/gui/client/main-window.lisp:380 src/gui/client/main-window.lisp:972 msgid "Redirection" msgstr "" @@ -628,87 +628,95 @@ msgstr "" msgid "~s already bookmarked" msgstr "" -#: src/gui/client/main-window.lisp:483 +#: src/gui/client/main-window.lisp:485 +msgid "Choose a file for saving" +msgstr "" + +#: src/gui/client/main-window.lisp:490 msgid "link menu" msgstr "" -#: src/gui/client/main-window.lisp:491 +#: src/gui/client/main-window.lisp:498 msgid "Inline" msgstr "" -#: src/gui/client/main-window.lisp:493 -msgid "Add link to bookmarks" -msgstr "" - -#: src/gui/client/main-window.lisp:494 +#: src/gui/client/main-window.lisp:500 msgid "Add link to tour" msgstr "" -#: src/gui/client/main-window.lisp:495 +#: src/gui/client/main-window.lisp:501 msgid "Copy link to the clipboard" msgstr "" -#: src/gui/client/main-window.lisp:497 +#: src/gui/client/main-window.lisp:502 +msgid "Add link to bookmarks" +msgstr "" + +#: src/gui/client/main-window.lisp:505 +msgid "Save link as…" +msgstr "" + +#: src/gui/client/main-window.lisp:507 msgid "Open link in background" msgstr "" -#: src/gui/client/main-window.lisp:803 +#: src/gui/client/main-window.lisp:813 #, lisp-format msgid "No such file or directory: ~a" msgstr "" -#: src/gui/client/main-window.lisp:846 +#: src/gui/client/main-window.lisp:856 #, lisp-format msgid "The server asks:~2%~a" msgstr "" -#: src/gui/client/main-window.lisp:848 +#: src/gui/client/main-window.lisp:858 msgid "Submit" msgstr "" -#: src/gui/client/main-window.lisp:849 +#: src/gui/client/main-window.lisp:859 msgid "Input query" msgstr "" -#: src/gui/client/main-window.lisp:941 +#: src/gui/client/main-window.lisp:951 msgid "" "The certificate for this address has changed, replace the old with the one I " "just received?" msgstr "" -#: src/gui/client/main-window.lisp:1121 +#: src/gui/client/main-window.lisp:1131 msgid "Tour is terminated" msgstr "" -#: src/gui/client/main-window.lisp:1184 +#: src/gui/client/main-window.lisp:1194 msgid "go back" msgstr "" -#: src/gui/client/main-window.lisp:1185 +#: src/gui/client/main-window.lisp:1195 msgid "reload address" msgstr "" -#: src/gui/client/main-window.lisp:1186 +#: src/gui/client/main-window.lisp:1196 msgid "go to address" msgstr "" -#: src/gui/client/main-window.lisp:1187 +#: src/gui/client/main-window.lisp:1197 msgid "one level up" msgstr "" -#: src/gui/client/main-window.lisp:1188 +#: src/gui/client/main-window.lisp:1198 msgid "add or remove bookmark" msgstr "" -#: src/gui/client/main-window.lisp:1189 +#: src/gui/client/main-window.lisp:1199 msgid "go to the next link in tour" msgstr "" -#: src/gui/client/main-window.lisp:1190 +#: src/gui/client/main-window.lisp:1200 msgid "subscribe/unsubscribe to this gemlog" msgstr "" -#: src/gui/client/main-window.lisp:1191 +#: src/gui/client/main-window.lisp:1201 msgid "inline images" msgstr "" diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp index 6f36e11..97c231d 100644 --- a/src/gui/client/main-window.lisp +++ b/src/gui/client/main-window.lisp @@ -480,7 +480,9 @@ (inline-image main-window link-value line-number)) (funcall (link-click-mouse-1-callback-clsr link-value main-window))))) (save-link-as-callback () - (a:when-let* ((output-file (gui:get-save-file :initial-dir "." + (a:when-let* ((suggested-file-name (fs:path-last-element link-value)) + (output-file (gui:get-save-file :initial-file suggested-file-name + :initial-dir "." :parent main-window :title (_ "Choose a file for saving"))) (input-file (gui-goodies:with-busy* (main-window)