[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-racket 0cb58c8 183/191: racket server to access via
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-racket 0cb58c8 183/191: racket server to access via geiser-connect |
Date: |
Sun, 1 Aug 2021 18:32:25 -0400 (EDT) |
branch: elpa/geiser-racket
commit 0cb58c81a707f07a63f7481940cd721e300b3a3c
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>
racket server to access via geiser-connect
---
bin/racket-server.sh | 24 ++++++++++++++++++++++++
1 file changed, 24 insertions(+)
diff --git a/bin/racket-server.sh b/bin/racket-server.sh
new file mode 100755
index 0000000..4ac7712
--- /dev/null
+++ b/bin/racket-server.sh
@@ -0,0 +1,24 @@
+#!/bin/bash
+#|
+topdir=$(dirname $0)
+elpa_scheme=$topdir/scheme
+in_scheme=$topdir/../scheme
+top=$(if [ -d $elpa_scheme ]; then echo $elpa_scheme; else echo $in_scheme; fi)
+exec racket -i -S "$top/racket" -l errortrace -cu "$0" ${1+"$@"}
+|#
+
+#lang racket/base
+
+(require (lib "cmdline.rkt"))
+(require geiser/server)
+
+(define port (make-parameter 0))
+(define host (make-parameter #f (lambda (h) (and (string? h) h))))
+
+(command-line
+ "run-racket.sh" (current-command-line-arguments)
+ (once-each
+ (("-n" "--hostname") n "Network hostname, or #f for all interfaces" (host n))
+ (("-p" "--port") p "Geiser server port" (port (string->number p)))))
+
+(printf "Geiser server running at port ~a~%" (start-geiser (port) (host)))
- [nongnu] elpa/geiser-racket a5f8702 132/191: Racket: correct font lock for define/match, (continued)
- [nongnu] elpa/geiser-racket a5f8702 132/191: Racket: correct font lock for define/match, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 4e68ebc 140/191: racket: C-u C-c C-z on a submodule enters it, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 65447c4 138/191: racket: handling correctly submodules in load handler during , enter, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket e1474f1 141/191: Nits, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket eafee8d 142/191: racket: new , geiser-load command in REPL, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket e311818 154/191: Racket: duplicate version check removed, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket c6b4c09 155/191: Racket: fix for evaluations inside typed/racket modules, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 7f89d8f 170/191: Use (car (process-lines ...)) instead of (shell-command ...), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket a0532bc 169/191: Quoting binary on version checks (issue #117), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 5a7b12c 179/191: Fix typos, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 0cb58c8 183/191: racket server to access via geiser-connect,
Philip Kaludercic <=
- [nongnu] elpa/geiser-racket 18cb3b3 185/191: README.md, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 1996cca 187/191: Ready for MELPA, Philip Kaludercic, 2021/08/01