- fixed typos using codespell.

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

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

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

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)

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)

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
+- follows-requests the account entities (from tooter library) that request to follow you
-- username-follow-requests the username of the accounts that requestes 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)

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

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

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
+  (:documentation "terminal-code:  the raw string that the terminal provides to encode a key
-   croatoan-code:  ther symbol croatoan use and returns to  usercode
+   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.

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

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