cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed typos using codespell.

This commit is contained in:
cage 2024-09-21 12:50:15 +02:00
parent 9599000c5c
commit 7e6398bcee
11 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/api-client.lisp
View File

@ -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

2
src/command-line.lisp
View File

@ -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 ()

2
src/command-window.lisp
View File

@ -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

2
src/conversations-window.lisp
View File

@ -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)

10
src/db.lisp
View File

@ -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)

4
src/follow-requests.lisp
View File

@ -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)

2
src/gemini-viewer.lisp
View File

@ -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

2
src/gui/client/stream-frame.lisp
View File

@ -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"))

4
src/keybindings.lisp
View File

@ -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.

4
src/text-utils.lisp
View File

@ -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)))

6
src/ui-goodies.lisp
View File

@ -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)"