snapper aliases

users/tao/nushell/extras/stuff.nu

@@ -18,3 +18,16 @@ def --env z [path: string = "~"] {
   zo $path
   l
 }
+
+def "snapper list" [] {
+  snapper --csvout list | from csv | reject config subvolume default user used-space userdata active
+} 
+
+def "snapper clear" [] {
+  let list = snapper --csvout list | from csv | reject config subvolume default user used-space userdata active | skip 1
+
+  let first = $list | first
+  let last = $list | last
+
+  snapper delete $"($first.number)-($last.number)"
+}