;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312\313\314\313\315&\210\316\317\320\321\313\310%\210\316\322\323\324#\210\316\325\326\327\313\310%\210\316\330\331\332\313\310%\210\316\333\334\335\313\310%\207" [require cl-lib yandex-weather image format-spec solar parse-time custom-declare-group org-yandex-weather nil "Yandex Weather for Org mode." :group comm org custom-declare-variable org-yandex-weather-location "27612" "Default location for org-yandex-weather." org-yandex-weather-format "%C: %i %c, [%l,%h]%s" "String to return to describe the weather.\nValid %-sequences are:\n - %i the icon;\n - %c means the weather condition;\n - %C the city the weather is for;\n - %l the lower temperature;\n - %h the higher temperature;\n - %p the pressure in mmHg;\n - %d the wind direction;\n - %w the wind speed;\n - %H the humidity;\n - %s the temperature unit symbol." org-yandex-weather-cache-time 7200 "Define how many seconds we should cache the weather forecast." org-yandex-weather-cache-icon-time 15552000 "Define how many seconds we should cache icons for the forecast." org-yandex-weather-display-icon-p t "Display icons."] 8) #@33 The arrows for wind directions. (defvar org-yandex-weather-wind-direction-symbols '(("n" . "↓") ("ne" . "↙") ("e" . "←") ("se" . "↖") ("s" . "↑") ("sw" . "↗") ("w" . "→") ("nw" . "↘")) (#$ . 1303)) #@47 Return the arrow of wind direction by SYMBOL. (defalias 'org-yandex-weather-get-wind-direction-arrow-by-symbol #[(symbol) "\302 \"A\207" [symbol org-yandex-weather-wind-direction-symbols assoc] 3 (#$ . 1523)]) #@92 Return t if DATE places between current day and current day plus 10 days. Else return nil. (defalias 'org-yandex-weather-check-interval #[(date) "\304\305 !\211\306\\\n\211\3078\262\310\311U\203\312\313!\266\203\202]\311V\203\225S\262\314\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\200\211\316\317_\\\306\245Z\262\211\311W\203a\320!S\262\211\317\246\311U\205w\211\321\246\311U?\206w\211\322\246\311U\262\203\200\211T\262\266\204\323_\317\245\321\245[\322\245%\266\203\202]\320T!\262\324\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\362\211\316\317_\\\306\245Z\262\211\311W\203\323\320!S\262\211\317\246\311U\205\351\211\321\246\311U?\206\351\211\322\246\311U\262\203\362\211T\262\266\204\323_\317\245\321\245[\322\245\325\211\211@\262\211A@\262\3078\262\315S_\\\307V\203W\211\316\317_\\\306\245Z\262\211\311W\2038\320!S\262\211\317\246\311U\205N\211\321\246\311U?\206N\211\322\246\311U\262\203W\211T\262\266\204&\266\203\211Y\205g W+\207" [low-days high-days date days-of-date time-to-days current-time 10 2 nil 0 user-error "There was no year zero" + 31 23 4 abs 100 400 365 - (12 31 -1)] 19 (#$ . 1740)]) #@94 Create image for the forecast according to the value of `org-yandex-weather-display-icon-p'. (defalias 'org-yandex-weather-create-icon-if-need #[(forecast) "\205\303\304\305 !\n\"\306\307#\207" [org-yandex-weather-display-icon-p forecast org-yandex-weather-cache-icon-time create-image yandex-weather-get-icon yandex-weather-forecast->icon png t] 4 (#$ . 2959)]) #@50 Build and return forecast string for the agenda. (defalias 'org-yandex-weather-build-org-ret-string #[(data forecast) "\306!\307!\310!\311!\312!\313!\314\315!!\316 !\317!#$%&'\320(\321\n\203@\322\323\324\325\n\326\"\327\330%\202A\331B\332'B\333&B\334%B\335#B\336\fB\337 B\340$B\341 B\342)B\257\n\". \207" [forecast data icon city wind-direction wind-speed yandex-weather-forecast->condition yandex-weather-forecast->avg-night-temperature yandex-weather-forecast->avg-day-temperature yandex-weather-forecast->humidity yandex-weather-forecast->pressure yandex-weather-forecast->wind-speed org-yandex-weather-get-wind-direction-arrow-by-symbol yandex-weather-forecast->wind-direction yandex-weather-data->city org-yandex-weather-create-icon-if-need format-spec 105 propertize "icon" display append (:ascent center) rear-nonsticky (display) "" 99 108 104 112 100 119 72 67 115 pressure humidity high low condition org-yandex-weather-format yandex-weather-temperature-symbol] 13 (#$ . 3331)]) #@105 Return Org entry with the weather for LOCATION. If LOCATION isn't set, use org-yandex-weather-location. (defalias 'org-yandex-weather #[(&optional location) "\306!\205- \206 \n\3071\310 \"0\202\210\311\211\205#\312\f\"\211\205,\313\f \"+\207" [date location org-yandex-weather-location org-yandex-weather-cache-time data forecast org-yandex-weather-check-interval (error) yandex-weather-get-data nil yandex-weather-data->forecast-by-date org-yandex-weather-build-org-ret-string] 4 (#$ . 4352)]) (provide 'org-yandex-weather)