diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-12-27 17:42:00 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-12-28 08:18:16 -0500 |
| commit | 6607891d785d59c4cafbcbd85f7a59ed45865e54 (patch) | |
| tree | ec4a43da2ebdac3441f82eeeef41f68cb955195f | |
| parent | 9ab3a50ead137ec0e6a81565a5ae9b1b320ed22d (diff) | |
Move file-extension to (haunt utils).
| -rw-r--r-- | haunt/serve/mime-types.scm | 6 | ||||
| -rw-r--r-- | haunt/utils.scm | 6 |
2 files changed, 7 insertions, 5 deletions
diff --git a/haunt/serve/mime-types.scm b/haunt/serve/mime-types.scm index 67489b5..7b521c0 100644 --- a/haunt/serve/mime-types.scm +++ b/haunt/serve/mime-types.scm @@ -23,6 +23,7 @@ ;;; Code: (define-module (haunt serve mime-types) + #:use-module (haunt utils) #:use-module (ice-9 hash-table) #:use-module (ice-9 regex) #:export (mime-type)) @@ -540,11 +541,6 @@ ("vrml" . x-world/x-vrml) ("wrl" . x-world/x-vrml)))) -(define (file-extension file) - "Return the extension of FILE or #f if there is none." - (let ((dot (string-rindex file #\.))) - (and dot (substring file (+ 1 dot) (string-length file))))) - (define (mime-type file-name) "Guess the MIME type for FILE-NAME based upon its file extension." (or (hash-ref %mime-types (file-extension file-name)) diff --git a/haunt/utils.scm b/haunt/utils.scm index fb4d170..230e4da 100644 --- a/haunt/utils.scm +++ b/haunt/utils.scm @@ -35,6 +35,7 @@ file-name-components join-file-name-components absolute-file-name + file-extension delete-file-recursively mkdir-p string->date* @@ -95,6 +96,11 @@ as-is." file-name (string-append (getcwd) "/" file-name))) +(define (file-extension file) + "Return the extension of FILE or #f if there is none." + (let ((dot (string-rindex file #\.))) + (and dot (substring file (+ 1 dot) (string-length file))))) + ;; Written by Ludovic Courtès for GNU Guix. (define* (delete-file-recursively dir #:key follow-mounts?) |