Hello, I've been tweaking this piece of code below, trying to adapt it so that it could get the latest commit into the commit list too, but I haven't had success.
On 12/12/2020 09:24, zimoun wrote: > --8<---------------cut here---------------start------------->8--- > $ guix repl > GNU Guile 3.0.4 > Copyright (C) 1995-2020 Free Software Foundation, Inc. > > Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. > This program is free software, and you are welcome to redistribute it > under certain conditions; type `,show c' for details. > > Enter `,help' for help. > scheme@(guix-user)> ,use(guix git) > scheme@(guix-user)> ,use(git) > scheme@(guix-user)> ,use(guix channels) > scheme@(guix-user)> ,use(ice-9 match) > scheme@(guix-user)> ,use(srfi srfi-1) > scheme@(guix-user)> (define cache (url-cache-directory (channel-url > %default-guix-channel))) > scheme@(guix-user)> (define repo (repository-open cache)) > scheme@(guix-user)> (define (commit-list repo) > (let loop ((commit (commit-lookup repo > (reference-target (repository-head > repo)))) > (res '())) > (match (commit-parents commit) > (() (reverse res)) > ((head . tail) > (loop head (cons head res)))))) > > scheme@(guix-user)> (define commits (commit-list repo)) > scheme@(guix-user)> ,pp (take commits 5) > $1 = (#<git-commit 2639a99cf31e3ce2970645badf11f15679c893b5> > #<git-commit f769ad12f1b7834a5fb6c870a6737d2eea495744> > #<git-commit 8f330aebee504269d4d7188daa85e95503f71888> > #<git-commit f765577dec0340d035021d030f17b54a3a5fd6b1> > #<git-commit 72e3614666b8ffb7ecc568cbf4ba18874b9d8750>) > scheme@(guix-user)> cache > $2 = > "/home/simon/.cache/guix/checkouts/pjmkglp4t7znuugeurpurzikxq3tnlaywmisyr27shj7apsnalwq" > scheme@(guix-user)> ,q > > $ > repo=/home/simon/.cache/guix/checkouts/pjmkglp4t7znuugeurpurzikxq3tnlaywmisyr27shj7apsnalwq > $ git -C $repo log --oneline | head -n6 > 91e35e32a4 gnu: fcitx5-chinese-addons: Remove stale build steps. > 2639a99cf3 gnu: fcitx5-lua: Remove stale build steps. > f769ad12f1 gnu: toybox: Cross compile. > 8f330aebee gnu: busybox: Update to 1.32.0. > f765577dec gnu: Add emacs-webpaste. > 72e3614666 gnu: emacs-elpher: Mention gemini in synopsis and description. > --8<---------------cut here---------------end--------------->8--- > > Well, ’commit-list’ is far from perfect because all the log is traversed > and the list reversed, aside that the first commit is not captured, > etc. But I hope you get the idea. It is a starting point to implement a > draft of: > > guix git log --oneline This is what I've been doing: ------- $ guix repl GNU Guile 3.0.4 Copyright (C) 1995-2020 Free Software Foundation, Inc. Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. This program is free software, and you are welcome to redistribute it under certain conditions; type `,show c' for details. Enter `,help' for help. scheme@(guix-user)> ,use(guix git) scheme@(guix-user)> ,use(git) scheme@(guix-user)> ,use(guix channels) scheme@(guix-user)> ,use(ice-9 match) scheme@(guix-user)> (define cache (url-cache-directory (channel-url %default-guix-channel))) scheme@(guix-user)> cache $1 = "/home/magali/.cache/guix/checkouts/pjmkglp4t7znuugeurpurzikxq3tnlaywmisyr27shj7apsnalwq" scheme@(guix-user)> (let* ((repo (repository-open cache)) (latest-commit (commit-lookup repo (reference-target (repository-head repo))))) (let loop ((commit latest-commit) (res (list latest-commit))) (match (commit-parents commit) (() (reverse res)) ((head . tail) (loop head (cons head res)))))) Segmentation fault (core dumped) ------- I couldn't quite figure it out why I'm getting segfault. Any tips? Magali
