Miscellany

dialog away_dia {
  title "Away"
  size -1 -1 80 20
  option dbu
  edit "Reason", 1, -1 -1 82 11, return
  button "Away", 2, 0 9 37 12
  button "Back", 3, 44 9 37 12
  button "C", 4, 36 9 9 11 close
}
on *:dialog:away_dia:sclick:2:{
  amsg [Away] Reason ( $+ $did(1).seltext $+ ) - Left At ( $+ $fulldate $+ )
  set %away.time $ctime
  set %away.reason $1-
  set %away.date $fulldate
  set %away on
} 
on *:dialog:away_dia:sclick:3:{
  if (%away == on) {
    amsg [Back] Reason ( $+ %away.reason $+ ) - Left ( $+ %away.date $+ ) - Gone For ( $+ $duration($calc($ctime - %ctime)) $+ )
    set %away offk 
  }
}
ALIAS awaysys { dialog -m away_dia away_dia }
ALIAS away {
  amsg [Away] Reason ( $+ $1- $+ ) - Left At ( $+ $fulldate $+ )
  set %away.time $ctime
  set %away.reason $1-
  set %away.date $fulldate
  set %away on
}
ALIAS back {
  if (%away == on) {
    amsg [Back] Reason ( $+ %away.reason $+ ) - Left ( $+ %away.date $+ ) - Gone For ( $+ $duration($calc($ctime - %ctime)) $+ )
    set %away off
  }
}