Skip to content

legit: "l l" to show the commits log #1423

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
vindarel merged 13 commits into from
Jul 13, 2024
Merged

legit: "l l" to show the commits log #1423

Changes from 1 commit
Commits
Show all changes
13 commits
Select commit Hold shift + click to select a range
e45ebe3
[WIP] legit: "l l" to show the commits log
vindarel Jul 10, 2024
302ea85
Add log offset
jfaz1 Jul 10, 2024
0aa8fa5
Clamp mercurial/fossil log range
jfaz1 Jul 10, 2024
f4813a6
Add log offset display with next/previous page
jfaz1 Jul 10, 2024
c049b5f
Add previous/next log page keybinds
jfaz1 Jul 10, 2024
cde73f8
Use `*nb-commits-log*` instead of window height for legit log list
jfaz1 Jul 13, 2024
da17c6e
Add first/last page binds
jfaz1 Jul 13, 2024
cc05939
Optimize `commit-count` a bit, add Mercurial support to first/last pa…
jfaz1 Jul 13, 2024
8a7be87
(minor) legit: string-trim -> str:trim
vindarel Jul 13, 2024
691660a
(minor) legit: rename nb-commits-log to "page size", README++
vindarel Jul 13, 2024
706ee34
(minor) legit: uiop:define-package
vindarel Jul 13, 2024
42f8ad3
legit: split commits-log for each VCS
vindarel Jul 13, 2024
99a4763
legit: fossil-commit-count
vindarel Jul 13, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Use *nb-commits-log* instead of window height for legit log list
  • Loading branch information
@jfaz1 @vindarel
jfaz1 authored and vindarel committed Jul 13, 2024
commit cde73f8745f9a3aef5095a6f7336d628aff09ef0
13 changes: 4 additions & 9 deletions extensions/legit/legit.lisp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -633,10 +633,7 @@ Currently Git-only. Concretely, this calls Git with the -w option.")
(display-commits-log 0)))

(defun display-commits-log (offset)
(let* ((window-height (window-height (current-window)))
(commits-per-page (max 1 (- window-height 1)))
(commits (lem/porcelain:commits-log :offset offset
:limit commits-per-page)))
(let* ((commits (lem/porcelain:commits-log :offset offset :limit lem/porcelain:*nb-commits-log*)))
(lem/peek-legit:with-collecting-sources (collector :buffer :commits-log :read-only nil)
(lem/peek-legit:collector-insert
(format nil "Commits (~A):" offset)
Expand Down Expand Up @@ -673,11 +670,10 @@ Currently Git-only. Concretely, this calls Git with the -w option.")
(with-current-project ()
(let* ((buffer (current-buffer))
(window-height (window-height (current-window)))
(commits-per-page (max 1 (- window-height 1)))
(current-offset (or (buffer-value buffer 'commits-offset) 0))
(new-offset (+ current-offset commits-per-page))
(new-offset (+ current-offset lem/porcelain:*nb-commits-log*))
(commits (lem/porcelain:commits-log :offset new-offset
:limit commits-per-page)))
:limit lem/porcelain:*nb-commits-log*)))
(if commits
(display-commits-log new-offset)
(message "No more commits to display.")))))
Expand All @@ -686,9 +682,8 @@ Currently Git-only. Concretely, this calls Git with the -w option.")
(with-current-project ()
(let* ((buffer (current-buffer))
(window-height (window-height (current-window)))
(commits-per-page (max 1 (- window-height 1)))
(current-offset (or (buffer-value buffer 'commits-offset) 0))
(new-offset (max 0 (- current-offset commits-per-page))))
(new-offset (max 0 (- current-offset lem/porcelain:*nb-commits-log*))))
(display-commits-log new-offset))))

(define-command legit-quit () ()
Expand Down