cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-09 07:18:39 +01:00
Code Issues

- changed logic to guess if the window is displaying gemini contents;

Browse Source 
- replaced window'stitle with the IRI of the gemini content streaming;

- fixed italian translation.
This commit is contained in:
cage 2021-11-12 19:11:28 +01:00
parent 5c5378d348
commit ebddc9e1e6
7 changed files with 72 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
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: 2021-11-12 15:48+0100\n"
"PO-Revision-Date: 2021-11-12 15:49+0100\n"
"POT-Creation-Date: 2021-11-12 18:58+0100\n"
"PO-Revision-Date: 2021-11-12 18:57+0100\n"
"Last-Translator: cage <cage@invalid.org>\n"
"Language-Team: Italian\n"
"Language: it\n"
@ -241,7 +241,7 @@ msgstr "Certificati generati"
msgid "Table of contents"
msgstr "Indice"
#: src/gemini-subscription-window.lisp:50 src/program-events.lisp:1355
#: src/gemini-subscription-window.lisp:50 src/program-events.lisp:1366
msgid "No subtitle"
msgstr "Nessun sottotitolo"
@ -433,7 +433,7 @@ msgid "invalid regular expression ~s ~a"
msgstr "Espressione regolare non valida ~s ~a"
#: src/line-oriented-window.lisp:325 src/open-message-link-window.lisp:194
#: src/program-events.lisp:454
#: src/program-events.lisp:465
msgid "Invalid regular expression"
msgstr "Espressione regolare non valida"
@ -556,11 +556,11 @@ msgstr "È ammessa una sola scelta"
msgid "The poll has expired"
msgstr "Il sondaggio è scaduto"
#: src/message-window.lisp:701
#: src/message-window.lisp:703
msgid "Gemini stream"
msgstr "Flussi di dati gemini"
#: src/message-window.lisp:702
#: src/message-window.lisp:704
msgid "Messages"
msgstr "Messaggi"
@ -601,60 +601,60 @@ msgstr "Il file ~s non esiste"
msgid "Destination directory ~s does not exists"
msgstr "La directory di destinazione ~s non esiste"
#: src/program-events.lisp:565
#: src/program-events.lisp:576
msgid "No message selected!"
msgstr "Nessun messaggio selezionato!"
#: src/program-events.lisp:745
#: src/program-events.lisp:756
msgid "Message sent."
msgstr "Messaggio spedito"
#: src/program-events.lisp:769
#: src/program-events.lisp:780
#, lisp-format
msgid "Unable to find user ~a"
msgstr "Non trovo l'utente ~a"
#: src/program-events.lisp:819
#: src/program-events.lisp:830
#, lisp-format
msgid "Downloaded new messages for tag ~a"
msgstr "Scaricati nuovi messaggi per l'etichetta ~a."
#: src/program-events.lisp:934
#: src/program-events.lisp:945
#, lisp-format
msgid "Got ~a notification"
msgid_plural "Got ~a notifications"
msgstr[0] "Hai ~a notifica"
msgstr[1] "Hai ~a notifiche"
#: src/program-events.lisp:1104
#: src/program-events.lisp:1115
#, lisp-format
msgid "Index of local directory ~a~2%"
msgstr "Indice della directory locale ~a~2%"
#: src/program-events.lisp:1137
#: src/program-events.lisp:1148
msgid "Empty address"
msgstr "Indirizzo vuoto"
#: src/program-events.lisp:1310
#: src/program-events.lisp:1321
#, lisp-format
msgid "Unable to subscribe to ~s"
msgstr "Non posso abbonarmi a ~s: "
#: src/program-events.lisp:1366
#: src/program-events.lisp:1377
#, lisp-format
msgid "~a ~:[(not opened)~;(opened)~]~%"
msgstr "~a ~:[(non aperto)~;(aperto)~]~%"
#: src/program-events.lisp:1390
#: src/program-events.lisp:1401
#, lisp-format
msgid "updating gemlog ~a"
msgstr "Aggiornamento del gemlog ~a."
#: src/program-events.lisp:1437
#: src/program-events.lisp:1448
msgid "TOC can be shown for gemini windows only."
msgstr "L'indice può essere generato solo per le pagine gemini."
#: src/program-events.lisp:1546
#: src/program-events.lisp:1557
msgid "no label"
msgstr "nessuna etichetta"
@ -1392,7 +1392,7 @@ msgstr "Senza categoria"
#: src/ui-goodies.lisp:2268
#, lisp-format
msgid "Latest visited addresses~2%"
msgstr "Ultimi indirizzi visitati~2%."
msgstr "Ultimi indirizzi visitati~2%"
#: src/ui-goodies.lisp:2282
msgid "No entry selected"

34
po/tinmop.pot
View File

