diff options
| author | Peter Stephenson <pws@users.sourceforge.net> | 2008-02-19 14:59:52 +0000 |
|---|---|---|
| committer | Peter Stephenson <pws@users.sourceforge.net> | 2008-02-19 14:59:52 +0000 |
| commit | b784aad67a5306930659704613e69bafdacf9f6e (patch) | |
| tree | 93ae563c0ca4591ff27c90095e18a3e1c29bd6fb /Functions/Calendar | |
| parent | 00e6c6e0f5bd48d730d77e76379cfd0b17325a70 (diff) | |
| download | zsh-b784aad67a5306930659704613e69bafdacf9f6e.tar.gz zsh-b784aad67a5306930659704613e69bafdacf9f6e.tar.xz zsh-b784aad67a5306930659704613e69bafdacf9f6e.zip | |
24572: add style reformat-date to calendar
Diffstat (limited to 'Functions/Calendar')
| -rw-r--r-- | Functions/Calendar/calendar_add | 22 |
1 files changed, 16 insertions, 6 deletions
diff --git a/Functions/Calendar/calendar_add b/Functions/Calendar/calendar_add index c24556585..592c9d671 100644 --- a/Functions/Calendar/calendar_add +++ b/Functions/Calendar/calendar_add @@ -8,6 +8,8 @@ emulate -L zsh setopt extendedglob +local context=":datetime:calendar_add:" + local calendar newfile REPLY lastline opt local -a calendar_entries lockfiles reply integer my_date done rstat nolock nobackup new_recurring old_recurring @@ -33,17 +35,25 @@ done shift $(( OPTIND - 1 )) # Read the calendar file from the calendar-file style -zstyle -s ':datetime:calendar_add:' calendar-file calendar || +zstyle -s $context calendar-file calendar || calendar=~/calendar newfile=$calendar.new.$HOST.$$ -if ! calendar_parse "$*"; then +local addline="$*" +if ! calendar_parse $addline; then print "$0: failed to parse date/time" >&2 return 1 fi parse_new=("${(@kv)reply}") (( my_date = $parse_new[time] )) [[ -n $parse_new[rpttime] ]] && (( new_recurring = 1 )) +if zstyle -t $context reformat-date; then + local datefmt + zstyle -s $context date-format datefmt || + datefmt="%a %b %d %H:%M:%S %Z %Y" + strftime -s REPLY $datefmt $parse_new[time] + addline="$REPLY $parse_new[text1]" +fi # $calendar doesn't necessarily exist yet. @@ -53,7 +63,7 @@ local my_uid their_uid # Match a UID, a unique identifier for the entry inherited from # text/calendar format. local uidpat='(|*[[:space:]])UID[[:space:]]##(#b)([[:xdigit:]]##)(|[[:space:]]*)' -if [[ "$*" = ${~uidpat} ]]; then +if [[ $addline = ${~uidpat} ]]; then my_uid=${(U)match[1]} fi @@ -82,7 +92,7 @@ fi calendar_parse $line || continue parse_old=("${(@kv)reply}") if (( ! done && ${parse_old[time]} > my_date )); then - print -r -- "$*" + print -r -- $addline (( done = 1 )) fi if [[ -n $parse_old[rpttime] ]]; then @@ -119,13 +129,13 @@ fi fi fi fi - if [[ $REPLY -eq $my_date && $line = "$*" ]]; then + if [[ $parse_old[time] -eq $my_date && $line = $addline ]]; then (( done )) && continue # paranoia: shouldn't happen (( done = 1 )) fi print -r -- $line done - (( done )) || print -r -- "$*" + (( done )) || print -r -- $addline } >$newfile if (( ! nobackup )); then if ! mv $calendar $calendar.old; then |