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)))
(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