From 70814727ada389ba087ff5292d08a8ede92b3d75 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Fri, 5 Nov 2021 13:15:37 -0600
Subject: Add my own xmobar-weather perl script.

The builtin xmobar weather is not feature rich enough. My new script
will change icons depending on the time of day.
---
 extras/HOME/.xmobarrc              | 17 +-------
 extras/HOME/.xmonad/xmobar-weather | 86 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 88 insertions(+), 15 deletions(-)
 create mode 100755 extras/HOME/.xmonad/xmobar-weather

(limited to 'extras')

diff --git a/extras/HOME/.xmobarrc b/extras/HOME/.xmobarrc
index 52798af..90141e7 100644
--- a/extras/HOME/.xmobarrc
+++ b/extras/HOME/.xmobarrc
@@ -31,7 +31,7 @@ Config
       \</fc><fc=#a0a0a0> %date%</fc><fc=#404040> │ \
       \</fc>%StdinReader%}<fn=6><fc=#909090>%time%</fc></fn>\
       \{ %cpu% %memory% <fc=#404040>\
-      \│</fc> %KLMO% <fc=#404040>│\
+      \│</fc> %weather% <fc=#404040>│\
       \</fc> <fc=#a0a0a0>%mpris2%</fc> <fc=#404040>│ \
       \</fc>%bluetooth%%bat% "
    , commands = [
@@ -56,23 +56,10 @@ Config
          "--normal", "#88ff88",
          "--high", "#ff8888"
        ] 10,
-       Run WeatherX "KLMO"
-             [ ("clear", "<fc=#ddcf04>")
-             , ("sunny", "<fc=#ddcf04>")
-             , ("mostly clear", "<fc=#00a3c4>")
-             , ("mostly sunny", "<fc=#ddcf04>")
-             , ("partly sunny", "<fc=#ddcf04>")
-             , ("fair", "<fc=#a0a0a0>🌑")
-             , ("cloudy","<fc=#a0a0a0>摒")
-             , ("overcast","<fc=#808080>")
-             , ("partly cloudy", "<fc=#a0a0a0>杖")
-             , ("mostly cloudy", "<fc=#808080>")
-             , ("considerable cloudiness", "<fc=#a0a0a0>ﭽ")]
-             ["--template", "<skyConditionS></fc><fn=3><fc=#a0a0a0>   \
-             \<tempF>°F</fc></fn>"] 360000,
        Run Mpris2 "spotify" [
            "-t", "<fc=#1aa54b></fc>  <fn=3><title></fn>",
            "--nastring", "<fc=#404040> </fc>"] 20,
+       Run Com ".xmonad/xmobar-weather" [] "weather" 9000,
        Run Com ".xmonad/xmobar-logo" [] "logo" 0,
        Run Com "uname" ["-r"] "uname" 0,
        Run Com ".xmonad/xmobar-bluetooth" [] "bluetooth" 50,
diff --git a/extras/HOME/.xmonad/xmobar-weather b/extras/HOME/.xmonad/xmobar-weather
new file mode 100755
index 0000000..bf84870
--- /dev/null
+++ b/extras/HOME/.xmonad/xmobar-weather
@@ -0,0 +1,86 @@
+#!/usr/bin/perl
+
+use LWP::Simple;
+use Time::Local;
+use POSIX;
+
+$content = get(
+  "https://api.sunrise-sunset.org/json?lat=40.1672117&lng=-105.1019286&formatted=0");
+
+die "Unable to get sunrise/sunset data" unless defined $content;
+
+$sunrise_str=$content;
+$sunset_str=$content;
+$sunrise_str =~ s#.*"sunrise":"([^"]*)".*#\1#;
+$sunset_str =~ s#.*"sunset":"([^"]*)".*#\1#;
+$current_str=strftime "%Y-%m-%dT%H:%M:%S+00:00", gmtime();
+
+$content = get(
+  "https://tgftp.nws.noaa.gov/data/observations/metar/decoded/KLMO.TXT");
+
+die "Unable to get weather data" unless defined $content;
+
+$sky_conditions = $content;
+$sky_conditions =~ s#.*Sky conditions:\s+([^\n]+).*#\1#ims;
+$sky_conditions =~ s#\s#_#g;
+
+$wind = $content;
+$wind =~ s#.*Wind:\s+([^\n]+).*#\1#ims;
+($wind_direction, $wind_speed) =
+    ($wind =~ m/from the ([A-Z]+).*at (\d+) MPH.*/g);
+
+
+$temp = $content;
+$temp =~ s#.*Temperature:\s+(-?[0-9.]+) F.*#\1#ims;
+
+if ($current_str gt $sunrise_str and $current_str lt $sunset_str) {
+  $is_day = 1;
+} else {
+  $is_day = 0;
+}
+
+%directions = (
+  NE => "↙",
+  SE => "↖",
+  NW => "↘",
+  SW => "↗",
+  N => "↓",
+  S => "↑",
+  W => "→",
+  E => "←" );
+
+$dir=%directions{$wind_direction};
+
+%conditions_day = (
+  clear => "<fc=#ddcf04>",
+  sunny => "<fc=#ddcf04>",
+  mostly_clear => "<fc=#00a3c4>",
+  mostly_sunny => "<fc=#ddcf04>",
+  partly_sunny => "<fc=#ddcf04>",
+  fair => "<fc=#a0a0a0>🌑",
+  cloudy =>"<fc=#a0a0a0>摒",
+  overcast =>"<fc=#808080>",
+  partly_cloudy => "<fc=#a0a0a0>杖",
+  mostly_cloudy => "<fc=#808080>",
+  considerable_cloudiness => "<fc=#a0a0a0>ﭽ" );
+
+%conditions_night = (
+  clear => "<fc=#00a3c4>",
+  sunny => "<fc=#00a3c4>",
+  mostly_clear => "<fc=#00a3c4>",
+  mostly_sunny => "<fc=#00a3c4>",
+  partly_sunny => "<fc=#00a3c4>",
+  fair => "<fc=#808080>🌑",
+  cloudy =>"<fc=#808080>摒",
+  overcast =>"<fc=#404040>",
+  partly_cloudy => "<fc=#a0a0a0>",
+  mostly_cloudy => "<fc=#808080>",
+  considerable_cloudiness => "<fc=#a0a0a0>ﭽ" );
+
+if ($is_day) {
+  $conditions = %conditions_day{$sky_conditions};
+} else {
+  $conditions = %conditions_night{$sky_conditions};  
+}
+
+printf("<fc=#a0a0a0>$dir <fn=3>${wind_speed}mph</fn></fc> $conditions</fc><fn=3>   <fc=#a0a0a0>%.0f°F</fc></fn>\n", $temp);
-- 
cgit