ls argument now checks for main rodo file before trying to list items
This commit is contained in:
		
							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…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user