fix

bin/verse.zsh

@@ -3,7 +3,6 @@
 function at_env_arg() {
 	handle=ai.syui.ai
 	col=ai.syui.verse.user
-	rkey=self
 	host=syu.is
 }
 
@@ -12,7 +11,7 @@ function at_env() {
 	cd $d
 	dd=${0:a:h:h}
 	pds=$host
-	f=$d/token.json
+	f=$d/${handle}.json
 	if [ ! -f $f ];then
 		echo password
 		read password
@@ -27,9 +26,12 @@ function at_env() {
 	case $col in
 		ai.syui.verse)
 			j=${j_verse}
+			rkey=self
 			;;
 		ai.syui.verse.user)
 			j=${j_user}
+			rkey=self
+			rkey=`echo $did|cut -d : -f 3`
 			;;
 	esac
 
@@ -83,16 +85,36 @@ function at_put_record() {
 			"rkey": $rkey,
 			"record": $record
 		}')
-
-	echo $json
 	if echo $json|jq . ;then
 		t=`curl -sL -X POST -H "Content-Type: application/json" -H "Authorization: Bearer $access" -d "$json" $url`
 		echo $t|jq .
 	fi
 }
 
+function at_delete_record() {
+	req=com.atproto.repo.DeleteRecord
+	url=https://$pds/xrpc/$req
+	echo collection:
+	read col
+	echo rkey:
+	read rkey
+	json="{\"collection\":\"$col\", \"rkey\":\"$rkey\", \"repo\":\"$handle\"}"
+	if echo $json|jq . ;then
+		t=`curl -sL -X POST -H "Content-Type: application/json" -H "Authorization: Bearer $access" -d $json $url`
+		echo $t|jq .
+	fi
+}
+
 at_env_arg
 at_env
 at_create_session
 at_refresh_session
-at_put_record
+
+case $1 in
+	d)
+		at_delete_record
+		;;
+	*)
+		at_put_record
+		;;
+esac