changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/organ/object/timestamp.lisp

changeset 698: 96958d3eb5b0
parent: 5bd0eb9fa1fa
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; lib/organ/object/timestamp.lisp --- Org Timestamp Object
     2 
     3 ;; Org timestamps come in one of the seven following patterns:
     4 #|
     5 <%%(SEXP)>                                                     (diary)
     6 <DATE TIME REPEATER-OR-DELAY>                                  (active)
     7 [DATE TIME REPEATER-OR-DELAY]                                  (inactive)
     8 <DATE TIME REPEATER-OR-DELAY>--<DATE TIME REPEATER-OR-DELAY>   (active range)
     9 <DATE TIME-TIME REPEATER-OR-DELAY>                             (active range)
    10 [DATE TIME REPEATER-OR-DELAY]--[DATE TIME REPEATER-OR-DELAY]   (inactive range)
    11 [DATE TIME-TIME REPEATER-OR-DELAY]                             (inactive range)
    12 |#
    13 
    14 ;; As of 2023-12-26 we are ignoring the diary format. The remainder
    15 ;; are supported.
    16 
    17 ;; Timestamps can be of a unit kind (active/inactive above) or
    18 ;; represent a range. Active and Inactive timestamps are unrelated and
    19 ;; shouldn't inherit structure from each other. For example don't
    20 ;; define a slot named ACTIVE to distinguish them.
    21 
    22 ;;; Code:
    23 (in-package :organ)
    24 
    25 (define-org-object active-timestamp (date time mod))
    26 (define-org-object active-timestamp-range (ts1 ts2))
    27 (define-org-object inactive-timestamp (date time mod))
    28 (define-org-object inactive-timestamp-range (ts1 ts2))