From 0d426cfd8d8e5835d0c393733573d6c3757b1a2f Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Thu, 3 Jun 2021 12:40:48 +0200
Subject: [PATCH] ambrevar: Include Legit dependency and patch.

---
 .../common-lisp/source/ambrevar/all.lisp      |  1 +
 .../common-lisp/source/ambrevar/ambrevar.asd  |  3 ++-
 .../source/ambrevar/patch-legit.lisp          | 20 +++++++++++++++++++
 3 files changed, 23 insertions(+), 1 deletion(-)
 create mode 100644 .local/share/common-lisp/source/ambrevar/patch-legit.lisp

diff --git a/.local/share/common-lisp/source/ambrevar/all.lisp b/.local/share/common-lisp/source/ambrevar/all.lisp
index 2bdbc9d2..56e18485 100644
--- a/.local/share/common-lisp/source/ambrevar/all.lisp
+++ b/.local/share/common-lisp/source/ambrevar/all.lisp
@@ -24,6 +24,7 @@
   (:import-from #:fset)
   (:import-from #:hu.dwim.defclass-star)
   (:import-from #:iolib)
+  (:import-from #:legit)
   (:import-from #:local-time)
   (:import-from #:log4cl)
   (:import-from #:magicffi)
diff --git a/.local/share/common-lisp/source/ambrevar/ambrevar.asd b/.local/share/common-lisp/source/ambrevar/ambrevar.asd
index 0605e029..87a5163b 100644
--- a/.local/share/common-lisp/source/ambrevar/ambrevar.asd
+++ b/.local/share/common-lisp/source/ambrevar/ambrevar.asd
@@ -3,4 +3,5 @@
 (defsystem "ambrevar"
   :class :package-inferred-system
   :depends-on ("ambrevar/all")
-  :components ((:file "patch-magicffi")))
+  :components ((:file "patch-magicffi")
+               (:file "patch-legit")))
diff --git a/.local/share/common-lisp/source/ambrevar/patch-legit.lisp b/.local/share/common-lisp/source/ambrevar/patch-legit.lisp
new file mode 100644
index 00000000..cecf9900
--- /dev/null
+++ b/.local/share/common-lisp/source/ambrevar/patch-legit.lisp
@@ -0,0 +1,20 @@
+(in-package :org.shirakumo.legit)
+
+(define-git-wrapper git-diff
+  &optional commit blob (paths :--)
+  &key (patch :bool) (unified :arg=) raw patch-with-raw minimal patience histogram
+  (diff-algorithm (:member :patience :minimal :histogram :myers)) (stat :arg=) numstat
+  shortstat (dirstat :arg=) summary patch-with-stat (null (:name z) :flag) name-only
+  name-status (submodule :arg=) (color :bool :arg=) (word-diff :arg=)
+  (word-diff-regex :arg=) (color-words :arg=) no-renames check
+  (ws-error-highlight :arg=) full-index binary (abbrev :arg=) (break-rewrites :arg=)
+  (find-renames :arg=) (find-copies :arg=) find-copies-harder irreversible-delete
+  (limit-find (:name l) :arg.) (diff-filter :arg=)
+  (differing-occurrences (:name S) :upcase :arg.)
+  (differing-diffs (:name G) :upcase :arg.)
+  pickaxe-all pickaxe-regex (order (:name O) :upcase :arg.)
+  (swap (:name R) :upcase :flag) (relative :arg=) text ignore-space-at-eol
+  ignore-space-change ignore-all-space ignore-blank-lines (inter-hunk-context :arg=)
+  function-context (ext-diff :bool) (textconv :bool) (ignore-submodules :flag :arg=)
+  (src-prefix :arg=) (dst-prefix :arg=) no-prefix
+  cached)