#!/usr/bin/perl -T

use v5.36;
use strict;
use warnings;

use Acme::Cow;

our @habits = (
  'Do Push-ups',
  'Do single-arm push-ups',
  'Do Yoga Wheel',
  'Do Yoga Bridge',
  'Do Yoga Cro',
  'Do Yoga Downward Facing Dog',
  'Do Yoga Warrior 3',
  'Do Yoga Half Moon',
  'Do Shoulder stand',
  'Do pistol squads',
  'Meditate',
  'Listen to music',
  'Do nothing',
  'Breathing exercise',
  '1h+ deep work',
  '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',
  'Tonight, disconnect from work completely',
  'Limit the use of social media',
  'Only use my phone and computers intentionally',
  'Learn vocs with Anki',
  'Learn/try out a new Linux/Unix command',
  'Got enough vitamins?',
  'Process my last (book) notes',
  'Drink tea (or an infusion)',
  'Have a positive attitute - Be solution oriented',
  'Focus on things I have under control',
  'Listen to a random 101 chapter today',
  'Read my Gemini subscriptions',
  'Write down 10 ideas (weird and non-weird)',
  'Have a walk without headphones plugged in',
  "Read today's chapter of the daily stoic",
);

my $habit = $habits[rand @habits];
my $cow = Acme::Cow->new;
$cow->text($habit);
int(rand 2) ? $cow->say : $cow->think;
$cow->print;