mirror of https://codeberg.org/cage/tinmop/
Compare commits
3 Commits
c5ccfa2d26
...
60d19f9f2d
Author | SHA1 | Date |
---|---|---|
cage | 60d19f9f2d | |
cage | 1d850fffa4 | |
cage | 66ba9d0b79 |
|
@ -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)" \
|
||||
|
|
|
@ -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)" \
|
||||
|
|
|
@ -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
|
400
po/tinmop.pot
400
po/tinmop.pot
File diff suppressed because it is too large
Load Diff
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue