1
0
Fork 0

Merge branch 'master' into add-gemini-gui

This commit is contained in:
cage 2023-02-01 15:04:29 +01:00
commit 7420b8fc26
8 changed files with 310 additions and 233 deletions

View File

@ -1,10 +1,70 @@
2022-12-14 cage
2023-01-30 cage
* quick_quicklisp.sh.in,
* src/package.lisp,
* src/program-events.lisp,
* src/windows.lisp:
- used the brand new dialog window made available from croatoan.
- updated croatoan revision to fetch during installation.
2023-01-12 cage
* configure,
* configure.ac,
* src/gemini-viewer.lisp,
* src/os-utils.lisp,
* src/package.lisp,
* src/ui-goodies.lisp,
* tinmop.asd:
- made the program respect the `open' configuration directive for when
downloading MINE type "text/*"
Before this patch, the software tried to open all the text MIME type
in the main window regardless any setting in the configuration file
that imposed to use a program to open a file based on a regular
expression (e.g. `open "^((gemini://)|(\\.)|(/)).+txt$" with "vi"',
did not worked).
- increased version number.
2022-12-26 cage
* README.org,
* README.txt,
* src/program-events.lisp:
- updated READMEs.
- used a better default for slot 'local-path' to prevent crash when
'sexp->links' is called with an empty string as local-path argument.
2022-12-23 cage
* scripts/generate-gemlog.lisp:
- improved error reporting in script 'generate-gemlog.lisp'.
2022-12-17 cage
* src/ui-goodies.lisp:
- removed hardcoded font spec when making an image mosaic;
- caught all errors signaled when something has gone wrong
downloading the messages containing the subscribed tags.
2022-12-14 cage
* ChangeLog,
* NEWS.org,
* configure.ac,
* quick_quicklisp.sh.in,
* src/ui-goodies.lisp,
* tinmop.asd:
- removed hard-coded font spec when making an image mosaic;
- updated croatoan version.
- increased version number;
- updated news and changelog files.
- fixed version number.
- updated version number in configure.ac too.
2022-12-12 cage

View File

