@@ -39,35 +39,36 @@

     #+BEGIN_SRC lisp :exports both :results verbatim

       (git:in-repository "~/quicklisp/local-projects/cl-git")

-      (git:git (branch "master")) ;; the argument to branch defaults to "master"

+      (git:branch "master") ;; the argument to branch defaults to "master"

     #+END_SRC

     #+RESULTS:

-    : #<LOOSE-REF b27750d of /Users/edwlan/quicklisp/local-projects/cl-git/>

+    : #<LOOSE-REF 657ab33 of ~/git_repos/git.fiddlerwoaroof.com/u/edwlan/cl-git/>

 *** Show the commit message

     #+BEGIN_SRC lisp :exports both :results verbatim

       (git:in-repository "~/quicklisp/local-projects/cl-git")

-      (git:git (branch "master") ;; the argument to branch defaults to "master"

-               (component :message))

+      (git:component :message (git:branch "master"))

     #+END_SRC

     #+RESULTS:

-    : feat(delta): first cut of delta extraction

+    : feat(blobs): introduce BLOB class

 *** Show the messages of the commit's parent

     #+BEGIN_SRC lisp :exports both :results verbatim

       (git:in-repository "~/quicklisp/local-projects/cl-git")

-      (git:git (branch "master") ;; the argument to branch defaults to "master"

-               (commit-parents)

-               (map (component :message)))

+      (let* ((branch (git:branch "master"))

+             (parents (git:parents branch)))

+        (mapcar (lambda (it)

+                  (git:component :message it))

+                parents))

     #+END_SRC

     #+RESULTS:

-    : ("refactor: minor refactors, start using transducers

+    : ("(bump)

     : ")

 *** Show the files in a commit

@@ -92,24 +93,24 @@

     | .gitignore      | 100644 | 8a9fe9f77149f74fed5c05388be8e5ffd4a31678 |

     | .projectile     | 100644 | e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 |

     | LICENSE         | 100644 | 0306819e780fa57dc3bf6b99a0a059670b605ae0 |

-    | README.org      | 100644 | 8be1c00d70982a8dd819673289f57bab201ae9fb |

+    | README.org      | 100644 | 9889a8a1e253a446de953072db8ee9f13e90b716 |

     | branch.lisp     | 100644 | 6ee2b1e254e7895d55ecd534b2fa16267ec14389 |

-    | cl-git.asd      | 100644 | fac607480b840e3037abd80617d9b19a0fe214c7 |

+    | cl-git.asd      | 100644 | 486920e6178e436fa993ce3a2bd23f60827c9fd5 |

     | commit.lisp     | 100644 | d6a83c1a351eb2c0f5315ceddcde37545b7781d6 |

-    | delta.lisp      | 100644 | 1fa43a800829dfa49e540129d8243f748bb17543 |

-    | docker-run      |  40000 | 53b626da144188970e4c1b63ee3b23212e277672 |

+    | delta.lisp      | 100644 | 1417d8b8d172824c38d95791c8b884393db273ae |

+    | docker-run      |  40000 | acace4bb63832baa7e69e324e738eda7aae4ac2c |

     | extract.lisp    | 100644 | 4bfb480eb2993cf516fded3adec49483322fdcf4 |

     | git.lisp        | 100644 | bad6f54787369609581669de923afaf378ed4002 |

     | graph.lisp      | 100644 | 31576396aff0fff28f69e0ef84571c0dc8cc43ec |

     | model.lisp      | 100644 | 346fa823d06b6cebead49c7ec37d90b3cc660528 |

     | package.lisp    | 100644 | 538e7211817953a036f8f913dd4509c8edc6a489 |

-    | porcelain.lisp  | 100644 | 9190e6fb27aad51167b23f1cc4089e426241159b |

-    | protocol.lisp   | 100644 | 7e24a6a7a4349497fce06830fa132e9a8ef6fd06 |

+    | porcelain.lisp  | 100644 | 3929d993c8ad4c6c99b4e0ff3b3a54bee7c95fc1 |

+    | protocol.lisp   | 100644 | 01315cf76c90baac4daf5218f50fc76aa8674910 |

     | repository.lisp | 100644 | af1cc58c12b32770fa63ac29502a446b3b059c90 |

-    | tests           |  40000 | 47c7f38df49c936fa6263eb70fc6749f33f8be34 |

+    | tests           |  40000 | 0a5e860fc174d9c2078d1fc9f1cef01c0f5867d2 |

     | tree.lisp       | 100644 | 42eceec42eb35d4ee2b739e99d7e1a51f1b9fd35 |

     | undelta.lisp    | 100644 | ae0a070133d1a14d6e940a0f790f40b37e885b22 |

-    | util.lisp       | 100644 | 66279b2fa08c9d0872e888b85fe14d9950e27326 |

+    | util.lisp       | 100644 | d75f905d80b97abd329518b7574ef0f2fe1673c8 |

 *** Show the files that match a pattern

     - Note taken on [2020-11-15 Sun 01:49] \\

@@ -117,28 +118,32 @@

     #+BEGIN_SRC lisp :exports both :results table :hlines yes

       (git:with-repository ("~/quicklisp/local-projects/cl-git/")

-        (list* '("Name" "Mode" "Hash")

-               'hline

-               (git:git (branch "master")

-                        (tree)

-                        (filter-tree "^.....?[.]lisp")

-                        (map (juxt (component :name)

-                                   (component :mode)

-                                   (component :hash))))))

+        (let* ((branch (git:branch "master"))

+               (tree (git:tree branch))

+               (tree-entries (git:filter-tree "^.....?[.]lisp" tree)))

+          (flet ((component (component)

+                   (lambda (it)

+                     (git:component component it))))

+            (list* '("Name" "Mode" "Hash")

+                   'hline

+                   (mapcar (data-lens:juxt (component :name)

+                                           (component :mode)

+                                           (component :hash))

+                           tree-entries)))))

     #+END_SRC

     #+RESULTS:

     | Name       |   Mode | Hash                                     |

     |------------+--------+------------------------------------------|

-    | delta.lisp | 100644 | 1fa43a800829dfa49e540129d8243f748bb17543 |

+    | delta.lisp | 100644 | 1417d8b8d172824c38d95791c8b884393db273ae |

     | graph.lisp | 100644 | 31576396aff0fff28f69e0ef84571c0dc8cc43ec |

     | model.lisp | 100644 | 346fa823d06b6cebead49c7ec37d90b3cc660528 |

     | tree.lisp  | 100644 | 42eceec42eb35d4ee2b739e99d7e1a51f1b9fd35 |

-    | util.lisp  | 100644 | 66279b2fa08c9d0872e888b85fe14d9950e27326 |

+    | util.lisp  | 100644 | d75f905d80b97abd329518b7574ef0f2fe1673c8 |

 ** Partially Implemented:

-*** Delta refs [1/2]

+*** Delta refs

     Git uses a [[https://git-scm.com/docs/pack-format#_deltified_representation][delta calculation]] routine to compress some of the blobs

     in a pack file. This delta stores a reference to a base object and

     a sequence of commands for transforming the base object into the