1
0
Fork 0

Compare commits

...

3 Commits

Author SHA1 Message Date
cage 60d19f9f2d - updated italian translation. 2021-04-25 16:14:03 +02:00
cage 1d850fffa4 - fixed text-utils:percent-encoded-p, an empty string is not percent-encoded;
- raised a better error when an empty string is entered as a gemini address.
2021-04-25 16:12:49 +02:00
cage 66ba9d0b79 - instructed Makefile to recompile the packkege if a source is modified;
- updated italian translation.
2021-04-25 15:53:35 +02:00
7 changed files with 480 additions and 386 deletions

View File

@ -49,7 +49,7 @@ dist_pkgdata_DATA = scripts/welcome-bot.lisp \
dist_man1_MANS = doc/tinmop.man
$(PACKAGE): $(CONF_PATH_FILE)
$(PACKAGE): $(CONF_PATH_FILE) src/*
$(LISP_COMPILER) \
--eval "(asdf:load-system '$(PACKAGE))" \
--eval "(in-package main)" \

View File

@ -1035,7 +1035,7 @@ uninstall-man: uninstall-man1
.PRECIOUS: Makefile
$(PACKAGE): $(CONF_PATH_FILE)
$(PACKAGE): $(CONF_PATH_FILE) src/*
$(LISP_COMPILER) \
--eval "(asdf:load-system '$(PACKAGE))" \
--eval "(in-package main)" \

View File

@ -12,6 +12,7 @@ src/complete.lisp
src/conditions.lisp
src/config.lisp
src/config.lisp.in
src/config.lisp.in.in
src/constants.lisp
src/conversations-window.lisp
src/crypto-utils.lisp
@ -21,15 +22,20 @@ src/db.lisp
src/emoji-shortcodes.lisp
src/filesystem-utils.lisp
src/follow-requests.lisp
src/gemini-client-certificates-window.lisp
src/gemini-subscription-window.lisp
src/gemini-viewer-metadata.lisp
src/gemini-viewer.lisp
src/gemini/client.lisp
src/gemini/gemini-constants.lisp
src/gemini/gemini-parser.lisp
src/gemini/package.lisp
src/gemini/subscription.lisp
src/hooks.lisp
src/html-utils.lisp
src/idn.lisp
src/interfaces.lisp
src/iri-parser.lisp
src/keybindings-window.lisp
src/keybindings.lisp
src/line-oriented-window.lisp
@ -60,10 +66,25 @@ src/specials.lisp
src/stack.lisp
src/suggestions-window.lisp
src/tags-window.lisp
src/tests/all-tests.lisp
src/tests/box-tests.lisp
src/tests/gemini-parser-tests.lisp
src/tests/idn-tests.lisp
src/tests/iri-tests.lisp
src/tests/misc-tests.lisp
src/tests/mtree-tests.lisp
src/tests/numeric-tests.lisp
src/tests/package.lisp
src/tests/program-events-tests.lisp
src/tests/text-utils-tests.lisp
src/tests/thread-window-tests.lisp
src/tests/uri-tests.lisp
src/tests/x509-tests.lisp
src/text-utils.lisp
src/thread-window.lisp
src/tui-utils.lisp
src/ui-goodies.lisp
src/uri-parser.lisp
src/windows.lisp
src/x509-ffi.lisp
src/x509.lisp

408
po/it.po

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@ -1018,6 +1018,8 @@
(when give-focus-to-message-window-p
(ui:focus-to-message-window))
(cond
((text-utils:string-empty-p url)
(ui:error-message (_ "Empty address")))
((gemini-client:absolute-gemini-url-p url)
(gemini-viewer:request url :use-cached-file-if-exists use-cached-file-if-exists))
((fs:dirp local-path)

View File

@ -695,6 +695,9 @@ printed in the box column by column; in the example above the results are:
(percent-decode data)))
(defun percent-encoded-p (string)
(if (string-empty-p string)
nil
(progn
(loop for i in (coerce string 'list)
for ct from 0 do
(cond
@ -707,7 +710,7 @@ printed in the box column by column; in the example above the results are:
(percent:digitp (char-code i))
(percent:unreservedp (char-code i)))))
(return-from percent-encoded-p nil))))
t)
t)))
(defun percent-encode-allow-null (data)
(when data