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)))
|
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
|
||||||
|
|
Loading…
Reference in New Issue