Add setsynopsis action

This commit is contained in:
df 2020-11-01 19:11:52 +00:00
parent 1abdeecfca
commit b16eefe4ba
1 changed files with 14 additions and 0 deletions

View File

@ -815,6 +815,20 @@ proc ::sweeper::action_setguidance {ts cmd arg folder} {
return 0
}
proc ::sweeper::action_setsynopsis {ts cmd arg folder} {
if {$folder} {
::sweeper::folder_apply [$ts dir] \
::sweeper::action_setsynopsis $cmd $arg 0
return 0
}
set arg [::sweeper::expand $ts $arg [$ts get synopsis]]
log "Setting synopsis for [$ts get file] to $arg" 0
if {!$::sweeper::dryrun} {
$ts setsynopsis $arg
}
return 0
}
proc ::sweeper::action_lock {ts cmd arg folder} {
if {$folder} {
::sweeper::folder_apply [$ts dir] \