From d672f3b16f5e872da764dab2ba1e76517be2b46a Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Fri, 5 May 2023 00:20:45 +0300
Subject: add habit server

---
 frontends/scripts/habit.pl | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 frontends/scripts/habit.pl

(limited to 'frontends/scripts')

diff --git a/frontends/scripts/habit.pl b/frontends/scripts/habit.pl
new file mode 100644
index 0000000..72305d3
--- /dev/null
+++ b/frontends/scripts/habit.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl -T
+
+use v5.36;
+use strict;
+use warnings;
+
+use Acme::Cow;
+
+our @habits = (
+  'Do Push-ups',
+  'Do Yoga Wheel',
+  'Do Yoga Cro',
+  'Do Yoga Downward Facing Dog',
+  'Do Yoga Warrior 3',
+  'Do Yoga Half Moon',
+  'Do Shoulder stand',
+  'Meditate',
+  'Listen to music',
+  'Do nothing',
+  'Breathing exercise',
+  'Play with the cat',
+  'Drink water',
+  'Think about the purpose of what I am doing',
+  'Write down 3 things I am grateful for',
+  'Take it easy - nobody is dying!',
+  'Enjoy my current task',
+  'It\'s family time',
+  'Help someone',
+  'Learn/try out a new Linux/Unix command',
+);
+
+my $habit = $habits[rand @habits];
+my $cow = Acme::Cow->new;
+$cow->text($habit);
+int(rand 2) ? $cow->say : $cow->think;
+$cow->print;
-- 
cgit v1.2.3