anchor.diff:                                   pressure-mb wind-kph wind-gust-kph
                                    forecast high-f low-f high-c low-c alerts)
             (retrieve-cached-weather (api-key-of module) location)
  -        (declare (ignore local-time wind-dir dewpoint-f icon
  +        (declare (ignore wind-dir dewpoint-f icon
                            heat-index-f windchill-f pressure-in
                            dewpoint-c heat-index-c
                            windchill-c pressure-mb
                            wind-gust-kph))
   
           (save-weather-config (data-path "weather-throttle.lisp"))
  -        (let* ((temp-c (read-from-string temp-c)))
  -          (reply-to message "RITE NAO N ~a ~a. UR TEMP ~a HUMIDNESS ~a ~aWINDINESS ~a HI ~a LO ~a ~a. ~@[~:{~a~}.~] ~a"
  +
  +        (let* ((obs-time (decode-rfc822-timestamp local-time))
  +               (hour (parse-integer (elt obs-time 4)))
  +               (wih-time (concatenate
  +                          'string
  +                          (string-upcase (elt obs-time 0))
  +                          (cond
  +                            ((<= hour 6) "NITE")
  +                            ((<= hour 10) "MORN")
  +                            ((<= hour 12) "MIDMORN")
  +                            ((<= hour 18) "AFT")
  +                            (t "NITE"))))
  +               (temp-c (read-from-string temp-c)))
  +          (reply-to message "UR ~a N ~a ~a. UR TEMP ~a HUMIDNESS ~a ~aWINDINESS ~a HI ~a LO ~a ~a. ~@[~:{~a~}.~] ~a"
  +                    wih-time
                       (string-upcase city) 
                       (alexandria:switch (weather :test 'string=)
                         ("Partly Cloudy" "MOSTLY SKYBLOBLESS")
  -                      ("Rain" "RAINBLOBS R FALLING")
  +                      ("Overcast" "BLOBULAR")
  +                      ("Rain" "RAINBLOBS")
                         ("Snow" "SNOWBLOBS")
                         ("Clear" "SKYBLOBLESS")
                         (t
  
positive.code:      (append (list (get-dom-text current "display_location" "full"))
               (mapcar (lambda (field)
                         (get-dom-text current field))
                       '("observation_time" "weather" "icon"
                         "relative_humidity" "wind_dir"
                         "temp_f" "dewpoint_f" "heat_index_f" "windchill_f"
                         "pressure_in" "wind_mph" "wind_gust_mph"
  
negative.code:           (retrieve-cached-weather (api-key-of module) location)
          (declare (ignore icon))
          (save-weather-config (data-path "weather-throttle.lisp"))
  
          (reply-to message "Current weather for ~a @ ~a" city local-time)
          (cond
  