From e8b529f43793eb30fd5b4ef55b9b69e1c733725f Mon Sep 17 00:00:00 2001 From: Omar Polo Date: Sun, 1 Sep 2024 10:48:44 +0200 Subject: [PATCH] fix typos; joint work with codespell(1) --- ChangeLog | 62 ++++++++++++++++---------------- LICENSES.org | 2 +- NEWS.org | 6 ++-- README.org | 4 +-- doc/tinmop.man | 2 +- doc/tinmop.org | 2 +- etc/default-theme.conf | 18 +++++----- etc/init.lisp | 2 +- etc/shared.conf | 2 +- po/ca.po | 8 ++--- po/tinmop.pot | 8 ++--- quick_quicklisp.sh.in | 4 +-- src/api-client.lisp | 14 ++++---- src/command-line.lisp | 8 ++--- src/command-window.lisp | 2 +- src/complete.lisp | 2 +- src/conditions.lisp | 2 +- src/db-utils.lisp | 4 +-- src/db.lisp | 28 +++++++-------- src/emoji-shortcodes.lisp | 2 +- src/filesystem-utils.lisp | 24 ++++++------- src/gemini/client.lisp | 8 ++--- src/gui/client/gui-goodies.lisp | 4 +-- src/gui/client/main-window.lisp | 2 +- src/gui/client/stream-frame.lisp | 2 +- src/idn.lisp | 4 +-- src/json-rpc2.lisp | 6 ++-- src/keybindings.lisp | 4 +-- src/line-oriented-window.lisp | 4 +-- src/message-window.lisp | 2 +- src/misc-utils.lisp | 4 +-- src/num-utils.lisp | 8 ++--- src/open-attach-window.lisp | 2 +- src/program-events.lisp | 2 +- src/resources-utils.lisp | 4 +-- src/software-configuration.lisp | 4 +-- src/ui-goodies.lisp | 6 ++-- src/windows.lisp | 2 +- 38 files changed, 137 insertions(+), 137 deletions(-) diff --git a/ChangeLog b/ChangeLog index 162e707..b461fbb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -272,7 +272,7 @@ * src/package.lisp: - [GUI] ensured to hide window that shows candidates for - autocompletion, before a new window (cetrificate, tour etc.) is + autocompletion, before a new window (certificate, tour etc.) is created. - [GUI] fixed command to add all the links in apage to tour, when the links are not absolute. @@ -1140,10 +1140,10 @@ - added 'misc:db-stderr'. - removed all direct references to package 'bt' (used wrappers instead); - - addedd missing file 'dummy-server.lisp'; + - added missing file 'dummy-server.lisp'; - updated LICENSES.org. - added optional key password argument to gemini and titan requests. - - replaced occurences of 'with-lock' with 'misc:with-lock-held'. + - replaced occurrences of 'with-lock' with 'misc:with-lock-held'. Merge branch 'master' into add-password-tls-certificates 2024-02-10 cage @@ -1294,7 +1294,7 @@ * src/sending-message.lisp: - - made space to accomodate list of attachments in sending post + - made space to accommodate list of attachments in sending post window. 2023-11-12 cage @@ -1834,7 +1834,7 @@ * src/gui/client/stream-frame.lisp, * src/package.lisp: - - [GUI] revive stream with doubleclick on an intem of the stream + - [GUI] revive stream with double-click on an intem of the stream frame. - [GUI] improved rendering speed by not applying text tags to empty lines and normal text, moreover cached the gemtext fonts. @@ -2024,7 +2024,7 @@ - [GUI] embedded stream window into the main-window. - removed macro 'defalias', does not works with sbcl 2.3.6; - optimized 'read-stream-chunks'; - - ensured funtions that expand modeline always return a string. + - ensured functions that expand modeline always return a string. - [GUI] sorted streams when shown in the stream frame. 2023-07-23 cage @@ -2070,7 +2070,7 @@ - allowed inlining of images from local path; - allowed linking of local resources in error page; - inlined images automatically in error pages. - - [TITAN] fixed paremeter: 'size'. + - [TITAN] fixed parameter: 'size'. 2023-07-16 cage @@ -2288,7 +2288,7 @@ - printed sorted topics when generating a gemlog. - printed TOC also for gemini pages loaded from a local path. - - ignored fragment when using the heuristic to openin an URL using an + - ignored fragment when using the heuristic to opening an URL using an external resource. - [GUI] fixed scanning for images that can be inlined; - prevented signaling an error when parsing an IRI to open the @@ -2331,7 +2331,7 @@ * tinmop.asd: - [GUI] changed keybinding to go back in history of visited pages. - - [GUI] added button to refresh the gemlogs subcriptions. + - [GUI] added button to refresh the gemlogs subscriptions. - increased version number. - [GUI] improved error message when an host is not found on gemlogs refreshing. @@ -2344,7 +2344,7 @@ * src/gemini-viewer.lisp, * src/gui/server/public-api-gemini-stream.lisp: - - [GUI] prevented the server to open with an exernal program a file + - [GUI] prevented the server to open with an external program a file downloaded; - [RPC] considered non gemini text streams the same as binary stream to prevent an endless loop. @@ -2447,7 +2447,7 @@ * quick_quicklisp.sh.in: - improved installation script to use a proxy, if needed; - - addded fetching two more libraries from git instead than from + - added fetching two more libraries from git instead than from quicklisp. 2023-05-24 cage @@ -2646,7 +2646,7 @@ * src/package.lisp: - added 'iri:iri='; - - jumping to the corresponding feature when typing in the adderss bar + - jumping to the corresponding feature when typing in the address bar a special iri (e.g. 'about:bookmark'). 2023-05-07 cage @@ -2896,7 +2896,7 @@ - [GUI] improved certificates window; - added midding icons file. - - [GUI] added a better default directory when chosing a certificate + - [GUI] added a better default directory when choosing a certificate file for import. - [GUI] increased width of entries in import certificates dialog window. @@ -2939,7 +2939,7 @@ - [GUI] made the TOC's resize its width to fits the TOC items width. - [GUI] added configuration directive for TOC width limits; - [GUI] refactored TOC rendering code; - - [GUI] clear TOC widget from legacy items befor rendering the new + - [GUI] clear TOC widget from legacy items before rendering the new TOC. - [GUI] implemented TOC callback (scroll to header when clicking on the corresponding TOC item. @@ -3040,7 +3040,7 @@ - [GUI] print an error when opening a non existent local path. - [GUI] fixed test for discarding canceled stream lines left in the queue; - - [GUI] setted the font for the rendered gemtext from the one choosen + - [GUI] set the font for the rendered gemtext from the one chosen in the configuration file. 2023-03-08 cage @@ -3092,7 +3092,7 @@ * src/gui/client/main-window.lisp: - - [GUI] removed inefficent code to render the gemtext; + - [GUI] removed inefficient code to render the gemtext; - added dummy function as link callback. 2023-02-27 cage @@ -3146,7 +3146,7 @@ * src/gui/client/main-window.lisp, * src/package.lisp: - - added functions to set meesages on the info-bar. + - added functions to set messages on the info-bar. 2023-02-21 cage @@ -3258,11 +3258,11 @@ * src/windows.lisp: - fixed default callback in input dialog. - - input dialog reurn :canceled if the user pressed the 'cancel' + - input dialog return :canceled if the user pressed the 'cancel' button; - fixed an infinite loop when the user chose to cancel saving the URI - to autorize the client. - - flush the socket buffer to ensure the successful autorization + to authorize the client. + - flush the socket buffer to ensure the successful authorization message is delivered to the browser. 2023-02-10 cage @@ -3421,7 +3421,7 @@ 'json-rpc-communication:box). - [GUI] added client events loop. - added missing file; - - [RPC] splitted the package json-rpc-munication in two files: one in + - [RPC] split the package json-rpc-munication in two files: one in server directory and the other in the client directory. 2023-01-13 cage @@ -3638,7 +3638,7 @@ * src/tests/jsonrpc2-tests.lisp, * tinmop.asd: - - [gui] added an actual funcion for API; + - [gui] added an actual function for API; - [jsonrpc] added more information when an internal error occurred; - added 'main:rpc-server-init'. @@ -5004,7 +5004,7 @@ * src/ui-goodies.lisp: - [kamid] using the path of the uri when mounting a filesystem. - - [kami] added a window with details of teh file (permissions, size + - [kami] added a window with details of the file (permissions, size etc.). - updated italian translation. @@ -5128,7 +5128,7 @@ * src/tui-utils.lisp: - tracked incompatible changes from croatoan; - An event is no more a character or symbol but is an instabce of + An event is no more a character or symbol but is an instance of class 'event'. 2021-12-14 cage @@ -5970,7 +5970,7 @@ - sorted directory entries when rendering a directory using tinmop. - - updated tranlation template files and italian translation. + - updated translation template files and italian translation. 2021-08-16 cage @@ -6063,11 +6063,11 @@ - added loading module for abbreviation by default in config file. - - changed abbrevation. + - changed abbreviation. - made gemlog's updating non blocking. - - prevented crash when teminal height was to small to fits suggetion + - prevented crash when terminal height was to small to fits suggestion window. - updated italian translation. @@ -6235,7 +6235,7 @@ - fixed typo; - [gemini] added moving selected uri from suggestion window using Tab key; - - resetted selected item position when a 'suggestion-window' is + - reset selected item position when a 'suggestion-window' is shown; - changed the way the input is completed, complete with current selected item in suggestion window; @@ -6518,7 +6518,7 @@ - shadowed 'split-lines' from croatoan. - fixed regex for opening some files with tinmop (example: Open a - gemini file with tinmop only if a local file or served trough + gemini file with tinmop only if a local file or served through gemini protocol. 2021-06-13 cage @@ -6877,7 +6877,7 @@ * src/filesystem-utils.lisp: - - used 'mkstemps' intead of 'mkstemp' as the latter does not + - used 'mkstemps' instead of 'mkstemp' as the latter does not supports suffix and the temporary keeps the same names. 2021-04-21 cage @@ -7153,7 +7153,7 @@ - fixed 'uri:normalize-path'; - [gemini] cleaned paths when exploring local tree; - changed link color when printed in link windows; - - cleaned a bit reults of 'prepend-pwd'. + - cleaned a bit results of 'prepend-pwd'. 2021-03-27 cage diff --git a/LICENSES.org b/LICENSES.org index 3268c85..14e4c02 100644 --- a/LICENSES.org +++ b/LICENSES.org @@ -427,7 +427,7 @@ - emoji-shortcodes.lisp derived from: https://github.com/milesj/emojibase - relased under + released under MIT License diff --git a/NEWS.org b/NEWS.org index 7d4c7f4..353f83e 100644 --- a/NEWS.org +++ b/NEWS.org @@ -103,7 +103,7 @@ - the icons can be scaled; - added a menu item to save the contents a link points to in a file; - added a command to scale the rendered gemtext; - - using paned window to allow resize of ancillary widgets in main window (TOC and steams) + - using paned window to allow resize of ancillary widgets in main window (TOC and streams) (thanks op for the suggestion!). - Bugfix Please see the changelog file for information about the bugs fixed. @@ -300,7 +300,7 @@ no string typed on the command line). - [pleroma] - fixed bug that prevented to update local and federated timeline. - - prevented crash when teminal height was to small to fits suggestion + - prevented crash when terminal height was to small to fits suggestion window. More information is available in the [[./ChangeLog][changelog file]] @@ -361,7 +361,7 @@ or '-v' are used; - if no editor is specified in the config file the program look for values of environment variables EDITOR or VISUAL and - fallback to ed if the variables are not setted or have empty + fallback to ed if the variables are not set or have empty value; - improved appearance of the tree of available keybindings. diff --git a/README.org b/README.org index 8cb3137..c72f803 100644 --- a/README.org +++ b/README.org @@ -49,7 +49,7 @@ + to run the program: - xdg-open; - openssl; - - unzip (command line utitlity to decompress zip file); + - unzip (command line utility to decompress zip file); - TK wish interpreter; - your favourite editor (default: nano). @@ -320,7 +320,7 @@ Note that, at the moment, the ~quick_quicklisp.sh~ script will *not* install the In particular i want to thanks the authors of the libraries Croatoan and Tooter for their help when I started to develop this program. - There are more people i borrowed code and data from, they are mentioned in the file LINCENSES.org + There are more people i borrowed code and data from, they are mentioned in the file LICENSES.org This program is was born also with the help of CCCP: "Collettivo Computer Club Palermo". diff --git a/doc/tinmop.man b/doc/tinmop.man index fa6fcfa..f420b5e 100644 --- a/doc/tinmop.man +++ b/doc/tinmop.man @@ -1515,7 +1515,7 @@ My deep thanks to the folks that provided us with wonderful SBCL and Common lisp In particular i want to thanks the authors of the libraries Croatoan and Tooter for their help when I started to develop this program. .PP -There are more people i borrowed code and data from, they are mentioned in the file LINCENSES.org +There are more people i borrowed code and data from, they are mentioned in the file LICENSES.org .PP This program was born also with the help of CCCP: "Collettivo Computer Club Palermo". diff --git a/doc/tinmop.org b/doc/tinmop.org index 6b6898b..0765530 100644 --- a/doc/tinmop.org +++ b/doc/tinmop.org @@ -775,7 +775,7 @@ In particular i want to thanks the authors of the libraries Croatoan and Tooter for their help when I started to develop this program. - There are more people i borrowed code and data from, they are mentioned in the file LINCENSES.org + There are more people i borrowed code and data from, they are mentioned in the file LICENSES.org This program was born also with the help of CCCP: "Collettivo Computer Club Palermo". diff --git a/etc/default-theme.conf b/etc/default-theme.conf index 4bd7072..b79b9b2 100644 --- a/etc/default-theme.conf +++ b/etc/default-theme.conf @@ -39,7 +39,7 @@ main-window.background = black main-window.foreground = white -# shown when a message was trasmitted in crypted form +# shown when a message was transmitted in encrypted form crypted.mark.value = " 🔏👌" @@ -256,17 +256,17 @@ thread-window.tree.branch.foreground = red thread-window.tree.arrow.foreground = magenta -# color of the subject of the message (AKA sensistive text) for a +# color of the subject of the message (AKA sensitive text) for a # message thread-window.tree.data.foreground = white -# color of the subject of the message (AKA sensistive text) for +# color of the subject of the message (AKA sensitive text) for # message with no replies thread-window.tree.data-leaf.foreground = white -# color of the subject of the message (AKA sensistive text) for +# color of the subject of the message (AKA sensitive text) for # message with no parents thread-window.tree.root.foreground = yellow @@ -302,7 +302,7 @@ thread-window.tree.vertical-line.value = "│" # - %weekday 0 to 7 (note: 0 is Sunday) # - %short-weekday Sun to Mon # - %long-weekday Sunday to Monday -# - %long-month Januray to December +# - %long-month January to December # - %short-month Jan to Dec # - %% a percent sign @@ -401,7 +401,7 @@ suggestions-window.height = 1/4 # the directive belows configure the window at the very bottom of the # screen that user uses to give command to the program, also is used -# to shows some input errors or other informations +# to shows some input errors or other information command-window.background = black @@ -439,7 +439,7 @@ message-window.background = black message-window.foreground = #c9c0c0 # a marker on the right side of the window to show the position of the -# message is visualized in repect of the message lines length (similar +# message is visualized in respect of the message lines length (similar # to scrollbar in GUI) message-window.line-position-mark.foreground = white @@ -461,7 +461,7 @@ message-window.line-position-mark.value = "⧫" # - %weekday 0 to 7 (note: 0 is Sunday) # - %short-weekday Sun to Mon # - %long-weekday Sunday to Monday -# - %long-month Januray to December +# - %long-month January to December # - %short-month Jan to Dec # - %% a percent sign @@ -581,7 +581,7 @@ gemini-certificates-window.creation-time.foreground = green gemini-certificates-window.access-time.foreground = green -# window for managing gempub libray +# window for managing gempub library gempub-library-window.background = black diff --git a/etc/init.lisp b/etc/init.lisp index 0a4bd0f..28d8fa7 100644 --- a/etc/init.lisp +++ b/etc/init.lisp @@ -41,7 +41,7 @@ (load-module "share-gemini-link.lisp") -;; abbrevations on command line +;; abbreviations on command line (load-module "expand-abbrev-command-window.lisp") diff --git a/etc/shared.conf b/etc/shared.conf index a2bcb42..179a590 100644 --- a/etc/shared.conf +++ b/etc/shared.conf @@ -257,7 +257,7 @@ gemini.images.montage.tile = "1" ######################### # use fragment of a gemini IRI/URI as a searching criteria for the downloaded page -# E.g. gemini://foo/bar.gmi#baz will jump to the first occurence of "baz". +# E.g. gemini://foo/bar.gmi#baz will jump to the first occurrence of "baz". # The fragment is used as a, perl compatible, regular expression experimental.gemini.iri.fragment.regex = no diff --git a/po/ca.po b/po/ca.po index 87d9b62..e3ae2f6 100644 --- a/po/ca.po +++ b/po/ca.po @@ -987,7 +987,7 @@ msgid "Status" msgstr "" #: src/gui/client/stream-frame.lisp:62 -msgid "Number of octects downloaded" +msgid "Number of octets downloaded" msgstr "" #: src/gui/client/stream-frame.lisp:126 @@ -1606,7 +1606,7 @@ msgid "(directory)" msgstr "" #: src/software-configuration.lisp:912 -msgid "This message was crypted" +msgid "This message was encrypted" msgstr "" #: src/software-configuration.lisp:1771 @@ -2159,7 +2159,7 @@ msgid "Reporting user: ~s" msgstr "" #: src/ui-goodies.lisp:2175 -msgid "Report trasmitted" +msgid "Report transmitted" msgstr "" #: src/ui-goodies.lisp:2178 @@ -2578,7 +2578,7 @@ msgid "Parent message" msgstr "" #: src/ui-goodies.lisp:3637 -msgid "Cache for TLS passord cleared" +msgid "Cache for TLS password cleared" msgstr "" #: src/ui-goodies.lisp:3658 diff --git a/po/tinmop.pot b/po/tinmop.pot index 9b88590..9e847d1 100644 --- a/po/tinmop.pot +++ b/po/tinmop.pot @@ -980,7 +980,7 @@ msgid "Status" msgstr "" #: src/gui/client/stream-frame.lisp:62 -msgid "Number of octects downloaded" +msgid "Number of octets downloaded" msgstr "" #: src/gui/client/stream-frame.lisp:126 @@ -1599,7 +1599,7 @@ msgid "(directory)" msgstr "" #: src/software-configuration.lisp:912 -msgid "This message was crypted" +msgid "This message was encrypted" msgstr "" #: src/software-configuration.lisp:1771 @@ -2152,7 +2152,7 @@ msgid "Reporting user: ~s" msgstr "" #: src/ui-goodies.lisp:2175 -msgid "Report trasmitted" +msgid "Report transmitted" msgstr "" #: src/ui-goodies.lisp:2178 @@ -2571,7 +2571,7 @@ msgid "Parent message" msgstr "" #: src/ui-goodies.lisp:3637 -msgid "Cache for TLS passord cleared" +msgid "Cache for TLS password cleared" msgstr "" #: src/ui-goodies.lisp:3658 diff --git a/quick_quicklisp.sh.in b/quick_quicklisp.sh.in index 6cc5f9b..be7901f 100644 --- a/quick_quicklisp.sh.in +++ b/quick_quicklisp.sh.in @@ -112,13 +112,13 @@ install_quicklisp () { @CURL@ "$QUICKLISP_KEY_URL" > $QUICKLISP_KEY echo_bold "Importing gpg key." @GPG@ --import $QUICKLISP_KEY - echo_bold "Verifing key" + echo_bold "Verifying key" signature_verified=$(check_quicklisp_signature) if [ "$signature_verified" -ne $VERIFY_OK_RES ]; then echo_bold "Key verification failed!" exit 1 else - echo_bold "Key sucessfully verified." + echo_bold "Key successfully verified." if test "$1" = "" ; then @LISP_COMPILER@ --load $QUICKLISP \ --eval "$QUICKLIST_INSTALL_FORM" \ diff --git a/src/api-client.lisp b/src/api-client.lisp index 0b7def3..9afa25a 100644 --- a/src/api-client.lisp +++ b/src/api-client.lisp @@ -117,7 +117,7 @@ into the mastodon/pleroma server" *credentials*) (defun authorize-dialog-message () - "Message printed when asking user to visit the autorization URL" + "Message printed when asking user to visit the authorization URL" (_ "Please visit the address below")) (defun open-catch-code-socket () @@ -147,12 +147,12 @@ an http request to an arbitrary URI chosen by the user. This URI contains the authorization code neede 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 autorization code on +the user's browser to an URI (which contains the authorization code on a query string) that points to the local machine. The server on the local machine read the data from the browser's request and get the authorization code. -This function perfom the latest of this actions and returns the +This function perform the latest of this actions and returns the authorization code." (unwind-protect (let ((client-socket (usocket:socket-accept socket))) @@ -178,7 +178,7 @@ authorizations was performed with success." (strcat "http://127.0.0.1:" (to-s port))) (defun make-default-client () - "Convenience funtion to build a `api-client' instance + "Convenience function to build a `api-client' instance Returns nil if the user did not provided a server in the configuration file" (when (text-utils:string-not-empty-p (swconf:current-server-name)) @@ -217,7 +217,7 @@ Returns nil if the user did not provided a server in the configuration file" (save-item (_ "Save address")) (open-item (_ "Open address")) (cancel-item (_ "Cancel")) - (choosen (ui:info-dialog-immediate (format nil "~a~%~a" dialog-msg url) + (chosen (ui:info-dialog-immediate (format nil "~a~%~a" dialog-msg url) :buttons (list save-item open-item cancel-item) @@ -252,13 +252,13 @@ Returns nil if the user did not provided a server in the configuration file" (fs:dump-sequence-to-file url filepath) (notify-file-saved filepath))))))) (cond - ((string= choosen open-item) + ((string= chosen open-item) (os-utils:xdg-open url) (if server-socket (let ((authcode (catch-auth-code server-socket))) (on-got-authorization-code authcode)) (ui:error-dialog-immediate (_ "Error: was not able to create server socket to listen for authorization code")))) - ((string= choosen save-item) + ((string= chosen save-item) (save-credentials)))))))))) (defmacro defun-api-call (name parameters &body body) diff --git a/src/command-line.lisp b/src/command-line.lisp index bc34441..09d5ec2 100644 --- a/src/command-line.lisp +++ b/src/command-line.lisp @@ -192,10 +192,10 @@ (write-shell-array options)))))) (defun fediverse-account-parameters () - (when-let ((splitted (cl-ppcre:split +fediverse-account-name-server-separator+ - *fediverse-account*))) - (values (elt splitted 0) - (elt splitted 1)))) + (when-let ((split (cl-ppcre:split +fediverse-account-name-server-separator+ + *fediverse-account*))) + (values (elt split 0) + (elt split 1)))) (defun script-arguments () *free-arguments*) diff --git a/src/command-window.lisp b/src/command-window.lisp index 09b6b06..124bd44 100644 --- a/src/command-window.lisp +++ b/src/command-window.lisp @@ -93,7 +93,7 @@ :documentation "This is the event that was triggered by a function that instruct the command window to ask user for an input. This event is inpected to get the prompt and, after the input is - complete, a slot is setted with such input, then another event + complete, a slot is set with such input, then another event `user-input-string-event' is generated to notify (via a condition variable) the thread that generated `event-to-answer' the fact that the input is complete.") diff --git a/src/complete.lisp b/src/complete.lisp index c2f91e4..3e643f8 100644 --- a/src/complete.lisp +++ b/src/complete.lisp @@ -54,7 +54,7 @@ See: complete:directory-complete") ;;; We can't easily do zsh-style tab-completion of ~us into ~user, but ;;; at least we can expand ~ and ~user. The other bug here at the -;;; moment is that ~nonexistant will complete to the same as ~. +;;; moment is that ~nonexistent will complete to the same as ~. (defun tilde-expand-string (string) "Returns the supplied string, with a prefix of ~ or ~user expanded to the appropriate home directory." diff --git a/src/conditions.lisp b/src/conditions.lisp index 94aaa1c..110e6f0 100644 --- a/src/conditions.lisp +++ b/src/conditions.lisp @@ -98,7 +98,7 @@ :reader command)) (:report (lambda (condition stream) (format stream "~s" (command condition)))) - (:documentation "Condition signalled when a command the user inputed + (:documentation "Condition signalled when a command the user inputted was not found in keybindings tree.")) (defmacro with-default-on-error ((default) &body body) diff --git a/src/db-utils.lisp b/src/db-utils.lisp index 401c6fc..89f5b29 100644 --- a/src/db-utils.lisp +++ b/src/db-utils.lisp @@ -87,8 +87,8 @@ (defmethod quote-symbol ((s string)) "Quote `s' to be usable as column name in database (e.g. \"a-b\" -> \\\"a-b\\\")" (if (scan +separator-re+ s) - (let* ((splitted (split +separator-re+ s)) - (res (flatten (loop for i in splitted collect + (let* ((split (split +separator-re+ s)) + (res (flatten (loop for i in split collect (if (string= i +column-wildcard+) i (format nil "\"~a\"" i)))))) diff --git a/src/db.lisp b/src/db.lisp index 3ba346d..fe8cfaf 100644 --- a/src/db.lisp +++ b/src/db.lisp @@ -750,7 +750,7 @@ (getf i col))))) (defgeneric fetch-single (query) - (:documentation "Fetch the first row from the results of exectuting `query'")) + (:documentation "Fetch the first row from the results of executing `query'")) (defmethod fetch-single (query) (fetch (query query))) @@ -759,7 +759,7 @@ (fetch (query-low-level query nil))) (defgeneric fetch-all-rows (query) - (:documentation "Fetch all rows from the results of exectuting `sql'")) + (:documentation "Fetch all rows from the results of executing `sql'")) (defmethod fetch-all-rows (sql) (fetch-all (query sql))) @@ -783,7 +783,7 @@ (query (delete-from table (where (:= :id id))))) (defun account-ignored-p (account-id) - "Returns non nil if this account has been setted as ignored by the user" + "Returns non nil if this account has been set as ignored by the user" (let* ((db-account-row (fetch-from-id :account account-id)) (account-known-p db-account-row)) (and account-known-p @@ -912,9 +912,9 @@ than `max-id'" An entry is expired if older than (swconf:config-purge-history-days-offset) days in the past" - (let ((treshold (threshold-time (swconf:config-purge-history-days-offset)))) + (let ((threshold (threshold-time (swconf:config-purge-history-days-offset)))) (query (make-delete +table-input-history+ - (:< :date-added (prepare-for-db treshold)))))) + (:< :date-added (prepare-for-db threshold)))))) (defun history-prompt->values (prompt) (mapcar #'second @@ -1625,7 +1625,7 @@ Update database with the decrypted text in column `rendered-text'" (defun message-from-timeline-folder-id (timeline folder status-id) "Returns a message identified by `status-id', `timeline' -and`folder'. A `message' is a plist that contains all the informations +and`folder'. A `message' is a plist that contains all the information of a row of table +table-status+ and at least the columns :acct, :display-name and :locked from +table-account+" (fetch-single (make-filtered-message-select nil @@ -1637,7 +1637,7 @@ of a row of table +table-status+ and at least the columns :acct, (defun message-from-timeline-folder-message-index (timeline folder message-index) "Returns a message identified by `status-id', `timeline' -and `message-index'. A `message' is a plist that contains all the informations +and `message-index'. A `message' is a plist that contains all the information of a row of table +table-status+ and at least the columns :acct, :display-name and :locked from +table-account+. @@ -1738,7 +1738,7 @@ information (see the function `gen-message-select'). `(:= :status.timeline ,timeline) `(:= :in-reply-to-id ,status-id) - the two claususes will be connectd by :AND by default + the two claususes will be connected by :AND by default `(:or :like :spoiler-text ,actual-text-looking-for) @@ -2711,7 +2711,7 @@ account that wrote the status identified by `status-id'" (defun add-to-status-ignored (status-id folder timeline) "Ignore this status (id timeline and folder is the tuple that is primary key for table -:status), Ignored status wont be downloaded again from the net." +:status), Ignored status won't be downloaded again from the net." (when (not (status-ignored-p status-id folder timeline)) (with-db-current-timestamp (now) (query (make-insert +table-ignored-status+ @@ -2721,7 +2721,7 @@ account that wrote the status identified by `status-id'" (defun add-to-status-skipped (status-id folder timeline) "Skips this status (id timeline and folder is the tuple that is primary key for table :status), if in this table the -status has been downloaded from the net and ignored because belog to an ignored account." +status has been downloaded from the net and ignored because belong to an ignored account." (when (not (status-skipped-p status-id folder timeline)) (with-db-current-timestamp (now) (query (make-insert +table-skipped-status+ @@ -2804,7 +2804,7 @@ of (timeline, folder) pairs that has statuses marked for deletion." (mapcar #'folder-name->tag names)))) (defun tag-folder-name-p (name) - "Returns non nil if name is a valid folder name for subsribed tags" + "Returns non nil if name is a valid folder name for subscribed tags" (scan (strcat "^" +folder-tag-prefix+) name)) (defun tag->folder-name (tag) @@ -2943,7 +2943,7 @@ to id." (where (:= :folder folder))))) (defun conversation-root-captured-p (root-status-id) - "non nil if this root status alerady bleong to an existsing + "non nil if this root status already belong to an existing conversation" (query (select :* (from +table-conversation+) @@ -3323,12 +3323,12 @@ than `days-in-the-past' days (default: `(swconf:config-purge-cache-days-offset)' An entry is expired if older than (swconf:config-purge-history-days-offset) days in the past" - (let ((treshold (threshold-time -255))) + (let ((threshold (threshold-time -255))) (query (make-update +table-gemlog-entries+ (:deletedp) ((prepare-for-db t :to-integer 1)) (:and (:= :seenp (prepare-for-db t :to-integer 1)) - (:< :date (prepare-for-db treshold))))))) + (:< :date (prepare-for-db threshold))))))) (defun bookmark-add (type value &key (section nil) (description (_ "no description"))) diff --git a/src/emoji-shortcodes.lisp b/src/emoji-shortcodes.lisp index 60001ae..80df6c2 100644 --- a/src/emoji-shortcodes.lisp +++ b/src/emoji-shortcodes.lisp @@ -944,7 +944,7 @@ (":ecstatic:" . "🙃") (":pleased:" . "🙂") (":joyful:" . "😂") - (":embarassed:" . "😅") + (":embarrassed:" . "😅") (":amused:" . "😆") (":blissful:" . "😁") (":happy:" . "😄") diff --git a/src/filesystem-utils.lisp b/src/filesystem-utils.lisp index 7265e24..b35c602 100644 --- a/src/filesystem-utils.lisp +++ b/src/filesystem-utils.lisp @@ -99,7 +99,7 @@ ((nix:s-isfifo mode) :pipe) (t - (error "uknown file type for ~a" namestring))))) + (error "unknown file type for ~a" namestring))))) (defun current-directory () (uiop:getcwd)) @@ -332,8 +332,8 @@ symbolic link." (nix:s-isdir (nix:stat-mode (nix:stat path)))))) (defun split-path-elements (path) - (let ((splitted (cl-ppcre:split *directory-sep-regexp* path))) - (substitute *directory-sep* "" splitted :test #'string=))) + (let ((split (cl-ppcre:split *directory-sep-regexp* path))) + (substitute *directory-sep* "" split :test #'string=))) (defun path-last-element (path) (let ((elements (split-path-elements path))) @@ -363,20 +363,20 @@ symbolic link." (elt registers 0)))) (defun parent-dir-path (path &key (normalize-results nil)) - (let ((splitted (remove-if #'text-utils:string-empty-p - (split-path-elements path)))) + (let ((split (remove-if #'text-utils:string-empty-p + (split-path-elements path)))) (cond - ((> (length splitted) 1) - (let ((path (text-utils:join-with-strings (misc:safe-all-but-last-elt splitted) + ((> (length split) 1) + (let ((path (text-utils:join-with-strings (misc:safe-all-but-last-elt split) *directory-sep*))) (setf path (text-utils:strcat path *directory-sep*)) - (when (string= (first splitted) *directory-sep*) + (when (string= (first split) *directory-sep*) (setf path (subseq path 1))) (if normalize-results (normalize-path path) path))) - ((or (= (length splitted) 1) - (null splitted)) + ((or (= (length split) 1) + (null split)) *directory-sep*) (t (if normalize-results @@ -682,13 +682,13 @@ symbolic link." (define-constant +file-size-units+ '("KiB" "MiB" "GiB") :test #'equalp) -(defun octects->units (octects units) +(defun octets->units (octets units) (let* ((exponent (case units (:kib 1) (:mib 2) (:gib 3) (otherwise 1))) - (scaled (/ octects (expt 1024 exponent)))) + (scaled (/ octets (expt 1024 exponent)))) (values scaled (elt +file-size-units+ (1- exponent))))) diff --git a/src/gemini/client.lisp b/src/gemini/client.lisp index cba950e..4dc672e 100644 --- a/src/gemini/client.lisp +++ b/src/gemini/client.lisp @@ -389,10 +389,10 @@ (values certificate key)))) (defun percent-encode-path (path) - (let ((splitted (split "/" path :limit (1+ (length path))))) - (if splitted + (let ((split (split "/" path :limit (1+ (length path))))) + (if split (reduce (lambda (a b) (strcat a "/" (maybe-percent-encode b))) - splitted) + split) path))) (defun percent-encode-query (query) @@ -642,7 +642,7 @@ (error "Empty dispatch-table")) (when unknown-keys (warn (format nil - "found unkown keys in dispatch-table table: ~s" + "found unknown keys in dispatch-table table: ~s" unknown-keys))) (when (null (getf table :titan-upload)) (warn "No dispatch for titan upload found")) diff --git a/src/gui/client/gui-goodies.lisp b/src/gui/client/gui-goodies.lisp index ce6cfd2..9e9d62e 100644 --- a/src/gui/client/gui-goodies.lisp +++ b/src/gui/client/gui-goodies.lisp @@ -123,11 +123,11 @@ `(handler-case (progn ,@body) (comm:rpc-error-response (e) - #+debug-mode (misc:dbg "backend comunication RPC error ~a" e) + #+debug-mode (misc:dbg "backend communication RPC error ~a" e) (notify-request-error (format nil (_ "~a: ~a") (comm:code e) (conditions:text e)))) (error (e) - #+debug-mode (misc:dbg "backend comunication error ~a" e) + #+debug-mode (misc:dbg "backend communication error ~a" e) (notify-request-error e)))) diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp index f48293c..49d7e6c 100644 --- a/src/gui/client/main-window.lisp +++ b/src/gui/client/main-window.lisp @@ -563,7 +563,7 @@ (defun inline-all-images (main-window) "Note that this functions assumes that all remote IRI resources are -absolute (i.e. with scheme component), non absulute IRI are considered +absolute (i.e. with scheme component), non absolute IRI are considered local file paths." (labels ((inline-single-image (lines line-number) (when (< (1- line-number) (length lines)) diff --git a/src/gui/client/stream-frame.lisp b/src/gui/client/stream-frame.lisp index af7aee9..9952dc4 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/idn.lisp b/src/idn.lisp index 131a72e..327951c 100644 --- a/src/idn.lisp +++ b/src/idn.lisp @@ -118,7 +118,7 @@ (defun host-unicode->ascii (unicode-host) (if (find #\. unicode-host :test #'char=) - (let ((splitted (cl-ppcre:split "\\." unicode-host))) - (text-utils:join-with-strings (mapcar #'unicode->ascii splitted) + (let ((split (cl-ppcre:split "\\." unicode-host))) + (text-utils:join-with-strings (mapcar #'unicode->ascii split) ".")) (unicode->ascii unicode-host))) diff --git a/src/json-rpc2.lisp b/src/json-rpc2.lisp index 393846e..d8fa26d 100644 --- a/src/json-rpc2.lisp +++ b/src/json-rpc2.lisp @@ -167,7 +167,7 @@ (defun lookup-function (function-id) (find-if (compare-functions-fn function-id) *function-db*)) -(defclass identificable () +(defclass identifiable () ((id :initarg :id :initform -1 @@ -226,7 +226,7 @@ (format stream "symbol ~s " (fun-symbol object)) (call-next-method))) -(defclass rpc-request (fun-box identificable) ()) +(defclass rpc-request (fun-box identifiable) ()) (defclass rpc-request-batch () ((requests @@ -258,7 +258,7 @@ (defun make-notification* (method params) (apply #'%make-request method nil params)) -(defclass rpc-response (identificable) +(defclass rpc-response (identifiable) ((payload :initform nil :initarg :payload diff --git a/src/keybindings.lisp b/src/keybindings.lisp index f8cd2df..197da7a 100644 --- a/src/keybindings.lisp +++ b/src/keybindings.lisp @@ -299,7 +299,7 @@ produces a tree and graft the latter on `existing-tree'" "The keymap for message window.") (defparameter *gemini-message-keymap* (make-starting-comand-tree) - "The keymap for message-window when displaing gemini text.") + "The keymap for message-window when displaying gemini text.") (defparameter *tags-keymap* (make-starting-comand-tree) "The keymap for tags window.") @@ -511,7 +511,7 @@ instead" node)))) (defun humanize-key (key) - "Transform a node of the keymap in something that humans can easly + "Transform a node of the keymap in something that humans can easily understand" (cond ((functionp key) diff --git a/src/line-oriented-window.lisp b/src/line-oriented-window.lisp index 629c6a2..3a4772f 100644 --- a/src/line-oriented-window.lisp +++ b/src/line-oriented-window.lisp @@ -56,7 +56,7 @@ :initform () :initarg :fields :accessor fields - :documentation "A generic plist of useful informations for the window") + :documentation "A generic plist of useful information for the window") (index :initform 0 :initarg :index @@ -150,7 +150,7 @@ an integer number, if positive increase the position of the selected line otherwise decrease, relative to current index position. The value is clamped at range [ 0, '(length (rows object)))' ). - This function return the number of positions acually moved")) + This function return the number of positions actually moved")) (defgeneric update-all-rows (object new-rows)) diff --git a/src/message-window.lisp b/src/message-window.lisp index e538d04..e2eee1b 100644 --- a/src/message-window.lisp +++ b/src/message-window.lisp @@ -787,7 +787,7 @@ (values source-line-id source-line artificialp))) (defun search-gemini-fragment (window fragment) - "Search `fragment' in the source lines of the gemini steams and -if + "Search `fragment' in the source lines of the gemini streams and -if fragment matches- move the window to the line when matching occurred." (labels ((prefix-diff (text-rows source-line) (- (length (first (split-words (first text-rows)))) diff --git a/src/misc-utils.lisp b/src/misc-utils.lisp index c9a8a0c..9545c5e 100644 --- a/src/misc-utils.lisp +++ b/src/misc-utils.lisp @@ -459,7 +459,7 @@ (coerce raw '(vector (unsigned-byte 8))))) (defun read-line-into-array (stream &key (add-newline-stopper t)) - "Read a line as array of unsigned octets or nil if stream is exausted. + "Read a line as array of unsigned octets or nil if stream is exhausted. if `add-newline-stopper' is non nil a newline (ASCII 10) is appended to the array" (let ((first-byte (read-byte stream nil nil))) @@ -495,7 +495,7 @@ to the array" :reader delimiter)) (:report (lambda (condition stream) (format stream "delimiter ~s not found and stream closed" (delimiter condition)))) - (:documentation "Condition signalled when a command the user inputed + (:documentation "Condition signalled when a command the user inputted was not found in keybindings tree.")) (defparameter *read-delimiter* 0) diff --git a/src/num-utils.lisp b/src/num-utils.lisp index 5a088c0..b9eb2ec 100644 --- a/src/num-utils.lisp +++ b/src/num-utils.lisp @@ -75,9 +75,9 @@ (alexandria:define-constant +fnv-offset-basis-32+ 2166136261 :test #'=) -(defun fnv-hash-32 (octects) +(defun fnv-hash-32 (octets) (let ((hash +fnv-offset-basis-32+)) - (loop for i across octects do + (loop for i across octets do (setf hash (boole boole-xor hash i)) (setf hash (ldb (byte 32 0) (* hash +fnv-prime-32+)))) hash)) @@ -92,9 +92,9 @@ 100029257958052580907070968620625704837092796014241193945225284501741471925557 :test #'=) -(defun fnv-hash-256 (octects) +(defun fnv-hash-256 (octets) (let ((hash +fnv-offset-basis-256+)) - (loop for i across octects do + (loop for i across octets do (setf hash (boole boole-xor hash i)) (setf hash (ldb (byte 256 0) (* hash +fnv-prime-256+)))) hash)) diff --git a/src/open-attach-window.lisp b/src/open-attach-window.lisp index 2c2c4e3..3c26152 100644 --- a/src/open-attach-window.lisp +++ b/src/open-attach-window.lisp @@ -129,7 +129,7 @@ *open-attach-window*)) ;; Note we can not use the function with the same name in -;; filesystem-utils as the latter doen not check for query string +;; filesystem-utils as the latter does not check for query string (defun get-extension (file) (multiple-value-bind (matchedp res) (cl-ppcre:scan-to-strings "(?i)[a-z0-9]\(\\.[^./?]+)(\\?.+)?$" file) diff --git a/src/program-events.lisp b/src/program-events.lisp index 207692d..01a23a8 100644 --- a/src/program-events.lisp +++ b/src/program-events.lisp @@ -82,7 +82,7 @@ ,@body) (start-event-dispatching))) -;; keep this function stricly monotonic otherwise the order of +;; keep this function strictly monotonic otherwise the order of ;; elements in priority queue is going to be messed up (defun-w-lock next-id () *id-lock* (incf *event-id*) diff --git a/src/resources-utils.lisp b/src/resources-utils.lisp index a960a55..efd9aaa 100644 --- a/src/resources-utils.lisp +++ b/src/resources-utils.lisp @@ -20,8 +20,8 @@ (alexandria:define-constant +virtual-fs-dir-separator-regexp+ "\\/" :test #'string=) (defun construct-path (p) - (let ((splitted (split +virtual-fs-dir-separator-regexp+ p))) - (strcat *directory-sep* (join-with-strings splitted *directory-sep*) + (let ((split (split +virtual-fs-dir-separator-regexp+ p))) + (strcat *directory-sep* (join-with-strings split *directory-sep*) (if (cl-ppcre:scan (strcat +virtual-fs-dir-separator-regexp+ "$") p) *directory-sep*)))) diff --git a/src/software-configuration.lisp b/src/software-configuration.lisp index 73c41ac..89419d9 100644 --- a/src/software-configuration.lisp +++ b/src/software-configuration.lisp @@ -163,7 +163,7 @@ (:text t)) -;; this rule is not actually part of the grammar but jus a convenience +;; this rule is not actually part of the grammar but just a convenience ;; function to remove duplicated code (see rules: key and value) (defrule conf-fields (and conf-field @@ -909,7 +909,7 @@ +key-crypted+ +key-mark+ +key-value+) - (_ "This message was crypted"))) + (_ "This message was encrypted"))) (defun quick-help-header-colors () (values (access:accesses *software-configuration* diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index ccf01fc..1e4ce21 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -2172,7 +2172,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: "))))) @@ -2350,7 +2350,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" +not 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))) @@ -3634,7 +3634,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)" diff --git a/src/windows.lisp b/src/windows.lisp index 2148f56..f99984a 100644 --- a/src/windows.lisp +++ b/src/windows.lisp @@ -472,7 +472,7 @@ height, position and so on)" (padding 1)) "Add fitted lines generated from `message' to `window' starting from row `y-start'. -Note that the window will expand its height to accomodate the text. +Note that the window will expand its height to accommodate the text. `process-line-fn` is a function (default #'identity) that is applied to each line of processed text (not the original message),