diff --git a/scripts/swank-repl.ros b/scripts/swank-repl.ros new file mode 100755 index 0000000..dab82de --- /dev/null +++ b/scripts/swank-repl.ros @@ -0,0 +1,14 @@ +#!/usr/bin/env -S ros -Q -- +#|-*- mode:lisp -*-|# +(progn + (ros:ensure-asdf) + (ql:quickload '(:swank :mondo) :silent t)) + +(defpackage :swank-repl + (:use :cl)) +(in-package :swank-repl) + +(defun main (&rest argv) + (declare (ignorable argv)) + (let ((port (swank:create-server :dont-close t))) + (mondo:main nil :port port))) diff --git a/setup/commands/install-scripts.rkt b/setup/commands/install-scripts.rkt index 40fae33..e81d294 100644 --- a/setup/commands/install-scripts.rkt +++ b/setup/commands/install-scripts.rkt @@ -3,19 +3,21 @@ (provide run) (define-logging mklink - (λ (from to) - (with-handlers ([exn:fail? (const #f)]) (delete-file to)) - (make-file-or-directory-link (normalize-path from) to))) + (λ (from to) + (with-handlers ([exn:fail? (const #f)]) (delete-file to)) + (make-file-or-directory-link (normalize-path from) to))) (define (run) + (define (bin-path bin) + (build-path (output-bin-path) "bin" bin)) ;; Symlink interpreted scripts - (mklink "scripts/map-touch-display.rkt" (build-path (output-bin-path) "bin" "map-touch-display")) - (mklink "scripts/playvid.rkt" (build-path (output-bin-path) "bin" "playvid")) - (mklink "scripts/start-joshuto.sh" (build-path (output-bin-path) "bin" "start-joshuto")) - (mklink "scripts/startriver.sh" (build-path (output-bin-path) "bin" "startriver")) - (mklink "scripts/update-nvim-plugins.rkt" - (build-path (output-bin-path) "bin" "update-nvim-plugins")) - (mklink "scripts/withjava.sh" (build-path (output-bin-path) "bin" "withjava")) + (mklink "scripts/map-touch-display.rkt" (bin-path "map-touch-display")) + (mklink "scripts/playvid.rkt" (bin-path "playvid")) + (mklink "scripts/start-joshuto.sh" (bin-path "start-joshuto")) + (mklink "scripts/startriver.sh" (bin-path "startriver")) + (mklink "scripts/swank-repl.ros" (bin-path "swank-repl")) + (mklink "scripts/update-nvim-plugins.rkt" (bin-path "update-nvim-plugins")) + (mklink "scripts/withjava.sh" (bin-path "withjava")) ;; Compile Zig scripts (install-zig "scripts/mzteinit")