Jach

## new-instagram-story-check.lisp
#|
Instagram is truly a terrible site.
And their notifications suck.
And even if you have pretty good self-control, the addiction mechanisms can still get you for a time.
Anyway, this script lets me stay away from the site and only check it if a profile I care about
has a new story posted. (Stories themselves are also evil, ephemeral status updates popularized by
snapchat are the devil.)
It sleeps for 24.5ish hours after a hit, because 24h is the default time before a story expires if
the person doesn't delete it first, so if further stories are posted, you won't know about them
right away, and may even miss them entirely if they were posted right after. (Oh well.)

## EasyMail.php
<?php

/* USAGE:
 * $send = array();
 * $send['to'] = 'to@d.com';
 * $send['from'] = 'from@d.com'; // defaults to 'admin@thisdomain.com'
 * $send['subject'] = 'Sub';
 * $send['html'] = '<a href="site">click me</a>'; // newlines == <br /> automagically
 *
 * $mail = new EasyMail($send);

## get_likes.lisp
;;;; For years I had a script that used the twitter free API to get my account's (@jachy) likes, and if they were
;;;; images or videos, download a local copy of them because I was sick of accounts being suspended and losing some memes/art
;;;; forever.
;;;; Anyway, because the free tier is no more, here is a very dirty Common Lisp script to replace it.
;;;; It requires Selenium (expected to be running before this script, e.g. with `java -jar selenium-server-4.1.2.jar standalone`
;;;; and I'm assuming Firefox rather than Chrome is being used) to load up the likes page and continue to scroll down the page
;;;; for a fixed duration of time, frequently polling the page source and extracting media URLs from it. It handles pictures,
;;;; mp4 videos, and gifs. It uses `yt-dlp` (fork of youtube-dl) to get the mp4 URLs, uses `ls` to check for already-downloaded
;;;; existence (needed for lazy glob patterns), and `wget` to do the actual download.
;;;; By default it runs for 5 minutes, my cronjob is setup to run the sc

## coyo_yt_posts.lisp
; before running, run java -jar selenium-server-4.1.2.jar standalone

(defpackage #:coyo-yt-posts
  (:use #:cl))
(in-package :coyo-yt-posts)

(ql:quickload :cl-webdriver-client)
(ql:quickload :dexador)

(use-package :webdriver-client)

## Game Notes.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                Jach
                / Game Notes.md
            
            
              Last active
              May 8, 2024 17:59
            
          
    Similar to my Book Reading List Queue or my Anime Notes, this will track some thoughts on some past games I've played or beaten. I've been tracking my beaten games with play time for some time at How Long To Beat, but I haven't given them ratings or post-play thoughts, and I thought it might be a good idea to start doing that and go back and do it for some old plays (and maybe discover for some that I have very little memory of what actually happened). List is for my own benefit so I'm not going to be careful around spoiler topics, but I'm also lazy and don't want to write that much to justify a review score... I wouldn't mind chatting in the comments if there's a game where my rating is quite different and some discussion around it would be interesting.
There are some games that are more 'ongoing' or never-ending in some sense like being meant to be played and replayed over and over, maybe they're arcade style or MMOs or games-as-service things, in any case they

  
## Anime Notes.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                Jach
                / Anime Notes.md
            
            
              Last active
              April 10, 2024 18:29
            
          
    A bit similar to my Book Reading List Queue, but not as complete or detailed. I've been tracking the anime I've been watching on MAL for a while and in case anyone is interested that is the definitive spot for dates / scores. Over time I'd like to maybe comment on everything here to some extent, even just a few words' remark on my thoughts or feelings, and maybe justify my score slightly. Mostly just one-two sentence things though I'm sure some will expand. The reason to do this is sometimes I forget why I judged something a particular way and only remember the judgement or feeling, keeping even a minor note should help recall fuller details even if I don't write the fuller ones here. Rating wise, I'd happily rewatch anything 8 or above.
Order here will also be most recent at the top. List started with Haruhi Suzumiya, so unfortunately everything prior that is backwards memory-filling, not fresh thoughts after just finishing.
Note that I di

  
## matrixquerything.lisp
(defstruct cell
  color
  value
  i
  j)

(defun create-cells (matrix)
  (let ((cells (list))
        (color :white))
    (loop for i below (array-dimension matrix 0) do

## bodyweight.lisp
; quick and dirty adaptation from https://gist.github.com/stucchio/1403042
(ql:quickload :numcl)
(ql:quickload :vgplot)

(defparameter *exercise-level* 1.5)
(defparameter *height-inches* (* 6 12))
(defparameter *a* (/ (* *exercise-level* (+ 66 (* 12.7 *height-inches*)))
                     3500.0))
(defparameter *b* (/ (* *exercise-level* 6.23)
                     3500))

## Twitter Selected Users.js
// ==UserScript==
// @name     Twitter Selected Users
// @version  1
// @grant    none
// @namespace local
// @include     https://twitter.com/*
// ==/UserScript==

// Brittle bare-minimum works-for-me code ahead!
// License: Public Domain (see bottom)

## sdl-intro.lisp
#|Public domain. Does not unwind-protect errors like it should.|#
(in-package #:cl-user)
(defpackage #:sdl-intro
  (:use #:common-lisp))
(in-package #:sdl-intro)

(ql:quickload "sdl2")

(defun null-ptr? (alien-val)
  (cffi:null-pointer-p (autowrap:ptr alien-val)))
	#\|
	Instagram is truly a terrible site.
	And their notifications suck.
	And even if you have pretty good self-control, the addiction mechanisms can still get you for a time.
	Anyway, this script lets me stay away from the site and only check it if a profile I care about
	has a new story posted. (Stories themselves are also evil, ephemeral status updates popularized by
	snapchat are the devil.)
	It sleeps for 24.5ish hours after a hit, because 24h is the default time before a story expires if
	the person doesn't delete it first, so if further stories are posted, you won't know about them
	right away, and may even miss them entirely if they were posted right after. (Oh well.)
	<?php

	/* USAGE:
	* $send = array();
	* $send['to'] = 'to@d.com';
	* $send['from'] = 'from@d.com'; // defaults to 'admin@thisdomain.com'
	* $send['subject'] = 'Sub';
	* $send['html'] = '<a href="site">click me</a>'; // newlines == <br /> automagically
	*
	* $mail = new EasyMail($send);
	;;;; For years I had a script that used the twitter free API to get my account's (@jachy) likes, and if they were
	;;;; images or videos, download a local copy of them because I was sick of accounts being suspended and losing some memes/art
	;;;; forever.
	;;;; Anyway, because the free tier is no more, here is a very dirty Common Lisp script to replace it.
	;;;; It requires Selenium (expected to be running before this script, e.g. with `java -jar selenium-server-4.1.2.jar standalone`
	;;;; and I'm assuming Firefox rather than Chrome is being used) to load up the likes page and continue to scroll down the page
	;;;; for a fixed duration of time, frequently polling the page source and extracting media URLs from it. It handles pictures,
	;;;; mp4 videos, and gifs. It uses `yt-dlp` (fork of youtube-dl) to get the mp4 URLs, uses `ls` to check for already-downloaded
	;;;; existence (needed for lazy glob patterns), and `wget` to do the actual download.
	;;;; By default it runs for 5 minutes, my cronjob is setup to run the sc
	; before running, run java -jar selenium-server-4.1.2.jar standalone

	(defpackage #:coyo-yt-posts
	(:use #:cl))
	(in-package :coyo-yt-posts)

	(ql:quickload :cl-webdriver-client)
	(ql:quickload :dexador)

	(use-package :webdriver-client)
	(defstruct cell
	color
	value
	i
	j)

	(defun create-cells (matrix)
	(let ((cells (list))
	(color :white))
	(loop for i below (array-dimension matrix 0) do
	; quick and dirty adaptation from https://gist.github.com/stucchio/1403042
	(ql:quickload :numcl)
	(ql:quickload :vgplot)

	(defparameter exercise-level 1.5)
	(defparameter height-inches (* 6 12))
	(defparameter a (/ (* exercise-level (+ 66 (* 12.7 height-inches)))
	3500.0))
	(defparameter b (/ (* exercise-level 6.23)
	3500))
	// ==UserScript==
	// @name Twitter Selected Users
	// @version 1
	// @grant none
	// @namespace local
	// @include https://twitter.com/*
	// ==/UserScript==

	// Brittle bare-minimum works-for-me code ahead!
	// License: Public Domain (see bottom)
	#\|Public domain. Does not unwind-protect errors like it should.\|#
	(in-package #:cl-user)
	(defpackage #:sdl-intro
	(:use #:common-lisp))
	(in-package #:sdl-intro)

	(ql:quickload "sdl2")

	(defun null-ptr? (alien-val)
	(cffi:null-pointer-p (autowrap:ptr alien-val)))