guix-pkgs/staging/untrunc.scm

(define-module (staging untrunc)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system trivial)
  #:use-module (guix git-download)
  #:use-module (gnu packages video)
  #:use-module (guix utils))

(define-public untrunc
  (let ((commit "45f310f1f3c9a9449b46a74594d1dcbf4bd6b1fb")
        (revision "1"))
    (package
      (name "untrunc")
      (version (git-version "0.0.0" revision commit))
      (source (origin
                (method git-fetch)
                (uri (git-reference
                      (url "https://github.com/anthwlock/untrunc.git")
                      (commit commit)))
                (sha256
                 (base32
                  "1cmimpamxaydwd6m7f86sms7nbzzyq7aywmjf24ijhpwgrvzibrh"))))
      (build-system gnu-build-system)
      (arguments
       `(#:tests? #f
         #:phases (modify-phases %standard-phases
                    (delete 'configure)
                    (replace 'install
                      (lambda* (#:key outputs #:allow-other-keys)
                        (let* ((out (assoc-ref outputs "out"))
                               (bin-dir (string-append out "/bin")))
                          (mkdir-p bin-dir)
                          (install-file "untrunc" bin-dir)
                          #t))))))
      (inputs
       `(("ffmpeg" ,ffmpeg)))
      (home-page "https://github.com/anthwlock/untrunc")
      (synopsis "Restore a truncated mp4/mov file")
      (description "Restore a damaged (truncated) mp4, m4v, mov, 3gp
video. Provided you have a similar not broken video. And some luck.")
      (license license:gpl2))))

untrunc