

(in-package :user)

(setf *time-nicknames* 
  '(

    ;; nick -> string     -- shows as written
    ;;      -> FOO        -- shows as Foo
    ;;      -> FOO-BAR    -- shows as FooBar


;;; ("admin-list-string"             nickname ... )

    ("product-support"           Support)
    ("development"               "DEV")
    ("sa"                        "SA")
    ("documentation"             Doc)
    ("pto"                       "PTO")
    ("jury-duty"                 jury)
    ("none"                      "---")

    ))


