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

add a visit link command

Browse Source
This commit is contained in:
w6vvn
2025-09-04 15:22:36 -07:00
parent 38a420d649
commit b02f59c17f
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
gem300.rkt
View File

@@ -39,7 +39,10 @@
(iter 10) (iter 10)
(newline) (newline)
(let ([remaining (pipe-content-length document-buffer)]) (let ([remaining (pipe-content-length document-buffer)])
(printf "~a bytes remaining\n" remaining))) (printf "~a bytes remaining\n" remaining)))
(define (visit-cmd line)
(go-cmd (gmi:match-link document (string->number line))))
(define (repl) (define (repl)
(display "G-300 > ") (display "G-300 > ")
@@ -55,6 +58,10 @@
;; go command ;; go command
[(or (string=? (cadr matches) "go") [(or (string=? (cadr matches) "go")
(string=? (cadr matches) "g")) (string=? (cadr matches) "g"))
(go-cmd (caddr matches))])) (go-cmd (caddr matches))]
;; visit link command
[(andmap char-numeric? (string->list (cadr matches)))
(visit-cmd (cadr matches))]))
(repl)) (repl))