switch to homegrown pinning

meat.nu

@@ -34,10 +34,6 @@ def hn []: nothing -> string {
   ^hostname | str trim
 }
 
-def flake-target []: nothing -> string {
-  $"($env.MEATS)#nixosConfigurations.(hn).config.system.build.toplevel"
-}
-
 def system-attr []: nothing -> string {
   $"nixosConfigurations.(hn).config.system.build.toplevel"
 }
@@ -89,14 +85,14 @@ def cmd-yum [...args: string] {
 def cmd-cook [...args: string] {
   with-frame {
     meat-print "PREPARING DELICIOUS MEATS.."
-    try { ^nix build --no-link (flake-target) ...$args }
+    try { ^nix-build --no-out-link $"($env.MEATS)/entry.nix" -A (system-attr) ...$args }
   }
 }
 
 def cmd-poke [...args: string] {
   with-frame {
     meat-print "PREPARING SUSPICIOUS MEATS.."
-    try { ^nix build --no-link (flake-target) --show-trace ...$args }
+    try { ^nix-build --no-out-link --show-trace $"($env.MEATS)/entry.nix" -A (system-attr) ...$args }
   }
 }
 
@@ -196,61 +192,61 @@ def prefetch-pin [url: string] {
 def cmd-fresh [...names: string] {
   with-frame {
     meat-print "HUNTING FRESH MEATS.."
-    let root = $env.MEATS
-    if ($flakes | is-empty) {
-      try { ^nix flake update --flake $root }
-    } else {
-      for f in $flakes {
-        if ($f | str downcase) == "meat" {
-          meat-print "PROCESSING REAL MEAT.."
-        } else {
-          meat-print $"PROCESSING FRESH MEAT ($f | str upcase).."
+    let pins = load-pins
+    let shorturls = $pins.shorturls? | default {}
+    let inputs = $pins.inputs
+    mut lock = load-lock
+
+    let targets = if ($names | is-empty) { $inputs | columns } else { $names }
+
+    for name in $targets {
+      if not ($name in ($inputs | columns)) {
+        meat-print $"NO MEAT CALLED ($name | str upcase).."
+        continue
+      }
+      meat-print $"PROCESSING ($name | str upcase).."
+      try {
+        let pin = $inputs | get $name
+        let expanded = expand-shorturl $pin.url $shorturls
+        let entry = prefetch-pin $expanded
+        let old_rev = ($lock | get -o $name) | default {} | get -o rev
+        let new_rev = $entry.rev
+        if $old_rev == $new_rev {
+          meat-print $"  ($name | str upcase) STILL FRESH"
+          continue
         }
-        try { ^nix flake update $f --flake $root }
+        $lock = $lock | upsert $name $entry
+        write-lock $lock
+        let from = if ($old_rev | is-empty) { "NEW" } else { $old_rev | str substring 0..8 }
+        meat-print $"  ($name | str upcase): ($from) -> ($new_rev | str substring 0..8)"
+      } catch { |e|
+        meat-print $"  NO FIND ($name | str upcase): ($e.msg)"
       }
     }
   }
   print ""
 }
 
-def lookup-input [nodes: record, name: string, node_ref: any] {
-  let node_name = if (($node_ref | describe) == "string") { $node_ref } else { $name }
-  let node = $nodes | get $node_name
-  let locked = $node.locked
-  let original = $node.original
-  let url = match $locked.type {
-    "github" => $"https://github.com/($locked.owner)/($locked.repo).git"
-    "git" => $original.url
-    _ => { error make { msg: $"unsupported type: ($locked.type)" } }
-  }
-  let target_ref = if ('ref' in $original) { $"refs/heads/($original.ref)" } else { "HEAD" }
-  let out = ^git ls-remote $url $target_ref | complete
-  if $out.exit_code != 0 {
-    error make { msg: "git ls-remote failed" }
-  }
-  let first_line = $out.stdout | str trim | lines | get 0?
-  if ($first_line | is-empty) {
-    error make { msg: "no refs returned" }
-  }
-  let latest = $first_line | split row "\t" | first
-  { name: $name, locked: $locked.rev, latest: $latest }
-}
-
 def cmd-look [] {
   with-frame {
     meat-print "LOOK FOR NEW MEATS.."
-    let lock = open --raw $"($env.MEATS)/flake.lock" | from json
-    let nodes = $lock.nodes
-    let root_inputs = $nodes.root.inputs
-    let stale = $root_inputs | transpose name node_ref | each { |row|
+    let pins = load-pins
+    let shorturls = $pins.shorturls? | default {}
+    let inputs = $pins.inputs
+    let lock = load-lock
+
+    let stale = $inputs | transpose name pin | each { |row|
       try {
-        let r = lookup-input $nodes $row.name $row.node_ref
-        if $r.latest != $r.locked {
-          meat-print $"($r.name | str upcase) MEAT RIPE!"
-          $r.name
+        let expanded = expand-shorturl $row.pin.url $shorturls
+        let new_rev = ls-remote-head $expanded
+        let old_rev = ($lock | get -o $row.name) | default {} | get -o rev
+        if $old_rev != $new_rev {
+          let from = if ($old_rev | is-empty) { "NEW" } else { $old_rev | str substring 0..8 }
+          meat-print $"  ($row.name | str upcase): ($from) -> ($new_rev | str substring 0..8)"
+          $row.name
         } else { null }
       } catch {
-        meat-print $"NO FIND ($row.name | str upcase).."
+        meat-print $"  NO FIND ($row.name | str upcase).."
         null
       }
     } | compact