cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-07 05:13:35 +01:00
Code Issues

fix typos; joint work with codespell(1)

Browse Source
This commit is contained in:
Omar Polo 2024-09-01 10:48:44 +02:00
parent ab4ae0fc11
commit e8b529f437
38 changed files with 137 additions and 137 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
ChangeLog
View File

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

2
LICENSES.org
View File

@ -427,7 +427,7 @@
- emoji-shortcodes.lisp
derived from:
https://github.com/milesj/emojibase
relased under
released under
MIT License

6
NEWS.org
View File

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

4
README.org
View File

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

2
doc/tinmop.man
View File

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

2
doc/tinmop.org
View File

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

18
etc/default-theme.conf
View File

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

2
etc/init.lisp
View File

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

2
etc/shared.conf
View File

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

8
po/ca.po
View File

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

8
po/tinmop.pot
View File

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

4
quick_quicklisp.sh.in
View File

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

14
src/api-client.lisp
View File

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

8
src/command-line.lisp
View File

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

2
src/command-window.lisp
View File

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

2
src/complete.lisp
View File

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

2
src/conditions.lisp
View File

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

4
src/db-utils.lisp
View File

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

28
src/db.lisp
View File

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

2
src/emoji-shortcodes.lisp
View File

@ -944,7 +944,7 @@
(":ecstatic:" . "🙃")
(":pleased:" . "🙂")
(":joyful:" . "😂")
(":embarassed:" . "😅")
(":embarrassed:" . "😅")
(":amused:" . "😆")
(":blissful:" . "😁")
(":happy:" . "😄")

24
src/filesystem-utils.lisp
View File

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

8
src/gemini/client.lisp
View File

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

4
src/gui/client/gui-goodies.lisp
View File

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

2
src/gui/client/main-window.lisp
View File

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

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/idn.lisp
View File

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

6
src/json-rpc2.lisp
View File

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

4
src/keybindings.lisp
View File

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

4
src/line-oriented-window.lisp
View File

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

2
src/message-window.lisp
View File

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

4
src/misc-utils.lisp
View File

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

8
src/num-utils.lisp
View File

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

2
src/open-attach-window.lisp
View File

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

2
src/program-events.lisp
View File

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

4
src/resources-utils.lisp
View File

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

4
src/software-configuration.lisp
View File

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

6
src/ui-goodies.lisp
View File

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

2
src/windows.lisp
View File

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