mirror of https://codeberg.org/cage/tinmop/
- removed full stop ('.'), from some translatable strings.
This commit is contained in:
cage
parent
1fc696e521
commit
a06caf629b
|
|
@ -115,7 +115,7 @@ into the mastodon server"
|
|||
|
||||
(defun authorize-dialog-message ()
|
||||
"Message printed when asking user to visit the autorization URL"
|
||||
(_ "Please visit the address below."))
|
||||
(_ "Please visit the address below"))
|
||||
|
||||
(defun open-catch-code-socket ()
|
||||
"Returns a server socket on an arbitrary port, used to get the
|
||||
|
|
@ -200,7 +200,7 @@ Returns nil if the user did not provided a server in the configuration file"
|
|||
(error ()
|
||||
(ui:error-dialog-immediate
|
||||
(format nil
|
||||
(_ "Credential invalid. Try to remove ~a and restart the software to authenticate again.")
|
||||
(_ "Credential invalid. Try to remove ~a and restart the software to authenticate again")
|
||||
(res:get-data-file +credentials-filename+))))))
|
||||
(multiple-value-bind (server-socket server-port)
|
||||
(open-catch-code-socket)
|
||||
|
|
|
|||
|
|
@ -246,7 +246,7 @@
|
|||
:reader host))
|
||||
(:report (lambda (condition stream)
|
||||
(format stream
|
||||
(_ "The certificate of host ~a has changed from your latest visit.")
|
||||
(_ "The certificate of host ~a has changed from your latest visit")
|
||||
(host condition))))
|
||||
(:documentation "The condition signalled when tofu failed"))
|
||||
|
||||
|
|
|
|||
|
|
@ -101,7 +101,7 @@
|
|||
|
||||
(defun sync-library (&key (notify nil))
|
||||
(when notify
|
||||
(ui:notify (format nil (_ "Syncing gempub library."))))
|
||||
(ui:notify (format nil (_ "Syncing gempub library"))))
|
||||
(let ((all-known (db:all-gempub-metadata))
|
||||
(all-gempub-files (remove-if-not (lambda (a) (gempub:gempub-file-p a
|
||||
:ignore-errors t))
|
||||
|
|
|
|||
|
|
@ -19,7 +19,7 @@
|
|||
(format nil (_ "The address ~a has been bookmarked") iri))
|
||||
(gui:exit-from-toplevel toplevel))
|
||||
(gui-goodies:error-dialog toplevel
|
||||
(format nil (_ "~s is not a valid gemini address.") iri))))))
|
||||
(format nil (_ "~s is not a valid gemini address") iri))))))
|
||||
|
||||
(defun make-edit-window (master iri
|
||||
&optional
|
||||
|
|
|
|||
|
|
@ -38,5 +38,5 @@
|
|||
(t
|
||||
(os-utils:open-link-with-program program resource :wait open-for-edit)))
|
||||
(if open-for-edit
|
||||
(error (_ "No program defined in configuration file to edit this kind of files."))
|
||||
(error (_ "No program defined in configuration file to edit this kind of files"))
|
||||
(os-utils:xdg-open resource)))))))
|
||||
|
|
|
|||
|
|
@ -71,7 +71,7 @@
|
|||
(if (string-empty-p trimmed-data-text)
|
||||
(progn
|
||||
(setf has-error-p t)
|
||||
(gui-goodies:notify-request-error (_ "Neither a file to upload has been specified nor text data has been typed.")))
|
||||
(gui-goodies:notify-request-error (_ "Neither a file to upload has been specified nor text data has been typed")))
|
||||
(setf mime constants:+mime-type-text+
|
||||
size (length (gui:text data-text))
|
||||
titan-data (trim-blanks (gui:text data-text)))))
|
||||
|
|
|
|||
|
|
@ -134,7 +134,7 @@
|
|||
(if (and (null crypto-key)
|
||||
notify-cant-decrypt)
|
||||
(ui:notify (format nil
|
||||
(_ "Unable to find the crypto key for user ~s.")
|
||||
(_ "Unable to find the crypto key for user ~s")
|
||||
username)
|
||||
:as-error t)
|
||||
(crypto-utils:decrypt-message crypto-data crypto-key))
|
||||
|
|
|
|||
|
|
@ -207,7 +207,7 @@
|
|||
(t
|
||||
(os-utils:open-link-with-program program resource :wait open-for-edit)))
|
||||
(if open-for-edit
|
||||
(error (_ "No program defined in configuration file to edit this kind of files."))
|
||||
(error (_ "No program defined in configuration file to edit this kind of files"))
|
||||
(os-utils:xdg-open resource)))))))
|
||||
|
||||
(defun open-resource-with-tinmop-p (resource)
|
||||
|
|
|
|||
|
|
@ -870,7 +870,7 @@
|
|||
alt-text
|
||||
subject
|
||||
(make-keyword (string-upcase visibility)))
|
||||
(ui:notify (_ "Message sent."))
|
||||
(ui:notify (_ "Message sent"))
|
||||
(ui:close-send-message-window))))))))
|
||||
|
||||
(defun find-user-id-from-exact-acct (username)
|
||||
|
|
@ -1628,7 +1628,7 @@
|
|||
(toc-win specials:*gemini-toc-window*))
|
||||
(cond
|
||||
((not (message-window:gemini-window-p* message-win))
|
||||
(ui:error-message (_ "TOC can be shown for gemini windows only.")))
|
||||
(ui:error-message (_ "TOC can be shown for gemini windows only")))
|
||||
((and toc-win
|
||||
(windows:win-shown-p toc-win))
|
||||
(line-oriented-window:resync-rows-db toc-win :suggested-message-index 0))
|
||||
|
|
|
|||
|
|
@ -52,7 +52,7 @@
|
|||
((fs:file-exists-p system-file)
|
||||
system-file)
|
||||
(t
|
||||
(let ((msg (_ "Cannot find ~s in either ~s or ~s.")))
|
||||
(let ((msg (_ "Cannot find ~s in either ~s or ~s")))
|
||||
(restart-case
|
||||
(error (format nil msg path system-file home-file))
|
||||
(return-home-filename ()
|
||||
|
|
@ -72,7 +72,7 @@
|
|||
((fs:dirp system-dir)
|
||||
system-dir)
|
||||
(t
|
||||
(let ((msg (_ "Cannot find ~s in either ~s or ~s.")))
|
||||
(let ((msg (_ "Cannot find ~s in either ~s or ~s")))
|
||||
(restart-case
|
||||
(error (format nil msg path system-dir home-dir))
|
||||
(return-home-dirname ()
|
||||
|
|
@ -90,7 +90,7 @@
|
|||
(let ((system-file (fs:cat-parent-dir system-dir path)))
|
||||
(if (fs:file-exists-p system-file)
|
||||
system-file
|
||||
(let ((msg (_ "Unrecoverable error: cannot find file ~s.")))
|
||||
(let ((msg (_ "Unrecoverable error: cannot find file ~s")))
|
||||
(error (format nil msg system-file))))))
|
||||
|
||||
(defun get-data-file (path)
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@
|
|||
|
||||
(gen-scheduler-function (refresh-all-chats-data
|
||||
+refresh-all-chats-data-frequency+)
|
||||
(ui:notify (_ "Updating all chats."))
|
||||
(ui:notify (_ "Updating all chats"))
|
||||
(ui:update-all-chats-data))
|
||||
|
||||
(gen-scheduler-function (refresh-gemlog-subscriptions
|
||||
|
|
|
|||
|
|
@ -872,7 +872,7 @@
|
|||
+key-crypted+
|
||||
+key-mark+
|
||||
+key-value+)
|
||||
(_ "This message was crypted.")))
|
||||
(_ "This message was crypted")))
|
||||
|
||||
(defun quick-help-header-colors ()
|
||||
(values (access:accesses *software-configuration*
|
||||
|
|
|
|||
|
|
@ -778,7 +778,7 @@ db:renumber-timeline-message-index."
|
|||
(when redraw
|
||||
(draw object)))
|
||||
(ui:info-message (format nil
|
||||
(_ "No message with index ~a exists.")
|
||||
(_ "No message with index ~a exists")
|
||||
message-index))))))
|
||||
|
||||
(defun message-tuple-id->message-index (timeline-type timeline-folder status-id)
|
||||
|
|
@ -945,13 +945,13 @@ db:renumber-timeline-message-index."
|
|||
(search-messages-body object
|
||||
text-looking-for
|
||||
:next
|
||||
(_ "No next message that contains ~s exists.")))
|
||||
(_ "No next message that contains ~s exists")))
|
||||
|
||||
(defmethod search-previous-message-body ((object thread-window) text-looking-for)
|
||||
(search-messages-body object
|
||||
text-looking-for
|
||||
:previous
|
||||
(_ "No previous message that contains ~s exists.")))
|
||||
(_ "No previous message that contains ~s exists")))
|
||||
|
||||
(defun search-messages-meta (window text-looking-for direction error-message)
|
||||
(with-accessors ((row-selected-index row-selected-index)
|
||||
|
|
@ -979,13 +979,13 @@ db:renumber-timeline-message-index."
|
|||
(search-messages-meta object
|
||||
text-looking-for
|
||||
:next
|
||||
(_ "No next message that contains ~s exists.")))
|
||||
(_ "No next message that contains ~s exists")))
|
||||
|
||||
(defmethod search-previous-message-meta ((object thread-window) text-looking-for)
|
||||
(search-messages-meta object
|
||||
text-looking-for
|
||||
:previous
|
||||
(_ "No previous message that contains ~s exists.")))
|
||||
(_ "No previous message that contains ~s exists")))
|
||||
|
||||
(defmethod search-next-unread ((object thread-window))
|
||||
(with-accessors ((row-selected-index row-selected-index)
|
||||
|
|
@ -1001,7 +1001,7 @@ db:renumber-timeline-message-index."
|
|||
(let ((new-message-index (db:row-message-index matching-status)))
|
||||
(rebuild-lines object new-message-index)
|
||||
(open-message object))
|
||||
(ui:info-message (_ "No others unread messages exist.")))))))
|
||||
(ui:info-message (_ "No others unread messages exist")))))))
|
||||
|
||||
(defmethod add-mention ((object thread-window) mention)
|
||||
(with-accessors ((mentions mentions)) object
|
||||
|
|
|
|||
|
|
@ -734,17 +734,17 @@ along the focused window."
|
|||
(gen-focus-to-window open-gemini-certificates-window
|
||||
*gemini-certificates-window*
|
||||
:documentation "Move focus on open-gemini certificates window"
|
||||
:info-change-focus-message (_ "Focus passed on TLS certificates window."))
|
||||
:info-change-focus-message (_ "Focus passed on TLS certificates window"))
|
||||
|
||||
(gen-focus-to-window open-gemini-subscription-window
|
||||
*gemini-subscription-window*
|
||||
:documentation "Move focus on open-gemini certificates window"
|
||||
:info-change-focus-message (_ "Focus passed on gemlog subscriptions window."))
|
||||
:info-change-focus-message (_ "Focus passed on gemlog subscriptions window"))
|
||||
|
||||
(gen-focus-to-window gemini-toc-window
|
||||
*gemini-toc-window*
|
||||
:documentation "Move focus on gemini page table of contents window"
|
||||
:info-change-focus-message (_ "Focus passed on gemini toc window."))
|
||||
:info-change-focus-message (_ "Focus passed on gemini toc window"))
|
||||
|
||||
(gen-focus-to-window gempub-library-window
|
||||
*gempub-library-window*
|
||||
|
|
@ -798,7 +798,7 @@ along the focused window."
|
|||
(format nil (_ "Saved message in ~s") new-folder))
|
||||
(push-event move-event)
|
||||
(push-event refresh-event))
|
||||
(error-message (_ "No folder specified."))))))
|
||||
(error-message (_ "No folder specified"))))))
|
||||
(ask-string-input #'on-input-complete
|
||||
:prompt (_ "Move to folder: ")
|
||||
:complete-fn #'complete:folder-complete)))
|
||||
|
|
@ -814,9 +814,9 @@ along the focused window."
|
|||
(if folder-exists-p
|
||||
(push-event refresh-event)
|
||||
(error-message (format nil
|
||||
(_ "Folder ~s does not exists.")
|
||||
(_ "Folder ~s does not exists")
|
||||
new-folder)))
|
||||
(error-message (_ "No folder specified.")))))))
|
||||
(error-message (_ "No folder specified")))))))
|
||||
(ask-string-input #'on-input-complete
|
||||
:prompt (_ "Change folder: ")
|
||||
:complete-fn #'complete:folder-complete)))
|
||||
|
|
@ -829,9 +829,9 @@ along the focused window."
|
|||
:new-timeline new-timeline)))
|
||||
(cond
|
||||
((string-empty-p new-timeline)
|
||||
(error-message (_ "No timeline specified.")))
|
||||
(error-message (_ "No timeline specified")))
|
||||
((db:hidden-recipient-p new-timeline)
|
||||
(error-message (_ "This timeline is protected.")))
|
||||
(error-message (_ "This timeline is protected")))
|
||||
(t
|
||||
(push-event refresh-event))))))
|
||||
(ask-string-input #'on-input-complete
|
||||
|
|
@ -851,11 +851,11 @@ and if fetch local (again, to server) statuses only."
|
|||
|
||||
(defun %update-timeline-event (event-payload-function)
|
||||
(let ((event (make-instance 'function-event :payload event-payload-function)))
|
||||
(notify (_ "Downloading messages.")
|
||||
(notify (_ "Downloading messages")
|
||||
:priority +maximum-event-priority+
|
||||
:life (swconf:config-notification-life))
|
||||
(push-event event)
|
||||
(notify (_ "Messages downloaded.")
|
||||
(notify (_ "Messages downloaded")
|
||||
:priority +minimum-event-priority+
|
||||
:life (swconf:config-notification-life))))
|
||||
|
||||
|
|
@ -1011,7 +1011,7 @@ It an existing file path is provided the command will refuse to run."
|
|||
(when (string-not-empty-p file)
|
||||
(if (fs:file-exists-p file)
|
||||
(error-message (format nil
|
||||
(_ "I refuse to overwrite an existing file ~s.")
|
||||
(_ "I refuse to overwrite an existing file ~s")
|
||||
file))
|
||||
(with-open-file (stream file
|
||||
:direction :output
|
||||
|
|
@ -1057,9 +1057,9 @@ It an existing file path is provided the command will refuse to run."
|
|||
(push-event notify-event)
|
||||
(push-event update-subscribed-event)
|
||||
(push-event refresh-window-event))))
|
||||
(notify (_ "Downloading tags messages."))
|
||||
(notify (_ "Downloading tags messages"))
|
||||
(update)
|
||||
(notify (_ "Messages downloaded.")))))
|
||||
(notify (_ "Messages downloaded")))))
|
||||
|
||||
(defun confirm-selected-row-action (message)
|
||||
(when-let* ((selected-row (line-oriented-window:selected-row-fields *thread-window*))
|
||||
|
|
@ -1079,8 +1079,8 @@ It an existing file path is provided the command will refuse to run."
|
|||
:message-index selected-index)))
|
||||
(push-event favourite-event))))
|
||||
(notify-procedure #'update
|
||||
(_ "Favouring message.")
|
||||
:ending-message (_ "Favoured message.")))))))
|
||||
(_ "Favouring message")
|
||||
:ending-message (_ "Favoured message")))))))
|
||||
|
||||
(defun unfavourite-selected-status ()
|
||||
"Unfavourite selected status"
|
||||
|
|
@ -1094,8 +1094,8 @@ It an existing file path is provided the command will refuse to run."
|
|||
:message-index selected-index)))
|
||||
(push-event unfavourite-event))))
|
||||
(notify-procedure #'update
|
||||
(_ "Unfavouring message.")
|
||||
:ending-message (_ "Unfavoured message.")))))))
|
||||
(_ "Unfavouring message")
|
||||
:ending-message (_ "Unfavoured message")))))))
|
||||
|
||||
(defun boost-selected-status ()
|
||||
"Boost selected status"
|
||||
|
|
@ -1109,8 +1109,8 @@ It an existing file path is provided the command will refuse to run."
|
|||
:message-index selected-index)))
|
||||
(push-event reblog-event))))
|
||||
(notify-procedure #'update
|
||||
(_ "Boosting message.")
|
||||
:ending-message (_ "Boosted message.")))))))
|
||||
(_ "Boosting message")
|
||||
:ending-message (_ "Boosted message")))))))
|
||||
|
||||
(defun unboost-selected-status ()
|
||||
"Unboost selected status"
|
||||
|
|
@ -1124,8 +1124,8 @@ It an existing file path is provided the command will refuse to run."
|
|||
:message-index selected-index)))
|
||||
(push-event unreblog-event))))
|
||||
(notify-procedure #'update
|
||||
(_ "Uboosting message.")
|
||||
:ending-message (_ "Unboosted message.")))))))
|
||||
(_ "Uboosting message")
|
||||
:ending-message (_ "Unboosted message")))))))
|
||||
|
||||
(defun ignore-user ()
|
||||
"Ignore user"
|
||||
|
|
@ -1147,7 +1147,7 @@ It an existing file path is provided the command will refuse to run."
|
|||
:payload username)))
|
||||
(if (string-not-empty-p username)
|
||||
(push-event event)
|
||||
(error-message (_ "No username specified."))))))
|
||||
(error-message (_ "No username specified"))))))
|
||||
(ask-string-input #'on-input-complete
|
||||
:prompt (_ "Unignore username: ")
|
||||
:complete-fn #'complete:ignored-username-complete)))
|
||||
|
|
@ -1196,7 +1196,7 @@ It an existing file path is provided the command will refuse to run."
|
|||
:prompt
|
||||
(format nil (_ "Attach ~a? [y/N] ") attach-path)))
|
||||
(error-message (format nil
|
||||
(_ "File ~s does not exists.")
|
||||
(_ "File ~s does not exists")
|
||||
attach-path))))
|
||||
(on-add-attach (attach-path)
|
||||
(if (string-not-empty-p attach-path)
|
||||
|
|
@ -1428,7 +1428,7 @@ It an existing file path is provided the command will refuse to run."
|
|||
(if (> attachments-count
|
||||
max-allowed-attach)
|
||||
(error-message (format nil
|
||||
(_ "The maximum allowed number of media is ~a.")
|
||||
(_ "The maximum allowed number of media is ~a")
|
||||
(swconf:max-attachments-allowed)))
|
||||
(progn
|
||||
(notify (_ "Sending message"))
|
||||
|
|
@ -1572,7 +1572,7 @@ displayed using the standard image viewer installed on the system."
|
|||
:output output-file
|
||||
:error error-stream)))
|
||||
(if (not (os-utils:process-exit-success-p process))
|
||||
(error-message (format nil (_ "Error during images montage: ~a.") error-message))
|
||||
(error-message (format nil (_ "Error during images montage: ~a") error-message))
|
||||
(os-utils:xdg-open output-file))))))))
|
||||
#-montage-bin
|
||||
(notify (_ "ImageMagick binaries not found on this system") :as-error t))
|
||||
|
|
@ -1936,8 +1936,8 @@ certificate).
|
|||
:new-folder folder)))
|
||||
(push-event update-event))))
|
||||
(notify-procedure #'update
|
||||
(_ "Updating conversations.")
|
||||
:ending-message (_ "Conversations updated."))))
|
||||
(_ "Updating conversations")
|
||||
:ending-message (_ "Conversations updated"))))
|
||||
|
||||
(defun open-conversation ()
|
||||
"Open conversation"
|
||||
|
|
@ -1996,7 +1996,7 @@ certificate).
|
|||
(when (string-not-empty-p new-name)
|
||||
(if (db:conversation-folder-exists-p new-name)
|
||||
(error-message (format nil
|
||||
(_ "A conversation with name ~a already exists.")
|
||||
(_ "A conversation with name ~a already exists")
|
||||
new-name))
|
||||
(progn
|
||||
(push-event update-event)
|
||||
|
|
@ -2061,7 +2061,7 @@ certificate).
|
|||
(length comment))))
|
||||
(with-blocking-notify-procedure
|
||||
((format nil (_ "Reporting user: ~s") username)
|
||||
(_ "Report trasmitted."))
|
||||
(_ "Report trasmitted"))
|
||||
(push-event event)))))))
|
||||
(ask-string-input #'on-input-complete
|
||||
:prompt (_ "Comment on reports: ")))))
|
||||
|
|
@ -2189,7 +2189,7 @@ there."
|
|||
(>= idx 0))))
|
||||
choices-list))
|
||||
(error-message
|
||||
(_ "Invalid choices, use a space separated list of positive integers."))
|
||||
(_ "Invalid choices, use a space separated list of positive integers"))
|
||||
(db-utils:with-ready-database (:connect nil)
|
||||
(when-let* ((fields (line-oriented-window:selected-row-fields
|
||||
*thread-window*))
|
||||
|
|
@ -2206,10 +2206,10 @@ there."
|
|||
(if (not (valid-indices-p actual-choices options))
|
||||
(error-message
|
||||
(format nil
|
||||
(_ "Invalid choices, index choice out of range (max ~a).")
|
||||
(_ "Invalid choices, index choice out of range (max ~a)")
|
||||
(1- (length options))))
|
||||
(with-blocking-notify-procedure ((_ "Voting… ")
|
||||
(_ "Choice sent."))
|
||||
(_ "Choice sent"))
|
||||
(push-event event)))))))))
|
||||
(when-let* ((fields (line-oriented-window:selected-row-fields
|
||||
*thread-window*))
|
||||
|
|
@ -2375,7 +2375,7 @@ Currently the only recognized protocols are gemini and kami."
|
|||
(multiple-value-bind (host port type selector)
|
||||
(gopher-parser:parse-iri trimmed-url)
|
||||
(gopher-window::make-request host port type selector))
|
||||
(error () (error-message (_ "Invalid gopher address."))))))
|
||||
(error () (error-message (_ "Invalid gopher address"))))))
|
||||
(t
|
||||
(db-utils:with-ready-database (:connect nil)
|
||||
(open-gemini-address trimmed-url)))))))
|
||||
|
|
@ -2390,11 +2390,11 @@ Currently the only recognized protocols are gemini and kami."
|
|||
(with-enqueued-process ()
|
||||
(cond
|
||||
((string-empty-p url)
|
||||
(error-message (_ "Empty address.")))
|
||||
(error-message (_ "Empty address")))
|
||||
((iri:iri-parse url :null-on-error t)
|
||||
(open-message-link-window:open-message-link url nil))
|
||||
(t
|
||||
(error-message (_ "Invalid or unknown address."))))))
|
||||
(error-message (_ "Invalid or unknown address"))))))
|
||||
|
||||
(defun net-address-history-back ()
|
||||
"Reopen a previous visited net address"
|
||||
|
|
@ -3122,7 +3122,7 @@ Note: existing file will be overwritten."
|
|||
local-file))))
|
||||
remote-files
|
||||
local-files)
|
||||
(info-message (_"Downloading completed.")
|
||||
(info-message (_"Downloading completed")
|
||||
+minimum-event-priority+)))))))))
|
||||
(ask-string-input #'on-input-destination-dir
|
||||
:initial-value local-dir
|
||||
|
|
@ -3172,7 +3172,7 @@ Note: existing file will be overwritten."
|
|||
destination))))
|
||||
destinations
|
||||
sources)
|
||||
(info-message (_"Uploading completed.")
|
||||
(info-message (_"Uploading completed")
|
||||
+minimum-event-priority+)))))))))
|
||||
(ask-string-input #'on-input-complete
|
||||
:prompt (_ "Upload: ")
|
||||
|
|
@ -3380,7 +3380,7 @@ Note: existing file will be overwritten."
|
|||
:force-upload t)))
|
||||
remote-paths
|
||||
children)
|
||||
(info-message (_"Uploading completed."))))))))
|
||||
(info-message (_"Uploading completed"))))))))
|
||||
(ask-string-input #'on-input-complete
|
||||
:prompt (_ "Upload: ")
|
||||
:complete-fn #'complete:directory-complete))))
|
||||
|
|
@ -3417,7 +3417,7 @@ Note: existing file will be overwritten."
|
|||
:notify nil)))
|
||||
remote-paths
|
||||
local-paths)
|
||||
(info-message (_"Downloading completed.")
|
||||
(info-message (_"Downloading completed")
|
||||
+minimum-event-priority+)))))))
|
||||
(ask-string-input #'on-input-complete
|
||||
:prompt (_ "Download in: ")
|
||||
|
|
|
|||
Loading…
Reference in New Issue