cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- [GUI] saved visited links in the history kept in the database.

Browse Source
This commit is contained in:
cage 2023-05-12 15:49:40 +02:00
parent 13c2815268
commit 319aa164fd
3 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -364,7 +364,9 @@
(absolutize-link iri meta)))) (absolutize-link iri meta))))
(slurp-iri redirect-iri main-window)))) (slurp-iri redirect-iri main-window))))
((gemini-client:header-success-p status-code) ((gemini-client:header-success-p status-code)
(slurp-non-text-data main-window iri :try-to-open nil)))))) (ev:with-enqueued-process-and-unblock ()
(comm:make-request :gemini-save-url-db-history 1 iri)
(slurp-non-text-data main-window iri :try-to-open nil)))))))
(defun contextual-menu-link-clrs (link-name link-value main-window line-count) (defun contextual-menu-link-clrs (link-name link-value main-window line-count)
(labels ((add-to-tour-callback () (labels ((add-to-tour-callback ()
@ -783,6 +785,8 @@
(absolutize-link iri meta)))) (absolutize-link iri meta))))
(start-stream-iri redirect-iri main-window use-cache status)))) (start-stream-iri redirect-iri main-window use-cache status))))
((gemini-client:header-success-p status-code) ((gemini-client:header-success-p status-code)
(ev:with-enqueued-process-and-unblock ()
(comm:make-request :gemini-save-url-db-history 1 iri))
(cond (cond
((eq status +stream-status-streaming+) ((eq status +stream-status-streaming+)
(cond (cond

3
src/gui/server/public-api-gemini-stream.lisp
View File

@ -517,3 +517,6 @@
(write-sequence (format nil "Error connecting to: ~a:~2%" iri) stream) (write-sequence (format nil "Error connecting to: ~a:~2%" iri) stream)
(write-sequence (format nil "~a~%" meta) stream)))) (write-sequence (format nil "~a~%" meta) stream))))
(gemini-parse-string gemtext))) (gemini-parse-string gemtext)))
(defun gemini-save-url-db-history (iri)
(db:insert-in-history (ui:open-url-prompt) iri))

3
src/gui/server/public-api.lisp
View File

@ -68,6 +68,9 @@
"iri" 0) "iri" 0)
(gen-rpc "gemini-current-url" 'gemini-current-url) (gen-rpc "gemini-current-url" 'gemini-current-url)
(gen-rpc "gemini-pop-url-from-history" 'gemini-pop-url-from-history) (gen-rpc "gemini-pop-url-from-history" 'gemini-pop-url-from-history)
(gen-rpc "gemini-save-url-db-history"
'gemini-save-url-db-history
"iri" 0)
(gen-rpc "gemini-certificates" 'gemini-certificates) (gen-rpc "gemini-certificates" 'gemini-certificates)
(gen-rpc "gemini-delete-certificate" (gen-rpc "gemini-delete-certificate"
'gemini-delete-certificate 'gemini-delete-certificate