cristiancmoises
/
radix
mirror of https://codeberg.org/anemofilia/radix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

utils: Add list-contents and almost-basename procedures

pull/3/head
Luis Guilherme Coelho 2024-07-07 16:35:10 -03:00
parent 9b81802b1a
commit e21427c872
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
radix/utils.scm
View File

@ -2,9 +2,12 @@
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (ice-9 ftw)
#:export (associate-left #:export (associate-left
associate-right associate-right
flat-map)) flat-map
list-contents
almost-basename))
(define-syntax-rule (define-syntax-rule
(associate-left (key associations) ...) (associate-left (key associations) ...)
@ -26,3 +29,13 @@ list, up to the last list."
(lambda arglst (apply proc h arglst)) (lambda arglst (apply proc h arglst))
tail-lsts)) tail-lsts))
head-lst)))) head-lst))))
(define (list-contents dir)
(and=> (scandir dir)
(lambda (subdirs)
(map (cut string-append dir "/" <>)
(cddr subdirs)))))
(define (almost-basename file)
(string-append (basename (dirname file))
"/" (basename file)))