weather

1 files changed, 39 insertions, 0 deletions

diff --git a/lib/eos/jao-weather.el b/lib/eos/jao-weather.el
new file mode 100644
index 0000000..50dc56a
--- /dev/null
+++ b/lib/eos/jao-weather.el
@@ -0,0 +1,39 @@
+;;; jao-weather.el --- weather utils                 -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2026  jao
+
+;; Author: jao <mail@jao.io>
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+(require 'jao-afio)
+(require 'jao-shell)
+(require 'term)
+
+;;; winttr
+;;;###autoload
+(defun jao-weather (&optional wide)
+  (interactive "P")
+  (if (not wide)
+      (message "%s"
+               (jao-shell-string "curl -s"
+                                 "https://wttr.in/?format=%l++%m++%C+%c+%t+%w++%p"))
+    (jao-afio-goto-scratch)
+    (if-let* ((b (get-buffer "*wttr*")))
+        (progn (pop-to-buffer b)
+               (term-send-string (get-buffer-process nil) "clear;curl wttr.in\n"))
+      (jao-exec-in-term "curl wttr.in" "*wttr*" t))))
+
+(provide 'jao-weather)
+;;; jao-weather.el ends here