cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- changed the address of the capsule used to perform search in gemspace.

This commit is contained in:
cage 2024-05-29 16:38:40 +02:00
parent 2612289b1e
commit c84e747868
4 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.org
View File

@ -237,7 +237,7 @@ Note that, at the moment, the ~quick_quicklisp.sh~ script will *not* install the
Moreover launching ~quick_quicklisp.sh~ will contact [[https://www.quicklisp.org/]], check the [[https://beta.quicklisp.org/quicklisp.lisp][quicklisp sources]] for details. Moreover launching ~quick_quicklisp.sh~ will contact [[https://www.quicklisp.org/]], check the [[https://beta.quicklisp.org/quicklisp.lisp][quicklisp sources]] for details.
By default, pressing "!" will contact the remote service located at: "gemini://geminispace.info/search". By default, pressing "!" will contact the remote service located at: "gemini://kennedy.gemi.dev/search".
* Contributing * Contributing

4
etc/init.lisp
View File

@ -138,8 +138,8 @@
(defun gemini-search () (defun gemini-search ()
"Search the geminispace using keyword (note: will contact "Search the geminispace using keyword (note: will contact
\"gemini://geminispace.info/search\"" \"gemini://kennedy.gemi.dev/search\""
(gemini-viewer:load-gemini-url "gemini://geminispace.info/search")) (gemini-viewer:load-gemini-url +gemini-search-engine+))
(defun open-gemini-links-and-ask-tour () (defun open-gemini-links-and-ask-tour ()
"Open the link window and ask for tour link indices" "Open the link window and ask for tour link indices"

4
src/constants.lisp
View File

@ -85,7 +85,7 @@ Some useful keycords to start (the man page contains the full list):
- '>' open URL (also kami is supported) - '>' open URL (also kami is supported)
- 'l' open link window - 'l' open link window
- 'b' go back in history of visited URLs - 'b' go back in history of visited URLs
- '!' search geminispace (contacts gemini://geminispace.info/search) - '!' search geminispace (contacts gemini://kennedy.gemi.dev/search)
· pleroma · pleroma
- 'C-t u' update current timeline - 'C-t u' update current timeline
@ -185,6 +185,8 @@ General Public License for more details."
(define-constant +fediverse-account-name-server-separator+ "@" :test #'string=) (define-constant +fediverse-account-name-server-separator+ "@" :test #'string=)
(define-constant +gemini-search-engine+ "gemini://kennedy.gemi.dev/search" :test #'string=)
(define-constant +language-codes+ '("ab" (define-constant +language-codes+ '("ab"
"aar" "aar"
"af" "af"

1
src/package.lisp
View File

@ -81,6 +81,7 @@
:+internal-scheme-local-posts+ :+internal-scheme-local-posts+
:+fediverse-account-name-server-separator+ :+fediverse-account-name-server-separator+
:+language-codes+ :+language-codes+
:+gemini-search-engine+
;; GUI ;; GUI
:+minimum-padding+ :+minimum-padding+
:+ps-file-dialog-filter+ :+ps-file-dialog-filter+