1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
(define-public git-absorb
(package
(name "git-absorb")
(version "0.6.6")
(source
(origin
;; crates.io does not include the manual page.
(method git-fetch)
(uri (git-reference
(url "https://github.com/tummychow/git-absorb")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"04v10bn24acify34vh5ayymsr1flcyb05f3az9k1s2m6nlxy5gb9"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-anyhow" ,rust-anyhow-1)
("rust-clap" ,rust-clap-2)
("rust-git2" ,rust-git2-0.13)
("rust-memchr" ,rust-memchr-2)
("rust-slog" ,rust-slog-2)
("rust-slog-async" ,rust-slog-async-2)
("rust-slog-term" ,rust-slog-term-2))
#:cargo-development-inputs
(("rust-tempfile" ,rust-tempfile-3))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-version-requirements
(lambda _
(substitute* "Cargo.toml"
((("2.5") "^2")
(("2.3") "^2")
(("3.1") "^3")))))
(add-after 'install 'install-manual-page
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(man (string-append out "/share/man/man1")))
(install-file "Documentation/git-absorb.1" man)))))))
(inputs
`(("zlib" ,zlib)))
(home-page "https://github.com/tummychow/git-absorb")
(synopsis "Git tool for making automatic fixup commits")
(description
"@code{git absorb} allows the user to automatically absorb staged changes
into their current branch. @code{git absorb} will automatically identify
which commits are safe to modify, and which staged changes belong to each
of those commits. It will then write @code{fixup!} commits for each of
those changes.")
(license license:bsd-3)))