w6vvn/gem300
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

implement "url" command

Browse Source
This commit is contained in:
w6vvn
2025-09-06 17:51:14 -07:00
parent f5d70e7488
commit 759c66889c
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
client.rkt
View File

@@ -80,6 +80,16 @@
(let ([url (gmi:match-link document-object line)]) (let ([url (gmi:match-link document-object line)])
(get (combine-url/relative current-url (url->string url)))))) (get (combine-url/relative current-url (url->string url))))))
(define/public (url-cmd (link-id #f))
(if (null? document-object)
(displayln "you need to 'go' somewhere first!")
(if link-id
(let ([link (gmi:match-link document-object link-id)])
(if link
(displayln (url->string link))
(displayln "no link with that id")))
(displayln (url->string current-url)))))
(define/private (handle-gmi url c-in) (define/private (handle-gmi url c-in)
(let-values ([(doc) (gmi:parse (port->lines c-in))] (let-values ([(doc) (gmi:parse (port->lines c-in))]
[(db-in db-out) (make-pipe #f)]) [(db-in db-out) (make-pipe #f)])