futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: cl-fof: Update to 0.2.0-1.522879e.

Browse Source 
* gnu/packages/lisp-xyz.scm (sbcl-fof): Update to 0.2.0-1.522879e.
  [inputs]: Sort inputs.
  [arguments]: Remove 'fix-build' phase.
This commit is contained in:
Guillaume Le Vaillant 2022-06-14 16:18:07 +02:00
parent d1f3bba66c
commit 99c43cf344
No known key found for this signature in database
GPG Key ID: 6BE8208ADF21FE3F
1 changed files with 42 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
gnu/packages/lisp-xyz.scm
View File

@ -15382,56 +15382,53 @@ return the CPU count of the current system.")
(sbcl-package->cl-source-package sbcl-cl-cpus)) (sbcl-package->cl-source-package sbcl-cl-cpus))
(define-public sbcl-fof (define-public sbcl-fof
(package (let ((commit "522879e7da110ecf2e841998b197b34062c54b29")
(name "sbcl-fof") (revision "1"))
(version "0.2.0") (package
(source (name "sbcl-fof")
(origin (version (git-version "0.2.0" revision commit))
(method git-fetch) (source
(uri (git-reference (origin
(url "https://gitlab.com/ambrevar/fof") (method git-fetch)
(commit version))) (uri (git-reference
(file-name (git-file-name name version)) (url "https://gitlab.com/ambrevar/fof")
(sha256 (commit commit)))
(base32 "0j64b7p40h8bq33hqkpgakm3vs1607vyx6n48d7qg3287v1akk6m")))) (file-name (git-file-name "cl-fof" version))
(build-system asdf-build-system/sbcl) (sha256
(arguments (base32 "0ipy51q2fw03xk9rqcyzbq2b9c32npc1gl3c53rdjywpak7zwwg6"))))
`(#:phases (build-system asdf-build-system/sbcl)
(modify-phases %standard-phases (arguments
(add-after 'unpack 'fix-paths `(#:phases
(lambda* (#:key inputs #:allow-other-keys) (modify-phases %standard-phases
(substitute* "ffprobe.lisp" (add-after 'unpack 'fix-paths
(("\\(defvar \\*ffprobe-command\\* \"ffprobe\"\\)") (lambda* (#:key inputs #:allow-other-keys)
(format #f "(defvar *ffprobe-command* \"~a/bin/ffprobe\")" (substitute* "ffprobe.lisp"
(assoc-ref inputs "ffmpeg")))))) (("\\(defvar \\*ffprobe-command\\* \"ffprobe\"\\)")
(add-after 'unpack 'fix-build (format #f "(defvar *ffprobe-command* \"~a/bin/ffprobe\")"
(lambda _ (assoc-ref inputs "ffmpeg")))))))))
(substitute* "file.lisp" (inputs
(("\\(:import-from #:magicffi\\)" all) (list sbcl-alexandria
(string-append all "(:import-from #:named-readtables)")))))))) sbcl-cl-str
(inputs sbcl-hu.dwim.defclass-star
(list sbcl-alexandria sbcl-local-time
sbcl-hu.dwim.defclass-star sbcl-magicffi
sbcl-local-time sbcl-named-readtables
sbcl-magicffi sbcl-osicat
sbcl-named-readtables sbcl-serapeum
sbcl-osicat sbcl-trivia
sbcl-serapeum sbcl-trivial-package-local-nicknames
sbcl-cl-str ;; Non-CL deps:
sbcl-trivia ffmpeg))
sbcl-trivial-package-local-nicknames (home-page "https://gitlab.com/ambrevar/fof")
;; Non-CL deps: (synopsis "File object finder library for Common Lisp")
ffmpeg)) (description
(home-page "https://gitlab.com/ambrevar/fof") "This library enable rapid file search, inspection and manipulation
(synopsis "File object finder library for Common Lisp")
(description
"This library enable rapid file search, inspection and manipulation
straight from the REPL. straight from the REPL.
It aims at replacing Unix tools such as @code{find} or @code{du}. It aims at replacing Unix tools such as @code{find} or @code{du}.
It also offers a replacement to the @code{pathname} Common Lisp API. It also offers a replacement to the @code{pathname} Common Lisp API.
Slot writers which commit changes to disk, e.g. permissions, modification Slot writers which commit changes to disk, e.g. permissions, modification
time, etc.") time, etc.")
(license license:gpl3+))) (license license:gpl3+))))
(define-public ecl-fof (define-public ecl-fof
(sbcl-package->ecl-package sbcl-fof)) (sbcl-package->ecl-package sbcl-fof))