Skip to content

Instantly share code, notes, and snippets.

Keybase proof

I hereby claim:

  • I am mfisher911 on github.
  • I am mfisher (https://keybase.io/mfisher) on keybase.
  • I have a public key whose fingerprint is 6EAA 4006 6893 7885 0275 0FBC 10C7 A05B EFED 1CA8

To claim this, I am signing this object:

@mfisher911
mfisher911 / joinsplit.pl
Last active December 19, 2015 20:08
Proposed solution to puzzle: How do I replace a " in a string with ', but only if it's not the 1st, 2nd, 3rd, or last occurrence?
#!/usr/bin/env perl
# proposed solution to puzzle:
#
# how do i replace a " in a string with ', but only if its not the
# 1st, 2nd, 3rd, or last occurance
use warnings;
use strict;
@mfisher911
mfisher911 / tidy.el
Created February 4, 2012 05:14
Movie List Cleanup Helper Functions
(defun maf-tidy ()
"Tidy a ratings file to be more Org-mode ready."
(interactive)
(save-excursion
(let ((beg (point)))
;; put "|" at the beginning of the line
(while (< (point) (point-max))
(forward-line 0)
(unless (string= "|" (string (char-after)))
(insert "|"))
@mfisher911
mfisher911 / totalamt.js
Created January 13, 2012 20:34
Price Total Script
// this $(document).ready() construct runs the function after the page is drawn/ready
$(document).ready(function() {
var today = new Date();
// YYYY, M, D -- Jan. is 0, Mar is 2
var deadline = new Date().setFullYear(2012, 2, 1);
if (today > deadline) {
$("#reg_general").val(125);
}
// Add an on-change handling function for anything with class "price"
#!/usr/bin/env perl
use warnings;
use strict;
my $WATCH_DIR = '/Users/mfisher/test';
my $WATCH_FILE = '/Users/mfisher/.test-last';
my $Max_Age = 0;
# if the watch file exists, read the most newest file timestamp from