@ -1,3 +1,12 @@
* 2023-01-30 version 0.9.9.141
- Bugfix
- fixed bug that prevented downloading of posts from subscribed hashtag;
- improved error reporting in script 'generate-gemlog.lisp';
- The program respects the directive "open ..." when downloading text/* MIME types,
using the gemini protocol;
- updated code to works with the new version of the TUI library.
* 2022-12-14 version 0.9.9.14
- Bugfix

192
po/it.po
View File

@ -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: 2023-01-08 15:11+0100\n"
"PO-Revision-Date: 2023-01-08 15:20+0100\n"
"POT-Creation-Date: 2023-01-30 21:11+0100\n"
"PO-Revision-Date: 2023-01-30 21:12+0100\n"
"Last-Translator: cage <cage@invalid.org>\n"
"Language-Team: Italian\n"
"Language: it\n"
@ -18,7 +18,7 @@ msgstr ""
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"
#: modules/share-gemini-link.lisp:30 src/ui-goodies.lisp:2804
#: modules/share-gemini-link.lisp:30 src/ui-goodies.lisp:2810
msgid "The window is not displaying a gemini document"
msgstr "La finestra non sta mostrando un documento gemini"
@ -53,7 +53,7 @@ msgid "Open address"
msgstr "Apri l'indirizzo"
#: src/api-client.lisp:214 src/ui-goodies.lisp:210 src/ui-goodies.lisp:215
#: src/windows.lisp:615 src/windows.lisp:671
#: src/windows.lisp:618 src/windows.lisp:674
msgid "Cancel"
msgstr "Annulla"
@ -295,48 +295,46 @@ msgstr "Nessun sottotitolo"
msgid "Subscribed gemlogs"
msgstr "Abbonamenti ai gemlog"
#: src/gemini-viewer.lisp:477
#: src/gemini-viewer.lisp:460
msgid "Gemini document downloading aborted"
msgstr "Scaricamento del documento in formato gemini interrotto"
#: src/gemini-viewer.lisp:482
#: src/gemini-viewer.lisp:465
msgid "Gemini document downloading completed"
msgstr "Scaricamento del documento in formato gemini completato"
#: src/gemini-viewer.lisp:677
#: src/gemini-viewer.lisp:662
#, lisp-format
msgid "Server ~s asks: ~s "
msgstr "Il server ~s chiede: ~s "
#: src/gemini-viewer.lisp:697
#: src/gemini-viewer.lisp:682
#, lisp-format
msgid "Redirects to ~s, follows redirect? [y/N] "
msgstr "Seguire la redirezione a ~s? [s/N] "
#: src/gemini-viewer.lisp:774 src/gui/server/public-api.lisp:184
#: src/tui-utils.lisp:509 src/tui-utils.lisp:520 src/ui-goodies.lisp:2982
#: src/ui-goodies.lisp:2988
#: src/gemini-viewer.lisp:759 src/tui-utils.lisp:509 src/tui-utils.lisp:520
#: src/ui-goodies.lisp:2988 src/ui-goodies.lisp:2994
#, lisp-format
msgid "Error: ~a"
msgstr "Errore: ~a"
#: src/gemini-viewer.lisp:781 src/gemini-viewer.lisp:785
#: src/gui/server/public-api.lisp:188 src/gui/server/public-api.lisp:190
#: src/gemini-viewer.lisp:766 src/gemini-viewer.lisp:770
#, lisp-format
msgid "Error getting ~s: ~a"
msgstr "Errore connettendomi a ~s: ~a"
#: src/gemini-viewer.lisp:793
#: src/gemini-viewer.lisp:778
#, lisp-format
msgid "Going back to: ~a"
msgstr "Ritorno a: ~a"
#: src/gemini-viewer.lisp:805
#: src/gemini-viewer.lisp:790
#, lisp-format
msgid "Viewing source of: ~a"
msgstr "Visualizzo il sorgente di: ~a"
#: src/gemini-viewer.lisp:861
#: src/gemini-viewer.lisp:846
msgid "Current gemini streams"
msgstr "Flussi di dati gemini attuali"
@ -713,12 +711,12 @@ msgstr ""
"Nessun programma è stato definito nel file di configurazione per modificare "
"questo tipo di file."
#: src/os-utils.lisp:209
#: src/os-utils.lisp:201
#, lisp-format
msgid "File ~s does not exists"
msgstr "Il file ~s non esiste"
#: src/os-utils.lisp:211
#: src/os-utils.lisp:203
#, lisp-format
msgid "Destination directory ~s does not exists"
msgstr "La directory di destinazione ~s non esiste"
@ -989,7 +987,7 @@ msgid "Jump to message: "
msgstr "Vai al messaggio: "
#: src/ui-goodies.lisp:284 src/ui-goodies.lisp:308 src/ui-goodies.lisp:443
#: src/ui-goodies.lisp:1485 src/ui-goodies.lisp:2701
#: src/ui-goodies.lisp:1485 src/ui-goodies.lisp:2707
msgid "Search key: "
msgstr "Criterio di ricerca: "
@ -1160,8 +1158,8 @@ msgstr ""
msgid ""
"Error getting the latest unread messages: ~s, trying fetching the latest"
msgstr ""
"Ottenuto un errore nel tentativo di scaricare i messaggi non letti relativi "
"all'etichetta ~s, provo a scaricare gli ultimi."
"Ottenuto un errore nel tentativo di scaricare i messaggi non letti ~s, provo "
"a scaricare gli ultimi."
#: src/ui-goodies.lisp:1060
msgid "Downloading tags messages."
@ -1501,51 +1499,59 @@ msgstr "Apri un indirizzo di rete: "
msgid "Invalid gopher address."
msgstr "~s non è un indirizzo gopher valido"
#: src/ui-goodies.lisp:2508
#: src/ui-goodies.lisp:2393
msgid "Empty address."
msgstr "Indirizzo vuoto."
#: src/ui-goodies.lisp:2397
msgid "Invalid or unknown address."
msgstr "Indirizzo invalido o sconosciuto."
#: src/ui-goodies.lisp:2514
#, lisp-format
msgid "Subscribing to ~s"
msgstr "Abbonati a ~s: "
#: src/ui-goodies.lisp:2519
#: src/ui-goodies.lisp:2525
#, lisp-format
msgid "Command ~s completed"
msgstr "Comando ~s completato"
#: src/ui-goodies.lisp:2527
#: src/ui-goodies.lisp:2533
msgid "Send to command: "
msgstr "Manda al comando: "
#: src/ui-goodies.lisp:2536
#: src/ui-goodies.lisp:2542
msgid "Send message to command: "
msgstr "Manda il messaggio al comando: "
#: src/ui-goodies.lisp:2586
#: src/ui-goodies.lisp:2592
#, lisp-format
msgid "Index ~a out of range"
msgstr "L'indice ~a supera i limiti"
#: src/ui-goodies.lisp:2588
#: src/ui-goodies.lisp:2594
msgid "Tour saved"
msgstr "Il tour è stato salvato."
#: src/ui-goodies.lisp:2609
#: src/ui-goodies.lisp:2615
msgid "link indices: "
msgstr "indice dei link: "
#: src/ui-goodies.lisp:2616
#: src/ui-goodies.lisp:2622
msgid "Tour completed"
msgstr "Tour completato"
#: src/ui-goodies.lisp:2625
#: src/ui-goodies.lisp:2631
msgid "Current links tour"
msgstr "Tour dei link"
#: src/ui-goodies.lisp:2639
#: src/ui-goodies.lisp:2645
#, lisp-format
msgid "~s saved in tour"
msgstr "~s salvato nel tour"
#: src/ui-goodies.lisp:2714
#: src/ui-goodies.lisp:2720
#, lisp-format
msgid ""
"Host ~s signature changed! This is a potential security risk! Ignore this "
@ -1554,269 +1560,265 @@ msgstr ""
"La firma dell'host ~s è cambiata! Questo è un potenziale problema di "
"sicurezza! Proseguire? [s/N] "
#: src/ui-goodies.lisp:2725
#: src/ui-goodies.lisp:2731
msgid "Empty path"
msgstr "Percorso vuoto"
#: src/ui-goodies.lisp:2728
#: src/ui-goodies.lisp:2734
#, lisp-format
msgid "No such file ~s"
msgstr "Nono esiste il file ~s"
#: src/ui-goodies.lisp:2731
#: src/ui-goodies.lisp:2737
#, lisp-format
msgid "File ~s is empty"
msgstr "Il file ~s è vuoto"
#: src/ui-goodies.lisp:2738
#: src/ui-goodies.lisp:2744
msgid "Insert certificate key file: "
msgstr "Inserisci il percorso del file che contiene la chiave: "
#: src/ui-goodies.lisp:2742
#: src/ui-goodies.lisp:2748
msgid "Insert the gemini address where where credential are valid: "
msgstr "Inserisci l'indirizzo gemini per il quale le credenziali sono valide: "
#: src/ui-goodies.lisp:2765
#: src/ui-goodies.lisp:2771
#, lisp-format
msgid "Certificate imported for ~s"
msgstr "Certificato importato per ~s"
#: src/ui-goodies.lisp:2767
#: src/ui-goodies.lisp:2773
#, lisp-format
msgid "~s is not a valid gemini address"
msgstr "~s non è un indirizzo gemini valido"
#: src/ui-goodies.lisp:2770
#: src/ui-goodies.lisp:2776
msgid "Insert certificate file: "
msgstr "Inserisci il percorso del file che contiene il certificato: "
#: src/ui-goodies.lisp:2776
#: src/ui-goodies.lisp:2782
msgid "The window is not displaying a gopher document"
msgstr "La finestra non sta mostrando un menu gopher"
#: src/ui-goodies.lisp:2778 src/ui-goodies.lisp:2806
#: src/ui-goodies.lisp:2784 src/ui-goodies.lisp:2812
msgid "This page can not be added to bookmarks"
msgstr "Questa pagina non può essere aggiunta ai segnalibri."
#: src/ui-goodies.lisp:2781
#: src/ui-goodies.lisp:2787
msgid "No description"
msgstr "Nessuna descrizione"
#: src/ui-goodies.lisp:2784 src/ui-goodies.lisp:2814
#: src/ui-goodies.lisp:2790 src/ui-goodies.lisp:2820
msgid "Empty description"
msgstr "Descrizione vuota"
#: src/ui-goodies.lisp:2788 src/ui-goodies.lisp:2818
#: src/ui-goodies.lisp:2794 src/ui-goodies.lisp:2824
msgid "Insert bookmark section: "
msgstr "Inserisci la sezione del segnalibro: "
#: src/ui-goodies.lisp:2796 src/ui-goodies.lisp:2826
#: src/ui-goodies.lisp:2802 src/ui-goodies.lisp:2832
#, lisp-format
msgid "Added ~s in bookmark"
msgstr "Aggiunto ~s come segnalibro"
#: src/ui-goodies.lisp:2798 src/ui-goodies.lisp:2828
#: src/ui-goodies.lisp:2804 src/ui-goodies.lisp:2834
msgid "Insert bookmark description: "
msgstr "Inserisci l adescrizione del segnalibro: "
#: src/ui-goodies.lisp:2834
#: src/ui-goodies.lisp:2840
#, lisp-format
msgid "My bookmark~2%"
msgstr "I miei segnalibri~%"
#: src/ui-goodies.lisp:2839
#: src/ui-goodies.lisp:2845
msgid "Uncategorized"
msgstr "Senza categoria"
#: src/ui-goodies.lisp:2862
#: src/ui-goodies.lisp:2868
#, lisp-format
msgid "Latest visited addresses~2%"
msgstr "Ultimi indirizzi visitati~2%"
#: src/ui-goodies.lisp:2876
#: src/ui-goodies.lisp:2882
msgid "No entry selected"
msgstr "Nessuna voce selezionata"
#: src/ui-goodies.lisp:2881
#: src/ui-goodies.lisp:2887
msgid "Delete bookmark: "
msgstr "Canvella il segnalibro: "
#: src/ui-goodies.lisp:2896
#: src/ui-goodies.lisp:2902
msgid "Search criteria: "
msgstr "Criterio di ricerca: "
#: src/ui-goodies.lisp:2923
#: src/ui-goodies.lisp:2929
msgid "Message window scrolling locked"
msgstr "Scorrimento della finestra dei messaggi bloccato"
#: src/ui-goodies.lisp:2931
#: src/ui-goodies.lisp:2937
msgid "Message window scrolling unlocked"
msgstr "Scorrimento della finestra dei messaggi sbloccato"
#: src/ui-goodies.lisp:2945
#: src/ui-goodies.lisp:2951
msgid "eval: "
msgstr "eval: "
#: src/ui-goodies.lisp:2968
#: src/ui-goodies.lisp:2974
msgid "load file: "
msgstr "Carica il file: "
#: src/ui-goodies.lisp:3016
#: src/ui-goodies.lisp:3022
#, lisp-format
msgid "~s is not a valid kami address"
msgstr "~s non è un indirizzo kami valido"
#: src/ui-goodies.lisp:3040
#: src/ui-goodies.lisp:3046
#, lisp-format
msgid "deleting ~a"
msgstr "cancello ~a"
#: src/ui-goodies.lisp:3046
#: src/ui-goodies.lisp:3052
#, lisp-format
msgid "Delete ~a? [y/N] "
msgstr "Cancella ~a? [s/N] "
#: src/ui-goodies.lisp:3060
#: src/ui-goodies.lisp:3066
#, lisp-format
msgid "Rename ~a to: "
msgstr "Rinomina ~a a: "
#: src/ui-goodies.lisp:3078
#: src/ui-goodies.lisp:3084
#, lisp-format
msgid "Starting download of ~a"
msgstr "Avvio il download di ~a"
#: src/ui-goodies.lisp:3079
#: src/ui-goodies.lisp:3085
#, lisp-format
msgid "Download completed in ~a"
msgstr "Scaricamento di ~a completato"
#: src/ui-goodies.lisp:3086
#: src/ui-goodies.lisp:3092
#, lisp-format
msgid "Download ~a to: "
msgstr "Scarica ~a in: "
#: src/ui-goodies.lisp:3103
#: src/ui-goodies.lisp:3109
msgid "Download: "
msgstr "Scarica: "
#: src/ui-goodies.lisp:3123 src/ui-goodies.lisp:3173 src/ui-goodies.lisp:3418
#: src/ui-goodies.lisp:3129 src/ui-goodies.lisp:3179 src/ui-goodies.lisp:3424
#, lisp-format
msgid "downloading ~a → ~a"
msgstr "Scaricamento di ~a → ~a"
#: src/ui-goodies.lisp:3132 src/ui-goodies.lisp:3427
#: src/ui-goodies.lisp:3138 src/ui-goodies.lisp:3433
msgid "Downloading completed."
msgstr "Scaricamento completato."
#: src/ui-goodies.lisp:3137
#: src/ui-goodies.lisp:3143
msgid "Save downloaded files in directory: "
msgstr "Salva i file scaricati nella directory: "
#: src/ui-goodies.lisp:3182 src/ui-goodies.lisp:3390
#: src/ui-goodies.lisp:3188 src/ui-goodies.lisp:3396
msgid "Uploading completed."
msgstr "Caricamento completato."
#: src/ui-goodies.lisp:3185 src/ui-goodies.lisp:3392
#: src/ui-goodies.lisp:3191 src/ui-goodies.lisp:3398
msgid "Upload: "
msgstr "Carica: "
#: src/ui-goodies.lisp:3200
#: src/ui-goodies.lisp:3206
msgid "Create: "
msgstr "Crea: "
#: src/ui-goodies.lisp:3222
#: src/ui-goodies.lisp:3228
msgid "Search for: "
msgstr "Criterio di ricerca: "
#: src/ui-goodies.lisp:3250
#: src/ui-goodies.lisp:3256
#, lisp-format
msgid "Invalid regular expression ~a"
msgstr "Espressione regolare non valida ~a"
#: src/ui-goodies.lisp:3255
#: src/ui-goodies.lisp:3261
#, lisp-format
msgid "Marked ~a item"
msgid_plural "Marked ~a items"
msgstr[0] "Selezionato ~a elemento"
msgstr[1] "Selezionati ~a elementi"
#: src/ui-goodies.lisp:3260
#: src/ui-goodies.lisp:3266
msgid "Mark items matching: "
msgstr "Seleziona elementi che soddisfano la seguente espressione regolare:"
#: src/ui-goodies.lisp:3268
#: src/ui-goodies.lisp:3274
#, lisp-format
msgid "deleting ~a (~a of ~a)"
msgstr "cancellazione di ~a (~a di ~a)"
#: src/ui-goodies.lisp:3275
#: src/ui-goodies.lisp:3281
#, lisp-format
msgid "Preparing to delete ~a"
msgstr "Preparazione alla cancellazione di ~a"
#: src/ui-goodies.lisp:3285
#: src/ui-goodies.lisp:3291
msgid "Completed"
msgstr "Compito completato"
#: src/ui-goodies.lisp:3288
#: src/ui-goodies.lisp:3294
#, lisp-format
msgid "Delete ~a? "
msgstr "Cancella ~a? "
#: src/ui-goodies.lisp:3305
#: src/ui-goodies.lisp:3311
msgid "Delete marked items? "
msgstr "Cancella gli elementi selezionati? "
#: src/ui-goodies.lisp:3339
#: src/ui-goodies.lisp:3345
#, lisp-format
msgid "Details of: ~a"
msgstr "Dettagli di: ~a"
#: src/ui-goodies.lisp:3340
#: src/ui-goodies.lisp:3346
msgid "Type"
msgstr "Tipo"
#: src/ui-goodies.lisp:3342
#: src/ui-goodies.lisp:3348
msgid "Size"
msgstr "Dimensione"
#: src/ui-goodies.lisp:3344
#: src/ui-goodies.lisp:3350
msgid "Permissions"
msgstr "Permessi"
#: src/ui-goodies.lisp:3355
#: src/ui-goodies.lisp:3361
#, lisp-format
msgid "File ~s was modified on server"
msgstr "Il file ~s è stato modificato sul server"
#: src/ui-goodies.lisp:3382
#: src/ui-goodies.lisp:3388
#, lisp-format
msgid "Uploading ~a"
msgstr "Caricamento di ~a"
#: src/ui-goodies.lisp:3405
#: src/ui-goodies.lisp:3411
msgid "Preparing for download…"
msgstr "Preparazione allo scaricamento…"
#: src/ui-goodies.lisp:3430
#: src/ui-goodies.lisp:3436
msgid "Download in: "
msgstr "Scarica in: "
#: src/ui-goodies.lisp:3449
#: src/ui-goodies.lisp:3455
#, lisp-format
msgid "Deleting cache directory ~a"
msgstr "Cancello la cache ~a"
#: src/ui-goodies.lisp:3456
#: src/ui-goodies.lisp:3462
msgid "Delete cache? [y/N] "
msgstr "Cancella la cache? [s/N] "
#: src/ui-goodies.lisp:3460
msgid "Getting all notification, please wait..."
msgstr "Recupero tutte le notifiche, si prega di attendere…"
#: src/windows.lisp:621 src/windows.lisp:677
#: src/windows.lisp:624 src/windows.lisp:680
msgid "OK"
msgstr "OK"

View File

@ -6,9 +6,9 @@
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: tinmop 0.9.9.1\n"
"Project-Id-Version: tinmop 0.9.9.141\n"
"Report-Msgid-Bugs-To: https://notabug.org/cage/tinmop/\n"
"POT-Creation-Date: 2023-01-08 15:11+0100\n"
"POT-Creation-Date: 2023-01-30 21:11+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"
@ -18,7 +18,7 @@ msgstr ""
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=INTEGER; plural=EXPRESSION;\n"
#: modules/share-gemini-link.lisp:30 src/ui-goodies.lisp:2804
#: modules/share-gemini-link.lisp:30 src/ui-goodies.lisp:2810
msgid "The window is not displaying a gemini document"
msgstr ""
@ -49,7 +49,7 @@ msgid "Open address"
msgstr ""
#: src/api-client.lisp:214 src/ui-goodies.lisp:210 src/ui-goodies.lisp:215
#: src/windows.lisp:615 src/windows.lisp:671
#: src/windows.lisp:618 src/windows.lisp:674
msgid "Cancel"
msgstr ""
@ -286,48 +286,46 @@ msgstr ""
msgid "Subscribed gemlogs"
msgstr ""
#: src/gemini-viewer.lisp:477
#: src/gemini-viewer.lisp:460
msgid "Gemini document downloading aborted"
msgstr ""
#: src/gemini-viewer.lisp:482
#: src/gemini-viewer.lisp:465
msgid "Gemini document downloading completed"
msgstr ""
#: src/gemini-viewer.lisp:677
#: src/gemini-viewer.lisp:662
#, lisp-format
msgid "Server ~s asks: ~s "
msgstr ""
#: src/gemini-viewer.lisp:697
#: src/gemini-viewer.lisp:682
#, lisp-format
msgid "Redirects to ~s, follows redirect? [y/N] "
msgstr ""
#: src/gemini-viewer.lisp:774 src/gui/server/public-api.lisp:184
#: src/tui-utils.lisp:509 src/tui-utils.lisp:520 src/ui-goodies.lisp:2982
#: src/ui-goodies.lisp:2988
#: src/gemini-viewer.lisp:759 src/tui-utils.lisp:509 src/tui-utils.lisp:520
#: src/ui-goodies.lisp:2988 src/ui-goodies.lisp:2994
#, lisp-format
msgid "Error: ~a"
msgstr ""
#: src/gemini-viewer.lisp:781 src/gemini-viewer.lisp:785
#: src/gui/server/public-api.lisp:188 src/gui/server/public-api.lisp:190
#: src/gemini-viewer.lisp:766 src/gemini-viewer.lisp:770
#, lisp-format
msgid "Error getting ~s: ~a"
msgstr ""
#: src/gemini-viewer.lisp:793
#: src/gemini-viewer.lisp:778
#, lisp-format
msgid "Going back to: ~a"
msgstr ""
#: src/gemini-viewer.lisp:805
#: src/gemini-viewer.lisp:790
#, lisp-format
msgid "Viewing source of: ~a"
msgstr ""
#: src/gemini-viewer.lisp:861
#: src/gemini-viewer.lisp:846
msgid "Current gemini streams"
msgstr ""
@ -691,12 +689,12 @@ msgstr ""
msgid "No program defined in configuration file to edit this kind of files."
msgstr ""
#: src/os-utils.lisp:209
#: src/os-utils.lisp:201
#, lisp-format
msgid "File ~s does not exists"
msgstr ""
#: src/os-utils.lisp:211
#: src/os-utils.lisp:203
#, lisp-format
msgid "Destination directory ~s does not exists"
msgstr ""
@ -964,7 +962,7 @@ msgid "Jump to message: "
msgstr ""
#: src/ui-goodies.lisp:284 src/ui-goodies.lisp:308 src/ui-goodies.lisp:443
#: src/ui-goodies.lisp:1485 src/ui-goodies.lisp:2701
#: src/ui-goodies.lisp:1485 src/ui-goodies.lisp:2707
msgid "Search key: "
msgstr ""
@ -1470,319 +1468,323 @@ msgstr ""
msgid "Invalid gopher address."
msgstr ""
#: src/ui-goodies.lisp:2508
#: src/ui-goodies.lisp:2393
msgid "Empty address."
msgstr ""
#: src/ui-goodies.lisp:2397
msgid "Invalid or unknown address."
msgstr ""
#: src/ui-goodies.lisp:2514
#, lisp-format
msgid "Subscribing to ~s"
msgstr ""
#: src/ui-goodies.lisp:2519
#: src/ui-goodies.lisp:2525
#, lisp-format
msgid "Command ~s completed"
msgstr ""
#: src/ui-goodies.lisp:2527
#: src/ui-goodies.lisp:2533
msgid "Send to command: "
msgstr ""
#: src/ui-goodies.lisp:2536
#: src/ui-goodies.lisp:2542
msgid "Send message to command: "
msgstr ""
#: src/ui-goodies.lisp:2586
#: src/ui-goodies.lisp:2592
#, lisp-format
msgid "Index ~a out of range"
msgstr ""
#: src/ui-goodies.lisp:2588
#: src/ui-goodies.lisp:2594
msgid "Tour saved"
msgstr ""
#: src/ui-goodies.lisp:2609
#: src/ui-goodies.lisp:2615
msgid "link indices: "
msgstr ""
#: src/ui-goodies.lisp:2616
#: src/ui-goodies.lisp:2622
msgid "Tour completed"
msgstr ""
#: src/ui-goodies.lisp:2625
#: src/ui-goodies.lisp:2631
msgid "Current links tour"
msgstr ""
#: src/ui-goodies.lisp:2639
#: src/ui-goodies.lisp:2645
#, lisp-format
msgid "~s saved in tour"
msgstr ""
#: src/ui-goodies.lisp:2714
#: src/ui-goodies.lisp:2720
#, lisp-format
msgid ""
"Host ~s signature changed! This is a potential security risk! Ignore this "
"warning? [y/N] "
msgstr ""
#: src/ui-goodies.lisp:2725
#: src/ui-goodies.lisp:2731
msgid "Empty path"
msgstr ""
#: src/ui-goodies.lisp:2728
#: src/ui-goodies.lisp:2734
#, lisp-format
msgid "No such file ~s"
msgstr ""
#: src/ui-goodies.lisp:2731
#: src/ui-goodies.lisp:2737
#, lisp-format
msgid "File ~s is empty"
msgstr ""
#: src/ui-goodies.lisp:2738
#: src/ui-goodies.lisp:2744
msgid "Insert certificate key file: "
msgstr ""
#: src/ui-goodies.lisp:2742
#: src/ui-goodies.lisp:2748
msgid "Insert the gemini address where where credential are valid: "
msgstr ""
#: src/ui-goodies.lisp:2765
#: src/ui-goodies.lisp:2771
#, lisp-format
msgid "Certificate imported for ~s"
msgstr ""
#: src/ui-goodies.lisp:2767
#: src/ui-goodies.lisp:2773
#, lisp-format
msgid "~s is not a valid gemini address"
msgstr ""
#: src/ui-goodies.lisp:2770
#: src/ui-goodies.lisp:2776
msgid "Insert certificate file: "
msgstr ""
#: src/ui-goodies.lisp:2776
#: src/ui-goodies.lisp:2782
msgid "The window is not displaying a gopher document"
msgstr ""
#: src/ui-goodies.lisp:2778 src/ui-goodies.lisp:2806
#: src/ui-goodies.lisp:2784 src/ui-goodies.lisp:2812
msgid "This page can not be added to bookmarks"
msgstr ""
#: src/ui-goodies.lisp:2781
#: src/ui-goodies.lisp:2787
msgid "No description"
msgstr ""
#: src/ui-goodies.lisp:2784 src/ui-goodies.lisp:2814
#: src/ui-goodies.lisp:2790 src/ui-goodies.lisp:2820
msgid "Empty description"
msgstr ""
#: src/ui-goodies.lisp:2788 src/ui-goodies.lisp:2818
#: src/ui-goodies.lisp:2794 src/ui-goodies.lisp:2824
msgid "Insert bookmark section: "
msgstr ""
#: src/ui-goodies.lisp:2796 src/ui-goodies.lisp:2826
#: src/ui-goodies.lisp:2802 src/ui-goodies.lisp:2832
#, lisp-format
msgid "Added ~s in bookmark"
msgstr ""
#: src/ui-goodies.lisp:2798 src/ui-goodies.lisp:2828
#: src/ui-goodies.lisp:2804 src/ui-goodies.lisp:2834
msgid "Insert bookmark description: "
msgstr ""
#: src/ui-goodies.lisp:2834
#: src/ui-goodies.lisp:2840
#, lisp-format
msgid "My bookmark~2%"
msgstr ""
#: src/ui-goodies.lisp:2839
#: src/ui-goodies.lisp:2845
msgid "Uncategorized"
msgstr ""
#: src/ui-goodies.lisp:2862
#: src/ui-goodies.lisp:2868
#, lisp-format
msgid "Latest visited addresses~2%"
msgstr ""
#: src/ui-goodies.lisp:2876
#: src/ui-goodies.lisp:2882
msgid "No entry selected"
msgstr ""
#: src/ui-goodies.lisp:2881
#: src/ui-goodies.lisp:2887
msgid "Delete bookmark: "
msgstr ""
#: src/ui-goodies.lisp:2896
#: src/ui-goodies.lisp:2902
msgid "Search criteria: "
msgstr ""
#: src/ui-goodies.lisp:2923
#: src/ui-goodies.lisp:2929
msgid "Message window scrolling locked"
msgstr ""
#: src/ui-goodies.lisp:2931
#: src/ui-goodies.lisp:2937
msgid "Message window scrolling unlocked"
msgstr ""
#: src/ui-goodies.lisp:2945
#: src/ui-goodies.lisp:2951
msgid "eval: "
msgstr ""
#: src/ui-goodies.lisp:2968
#: src/ui-goodies.lisp:2974
msgid "load file: "
msgstr ""
#: src/ui-goodies.lisp:3016
#: src/ui-goodies.lisp:3022
#, lisp-format
msgid "~s is not a valid kami address"
msgstr ""
#: src/ui-goodies.lisp:3040
#: src/ui-goodies.lisp:3046
#, lisp-format
msgid "deleting ~a"
msgstr ""
#: src/ui-goodies.lisp:3046
#: src/ui-goodies.lisp:3052
#, lisp-format
msgid "Delete ~a? [y/N] "
msgstr ""
#: src/ui-goodies.lisp:3060
#: src/ui-goodies.lisp:3066
#, lisp-format
msgid "Rename ~a to: "
msgstr ""
#: src/ui-goodies.lisp:3078
#: src/ui-goodies.lisp:3084
#, lisp-format
msgid "Starting download of ~a"
msgstr ""
#: src/ui-goodies.lisp:3079
#: src/ui-goodies.lisp:3085
#, lisp-format
msgid "Download completed in ~a"
msgstr ""
#: src/ui-goodies.lisp:3086
#: src/ui-goodies.lisp:3092
#, lisp-format
msgid "Download ~a to: "
msgstr ""
#: src/ui-goodies.lisp:3103
#: src/ui-goodies.lisp:3109
msgid "Download: "
msgstr ""
#: src/ui-goodies.lisp:3123 src/ui-goodies.lisp:3173 src/ui-goodies.lisp:3418
#: src/ui-goodies.lisp:3129 src/ui-goodies.lisp:3179 src/ui-goodies.lisp:3424
#, lisp-format
msgid "downloading ~a → ~a"
msgstr ""
#: src/ui-goodies.lisp:3132 src/ui-goodies.lisp:3427
#: src/ui-goodies.lisp:3138 src/ui-goodies.lisp:3433
msgid "Downloading completed."
msgstr ""
#: src/ui-goodies.lisp:3137
#: src/ui-goodies.lisp:3143
msgid "Save downloaded files in directory: "
msgstr ""
#: src/ui-goodies.lisp:3182 src/ui-goodies.lisp:3390
#: src/ui-goodies.lisp:3188 src/ui-goodies.lisp:3396
msgid "Uploading completed."
msgstr ""
#: src/ui-goodies.lisp:3185 src/ui-goodies.lisp:3392
#: src/ui-goodies.lisp:3191 src/ui-goodies.lisp:3398
msgid "Upload: "
msgstr ""
#: src/ui-goodies.lisp:3200
#: src/ui-goodies.lisp:3206
msgid "Create: "
msgstr ""
#: src/ui-goodies.lisp:3222
#: src/ui-goodies.lisp:3228
msgid "Search for: "
msgstr ""
#: src/ui-goodies.lisp:3250
#: src/ui-goodies.lisp:3256
#, lisp-format
msgid "Invalid regular expression ~a"
msgstr ""
#: src/ui-goodies.lisp:3255
#: src/ui-goodies.lisp:3261
#, lisp-format
msgid "Marked ~a item"
msgid_plural "Marked ~a items"
msgstr[0] ""
msgstr[1] ""
#: src/ui-goodies.lisp:3260
#: src/ui-goodies.lisp:3266
msgid "Mark items matching: "
msgstr ""
#: src/ui-goodies.lisp:3268
#: src/ui-goodies.lisp:3274
#, lisp-format
msgid "deleting ~a (~a of ~a)"
msgstr ""
#: src/ui-goodies.lisp:3275
#: src/ui-goodies.lisp:3281
#, lisp-format
msgid "Preparing to delete ~a"
msgstr ""
#: src/ui-goodies.lisp:3285
#: src/ui-goodies.lisp:3291
msgid "Completed"
msgstr ""
#: src/ui-goodies.lisp:3288
#: src/ui-goodies.lisp:3294
#, lisp-format
msgid "Delete ~a? "
msgstr ""
#: src/ui-goodies.lisp:3305
#: src/ui-goodies.lisp:3311
msgid "Delete marked items? "
msgstr ""
#: src/ui-goodies.lisp:3339
#: src/ui-goodies.lisp:3345
#, lisp-format
msgid "Details of: ~a"
msgstr ""
#: src/ui-goodies.lisp:3340
#: src/ui-goodies.lisp:3346
msgid "Type"
msgstr ""
#: src/ui-goodies.lisp:3342
#: src/ui-goodies.lisp:3348
msgid "Size"
msgstr ""
#: src/ui-goodies.lisp:3344
#: src/ui-goodies.lisp:3350
msgid "Permissions"
msgstr ""
#: src/ui-goodies.lisp:3355
#: src/ui-goodies.lisp:3361
#, lisp-format
msgid "File ~s was modified on server"
msgstr ""
#: src/ui-goodies.lisp:3382
#: src/ui-goodies.lisp:3388
#, lisp-format
msgid "Uploading ~a"
msgstr ""
#: src/ui-goodies.lisp:3405
#: src/ui-goodies.lisp:3411
msgid "Preparing for download…"
msgstr ""
#: src/ui-goodies.lisp:3430
#: src/ui-goodies.lisp:3436
msgid "Download in: "
msgstr ""
#: src/ui-goodies.lisp:3449
#: src/ui-goodies.lisp:3455
#, lisp-format
msgid "Deleting cache directory ~a"
msgstr ""
#: src/ui-goodies.lisp:3456
#: src/ui-goodies.lisp:3462
msgid "Delete cache? [y/N] "
msgstr ""
#: src/ui-goodies.lisp:3460
msgid "Getting all notification, please wait..."
msgstr ""
#: src/windows.lisp:621 src/windows.lisp:677
#: src/windows.lisp:624 src/windows.lisp:680
msgid "OK"
msgstr ""

View File

@ -39,7 +39,7 @@ CROATOAN_GIT_URL=https://github.com/McParen/croatoan.git
CROATOAN_DIR="$QUICKLISP_INSTALL_DIR"/local-projects/croatoan/
CROATOAN_COMMIT=35c92fcc6c4458339c7e27bdf16f7fa908d95eb8
CROATOAN_COMMIT=efa628759d12d992ae3976e6b72c61e075ce8f71
echo_bold () {
printf "\033[1m%s\033[0m\n" "$1"

View File

@ -1918,7 +1918,8 @@
(:shadowing-import-from :misc :random-elt :shuffle)
(:shadowing-import-from :stack :stack :stack-push :stack-pop :stack-empty-p)
(:shadowing-import-from :text-utils :split-lines)
(:local-nicknames (:c :croatoan))
(:local-nicknames (:c :croatoan)
(:c-dlg #:de.anvi.croatoan.dialog))
(:export
:key-config-holder
:key-config

View File

@ -603,7 +603,7 @@
(title object)
(payload object)
(buttons object))))
(windows:menu-select dialog-window)))
(windows:menu-select dialog-window :force-show-cursor nil)))
(defclass info-dialog-event (dialog-event) ())
@ -612,7 +612,7 @@
(title object)
(payload object)
(buttons object))))
(windows:menu-select dialog-window)))
(windows:menu-select dialog-window :force-show-cursor nil)))
(defclass move-selected-tree-event (program-event)
((new-folder

View File

@ -152,10 +152,14 @@ height, position and so on)"
(gen-simple-win->croatoan-specialized-wrapper touch win)
(defun menu-select (window)
(defun menu-select (window &key (force-show-cursor t))
(with-croatoan-window (croatoan-window window)
(when force-show-cursor
(cursor-show))
(prog1
(c:select croatoan-window)
(c:edit croatoan-window)
(when force-show-cursor
(cursor-hide))
(win-close window))))
(defun win-visible-p (win)
@ -521,57 +525,56 @@ list of strings (the text lines)."
(c:get-char low-level-window)
(win-close window)))
(defun make-dialog (parent title message color-pair
(defun make-dialog (parent title message style
&optional (buttons nil)
(append-ok-button t))
(let* ((lines (text-utils:split-lines message))
(max-line-size (text-utils:find-max-line-length lines))
(actual-buttons (if append-ok-button
(append (list +menu-button-ok+)
buttons)
buttons))
(max-button-size (text-utils:find-max-line-length actual-buttons))
(max-message-height (- (win-height-no-border parent)
4))
(message (join-with-strings lines (format nil "~%")))
(dialog-window (make-instance 'c:dialog-window
:stacked nil
:center t
:message-text message
:input-blocking t
:current-item-mark ""
:color-pair color-pair
:width (min (+ max-line-size 4)
(- (win-width parent)
4))
:border t
:enable-function-keys t
:name title
:title t
:max-item-length (min (+ max-button-size 4)
(- (win-width parent)
4))
:message-height (min (1+ (length lines))
max-message-height)
:items actual-buttons)))
(let* ((lines (text-utils:split-lines message))
(actual-buttons (if append-ok-button
(append (list +menu-button-ok+)
buttons)
buttons))
(message (join-with-strings lines (format nil "~%")))
(dialog-window (make-instance 'c-dlg:msgbox
;:parent parent
:stacked nil
:center t
:message message
:input-blocking t
:style style
:wrap-message t
:enable-function-keys t
:title title
:buttons actual-buttons)))
(make-instance 'wrapper-window
:croatoan-window dialog-window)))
(defun make-simple-dialog-style (fg bg)
`(:foreground (:fgcolor ,fg :bgcolor ,bg)
:background (:fgcolor ,fg :bgcolor ,bg)
:title (:fgcolor ,fg :bgcolor ,bg)
c:label (:foreground (:fgcolor ,fg :bgcolor ,bg))
c:button (:border (:fgcolor ,bg)
:foreground (:fgcolor ,fg)
:selected-border (:fgcolor ,fg)
:selected-background (:bgcolor ,bg))))
(defun make-error-message-dialog (parent title message
&optional
(buttons nil)
(append-ok-button t))
(let ((bg (swconf:win-bg swconf:+key-error-dialog+))
(fg (swconf:win-fg swconf:+key-error-dialog+)))
(make-dialog parent title message (list fg bg) buttons append-ok-button)))
(let* ((bg (swconf:win-bg swconf:+key-error-dialog+))
(fg (swconf:win-fg swconf:+key-error-dialog+))
(style (make-simple-dialog-style fg bg)))
(make-dialog parent title message style buttons append-ok-button)))
(defun make-info-message-dialog (parent title message
&optional
(buttons nil)
(append-ok-button t))
(let ((bg (swconf:win-bg swconf:+key-info-dialog+))
(fg (swconf:win-fg swconf:+key-info-dialog+)))
(make-dialog parent title message (list fg bg) buttons append-ok-button)))
(let* ((bg (swconf:win-bg swconf:+key-info-dialog+))
(fg (swconf:win-fg swconf:+key-info-dialog+))
(style (make-simple-dialog-style fg bg)))
(make-dialog parent title message style buttons append-ok-button)))
(defun make-simple-style (foreground background
selected-foreground selected-background)