From 3020451c7f455eed9417e838e0ae2f0b26d4dbfc Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 1 Nov 2019 21:36:16 -0700 Subject: cleanup some of this scheme code --- com/simatime/repl.scm | 27 ++++++++------------------- 1 file changed, 8 insertions(+), 19 deletions(-) (limited to 'com/simatime/repl.scm') diff --git a/com/simatime/repl.scm b/com/simatime/repl.scm index 3d2f6d9..bae7e8f 100644 --- a/com/simatime/repl.scm +++ b/com/simatime/repl.scm @@ -1,23 +1,5 @@ (define-module (com simatime repl) - #:use-module ((ice-9 ftw) #:prefix ftw:) - #:export (pr prn pwd ls cd)) - - -;; -;; shell-like stuff -;; -(use-modules ((ice-9 ftw) #:prefix ftw:)) - -(define (pwd) - (regexp-substitute/global - #f "/home/ben" (getcwd) 'pre "~" 'post)) - -(define (ls) - (ftw:scandir (getcwd))) - -(define (cd path) - (chdir path) - (ls)) + #:export ()) ;; @@ -32,3 +14,10 @@ ;; (getenv "USER") ;; (vector-ref (uname) 1) ;; (pwd)))) + +;; TODO(bsima): (doc x) +;; TODO(bsima): (src x) +;; TODO(bsima): ,src command +;; TODO(bsima): ,shell command +;; TODO(bsima): how to load this file on startup? +;; for ,src and ,shell https://github.com/NalaGinrut/nala-repl -- cgit v1.2.3