From ec17a2918e8374a5358c10efe06d918ce09d0751 Mon Sep 17 00:00:00 2001 From: m455 Date: Mon, 9 Apr 2018 20:09:29 -0400 Subject: [PATCH] ls argument now checks for main rodo file before trying to list items --- rodo.rkt | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/rodo.rkt b/rodo.rkt index bc0263f..5e84c5c 100755 --- a/rodo.rkt +++ b/rodo.rkt @@ -129,7 +129,7 @@ " " lst))) -(define (show-list);; todo check for file like other functions +(define (show-list-from-file) (let ([path (expand-user-path @@ -223,6 +223,16 @@ [else (init-prompt messages 'choose-y/n)]))) +(define (show-list) + (if + (and + (check-for-folder) + (check-for-file)) + (show-list-from-file) + (begin + (d-hash-ref messages 'file-not-found) + (d-hash-ref messages 'try-init)))) + (define (add-item args) (if (and