ls argument now checks for main rodo file before trying to list items

main
m455 2018-04-09 20:09:29 -04:00
parent a2a16bddc3
commit ec17a2918e
1 changed files with 11 additions and 1 deletions

View File

@ -129,7 +129,7 @@
" " " "
lst))) lst)))
(define (show-list);; todo check for file like other functions (define (show-list-from-file)
(let (let
([path ([path
(expand-user-path (expand-user-path
@ -223,6 +223,16 @@
[else [else
(init-prompt messages 'choose-y/n)]))) (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) (define (add-item args)
(if (if
(and (and