ls argument now checks for main rodo file before trying to list items
parent
a2a16bddc3
commit
ec17a2918e
12
rodo.rkt
12
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
|
||||
|
|
Loading…
Reference in New Issue