From 7e6398bceee15c50746fee35c37ea40be550f9bf Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 21 Sep 2024 12:50:15 +0200 Subject: [PATCH] - fixed typos using codespell. --- src/api-client.lisp | 10 +++++----- src/command-line.lisp | 2 +- src/command-window.lisp | 2 +- src/conversations-window.lisp | 2 +- src/db.lisp | 10 +++++----- src/follow-requests.lisp | 4 ++-- src/gemini-viewer.lisp | 2 +- src/gui/client/stream-frame.lisp | 2 +- src/keybindings.lisp | 4 ++-- src/text-utils.lisp | 4 ++-- src/ui-goodies.lisp | 6 +++--- 11 files changed, 24 insertions(+), 24 deletions(-) diff --git a/src/api-client.lisp b/src/api-client.lisp index fee6d47..cc1247c 100644 --- a/src/api-client.lisp +++ b/src/api-client.lisp @@ -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 diff --git a/src/command-line.lisp b/src/command-line.lisp index 09d5ec2..b5c17f8 100644 --- a/src/command-line.lisp +++ b/src/command-line.lisp @@ -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 () diff --git a/src/command-window.lisp b/src/command-window.lisp index 124bd44..335dd0a 100644 --- a/src/command-window.lisp +++ b/src/command-window.lisp @@ -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 diff --git a/src/conversations-window.lisp b/src/conversations-window.lisp index fecb0a3..c1e2d3f 100644 --- a/src/conversations-window.lisp +++ b/src/conversations-window.lisp @@ -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) diff --git a/src/db.lisp b/src/db.lisp index 506f9e0..c3f79cd 100644 --- a/src/db.lisp +++ b/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) diff --git a/src/follow-requests.lisp b/src/follow-requests.lisp index 71b7c98..e0a9870 100644 --- a/src/follow-requests.lisp +++ b/src/follow-requests.lisp @@ -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) diff --git a/src/gemini-viewer.lisp b/src/gemini-viewer.lisp index d1e808b..8aede49 100644 --- a/src/gemini-viewer.lisp +++ b/src/gemini-viewer.lisp @@ -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 diff --git a/src/gui/client/stream-frame.lisp b/src/gui/client/stream-frame.lisp index 2f0aecb..4bc7c85 100644 --- a/src/gui/client/stream-frame.lisp +++ b/src/gui/client/stream-frame.lisp @@ -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")) diff --git a/src/keybindings.lisp b/src/keybindings.lisp index 197da7a..5159ccc 100644 --- a/src/keybindings.lisp +++ b/src/keybindings.lisp @@ -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. diff --git a/src/text-utils.lisp b/src/text-utils.lisp index 36973e2..8970b22 100644 --- a/src/text-utils.lisp +++ b/src/text-utils.lisp @@ -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))) diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index 7562dc8..2e2c52c 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -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)"