@ -8,7 +8,7 @@ msgid ""
msgstr ""
"Project-Id-Version: tinmop 0.8.3\n"
"Report-Msgid-Bugs-To: https://notabug.org/cage/tinmop/\n"
"POT-Creation-Date: 2021-11-12 15:48+0100\n"
"POT-Creation-Date: 2021-11-12 18:58+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"
@ -232,7 +232,7 @@ msgstr ""
msgid "Table of contents"
msgstr ""
#: src/gemini-subscription-window.lisp:50 src/program-events.lisp:1355
#: src/gemini-subscription-window.lisp:50 src/program-events.lisp:1366
msgid "No subtitle"
msgstr ""
@ -424,7 +424,7 @@ msgid "invalid regular expression ~s ~a"
msgstr ""
#: src/line-oriented-window.lisp:325 src/open-message-link-window.lisp:194
#: src/program-events.lisp:454
#: src/program-events.lisp:465
msgid "Invalid regular expression"
msgstr ""
@ -543,11 +543,11 @@ msgstr ""
msgid "The poll has expired"
msgstr ""
#: src/message-window.lisp:701
#: src/message-window.lisp:703
msgid "Gemini stream"
msgstr ""
#: src/message-window.lisp:702
#: src/message-window.lisp:704
msgid "Messages"
msgstr ""
@ -586,60 +586,60 @@ msgstr ""
msgid "Destination directory ~s does not exists"
msgstr ""
#: src/program-events.lisp:565
#: src/program-events.lisp:576
msgid "No message selected!"
msgstr ""
#: src/program-events.lisp:745
#: src/program-events.lisp:756
msgid "Message sent."
msgstr ""
#: src/program-events.lisp:769
#: src/program-events.lisp:780
#, lisp-format
msgid "Unable to find user ~a"
msgstr ""
#: src/program-events.lisp:819
#: src/program-events.lisp:830
#, lisp-format
msgid "Downloaded new messages for tag ~a"
msgstr ""
#: src/program-events.lisp:934
#: src/program-events.lisp:945
#, lisp-format
msgid "Got ~a notification"
msgid_plural "Got ~a notifications"
msgstr[0] ""
msgstr[1] ""
#: src/program-events.lisp:1104
#: src/program-events.lisp:1115
#, lisp-format
msgid "Index of local directory ~a~2%"
msgstr ""
#: src/program-events.lisp:1137
#: src/program-events.lisp:1148
msgid "Empty address"
msgstr ""
#: src/program-events.lisp:1310
#: src/program-events.lisp:1321
#, lisp-format
msgid "Unable to subscribe to ~s"
msgstr ""
#: src/program-events.lisp:1366
#: src/program-events.lisp:1377
#, lisp-format
msgid "~a ~:[(not opened)~;(opened)~]~%"
msgstr ""
#: src/program-events.lisp:1390
#: src/program-events.lisp:1401
#, lisp-format
msgid "updating gemlog ~a"
msgstr ""
#: src/program-events.lisp:1437
#: src/program-events.lisp:1448
msgid "TOC can be shown for gemini windows only."
msgstr ""
#: src/program-events.lisp:1546
#: src/program-events.lisp:1557
msgid "no label"
msgstr ""

10
src/gemini-viewer.lisp
View File

@ -362,6 +362,9 @@
(labels ((maybe-render-line (line-event)
(when (eq (stream-status wrapper-object) :rendering)
(program-events:push-event line-event)))
(maybe-change-title (title-event)
(when (eq (stream-status wrapper-object) :rendering)
(program-events:push-event title-event)))
(maybe-render-toc ()
(when (eq (stream-status wrapper-object) :rendering)
(ui:open-gemini-toc)))
@ -403,10 +406,13 @@
(url-event (make-instance 'program-events:gemini-got-line-event
:wrapper-object wrapper-object
:payload url-response
:append-text nil)))
:append-text nil))
(new-title-event (make-instance 'program-events:change-window-title-event
:payload url-header
:window *message-window*)))
(write-sequence url-header file-stream)
(increment-bytes-count wrapper-object url-header :convert-to-octects t)
(maybe-change-title new-title-event)
(maybe-render-line url-event)
(maybe-render-preformat-wrapper file-stream wrapper-object)
(loop

2
src/message-window.lisp
View File

@ -72,7 +72,7 @@
(defgeneric generate-toc (object))
(defun gemini-window-p* (window)
(gemini-viewer:gemini-metadata-p (message-window:metadata window)))
(display-gemini-text-p window))
(defun gemini-window-p ()
(gemini-window-p* specials:*message-window*))

1
src/package.lisp
View File

@ -1426,6 +1426,7 @@
:user-input-string-event
:notify-user-event
:remove-notify-user-event
:change-window-title-event
:save-timeline-in-db-event
:timeline-type
:localp

11
src/program-events.lisp
View File

@ -313,6 +313,17 @@
(let ((win (payload object)))
(mtree:remove-child specials:*main-window* win)))
(defclass change-window-title-event (program-event)
((window
:initform nil
:initarg :window
:accessor window)))
(defmethod process-event ((object change-window-title-event))
(with-accessors ((title payload)
(window window)) object
(setf (message-window::title window) title)))
(define-constant +max-recover-count+ 3)
(defclass save-timeline-in-db-event (program-event)

16
src/windows.lisp
View File

@ -686,7 +686,7 @@ insetred by the user"
:accessor title
:documentation "The actual title")
(title-padding-left
:initform " "
:initform 3
:initarg :title-padding-left
:accessor title-padding-left
:documentation "left padding text for title")
@ -715,6 +715,20 @@ insetred by the user"
(setf right-stopper right-mark)))
object)
(defmethod (setf title) ((new-title string) (object title-window))
(with-slots (title) object
(with-accessors ((left-stopper left-stopper)
(right-stopper right-stopper)
(title-padding-left title-padding-left)) object
(let ((clean-title (ellipsize (trim-blanks new-title)
(truncate (/ (- (win-width object)
(length left-stopper)
(length right-stopper)
title-padding-left)
2)))))
(setf title clean-title))))
object)
(defmethod draw :after ((object title-window))
(with-accessors ((left-stopper left-stopper)
(right-stopper right-stopper)