diff options
| author | Katherine Cox-Buday <cox.katherine.e@gmail.com> | 2019-03-29 16:33:32 -0500 |
|---|---|---|
| committer | 宋文武 <iyzsong@member.fsf.org> | 2019-04-07 14:10:04 +0800 |
| commit | ac99157f421f25c41edb4287f21dbb0ccfdfced0 (patch) | |
| tree | e37882e43125a60794fbb7edd2ce0fe084de0503 /gnu | |
| parent | d3da4b37cf22c808f7fc3cf5cc14e3cebcd824e0 (diff) | |
| download | guix-ac99157f421f25c41edb4287f21dbb0ccfdfced0.tar.gz | |
gnu: Add trivial-mimes.
* gnu/packages/lisp.scm (sbcl-trivial-mimes, cl-trivial-mimes): New variables. Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/lisp.scm | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm index cbb85914c6..51ae9fc281 100644 --- a/gnu/packages/lisp.scm +++ b/gnu/packages/lisp.scm @@ -5028,3 +5028,45 @@ performance and simplicity in mind.") (define-public cl-lack-middleware-backtrace (sbcl-package->cl-source-package sbcl-lack-middleware-backtrace)) + +(define-public sbcl-trivial-mimes + (let ((commit "303f8ac0aa6ca0bc139aa3c34822e623c3723fab") + (revision "1")) + (package + (name "sbcl-trivial-mimes") + (version (git-version "1.1.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Shinmera/trivial-mimes.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "17jxgl47r695bvsb7wi3n2ws5rp1zzgvw0zii8cy5ggw4b4ayv6m")))) + (build-system asdf-build-system/sbcl) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-after + 'unpack 'fix-paths + (lambda* (#:key inputs #:allow-other-keys) + (let ((anchor "#p\"/etc/mime.types\"")) + (substitute* "mime-types.lisp" + ((anchor all) + (string-append + anchor "\n" + "(asdf:system-relative-pathname :trivial-mimes \"../../share/common-lisp/sbcl-source/trivial-mimes/mime.types\")"))))))))) + (native-inputs + `(("stefil" ,sbcl-hu.dwim.stefil))) + (inputs + `(("sbcl-cl-fad" ,sbcl-cl-fad))) + (home-page "http://shinmera.github.io/trivial-mimes/") + (synopsis "Tiny Common Lisp library to detect mime types in files") + (description + "This is a teensy library that provides some functions to determine the +mime-type of a file.") + (license license:artistic2.0)))) + +(define-public cl-trivial-mimes + (sbcl-package->cl-source-package sbcl-trivial-mimes)) |