cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-26 00:02:34 +01:00
Code Issues

- [script] passed command line arguments to gemget;

Browse Source 
- update documentation.
This commit is contained in:
cage 2024-09-28 11:15:12 +02:00
parent 94dd5df350
commit 5559b99514
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
data/scripts/gemget.lisp
View File

@ -16,13 +16,15 @@
;; usage: ;; usage:
;; echo URL | tinmop -e gemget.lisp ;; tinmop -e gemget.lisp -- URL or
;; echo "url" | tinmop -e gemget.lisp
(in-package :scripts) (in-package :scripts)
(defun main () (defun main ()
(handler-case (handler-case
(let ((url (read-line *standard-input* nil nil nil))) (let ((url (or (first command-line:*free-arguments*)
(read-line *standard-input* nil nil nil))))
(write-sequence (gemini-client:slurp-gemini-url url) *standard-output*) (write-sequence (gemini-client:slurp-gemini-url url) *standard-output*)
(os-utils:exit-program 0)) (os-utils:exit-program 0))
(usocket:ns-host-not-found-error (e) (usocket:ns-host-not-found-error (e)

4
src/constants.lisp
View File

@ -60,7 +60,7 @@ along with this program."
Welcome to ~a! A gemini, pleroma and kami client. Welcome to ~a! A gemini, gopher, mastodon/pleroma and kami client.
- for available keychords (sequence of keys to fire a command) help type '?'; - for available keychords (sequence of keys to fire a command) help type '?';
@ -87,7 +87,7 @@ Some useful keycords to start (the man page contains the full list):
- 'b' go back in history of visited URLs - 'b' go back in history of visited URLs
- '!' search geminispace (contacts gemini://kennedy.gemi.dev/search) - '!' search geminispace (contacts gemini://kennedy.gemi.dev/search)
· pleroma · mastodon/pleroma
- 'C-t u' update current timeline - 'C-t u' update current timeline
- 'C-t c' change timeline - 'C-t c' change timeline
- 'v' view post's attachments - 'v' view post's attachments